PC Toledo

... function implemented to launch hrb's on server

2026-09-04 10:20 UTC+0300 Alexander Kresin (alkresin/at/yandex.ru)
* readme_rus.txt
* readme updated
* include/letocl.h
* source/client/letocl.c
* source/client/letosqlt.c
* source/server/letofunc.c
* source/server/server.prg
* tests/test_run ...

... debug functions – replaced `HB_PARSTRDEF()` and `hb_parc()` with
`HB_PARSTR()` for proper TCHAR/Unicode support.
- **misc.c**: fixed `HWG_EDIT1UPDATECTRL()` and `HWG_BUTTON1GETSCREENCLIENT()`
crash – replaced uninitialized `RECT*` pointer with a stack-allocated
`RECT` variable.
- **misc.c ...

... HB_CODEPAGE_UTF8

#include "hbgtinfo.ch"
#include "inkey.ch"

STATIC shadow1

FUNCTION Main( _par1 )

LOCAL choice, frame, nw, nh

( _par1 )
SET DATE BRITISH
SET WRAP ON
SET SCORE OFF
hb_cdpSelect( "RU866" )
Set ( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT )

CreateWindow ...

... cSub )
METHOD strTrim( cString )
METHOD strTrimStart( cString )
METHOD strTrimEnd( cString )
METHOD strSlice( cString, nStart, nEnd )
METHOD dateDay()
METHOD dateWeekDay()
METHOD dateMonth()
METHOD dateYear()
METHOD dateSetWeekDay( nAno, nMes, nDia )
METHOD dateHour24()
METHOD dateMinute ...

... width string measurement. Implemented dynamic width padding thresholds
to strictly respect short fields (<= 2), custom counter-padding for
Date types ("D") to handle century offsets, and enforced a minimum
14px right margin on text columns to prevent vertical line clipping.

2026-08-11 03 ...

... 1000.00 )
hb_HSet( hDps, "nAliquota", 2.00 )
hb_HSet( hDps, "cSerie", "00001" )
hb_HSet( hDps, "nNumeroDps", 1 )
hb_HSet( hDps, "dCompetencia", Date() )

// 3. Emissão Síncrona (Gera XML -> Assina RSA-SHA256 -> GZIP -> POST JSON)
? "Enviando DPS para o Sefin Nacional..."
IF NfseEmiteNFSe ...

... Para indexação/tratamento de acentuados
HB_LangSelect("PT")

// Configurações Padrão do Ambiente Harbour
Set Wrap On
Set Talk Off
Set Date Briti &&& Data no formato dd/mm/aaaa
Set Dele On &&& Ignora registros deletados
Set Score Off
Set Exact On
Setcancel(.F.) &&& Evita cancelamento ...

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