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