PC Toledo

... e Índices
aliqu_icms NUMERIC(06,2) DEFAULT 0.00,
desconto NUMERIC(06,2) DEFAULT 0.00,
etc ...
-- Campos de Data (Equivalente ao D)
validade DATE,
dtapromini DATE,
etc ...
)
ENDTEXT

lRet := rddInfo( RDDI_EXECUTE, cSQL)
IF lRet
alert('Criou a tabela estoques !')
ELSE
alert('Falha na ...

... oXml:cNf => cNf o primeiro caracter (c) indica que é um valor caractér
* oXml:dDatae => dDatae o primeiro caracter (d) indica que é um valor Date
* oXml:nVlFrete => nVlFrete o primeiro caracter (n) indica que é um valor numérico
* foi tentado manter o nome da varíavel da classe com o nome da ...

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