PC Toledo

... cAssinaturaB64 := hb_base64Encode( cAssinatura )
msginfo(cbase64, [resultado assinado])

RETURN cBase64




Erro na linha acima mencionada



Date: 15/12/2025 Time: 16:39:46
Application: D:\enzza\classe_nfse\demo_sp.exe
User: MALC / User
Time from start: 0 days 0 hours 0 mins 4 secs
Error ...

Olá!
A versão que vc mudou não era a ultima.
Ainda bem que verifiquei aqui.
A ultima tem a função pCalendar...

FUNCTION hwg_pCalendar(dstartdate, cTitle , cOK, cCancel , nx , ny , wid, hei )
* Date picker command for all platforms in the design of original
* Windows only DATEPICKER command ...

... pra escolher data em calendário, ou pra avançar/voltar num contador, e outros.
Isso não altera o conceito inicial, é apenas trocar o "GET" por um "DATE PICKER" ou outro, conforme o que a LIB tiver disponível.

É o que todo mundo faz, o tempo todo, só que automático.

O que mais podemos ter num ...

... para cJson se desejam transmitir por algum body:http
apllication/json, sem precisar criar com: cJson := '{ hnfe: { num: '+cNum+', Emissao: '+Dtoc(date)... dá muito trabalho criar cjson
dessa maneira.

// Criando exemplo variavel hash

hNfe := CreateObj()
hNfe:Num := 122 // vai ficar hNe:NUM se ...

... B Display numbers left-justified ¦ X Display DB after negative numbers
C Display CR after positive numbers ¦ Z Display zeros as blanks
D Display date in SET DATE format ¦ ( Enclose negative numbers in parens
E Display date in British format ¦ ! Convert alpha characters to upper
R Insert non ...

... WScript.Echo "Assunto: " & objCert.SubjectName
WScript.Echo "Emissor: " & objCert.IssuerName
WScript.Echo "Validade: " & objCert.ValidFromDate & " - " & objCert.ValidUntilDate

' --- Aqui você pode usar o certificado e a chave privada para outras operações ---
' Por exemplo, você pode ...

... version
debug version is not the same as demonstration version
If anything is free, ok, it is free.
It changed to paid, ok, at least there exists a date about this.
The old version, without new changes, continues free.
Not sure if it is needed to change name, to do not create confusion.

If users ...

... DBFCDX", 1 ) // RDT_FULL

/*
// dbSetDriver( "DBFCDX" )
// SET DBFLOCKSCHEME TO 3 // ???
// rddSetDefault( "DBFCDX" )
*/

SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET EPOCH TO YEAR( DATE() ) - 30
SET SOFTSEEK OFF
SET WRAP ON
SETCANCEL( .F. )
SET CONFIRM OFF
SET ...

... Text)
- Last Name: (Text)
- Department: (Dropdown list with the following options: "Sales", "Marketing", "Engineering", "HR", "Finance")
- Hire Date: (Date picker)
- Active: (Checkbox)
The form should have the following buttons:
- New: Clears all fields and generates a new Employee ID.
- Save ...

Até que foi rápido

if() na inicial, pra não adicionar linha desnecessária

SET @dInicial := IF( WEEKDAY( @dInicial ) == 0, @dInicial, DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY ) );

uma dFinal

SET @dFinal := LAST_DAY( @dDate );

o where pra evitar linha a mais

WHERE A ...

Mais doido ainda, só pra testar possibilidades.
Calendário com marcação dos compromissos.


SET @dDate := DATE( NOW() );
SET @dInicial := DATE_SUB( @dDate, INTERVAL DAY( @dDate ) - 1 DAY );
SET @dInicial := DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY );

SELECT DISTINCT
if( MONTH( A ...

... o indice de mesmo nome do dbf (sem a extensão)
SET AUTORDER TO 1 // aloca a ordem 1 como corrente, se omitir, o padrão é 0 (zero)

SET DATE BRIT // define datas no formato "britanico/brasileiro"

SET CENTURY ON // Habilita data com ano de 4 dígitos

RDDSETDEFAULT( "DBFCDX ...

... nValNot DECIMAL(16,2);
DECLARE nIpiVal, nDifValf, nMonoBas, nDifVali, nMonoAliq DECIMAL(16,2);
DECLARE nComplementar INT(11);
DECLARE dData DATE;

SET cThisXml := '';
SET nMonoAliq := 1.1200;

SELECT NFICMBAS, NFICMVAL, NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL ...

... nValNot DECIMAL(16,2);
DECLARE nIpiVal, nDifValf, nMonoBas, nDifVali, nMonoAliq DECIMAL(16,2);
DECLARE nComplementar INT(11);
DECLARE dData DATE;

SET cThisXml := '';
SET nMonoAliq := 1.1200;

SELECT NFICMBAS, NFICMVAL, NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL ...

... todo mundo tem


$cert = New-SelfSignedCertificate `
-KeyUsage DigitalSignature `
-KeySpec Signature `
-KeyAlgorithm RSA `
-KeyLength 2048 `
-DNSName “www.site.com.br” `
-CertStoreLocation Cert:\CurrentUser\My `
-Type Custom `
-Subject “CN=nome,E=email” `
-NotAfter (Get-Date).AddYears(10)