From 32d0adf68895844bde81f8b5ed91308e7c6649d1 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Tue, 15 Sep 2026 20:56:36 +0300 Subject: [PATCH] sync SVN r18105 --- Ferestre/frm_import_extrase_banca.sc2 | 4 +- Programe/oproceduri_import.prg | 124 -------------------------- changelog_roacont.txt | 12 +-- 3 files changed, 8 insertions(+), 132 deletions(-) diff --git a/Ferestre/frm_import_extrase_banca.sc2 b/Ferestre/frm_import_extrase_banca.sc2 index cce41a8..609812e 100644 --- a/Ferestre/frm_import_extrase_banca.sc2 +++ b/Ferestre/frm_import_extrase_banca.sc2 @@ -1355,7 +1355,7 @@ DEFINE CLASS form1 AS form Anchor = 8, ; Format = "RK", ; Height = 23, ; - InputMask = "999 999 999.99", ; + InputMask = (get_mask(12,gnPa)), ; Left = 578, ; Name = "txtIncasari", ; ReadOnly = .T., ; @@ -1382,7 +1382,7 @@ DEFINE CLASS form1 AS form Anchor = 8, ; Format = "RK", ; Height = 23, ; - InputMask = "999 999 999.99", ; + InputMask = (get_mask(12,gnPa)), ; Left = 749, ; Name = "txtPlati", ; ReadOnly = .T., ; diff --git a/Programe/oproceduri_import.prg b/Programe/oproceduri_import.prg index a3be871..a8b81e0 100644 --- a/Programe/oproceduri_import.prg +++ b/Programe/oproceduri_import.prg @@ -5855,127 +5855,3 @@ Procedure CompleteazaValutaROA Return m.llSucces Endproc - -Define Class frmDefalcareBuget As frm_termin_renunt Of "_frm_child.vcx" - Caption = 'Defalcare plata la buget' - Width = 520 - Height = 330 - dData = {} - nSuma = 0 - cGrupa = '' - cExplicatie = '' - nNerepartizat = 0 - - Procedure Init - Lparameters tdData, tnSuma, tcGrupa, tcExplicatie - Local lcTitluGrupa - - DoDefault() - - This.dData = m.tdData - This.nSuma = m.tnSuma - This.cGrupa = Upper(Alltrim(Nvl(m.tcGrupa, ''))) - This.cExplicatie = Alltrim(Nvl(m.tcExplicatie, '')) - - This.NewObject('lblInfo', '_label', '_baza.vcx') - With This.lblInfo - .Left = 10 - .Top = 35 - .Width = 500 - .Height = 34 - .AutoSize = .F. - .WordWrap = .T. - Endwith - - lcTitluGrupa = Icase(This.cGrupa = 'TVA', 'TVA', This.cGrupa = 'CAM', 'CAM', 'Cont unic (buget de stat)') - This.lblInfo.Caption = Dtoc(This.dData) + ' Suma OP: ' + Transform(This.nSuma, '999,999,999.99') + ; - ' ' + m.lcTitluGrupa + ' ' + This.cExplicatie - - This.NewObject('grdDefalcare', '_grid', '_baza.vcx') - With This.grdDefalcare - .Left = 10 - .Top = 72 - .Width = 500 - .Height = 210 - .lcamptextneeditabil = .F. - .RecordSource = 'cDefalcare' - .ColumnCount = 5 - .Columns(1).ControlSource = 'cDefalcare.cont' - .Columns(1).Header1.Caption = 'Cont' - .Columns(1).ReadOnly = .T. - .Columns(1).Width = 50 - .Columns(2).ControlSource = 'cDefalcare.acont' - .Columns(2).Header1.Caption = 'Analitic' - .Columns(2).ReadOnly = .T. - .Columns(2).Width = 60 - .Columns(3).ControlSource = 'cDefalcare.denumire' - .Columns(3).Header1.Caption = 'Denumire' - .Columns(3).ReadOnly = .T. - .Columns(3).Width = 190 - .Columns(4).ControlSource = 'cDefalcare.sold' - .Columns(4).Header1.Caption = 'Sold precedent' - .Columns(4).ReadOnly = .T. - .Columns(4).Width = 95 - .Columns(5).ControlSource = 'cDefalcare.suma' - .Columns(5).Header1.Caption = 'Suma' - .Columns(5).ReadOnly = .F. - .Columns(5).Width = 95 - Bindevent(.Columns(5).Text1, 'Valid', This, 'ActualizeazaNerepartizat') - Bindevent(.Columns(5).Text1, 'LostFocus', This, 'ActualizeazaNerepartizat') - Endwith - - This.NewObject('lblNerepartizat', '_label', '_baza.vcx') - With This.lblNerepartizat - .Left = 10 - .Top = 288 - .Width = 500 - .Height = 20 - .AutoSize = .F. - .FontBold = .T. - Endwith - - This.ActualizeazaNerepartizat() - Endproc - - Procedure ActualizeazaNerepartizat - Local lnRepartizat, lnRecno, lcSelect - - If !Used('cDefalcare') - Return - Endif - lcSelect = Select() - lnRecno = Recno('cDefalcare') - Select cDefalcare - Sum suma To lnRepartizat - If Between(m.lnRecno, 1, Reccount()) - Go m.lnRecno - Endif - Select (m.lcSelect) - - This.nNerepartizat = Round(This.nSuma - m.lnRepartizat, 2) - This.lblNerepartizat.Caption = 'Nerepartizat: ' + Transform(This.nNerepartizat, '999,999,999.99') - This.lblNerepartizat.ForeColor = Iif(This.nNerepartizat <> 0, Rgb(200, 0, 0), Rgb(0, 130, 0)) - Endproc - - Procedure inainte_de_do_termin - Local llNegativ, lcSelect - - This.ActualizeazaNerepartizat() - - llNegativ = .F. - If Used('cDefalcare') - lcSelect = Select() - Select cDefalcare - Locate For suma < 0 - llNegativ = Found() - Select (m.lcSelect) - Endif - - If This.nNerepartizat <> 0 Or m.llNegativ - AMESSAGEBOX('Mai aveti de repartizat ' + Transform(This.nNerepartizat, '999,999,999.99') + ' lei.', 0 + 48, This.Caption) - Return .F. - Endif - - Return .T. - Endproc -Enddefine \ No newline at end of file diff --git a/changelog_roacont.txt b/changelog_roacont.txt index dba8861..bcff821 100644 --- a/changelog_roacont.txt +++ b/changelog_roacont.txt @@ -3,15 +3,15 @@ ROACONT - 2.11.77 :nou: - Import extrase bancare. Partenerul se identifica si se propune si dupa platile lui din ultimele 12 luni, nu doar dupa CUI, denumire sau IBAN. + Imbunatatiri la Import extrase bancare. Identificarea parteneri (clienti/furnizori) dupa CUI, denumire, IBAN si dupa platile din ultimele 12 luni. - Plata se defalca automat pe facturile neachitate ale partenerului, iar ce depaseste soldul trece ca avans; pana acum se lega doar o singura factura. + Platile se defalca automat pe facturile neachitate ale partenerului, iar ce depaseste soldul trece ca avans; pana acum se imperechea doar o singura factura. - Meniul de import s-a simplificat: Import din fisier si Reluare import anterior. + La import se semnaleaza liniile importate deja si se ofera posibilitatea sa se elimine din import. Alternativ raman in import si sunt colorate gri pentru identificare. - Import extrase bancare. Sunt semnalate liniile din extrase importate anterior. - - Se afiseaza totalul incasarilor si platilor, cu soldul initial si final. + In formularul de import si in editare note contabile se afiseaza totalul incasarilor si platilor, cu soldul initial si final, daca exista in fisierul de la banca. + + In formularul de editare note contabile s-a creat un formular de asistenta pentru defalcarea platilor de taxe si impozite la buget (contul unict, TVA, CAM). -->