PC Toledo

... Parou ? 2 dias já sem codificar nada... Agora tem DBFCDX criptografado https://github.com/carles9000/dbfcdxex etc,etc... pulverizando mais e mais... Vamos ver até onde irá essa nova "aventura"
itamar@itamar-I7:~/HarbourBuilder$ git pull
Already up to date.
itamar@itamar-I7:~/HarbourBuilder$

... OPC == 13
@ MAXROW()-05,14 TO MAXROW()-0,25 DOUBLE
@ MAXROW()-04,15 PROMPT "Name "
@ MAXROW()-03,15 PROMPT "Type "
@ MAXROW()-02,15 PROMPT "Date "
@ MAXROW()-01,15 PROMPT "Size "
MENU TO OPCx
CASE OPC == 14
@ 09,((MAXCOL()-30)/2)-1 TO 15,((MAXCOL()-30)/2)+30 DOUBLE
@ 10,(MAXCOL()-30)/2 ...

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