*_________________________________________
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 