Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/odocumente.prg

@@ -0,0 +1,46 @@
+*** odocumente
+
+
+*!* parametri: cod, luna, an
+*!* pentru codul respectiv din act si toate id_fact se verifica
+*!* daca respectivul id_fact exista pe id_factd sau id_factc pe alt cod
+*!* decat cel verificat   
+FUNCTION ReferinteDocumenteNota
+	PARAMETERS tnAn, tnLuna, tnCod
+	
+	LOCAL lnReferinte, lcFunctie
+	lnReferinte = 1
+	
+
+	lcFunctie = "pack_documente.ReferinteDocumenteNota(?tnAn, ?tnLuna, ?tnCod)"
+	lnSucces = goExecutor.oFunction2Value(lcFunctie, @lnReferinte)
+	IF lnSucces < 0
+		AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
+	ENDIF
+	
+	RETURN IIF(lnReferinte > 0, .T., .F.)
+		
+ENDFUNC && ReferinteDocumenteNota
+
+
+*!* parametri: an, luna, cod, id_fact
+*!* pentru codul respectiv din act si toate id_fact se verifica
+*!* daca respectivul id_fact exista pe id_factd sau id_factc pe alt cod
+*!* decat cel verificat   
+FUNCTION ReferinteDocument
+	PARAMETERS tnAn, tnLuna, tnCod, tnIdFact
+	
+	LOCAL lnReferinte, lcFunctie
+	lnReferinte = 1
+	
+
+	
+	lcFunctie = "pack_documente.ReferinteDocument(?tnAn, ?tnLuna, ?tnCod, ?tnIdFact)"
+	lnSucces = goExecutor.oFunction2Value(lcFunctie, @lnReferinte)
+	IF lnSucces < 0
+		AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
+	ENDIF
+	
+	RETURN IIF(lnReferinte > 0, .T., .F.)
+		
+ENDFUNC && ReferinteDocument