*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="afisbalx.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		Height = 200
		Left = 45
		Name = "Dataenvironment"
		Top = 86
		Width = 520
	*</PropValue>

ENDDEFINE

DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist5" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afisactual
		*m: butapend
		*m: butdrept
		*m: fisacont
		*m: rulcred
		*m: ruldeb
		*m: ruldebcred
		*m: totcred
		*m: totdeb
		*m: totdebcred
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 503
		Name = "Ffergen1"
		Width = 793
		WindowType = 1
		Line1.Left = -4
		Line1.Name = "Line1"
		Line1.Top = 475
	*</PropValue>

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Left = 648, ;
		Name = "Cmdlist1", ;
		Top = 564, ;
		Visible = .F., ;
		Width = 98
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdlist3' AS cmdlist WITH ;
		Caption = "", ;
		DownPicture = , ;
		FontName = "Arial Black", ;
		FontSize = 20, ;
		ForeColor = 255,255,0, ;
		Left = 689, ;
		Name = "Cmdlist3", ;
		Picture = ..\grafice\new.bmp, ;
		ToolTipText = "Linie noua", ;
		Top = 300
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdlist4' AS cmdlist WITH ;
		Caption = "", ;
		DownPicture = ..\grafice\delete.bmp, ;
		Left = 689, ;
		Name = "Cmdlist4", ;
		Picture = ..\grafice\delete.bmp, ;
		ToolTipText = "Stergerea liniei selectate", ;
		Top = 333
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdlist5' AS cmdlist WITH ;
		Caption = "+", ;
		DownPicture = , ;
		FontName = "Arial Black", ;
		FontSize = 20, ;
		ForeColor = 0,64,128, ;
		Left = 689, ;
		Name = "Cmdlist5", ;
		ToolTipText = "Recalculare sume", ;
		Top = 367
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Height = 27, ;
		Left = 689, ;
		Name = "Cmdtermin1", ;
		TabIndex = 2, ;
		Top = 428, ;
		Width = 98, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "\<Verific Conturi", ;
		Height = 27, ;
		Left = 648, ;
		Name = "Command3", ;
		TabIndex = 4, ;
		Top = 495, ;
		Visible = .F., ;
		Width = 98, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command4' AS commandbutton WITH ;
		Caption = "\<Refac Balanta", ;
		Height = 27, ;
		Left = 648, ;
		Name = "Command4", ;
		TabIndex = 4, ;
		Top = 530, ;
		Visible = .F., ;
		Width = 98, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 254,255,240, ;
		ColumnCount = 10, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		GridLineColor = 128,128,128, ;
		Height = 379, ;
		Left = 5, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RowHeight = 19, ;
		TabIndex = 1, ;
		Top = 17, ;
		Width = 672, ;
		ZOrderSet = 9, ;
		Column1.Alignment = 0, ;
		Column1.BackColor = 226,226,226, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "bal.cont", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Format = "", ;
		Column1.InputMask = "", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 26, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 226,226,226, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "bal.denumire", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 68, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 249,233,217, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "bal.precdeb", ;
		Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.Format = "r", ;
		Column3.InputMask = "999 999 999 999", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 63, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 249,233,217, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "bal.preccred", ;
		Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.FontSize = 9, ;
		Column4.Format = "r", ;
		Column4.InputMask = "999 999 999 999", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 66, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 236,242,241, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "bal.ruldeb", ;
		Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.FontSize = 9, ;
		Column5.Format = "R", ;
		Column5.InputMask = "999 999 999 999", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 64, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 236,242,241, ;
		Column6.ColumnOrder = 6, ;
		Column6.ControlSource = "bal.rulcred", ;
		Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.FontSize = 9, ;
		Column6.Format = "R", ;
		Column6.InputMask = "999 999 999 999", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Width = 69, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 249,233,217, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "bal.totdeb", ;
		Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.FontSize = 9, ;
		Column7.Format = "r", ;
		Column7.InputMask = "999 999 999 999", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 75, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 249,233,217, ;
		Column8.ColumnOrder = 8, ;
		Column8.ControlSource = "bal.totcred", ;
		Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.FontSize = 9, ;
		Column8.Format = "r", ;
		Column8.InputMask = "999 999 999 999", ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 70, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 236,242,241, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "bal.soldcred", ;
		Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.FontSize = 9, ;
		Column9.Format = "r", ;
		Column9.InputMask = "999 999 999 999", ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 70, ;
		Column10.Alignment = 1, ;
		Column10.BackColor = 236,242,241, ;
		Column10.ColumnOrder = 9, ;
		Column10.ControlSource = "bal.solddeb", ;
		Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.FontSize = 9, ;
		Column10.Format = "r", ;
		Column10.InputMask = "999 999 999 999", ;
		Column10.Name = "Column9", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 66
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Credit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 236,242,241, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header2"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prec.Debit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 249,233,217, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prec.Credit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header4"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 249,233,217, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rul.Debit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header5"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 236,242,241, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
		Alignment = 2, ;
		BackColor = 192,192,192, ;
		Caption = "Rul.Credit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header6"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 236,242,241, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total Debit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header7"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 249,233,217, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total Credit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header8"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 249,233,217, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Debit", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 236,242,241, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Editare", ;
		Height = 17, ;
		Left = 692, ;
		Name = "Label1", ;
		TabIndex = 13, ;
		Top = 276, ;
		Width = 40, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .F., ;
		Caption = "BALANTA DE VERIFICARE", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 18, ;
		Left = 5, ;
		Name = "Label10", ;
		TabIndex = 21, ;
		Top = 0, ;
		Width = 271, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		Caption = "Debit", ;
		Height = 17, ;
		Left = 367, ;
		Name = "Label11", ;
		TabIndex = 20, ;
		Top = 431, ;
		Width = 35, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		Caption = "Credit", ;
		Height = 17, ;
		Left = 367, ;
		Name = "Label12", ;
		TabIndex = 20, ;
		Top = 453, ;
		Width = 35, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		Caption = "Debit", ;
		Height = 17, ;
		Left = 537, ;
		Name = "Label13", ;
		TabIndex = 20, ;
		Top = 429, ;
		Width = 35, ;
		ZOrderSet = 30
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		Caption = "Credit", ;
		Height = 17, ;
		Left = 537, ;
		Name = "Label14", ;
		TabIndex = 20, ;
		Top = 451, ;
		Width = 35, ;
		ZOrderSet = 31
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		AutoSize = .F., ;
		Caption = "Afisare", ;
		Height = 17, ;
		Left = 692, ;
		Name = "Label15", ;
		TabIndex = 13, ;
		Top = 108, ;
		Visible = .F., ;
		Width = 40, ;
		ZOrderSet = 35
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Caption = "Rulaje", ;
		Height = 17, ;
		Left = 244, ;
		Name = "Label2", ;
		Top = 409, ;
		Width = 40, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Caption = "Credit", ;
		Height = 17, ;
		Left = 26, ;
		Name = "Label3", ;
		TabIndex = 20, ;
		Top = 453, ;
		Width = 35, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Caption = "Total sume", ;
		Height = 17, ;
		Left = 394, ;
		Name = "Label4", ;
		Top = 409, ;
		Width = 72, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Caption = "Solduri", ;
		Height = 17, ;
		Left = 572, ;
		Name = "Label5", ;
		Top = 409, ;
		Width = 40, ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Caption = "Debit", ;
		Height = 17, ;
		Left = 202, ;
		Name = "Label6", ;
		TabIndex = 20, ;
		Top = 430, ;
		Width = 35, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Caption = "Credit", ;
		Height = 17, ;
		Left = 202, ;
		Name = "Label7", ;
		TabIndex = 20, ;
		Top = 452, ;
		Width = 35, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		Caption = "Total sume precedente", ;
		Height = 17, ;
		Left = 26, ;
		Name = "Label8", ;
		TabIndex = 19, ;
		Top = 409, ;
		Width = 132, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		Caption = "Debit", ;
		Height = 17, ;
		Left = 26, ;
		Name = "Label9", ;
		TabIndex = 20, ;
		Top = 431, ;
		Width = 35, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 716, ;
		Name = "oMenuShortcut", ;
		TabIndex = 0, ;
		Top = 48
		*< END OBJECT: ClassLib="..\clase\utility.vcx" BaseClass="container" />

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		ButtonCount = 5, ;
		ControlSource = "", ;
		Height = 120, ;
		Left = 684, ;
		Name = "Optiongroup1", ;
		Top = 115, ;
		Value = 1, ;
		Visible = .F., ;
		Width = 108, ;
		ZOrderSet = 1, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "\<Balanta", ;
		Option1.ControlSource = "", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 17, ;
		Option1.Value = 1, ;
		Option1.Width = 60, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "\<Rulaj Debit", ;
		Option2.ControlSource = "", ;
		Option2.Enabled = .F., ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 36, ;
		Option2.Width = 79, ;
		Option3.AutoSize = .T., ;
		Option3.Caption = "R\<ulaj Credit", ;
		Option3.ControlSource = "", ;
		Option3.Enabled = .F., ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 55, ;
		Option3.Width = 83, ;
		Option4.AutoSize = .T., ;
		Option4.Caption = "Tota\<l Debit", ;
		Option4.ControlSource = "", ;
		Option4.Enabled = .F., ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.Top = 74, ;
		Option4.Width = 77, ;
		Option5.AutoSize = .T., ;
		Option5.Caption = "T\<otal Credit", ;
		Option5.ControlSource = "", ;
		Option5.Enabled = .F., ;
		Option5.Height = 17, ;
		Option5.Left = 5, ;
		Option5.Name = "Option5", ;
		Option5.Top = 93, ;
		Option5.Width = 81
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 77, ;
		Left = 3, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 403, ;
		Width = 677, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		Height = 463, ;
		Left = 684, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 17, ;
		Width = 108, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		Height = 121, ;
		Left = 684, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 283, ;
		Width = 108, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape4' AS shape WITH ;
		Height = 65, ;
		Left = 176, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 415, ;
		Width = 168, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape5' AS shape WITH ;
		Height = 65, ;
		Left = 3, ;
		Name = "Shape5", ;
		SpecialEffect = 0, ;
		Top = 415, ;
		Width = 176, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape6' AS shape WITH ;
		Height = 65, ;
		Left = 342, ;
		Name = "Shape6", ;
		SpecialEffect = 0, ;
		Top = 415, ;
		Width = 168, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape8' AS shape WITH ;
		Height = 65, ;
		Left = 508, ;
		Name = "Shape8", ;
		SpecialEffect = 0, ;
		Top = 415, ;
		Width = 172, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.sprecdeb", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 61, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 427, ;
		Width = 90, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.spreccred", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 61, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		Top = 451, ;
		Width = 90, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.srulcred", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 239, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 8, ;
		Top = 451, ;
		Width = 90, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.sruldeb", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 239, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 10, ;
		Top = 427, ;
		Width = 90, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.stotdeb", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 404, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		TabIndex = 9, ;
		Top = 427, ;
		Width = 90, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.stotcred", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 404, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 451, ;
		Width = 90, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.ssolddeb", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 575, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		TabIndex = 6, ;
		Top = 425, ;
		Width = 90, ;
		ZOrderSet = 24
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		Alignment = 1, ;
		ControlSource = "m.ssoldcred", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 575, ;
		Name = "Text8", ;
		ReadOnly = .T., ;
		TabIndex = 7, ;
		Top = 449, ;
		Width = 90, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		sele bal
		repl all totdeb with ruldeb+precdeb
		repl all totcred with rulcred+preccred
		repl all solddeb with iif(totdeb-totcred>0,totdeb-totcred,0)
		repl all soldcred with iif(totdeb-totcred>0,0,-totdeb+totcred)
		thisform.text1.setfocus
		thisform.text2.setfocus
		thisform.text3.setfocus
		thisform.text4.setfocus
		thisform.text5.setfocus
		thisform.text6.setfocus
		thisform.text7.setfocus
		thisform.text8.setfocus
		
		thisform.grid1.refresh
	ENDPROC

	PROCEDURE butapend
	ENDPROC

	PROCEDURE butdrept
	ENDPROC

	PROCEDURE fisacont
	ENDPROC

	PROCEDURE Init
		SELE BAL
		GO TOP
	ENDPROC

	PROCEDURE rulcred
	ENDPROC

	PROCEDURE ruldeb
	ENDPROC

	PROCEDURE ruldebcred
	ENDPROC

	PROCEDURE totcred
	ENDPROC

	PROCEDURE totdeb
	ENDPROC

	PROCEDURE totdebcred
	ENDPROC

	PROCEDURE Cmdlist1.Click
		THISFORM.WINDOWSTATE=1
		do rapbal97.prg
		THISFORM.WINDOWSTATE=0
	ENDPROC

	PROCEDURE Cmdlist3.Click
		sele bal
				
		appe blan
		thisform.afisactual
	ENDPROC

	PROCEDURE Cmdlist4.Click
		sele bal
		dele
		thisform.afisactual
	ENDPROC

	PROCEDURE Cmdlist5.Click
		
		thisform.afisactual
	ENDPROC

	PROCEDURE Cmdtermin1.Valid
		DO CALCULEAZABALANTA
	ENDPROC

	PROCEDURE Command3.Click
		local t1,t2,sem,sumc,sumd,m.cont
		
		
		SELE BAL
		SCAN
			t1=" "
			t2=" "
			sem=.f.
			SCATTER MEMVAR
			M.CONT=SUBS(CONT,1,4)
		
			SELE ACT
			SUM SUMA TO SUMD FOR SCD=M.CONT
			SUM SUMA TO SUMC FOR SCC=M.CONT
			IF SUMD#M.RULDEB
				t1='Cont debitor '+M.CONT+' cu dif. '+STR(M.RULDEB-SUMD,13)
				*wait windows 'CONT DEBITOR '+M.CONT+' CU DIF. '+STR(M.RULDEB-SUMD,13)
				sem=.t.
			ENDIF 
			IF SUMC#M.RULCRED
				t2= 'Cont creditor '+M.CONT+' cu dif. '+STR(M.RULCRED-SUMC,13)
				*wait windows 'CONT CREDITOR '+M.CONT+' CU DIF. '+STR(M.RULCRED-SUMC,13)
				sem=.t.
			ENDIF 
			if sem==.t. then
				ot=createobj("text")
				ot.label2.caption=t1
				ot.label3.caption=t2
				ot.show(1)
			endif
		SELE BAL
		ENDSCAN
		
		if sem==.f. then
			OT=CREATEOBJ("TEXT")
			OT.LABEL2.CAPTION="Verificarea s-a incheiat."
			OT.LABEL3.visible=.f.
			ot.show(1)
		endif
	ENDPROC

	PROCEDURE Command4.Click
		
		DO REFBAL IN REFverif.PRG
		DO VERDIFBAL IN REFverif.PRG
		
		*do refbalanta
		
		OT=CREATEOBJ("TEXT")
		OT.LABEL2.CAPTION="Balanta este refacuta."
		OT.LABEL3.visible=.f.
		ot.show(1)
		sele bal
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		LPARAMETERS nColIndex
		THISFORM.OPTIONGROUP1.OPTION2.ENABLED=.T.
		THISFORM.OPTIONGROUP1.OPTION3.ENABLED=.T.
		THISFORM.OPTIONGROUP1.OPTION4.ENABLED=.T.
		THISFORM.OPTIONGROUP1.OPTION5.ENABLED=.T.
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column5.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column5.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column8.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.DblClick
		thisform.butdrept
	ENDPROC

	PROCEDURE Grid1.Column9.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.DblClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.When
		sele bal
		set filter to !deleted()
	ENDPROC

	PROCEDURE Optiongroup1.Option1.Click
		THIS.PARENT.OPTION2.ENABLED=.F.
		THIS.PARENT.OPTION3.ENABLED=.F.
		THIS.PARENT.OPTION4.ENABLED=.F.
		THIS.PARENT.OPTION5.ENABLED=.F.
		
		SELE BAL
		SET FILTER TO !DELETED()
		THISFORM.GRID1.ACTIVATECELL(1,1)
	ENDPROC

	PROCEDURE Optiongroup1.Option2.Click
		THISFORM.RULDEB
	ENDPROC

	PROCEDURE Optiongroup1.Option3.Click
		THISFORM.RULCRED
	ENDPROC

	PROCEDURE Optiongroup1.Option4.Click
		THISFORM.TOTDEB
	ENDPROC

	PROCEDURE Optiongroup1.Option5.Click
		THISFORM.TOTCRED
	ENDPROC

	PROCEDURE Shape2.RightClick
		THISFORM.BUTAPEND
	ENDPROC

	PROCEDURE Text1.GotFocus
		sum precdeb to m.sprecdeb
	ENDPROC

	PROCEDURE Text1.Init
		sum precdeb to m.sprecdeb
		this.refresh
	ENDPROC

	PROCEDURE Text1.Refresh
		THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text2.GotFocus
		sum preccred to m.spreccred
	ENDPROC

	PROCEDURE Text2.Init
		
		sum preccred to m.spreccred
		this.refresh
	ENDPROC

	PROCEDURE Text2.Refresh
		THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text3.GotFocus
		sum rulcred to m.srulcred
	ENDPROC

	PROCEDURE Text3.Init
		sum rulcred to m.srulcred
		this.refresh
	ENDPROC

	PROCEDURE Text3.Refresh
		THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text4.GotFocus
		sum ruldeb to m.sruldeb
	ENDPROC

	PROCEDURE Text4.Init
		sum ruldeb to m.sruldeb
		this.refresh
	ENDPROC

	PROCEDURE Text4.Refresh
		THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text5.GotFocus
		sum totdeb to m.stotdeb
	ENDPROC

	PROCEDURE Text5.Init
		sum totdeb to m.stotdeb
		this.refresh
	ENDPROC

	PROCEDURE Text5.Refresh
		THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text6.GotFocus
		sum totcred to m.stotcred
	ENDPROC

	PROCEDURE Text6.Init
		sum totcred to m.stotcred
		this.refresh
	ENDPROC

	PROCEDURE Text6.Refresh
		THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text7.GotFocus
		sum solddeb to m.ssolddeb
	ENDPROC

	PROCEDURE Text7.Init
		sum solddeb to m.ssolddeb
		this.refresh
	ENDPROC

	PROCEDURE Text8.GotFocus
		sum neimpozab to m.sneimpozab
	ENDPROC

	PROCEDURE Text8.Init
		sum soldcred to m.ssoldcred
		this.refresh
	ENDPROC

ENDDEFINE