diff --git a/Clase/oacnpro.vc2 b/Clase/oacnpro.vc2
index 15f54f9..3c011c7 100644
--- a/Clase/oacnpro.vc2
+++ b/Clase/oacnpro.vc2
@@ -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
 		
diff --git a/Programe/proceduri_acnpro_rapoarte.prg b/Programe/proceduri_acnpro_rapoarte.prg
index fce72e7..49c8e91 100644
--- a/Programe/proceduri_acnpro_rapoarte.prg
+++ b/Programe/proceduri_acnpro_rapoarte.prg
@@ -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)