sync SVN r18238

clase/ofacturare.vc2

@@ -8689,6 +8689,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		*p: nsoldlei		&& Sold lei client
 		*p: nsoldvaluta		&& sold vauta client
 		*p: ntip
+		*p: oantet		&& Verificarea ANAF si cautarile de antet (oAntetFacturare, ofacturare_antet.prg).
 	*</DefinedPropArrayMethod>
 
 	*<PropValue>
@@ -9092,6 +9093,15 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		Width = 118
 		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
 	
+	PROCEDURE Activate
+		DoDefault()
+		If Vartype(This.oAntet) = "O"
+			If This.oAntet.lVerificaLaActivare
+				This.oAntet.VerificaANAFAutomat(This, .T.)
+			Endif
+		Endif
+	ENDPROC
+
 	PROCEDURE do_cauta_altele
 		Do Case
 			Case Thisform.nid_tip=2
@@ -9154,9 +9164,11 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE do_cauta_client
+		Lparameters tcCui
 		Local loCauta
 		loHash = GetHash([cTitlu=>Clienti??cCont=>4111??lAdaugCorespondente=>1??lVerificaANAF=>1])
 		loHash.SetValue('dDataDoc', Iif(Type('poDate.dataact') = 'D', poDate.dataact, {}))
+		This.oAntet.PuneFiltruCui(m.loHash, m.tcCui)
 		loCauta = CautPartenerContabilitate(loHash)
 		If !Empty(Nvl(loCauta.id_part,0)) And !Empty(loCauta.denumire)
 			If loCauta.id_part <> poDate.id_client
@@ -9196,6 +9208,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			This.ct_clb_lucrare.SetFocus()
 			
 			This.ct_clb_nume_client.clb_TX_CAUTARE.text_SIMPLU1.ToolTipText = 'Id client: ' + TRANSFORM(poDate.id_client)	
+			This.oAntet.VerificaANAFAutomat(This, .F.)
 		Else
 			poDate.listaid = []
 			poDate.descriere = []
@@ -9205,6 +9218,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			
 			this.nSoldLei = 0
 			this.nSoldValuta = 0
+			This.oAntet.ReseteazaIndicator(This)
 			this.txtSoldLei.Refresh()
 		Endif
 		*!*	modificare v 2.0.70
@@ -9593,18 +9607,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE do_verifica
-		Local loDate As "empty"
-		Local lnOptiune, lnRaspuns, loPartener
-		
-		lnOptiune = 1
-		loPartener = Null
-		loDate = Createobject("empty")
-		
-		AddProperty(loDate, "denumire", poDate.nume_client)
-		AddProperty(loDate, "cod_fiscal", poDate.cod_fiscal)
-		AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
-		
-		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) 
+		Return This.oAntet.do_verifica(This)
 	ENDPROC
 
 	PROCEDURE inainte_de_do_termin
@@ -9741,6 +9744,8 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		
 		This.lCopiere = (TYPE('toFactura') = 'O') && copiere factura
 		llCopiere = This.lCopiere
+		This.oAntet = Createobject('oAntetFacturare')
+		This.oAntet.lFormVechi = .T.
 		
 		lnObiecte = 16	&&	ROACONTRACTE v 2.0.42 : 16
 		Dimension laPozitii(lnObiecte, 3)
@@ -9938,6 +9943,8 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 			this.nSoldValuta = loSoldClient.sold_valuta
 			this.txtSoldLei.Refresh()
 			This.ct_clb_nume_client.clb_TX_CAUTARE.text_SIMPLU1.ToolTipText = 'Id client: ' + TRANSFORM(poDate.id_client)
+			This.oAntet.MarcheazaVerificareLaActivare()
+			This.txtCodFiscal.Refresh()
 		ENDIF 
 		
 		DO CASE 
@@ -9965,6 +9972,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		Endif
 		*!*	modificare	v 2.0.56	^
 		
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_dataireg.Text_simplu1.LostFocus
@@ -9983,6 +9991,7 @@ DEFINE CLASS frm_date_factura AS _frmbase OF "_frm_base.vcx"
 		*!*	modificare	v 2.0.56
 		Endif
 		*!*	modificare	v 2.0.56	^
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_nract.Text_simplu1.LostFocus
@@ -18238,6 +18247,11 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 			This.ltotaluri_asezate = .T.
 			This.aseaza_totaluri()
 		Endif
+		If Vartype(This.oAntet) = "O"
+			If This.oAntet.lVerificaLaActivare
+				This.oAntet.VerificaANAFAutomat(This, .T.)
+			Endif
+		Endif
 	ENDPROC
 
 	PROCEDURE actualizeaza_tipincasare
@@ -21579,6 +21593,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 					.nSoldValuta = loSoldClient.sold_valuta
 					.txtSoldLei.Refresh()
 					.ct_clb_nume_client.clb_tx_cautare.text_simplu1.ToolTipText = 'Id client: ' + Transform(poDate.id_client)
+					.oAntet.MarcheazaVerificareLaActivare()
 				Endif
 				Do Case
 					Case poDate.in_valuta = 1 And .ct_clb_valuta.Top < .clb_fdoc.Top And Empty(Nvl(poDate.nume_valuta, ''))
@@ -21941,6 +21956,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		If Thisform.oAntet.EsteAviz()
 			poDate.zi_curs = poDate.dataact
 			Thisform.clb_zi_curs.Refresh()
+			Thisform.oAntet.LaSchimbareData(Thisform)
 			Return
 		Endif
 		*!*	modificare	v 2.2.4	:	daca scadenta nu e automata, atunci poate modifica data scadenta propusa
@@ -21957,6 +21973,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		Endif
 		*!*	modificare	v 2.0.56	^
 		
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE Clb_dataireg.Text_simplu1.LostFocus
@@ -21965,6 +21982,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 			Thisform.clb_dataact.Refresh()
 			poDate.zi_curs = poDate.dataact
 			Thisform.clb_zi_curs.Refresh()
+			Thisform.oAntet.LaSchimbareData(Thisform)
 			Return
 		Endif
 		poDate.dataact = poDate.dataireg
@@ -21982,6 +22000,7 @@ DEFINE CLASS frm_facturare_articole2 AS _frmbase OF "_frm_base.vcx"
 		*!*	modificare	v 2.0.56
 		Endif
 		*!*	modificare	v 2.0.56	^
+		Thisform.oAntet.LaSchimbareData(Thisform)
 	ENDPROC
 
 	PROCEDURE clb_fdoc.cboFdoc.Init