diff --git a/clase/ofacturare.vc2 b/clase/ofacturare.vc2 index 21d37aa..4540ef4 100644 --- a/clase/ofacturare.vc2 +++ b/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). * * @@ -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