Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/mesaje.prg

@@ -0,0 +1,43 @@
+*_________________________________________
+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