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 |