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

Verificare ANAF a codului fiscal si la restul alegerilor de client/contract

Browse Source 
La alegerea clientului pe rapoartele de venituri (tranzit, cheiaj) si pe
formularul de situatii venituri se verifica acum automat codul fiscal la
ANAF, la fel ca pe factura.
This commit is contained in:
Marius Mutu
2026-08-03 07:55:14 +03:00
parent 042ddda338
commit 9f5ffd87d5
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Clase/oacnpro.vc2
View File

@@ -7794,8 +7794,7 @@ DEFINE CLASS frm_factura AS _frmbase OF "..\comun\clase\_frm_base.vcx"
PROCEDURE do_cauta_partener PROCEDURE do_cauta_partener
LPARAMETERS tcTipPartener LPARAMETERS tcTipPartener
* tcTipPartener: client/beneficiar * tcTipPartener: client/beneficiar
* loCauta = caut_partener("-1", "Alege partener") loCauta = caut_client_contract_activ(, , , .T., Thisform.poDate.dataact)
loCauta = caut_client_contract_activ()
IF LOWER(m.tcTipPartener) = 'client' IF LOWER(m.tcTipPartener) = 'client'
this.cDenumireClient = loCauta.denumire this.cDenumireClient = loCauta.denumire
this.nIdClient = locauta.id_part this.nIdClient = locauta.id_part
@@ -11204,7 +11203,7 @@ DEFINE CLASS frm_situatii_venituri AS _frmbase OF "..\comun\clase\_frm_base.vcx"
PROCEDURE do_cauta_partener PROCEDURE do_cauta_partener
LOCAL loCauta LOCAL loCauta
loCauta = caut_client_contract_activ() loCauta = caut_client_contract_activ(, , , .T., Thisform.dDataF)
This.cDenumireClient = loCauta.denumire This.cDenumireClient = loCauta.denumire
This.nIdClient = loCauta.id_part This.nIdClient = loCauta.id_part

4
Programe/proceduri_acnpro_rapoarte.prg
View File

@@ -874,7 +874,7 @@ Procedure DECO_LIST_VENITURI
Do Case Do Case
Case tnTip = 0 Case tnTip = 0
If Inlist(tnNrRaport, 2, 3, 4, 5, 8, 9, 10, 11, 12) && TRANZIT > 2 DETALIU UN CLIENT, 3. TOTI CLIENTII, 4 PLATITOR/GRUPA MARFA, 5 PLATITOR/RELATIE/GRUPA MARFA, 8 PLATITOR/MARFA, 10 SELECTIE CONVOAIE XLS, 11 Indicatori fizici pe \<clienti (fara MIXT), 12 Indicatori fizici pe contracte, pe beneficiari (baza raport 11) If Inlist(tnNrRaport, 2, 3, 4, 5, 8, 9, 10, 11, 12) && TRANZIT > 2 DETALIU UN CLIENT, 3. TOTI CLIENTII, 4 PLATITOR/GRUPA MARFA, 5 PLATITOR/RELATIE/GRUPA MARFA, 8 PLATITOR/MARFA, 10 SELECTIE CONVOAIE XLS, 11 Indicatori fizici pe \<clienti (fara MIXT), 12 Indicatori fizici pe contracte, pe beneficiari (baza raport 11)
loCauta = caut_client_contract_activ() loCauta = caut_client_contract_activ(, , , .T., ldData2)
lcClient = loCauta.denumire lcClient = loCauta.denumire
lnIdClient = loCauta.id_part lnIdClient = loCauta.id_part
lcContractClient = Alltrim(loCauta.numar) lcContractClient = Alltrim(loCauta.numar)
@@ -888,7 +888,7 @@ Procedure DECO_LIST_VENITURI
Case tnTip = 1 Case tnTip = 1
If tnNrRaport = 4 && CHEIAJ > INDICATORI,VALORI If tnNrRaport = 4 && CHEIAJ > INDICATORI,VALORI
loCauta = caut_client_contract_activ() loCauta = caut_client_contract_activ(, , , .T., ldData2)
lcClient = loCauta.denumire lcClient = loCauta.denumire
lnIdClient = loCauta.id_part lnIdClient = loCauta.id_part
lcContractClient = Alltrim(loCauta.numar) lcContractClient = Alltrim(loCauta.numar)