PC Toledo

Olá!
Até pq, a função empty() foi modificada a pouco tempo para reconhecer campo com valor NULL e retornar .T. neste caso

... 200xxx, etc.
else:
(cst, cClassTrib) = mapAnexo(NCM, anexos[0])
endif

if destinatarioEhGoverno: //a partir de 2027
//AplicarReducaoConformeTabelaGoverno
endif
endif

// Crédito presumido (opcional conforme regra)
cCredPres = elegivelCreditoPresumido ? mapcCredPres(NCM, contexto) : null

... WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "TRICADCLAFIS", "JPTABTRICAD" )
:ExecuteNoReturn( "ALTER TABLE JPTABTRICAD ADD COLUMN TRICADCLAFIS VARCHAR ...

... não tem um padrão correto, e talvez precisemos deles assim.

Próxima tentativa:

CREATE TABLE IF NOT EXISTS JPTABCFIS (
IDCFIS VARCHAR(6) NOT NULL DEFAULT '000000',
CFISNOME VARCHAR(255) NOT NULL DEFAULT '',
CFISOBS TEXT ,
CFISLEI TEXT NOT NULL DEFAULT '',
CFISTIPALI VARCHAR(100) NOT NULL ...

... 1 DAY ) );
SET @dFinal := LAST_DAY( @dDate );

SELECT DISTINCT
IF( MONTH( A ) = MONTH( @dDate ), CONCAT( LPAD( DAY( A ), 2 ), IF( fa.horadata IS NULL, '', '*' ), '' ), '' ) AS SUN,
IF( MONTH( B ) = MONTH( @dDate ), CONCAT( DAY( B ), IF( fb.horadata IS NULL, '', '*' ), '' ), '' ) AS MON,
IF ...

... dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY );

SELECT DISTINCT
if( MONTH( A ) = MONTH( @dDate ), CONCAT( lpad(DAY( A ),2), if( fa.horadata IS NULL, '', '*' ), '' ), '' ) AS SUN,
if( MONTH( B ) = MONTH( @dDate ), CONCAT( DAY( B ), if( fb.horadata IS NULL, '', '*' ), '' ), '' ) AS MON,
if ...

... parc(1); // parâmetro passado do xHarbour
static wchar_t wszBuffer[1024]; // buffer estático (válido após retorno)

if( !pszAnsi )
{
hb_retptr( NULL );
return;
}

MultiByteToWideChar(
CP_UTF8, // Entrada em UTF-8
0, // Nenhuma flag
pszAnsi, // String original
-1, // Até o CHR(0)
wszBuffer ...

... pentiumpro -DUNICODE -Id:/github/harbour32/src/3rd/zlib -DPNG_NO_STDIO -DPNG_ARM_NEON_OPT=0 -opng.o -c ../../../png.c
process_begin: CreateProcess(NULL, gcc -I. -I../../../../../../include -Wmissing-braces -Wreturn-type -Wformat -Wimplicit-int -Wimplicit-function-declaration -O3 -fomit-frame-pointer ...

... an adjustment with non-zero page size is deprecated
(demoall:2796908): Gtk-CRITICAL **: 20:13:13.947: gtk_box_pack: assertion 'child->parent == NULL' failed

Não é o seu código nem meu, é com conversão de ponteiros, etc em C/GTK uma coisa muito difícil de achar/entender(pra mim), funções em ...

Tô aqui preparando pra mexer nas tabelas de preço.....

Idéia inicial


CREATE TABLE IF NOT EXISTS JPPRECOFLEX (
IDPRECOFLEX INT(11) NOT NULL AUTO_INCREMENT,
PFTIPO INT(11) NOT NULL DEFAULT '0',
PFNUMERO INT(11) NOT NULL DEFAULT '0',
PFPRODUTO INT(11) NOT NULL DEFAULT '0',
PFCADASTRO INT(11) NOT NULL ...

... cTable, 2 ) $ "JP,HL", Substr( cTable, 3 ), cTable )
USE
cSQL := "CREATE TABLE IF NOT EXISTS " + cNewTable + " ( " + cKeyName + " INT(9) NOT NULL AUTO_INCREMENT, "
FOR nCont = 1 TO Len( oStru )
IF oStru[ nCont, DBS_NAME ] != cKeyName
cSQL += oStru[ nCont, DBS_NAME ] + " "
DO CASE
CASE ...

... Pego de 10 em 10 registros, por vez.
Ai tem o campo id autoincrement, talvez desligue pq não usei assim no DBF.
O campo data que criei NOT NULL, aceita criar mas em compensação não grava nada kkkkk, Não aceita NULL quando a data é 0000-00-00.


AbreDb('colaboradores.dbf','co',.t.)
co ...

... iif( HB_ISNUMERIC( nControlId ), nControlId, -1 )
//
// DO CASE
// CASE .T. ; RETURN NIL // remove when need debug
// CASE nEvent == 0 /* WM_NULL */ ; /* 0 */ xEvent := "WM_NULL"
// CASE nEvent == WM_CREATE ; /* 1 */ xEvent := "WM_CREATE"
// CASE nEvent == WM_DESTROY ; /* 2 */ xEvent := "WM ...

Olá!

vai usar o primeiro valor que seja válido

Entenda-se válido como NOT NULL.

... Wno-implicit-fallthrough -Wno-reserved-identifier -Wno-used-but-marked-unused"] } }
//{ "HB_BUILD_MODE", "cpp" } }
// { "HB_USER_CFLAGS", "-Wno-null-dereference -Wno-cast-function-type -Wno-return-local-addr" } }

// win_Reg fail
FOR EACH oElement IN aList
IF Empty( win_RegRead( "HKCU ...