PC Toledo

Olá!

JoséQuintas escreveu: 22 Jul 2026 15:27 Tem certeza que essa conversão funciona pra data vazia ?

Eu não tenho certeza. Eu sei que a função empty() pega NULL/NIL.

Em todo caso, pode economizar fonte usando hb_Dtoc( dData, "YYYY-MM-DD")

Eu uso assim, mas a IA, ainda não sabe disso

... hb_StrToUTF8(xValor)), "'", "''") + "'"
ELSEIF cTipo == "N"
cRet := AllTrim(Str(xValor, 16, 5))
ELSEIF cTipo == "D"
IF Empty(xValor)
cRet := "NULL"
ELSE
// Formata no padrão ANSI do PostgreSQL (AAAA-MM-DD)
cRet := "'" + DToS(xValor) + "'"
cRet := "'" + Left(DToS(xValor),4) + "-" + SubStr ...

... SELECT
b.valor,
b.dc,
b.nrecibo,
d.valor,
-- Agrupamento das somas em uma única leitura
SUM(CASE WHEN b.dc = 'C' AND (b.nrecibo IS NULL OR TRIM(b.nrecibo) = '') THEN b.valor ELSE 0 END) as soma_c_vazio,
SUM(CASE WHEN b.dc = 'D' AND (b.nrecibo IS NULL OR TRIM(b.nrecibo) = '') THEN b ...

... contacts.")
EndIF
EndIf
EndIf

If empty(nTab) //make table contacts
If rddInfo( RDDI_EXECUTE, "CREATE TABLE contacts ( idcontact MEDIUMINT NOT NULL AUTO_INCREMENT, NAME CHAR(60) NOT NULL, PRIMARY KEY (idcontact) )" )
Hwg_msginfo("Table contacts create on MariaDB")
Else
Hwg_msginfo("Fail to ...

... Para imprimir em uma impressora específica:
powershell -command "Start-Process -FilePath 'C:\caminho\seu_arquivo.pdf' -Verb Print -PassThru | Out-Null"
rundll32 printui.dll,PrintUIEntry /y /n "Nome da Impressora"

Ou diretamente:

powershell -command "$printer = 'Nome da Impressora'; Start ...

... DbSelect( conn, ;
"SELECT * FROM estados WHERE uf = ANY($1)", ;
{ "{SP,RJ,MG}" } )

DbSelect( conn, "SELECT * FROM clientes WHERE cpf IS NULL" )
*/

LOCAL res, aRet := {}, n, hRow

res := IIF( Len( aParams ) > 0, ;
PQexecParams( conn, cSQL, aParams ), ;
PQexec( conn, cSQL ) )

IF ...

... não selecionar todo o GET, 3 linhas apenas no hwg_gtk_init()

{
GtkSettings *settings = gtk_settings_get_default();
if (settings) {
g_object_set(settings, "gtk-entry-select-on-focus", FALSE, NULL);
}
}

Eu nunca iria achar ou saber. Depende sempre da forma que começamos a conversar com a IA.

... Guarde o WndProc original em uma variável estática.

2️⃣ Implementar o WndProc do Tab

No mesmo arquivo:

static WNDPROC s_TabOldProc = NULL;

LRESULT CALLBACK hwg_TabWndProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
if( msg == WM_COMMAND && LOWORD( wParam ) == IDOK ...

... X509Certificate2Collection coll = store.Certificates.Find(X509FindType.FindBySerialNumber, serial, true);
X509Certificate2 cert = null;

Console.WriteLine(coll.Count);

if (coll.Count > 0 && coll[0] != null)
{
cert = coll[0];
}
else return "Erro ao assinar RPS";

//recebe o ...

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 ...