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
LPARAMETERS tcTipPartener
* tcTipPartener: client/beneficiar
* loCauta = caut_partener("-1", "Alege partener")
loCauta = caut_client_contract_activ()
loCauta = caut_client_contract_activ(, , , .T., Thisform.poDate.dataact)
IF LOWER(m.tcTipPartener) = 'client'
this.cDenumireClient = loCauta.denumire
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
LOCAL loCauta
loCauta = caut_client_contract_activ()
loCauta = caut_client_contract_activ(, , , .T., Thisform.dDataF)
This.cDenumireClient = loCauta.denumire
This.nIdClient = loCauta.id_part

4
Programe/proceduri_acnpro_rapoarte.prg
View File

@@ -874,7 +874,7 @@ Procedure DECO_LIST_VENITURI
Do Case
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)
loCauta = caut_client_contract_activ()
loCauta = caut_client_contract_activ(, , , .T., ldData2)
lcClient = loCauta.denumire
lnIdClient = loCauta.id_part
lcContractClient = Alltrim(loCauta.numar)
@@ -888,7 +888,7 @@ Procedure DECO_LIST_VENITURI
Case tnTip = 1
If tnNrRaport = 4 && CHEIAJ > INDICATORI,VALORI
loCauta = caut_client_contract_activ()
loCauta = caut_client_contract_activ(, , , .T., ldData2)
lcClient = loCauta.denumire
lnIdClient = loCauta.id_part
lcContractClient = Alltrim(loCauta.numar)