47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
*** 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
|