Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
*_________________________________________
|
|
PROCEDURE anunta_rezultat
|
|
LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, llInTabel, lnId_ref
|
|
IF llInTabel
|
|
scrie_in_mesaje(lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref)
|
|
ELSE
|
|
DO mesaj With lcMesaj, ''
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE scrie_in_mesaje
|
|
LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref
|
|
LOCAL lnOrdine
|
|
SELECT mesaje
|
|
CALCULATE MAX(ordine) TO m.lnOrdine
|
|
m.lnOrdine = m.lnOrdine + 1
|
|
APPEND BLANK
|
|
replace ordine WITH m.lnOrdine, sursa WITH lcSursa, mesaj WITH lcMesaj, ;
|
|
eroare WITH llEroare, categorie WITH lcCategorie, id_ref WITH lnId_ref
|
|
ENDPROC
|
|
|
|
PROCEDURE sterge_mesaje
|
|
ZAP IN mesaje
|
|
ENDPROC
|
|
|
|
PROCEDURE raport_mesaje
|
|
PARAMETERS tcPerioada
|
|
PRIVATE pcTitlu,pcPerioada,pcDataOra
|
|
*!* PRIVATE toFirma
|
|
*!* SELECT FIRMA
|
|
*!* LOCATE FOR NFSCURT=FSCURT
|
|
*!* SCATTER NAME m.toFirma
|
|
*!* SELECT mesaje
|
|
*!* IF RECNO() > 0
|
|
*!* SET ORDER TO ordine
|
|
*!* REPORT FORM mesaje TO PRINTER PROMPT PREVIEW
|
|
*!* ENDIF
|
|
pcTitlu=[VERIFICARE GLOBALA]
|
|
pcPerioada=[Perioada ]
|
|
pcdataora = get_ora(2)
|
|
SELECT crsverificari
|
|
REPORT FORM rap_mesaje TO PRINTER PROMPT preview
|
|
ENDPROC |