PC Toledo

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

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