PC Toledo

Erro meu.
O .T. tentaria ser executado como se fosse um comando.
O retorno é o último, ::lCanClose


::oDlg:bValid := { || ;
iif( GetKeyState( VK_ESCAPE ), ::lHitEsc := .T., Nil ), ;
iif( GetKeyState( VK_ESCAPE ), ::ShowText( "ESC pressionado" ), Nil ), ;
iif( ! Empty( ::nThreadID ) .AND. hb ...

ze_fwtextmsg.prg:93: warning W0027 Meaningless use of expression 'Logical'


Não entendi o porque desse erro.
Que eu me lembre, é quando a expressão não é lógica.
Acrescentei o teste de threadID.


::oDlg:bValid := { || ;
iif( GetKeyState( VK_ESCAPE ), ::lHitEsc := .T., Nil ), ;
iif ...

... 114 ] -> Current Report Image PenWidth
* _HMG_SYSDATA [ 115 ] -> Current Report Image PenColor
* _HMG_SYSDATA [ 116 ] -> Current Report Text Expression
* _HMG_SYSDATA [ 117 ] -> Current Report Page Number
* _HMG_SYSDATA [ 118 ] -> Current Report Paper Width (User PaperSize)
* _HMG_SYSDATA ...

... ANNOUNCE FPTCDX' statement ignored
200
CEST.PRG:208: warning W0001 Ambiguous reference 'UPDATE'

CEST.PRG:285: warning W0027 Meaningless use of expression 'Logical'
300
CEST.PRG:383: warning W0004 Codeblock parameter 'SELF' declared but not used in function 'CEST'
400
CEST.PRG:403: warning W0003 ...

... dummy condition. For
pPage->TagParent->MaxKeys >= 2 &&
( ( iKeys + pPage->TagParent->MaxKeys - 1 )
/ pPage->TagParent->MaxKeys ) == 1
the expression
iKeys > ( ( pPage->TagParent->MaxKeys * 3 ) >> 1 )
was alwas false.
As side effect this modification pacifies the buggy GCC warnings.

2025-01 ...

... numeric and represents the value for the EVERY option when an index is created. The setting is supported by the DBFNTX and DBFCDX RDDs.

DBOI_EXPRESSION --> cIndexKey (READONLY)

See also: function OrdKey(). The return value is the key expression of the specified index as a character string ...

... a string gerex correta, ou até ver se isso é uma limitação da biblioteca regex do harbour.
HB_RegExSplit()
Parses a string using a regular expression and fills an array.
Syntax
HB_RegExSplit( <cRegEx> , ;
<cString> , ;
[<lCaseSensitive>, ;
[<lNewLine>] , ;
[<nMaxMatches ...

... o preenchimento usando um determinado caractere, use as funções PadC() <Centraliza>, PadL() <a Esquerda> ou PadR() <a Direita>.

Syntax
PadC( <expression>, <nLength>, [<cFillChar>] ) --> cPaddedString
PadL( <expression>, <nLength>, [<cFillChar>] ) --> cPaddedString
PadR( <expression>, <nLength ...

Olá!

Creio que, neste caso, um CTE Recursivo (Recursive Common Table Expression) ajudaria. Este recurso está disponível a partir da versão 2.1 do Firebird. Veja aqui.

... a suas funções:

CDoW() Converts a date to the day of week
CMonth() Return the name of the month.
CToD() Converts a character string to a date expression
Date() Return the Current OS Date
Day() Return the numeric day of the month.
Days() Convert elapsed seconds into days
DoW() Value for the day of ...

... Technologies, Inc.
\HARBOURX_V\Xharbour_bcc76\bin\harbour.exe -iinclude;\HARBOURX_V\Xharbour_bcc76\include;\C_BCC\BCC76\include -n -q0 -w -es2 -gc0 source\winapi\hmisc.prg -oobj\b32\hmisc.c

** error 1 ** deleting obj\b32\hmisc.c

source\winapi\hmisc.prg(1137) Error E0025 Error in #if expression

... Reference Guide

MakeDir()

Creates a new directory.

Syntax
MakeDir( <cDirectory> ) --> nOSError

Arguments
<cDirectory>
A character expression specifying the directory to create. The directory can be specified relative to the current directory, or absolute, including a drive letter ...

... e vou continuar usando sempre informando o segundo parâmetro), então nunca testei se o resultado seria correto sem ele.

Apenas uso como manda o manual:
The number of bytes to encode from <cString> must be passed as second parameter.
Use the expression Len(<cString>) to encode the entire string.

... ANO TAG TEMP TO (fINDEX1) ;
FOR ANO=xANO ;
ADDITIVE TEMPORARY
O erro dá opção QUIT ou RETRY. Se eu dou RETRY ele cria normalmente.
The FOR expression cannot exceed 250 characters in length. RDDs that do not support a FOR condition when creating indexes generate a runtime error when this option ...

... xharbour/include/hbapi.h:899:extern HB_EXPORT void hb_macroSetValue( HB_ITEM_PTR pItem, BYTE flags ); /* assign a value to a macro-expression item */
============
Pesquisa de: hb_macroUseAliased
============

============
Pesquisa de: hb_macroYYParse
============

xharbour/include ...