PC Toledo

... MESSAGE OF oWnd TO NewCapFirst(alltrim(Cl_Nome)+" - "+alltrim(Cl_Endereco)+" - Telefone: "+alltrim(Cl_Telefone)) // 2007 // NOINSET KEYBOARD CLOCK DATE // CENTERED
...
DEFINE MSGITEM oMsgItemCFaz OF oWnd:oMsgBar SIZE 24 BITMAPS "level2" TOOLTIP "Informa SEFAZ status"
oWnd:oMsgBar:ClockOn()
oWnd ...

... nfontsizeSmall )
::DrawText( nLine + 28, 159, "Nosso Número", , ::nfontsizeSmall )
::DrawText( nLine + 31, 20, hb_Dtoc( oBoleto:dDatEmi, "DD/MM/YYYY" ), , ::nfontsizeNormal )
::DrawText( nLine + 31, 51, oBoleto:cNumDoc, , ::nfontsizeNormal )
::DrawText( nLine + 31, 79, oBoleto ...

... String( "EMCNPJ" ) + Space(10) + "Insc.Est.:" + :String( "EMINSEST" ), , SMALL_FONT )
oPDF:DrawText( nCont + 33, 99, "Data da emissão: " + Dtoc( :Date( "PDDATEMI" ) ), , NORMAL_FONT )

oPDF:DrawBox( nCont + 38, 6, nCont + 128, 38 )

oPDF:DrawBox( nCont + 38, 41, nCont + 50, 160 )
oPDF:DrawLine ...

... SET_EVENTMASK
Set( _SET_EVENTMASK, INKEY_ALL )
#endif
lRawKey := .f.
#endif

MDblClk( 250 )
SetCancel( .F. )
// AltD(0)

? OS(), Version(), Date(), Time()
#ifdef __HARBOUR__
? hb_gtVersion( 1 ), "GT" + hb_gtVersion()
? "Host codpage: " + hb_cdpSelect() + ", terminal codepage: " + cTermCP ...

... hb_Default( @cText, "" )
hb_Default( @nDetail, 0 )

IF nDetail > 0
Errorsys_WriteErrorLog()
Errorsys_WriteErrorLog( "Error on " + Dtoc( Date() ) + " " + Time() )
Errorsys_WriteErrorLog( "EXE Name; " + hb_Argv(0) )
Errorsys_WriteErrorLog( "JPA: " + AppVersaoExe() )
Errorsys ...

... nOldSel )
RETURN .F.
ENDIF

DbSelectArea( "LOG" )

BEGIN SEQUENCE

ADIC_REG()

IF ! Bloq_reg()
BREAK
ENDIF

REPLACE cd_data WITH Date(), ;
cc_time WITH Time(), ;
cc_usuario WITH cUsuario, ;
cc_operac WITH "Acessou o Sistema"

DBCOMMIT()
UNLOCK

END SEQUENCE

DbSelectArea ...

... ao salvar registro."
ENDIF
Inkey(2)
CASE cOpc == "3"
hDados := {=>}
hDados["PAIcSigla"] := "BR3"
hDados["PAIcNome"] := "Brasil4"
nID := DbUpdate( conn, "paises", 2, hDados )
IF nID != NIL
? "Registro inserido/atualizado com ID:", nID
ELSE
? "Erro ao salvar registro."
ENDIF
Inkey(2 ...

... 11
#define AD_ERROR 10
#define AD_USERDEFINED 132
#define AD_VARIANT 12
#define AD_IDISPATCH 9
#define AD_IUNKNOWN 13
#define AD_GUID 72
#define AD_DATE 7
#define AD_DBDATE 133
#define AD_DBTIME 134
#define AD_DBTIMESTAMP 135
#define AD_BSTR 8
#define AD_CHAR 129
#define AD_VARCHAR 200
#define AD ...

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