sync SVN r18105

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., ;

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

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).
 -->
 
 <!--