romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verificare ANAF si la caut_partener: achizitie import, finalizare NIR, furnizor pe rulaj

Browse Source 
caut_partener primeste tlVerificaANAF/tdDataDoc (acelasi bloc ca la caut_parteneri) si citeste
tip_persoana din vnom_parteneri, ca banda de stare sa distinga CNP de CIF, nu dupa lungimea codului.

Apelanti pe documente: factura si partenerul DVI din achizitia de import (data din formular,
dDataAct), furnizorul de la finalizarea NIR-ului (data cade pe poAct.dataact) si schimbarea
furnizorului pe rulaj.

verific_partener si verificare_note_contabile (ooperatii_comune.prg) cer verificarea si cand
completeaza partenerul lipsa pe cont, la salvarea documentului.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
Marius Mutu
2026-08-02 10:09:12 +03:00
parent 7abec07549
commit 521993bf85
4 changed files with 31 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
programe/ooperatii_comune.prg
View File

@@ -439,7 +439,7 @@ Function verific_partener
llNou = .T.
*!* modificare 10.12.2010
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>] + Alltrim(lcTitlu)+[??cCont=>] + Alltrim(lcCont) + [??] + ;
[lAdaugCorespondente=>1]))
[lAdaugCorespondente=>1??lVerificaANAF=>1]))
*!* locauta = caut_parteneri(lcCont, lcTitlu,,llNou)
*!* modificare 10.12.2010 ^
If !Empty(loCauta.id_part)
@@ -889,7 +889,7 @@ Procedure verificare_note_contabile
*!* modificare 10.12.2010
loPart = CautPartenerContabilitate(GetHash([cTitlu=>] + Alltrim(lcTitlu) + [??] + ;
[cCont=>] + Alltrim(lcCont) + [??] + ;
[lAdaugCorespondente=>1]))
[lAdaugCorespondente=>1??lVerificaANAF=>1]))
*!* loPart = caut_parteneri(lcCont , lcTitlu)
*!* modificare 10.12.2010 ^
Select (lcAct)