*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="afisbal_val.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>
		DataSource = .NULL.
		Height = 200
		Left = 45
		Name = "Dataenvironment"
		Top = 86
		Width = 520
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ccont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ccont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cdenumire.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cdenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cpreccred.Header4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cpreccred.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cruldeb.Header5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cruldeb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.crulcred.Header6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.crulcred.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Header7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ctotcred.Header8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.ctotcred.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.csoldcred.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.csoldcred.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.csolddeb.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.csolddeb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cacont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cacont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.txtprecdeb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.txtpreccred1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.lblsld1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.lbldebit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p1.lblcredit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.cktotal4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.ckanalitic" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.cktotal2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.cktotal1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.cktotal3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.cksold1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P2.Ck_cont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p3.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.p3.Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P4.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P4.opt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="pf.P4.opt2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Resizer1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtcont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Txtcont2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: adauga_linie
		*m: afisactual
		*m: butapend
		*m: butdrept
		*m: calculeaza
		*m: calculeaza_orizontal
		*m: calculeaza_vertical
		*m: cfield_assign
		*m: fisacont
		*m: in_bal
		*m: meniu_as
		*m: reconstruct
		*m: rulcred
		*m: ruldeb
		*m: ruldebcred
		*m: sterge_linie
		*m: totcred
		*m: totdeb
		*m: totdebcred
		*p: calias
		*p: ccont
		*p: cfield
		*p: nnewvalue
		*p: noldvalue
		*p: oafbalana
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnTop = .F.
		BackColor = 255,255,255
		BorderStyle = 1
		calias = TBALANTA
		cfield = 
		DoCreate = .T.
		Height = 478
		Name = "Ffergen1"
		nnewvalue = 0
		noldvalue = 0
		ScrollBars = 0
		Width = 806
		WindowType = 1
		_shape1.Anchor = 11
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 804
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 635
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 160
		Lb_titlu_alb_b121.Caption = "BALANTA DE VERIFICARE"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Comment = "*:OnResize=RT"
		BUT_TERMIN1.Left = 763
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
	*</PropValue>

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Comment = "*:OnResize=RT", ;
		Left = 734, ;
		Name = "But_excel1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Comment = "*:OnResize=RT", ;
		Left = 705, ;
		Name = "But_listare1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Comment = "*:OnResize=RT", ;
		Left = 672, ;
		Name = "But_modifica1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reface1' AS but_reface WITH ;
		Comment = "*:OnResize=RT", ;
		Left = 640, ;
		Name = "But_reface1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Ct2' AS ct WITH ;
		Height = 23, ;
		Left = 65, ;
		Name = "Ct2", ;
		Top = 113, ;
		Width = 52, ;
		Shape1.Name = "Shape1", ;
		Text1.Name = "Text1", ;
		Text2.Name = "Text2", ;
		Text3.Name = "Text3", ;
		Text4.Name = "Text4", ;
		Line1.Name = "Line1", ;
		Line2.Name = "Line2", ;
		Line3.Name = "Line3"
		*< END OBJECT: ClassLib="..\clase\ferestre_cere_date_nou.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 13, ;
		Comment = "*:OnResize=SS", ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		GridLineColor = 192,192,192, ;
		Height = 322, ;
		Left = 0, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "TBALANTA", ;
		RowHeight = 19, ;
		TabIndex = 4, ;
		Top = 143, ;
		Width = 799, ;
		ZOrderSet = 9, ;
		Column1.Alignment = 0, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "CONT", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Format = "", ;
		Column1.InputMask = "", ;
		Column1.Name = "ccont", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 29, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "DENUMIRE", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Name = "cdenumire", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 141, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 187,235,255, ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column3.Name = "cprecdeb", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 72, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 187,235,255, ;
		Column4.ColumnOrder = 7, ;
		Column4.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column4.Name = "cpreccred", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 72, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 236,249,255, ;
		Column5.ColumnOrder = 8, ;
		Column5.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column5.Name = "cruldeb", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 72, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 236,249,255, ;
		Column6.ColumnOrder = 9, ;
		Column6.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column6.Name = "crulcred", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 73, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 187,235,255, ;
		Column7.ColumnOrder = 10, ;
		Column7.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column7.Name = "ctotdeb", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 83, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 187,235,255, ;
		Column8.ColumnOrder = 11, ;
		Column8.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column8.Name = "ctotcred", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 85, ;
		Column9.Alignment = 1, ;
		Column9.BackColor = 236,249,255, ;
		Column9.ColumnOrder = 13, ;
		Column9.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column9.Name = "csoldcred", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 70, ;
		Column10.Alignment = 1, ;
		Column10.BackColor = 236,249,255, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "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 = (get_mask(16,gnPA)), ;
		Column10.Name = "csolddeb", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 66, ;
		Column11.BackColor = 255,255,255, ;
		Column11.ColumnOrder = 2, ;
		Column11.ControlSource = "ACONT", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.FontSize = 9, ;
		Column11.Name = "cacont", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 40, ;
		Column12.BackColor = 236,249,255, ;
		Column12.ColumnOrder = 4, ;
		Column12.ControlSource = "precdeb1", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.FontSize = 9, ;
		Column12.Format = "RK", ;
		Column12.InputMask = (get_mask(18,gnPA)), ;
		Column12.Name = "cprecdeb1", ;
		Column12.ReadOnly = .T., ;
		Column12.Visible = .F., ;
		Column12.Width = 0, ;
		Column13.BackColor = 236,249,255, ;
		Column13.ColumnOrder = 5, ;
		Column13.ControlSource = "preccred1", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.FontSize = 9, ;
		Column13.Format = "RK", ;
		Column13.InputMask = (get_mask(18,gnPA)), ;
		Column13.Name = "cpreccred1", ;
		Column13.ReadOnly = .T., ;
		Column13.Visible = .F., ;
		Column13.Width = 0
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.cacont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.cacont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

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

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

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

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

	ADD OBJECT 'Grid1.cpreccred.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 187,235,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.cpreccred1.Text1' AS textbox WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .F.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.cprecdeb.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 187,235,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.cprecdeb1.Text1' AS textbox WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .F.
		*< END OBJECT: BaseClass="textbox" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Grid1.ctotcred.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 187,235,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.ctotdeb.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 187,235,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Selectie cont", ;
		Comment = "*:OnResize=LT", ;
		FontBold = .F., ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 8, ;
		Name = "Label1", ;
		TabIndex = 13, ;
		Top = 70, ;
		Width = 64, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "De la", ;
		Comment = "*:OnResize=LT", ;
		FontBold = .F., ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 9, ;
		Name = "Label2", ;
		TabIndex = 13, ;
		Top = 91, ;
		Width = 26, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Analitic", ;
		Comment = "*:OnResize=LT", ;
		FontBold = .F., ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 9, ;
		Name = "Label3", ;
		TabIndex = 13, ;
		Top = 117, ;
		Width = 37, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "la", ;
		Comment = "*:OnResize=LT", ;
		FontBold = .F., ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 75, ;
		Name = "Label4", ;
		TabIndex = 13, ;
		Top = 91, ;
		Width = 10, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 10, ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		Height = 79, ;
		Left = 396, ;
		Name = "Optiongroup1", ;
		SpecialEffect = 1, ;
		TabIndex = 11, ;
		Top = 60, ;
		Value = 1, ;
		Width = 203, ;
		ZOrderSet = 4, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Balanta", ;
		Option1.ControlSource = "", ;
		Option1.FontName = "Courier New", ;
		Option1.FontSize = 8, ;
		Option1.Height = 16, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 71, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<Rulaj Debit", ;
		Option2.ControlSource = "", ;
		Option2.Enabled = .F., ;
		Option2.FontName = "Courier New", ;
		Option2.FontSize = 8, ;
		Option2.Height = 16, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 18, ;
		Option2.Width = 99, ;
		Option3.AutoSize = .T., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "R\<ulaj Credit", ;
		Option3.ControlSource = "", ;
		Option3.Enabled = .F., ;
		Option3.FontName = "Courier New", ;
		Option3.FontSize = 8, ;
		Option3.Height = 16, ;
		Option3.Left = 5, ;
		Option3.Name = "Option3", ;
		Option3.Top = 31, ;
		Option3.Width = 106, ;
		Option4.AutoSize = .T., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "Tota\<l Debit", ;
		Option4.ControlSource = "", ;
		Option4.Enabled = .F., ;
		Option4.FontName = "Courier New", ;
		Option4.FontSize = 8, ;
		Option4.Height = 16, ;
		Option4.Left = 5, ;
		Option4.Name = "Option4", ;
		Option4.Top = 44, ;
		Option4.Width = 99, ;
		Option5.AutoSize = .T., ;
		Option5.BackStyle = 0, ;
		Option5.Caption = "T\<otal Credit", ;
		Option5.ControlSource = "", ;
		Option5.Enabled = .F., ;
		Option5.FontName = "Courier New", ;
		Option5.FontSize = 8, ;
		Option5.Height = 16, ;
		Option5.Left = 5, ;
		Option5.Name = "Option5", ;
		Option5.Top = 58, ;
		Option5.Width = 106, ;
		Option6.AutoSize = .T., ;
		Option6.BackStyle = 0, ;
		Option6.Caption = "Option6", ;
		Option6.FontName = "Courier New", ;
		Option6.FontSize = 8, ;
		Option6.Height = 16, ;
		Option6.Left = 120, ;
		Option6.Name = "Option6", ;
		Option6.Top = 5, ;
		Option6.Width = 71, ;
		Option7.AutoSize = .T., ;
		Option7.BackStyle = 0, ;
		Option7.Caption = "Option7", ;
		Option7.FontName = "Courier New", ;
		Option7.FontSize = 8, ;
		Option7.Height = 16, ;
		Option7.Left = 120, ;
		Option7.Name = "Option7", ;
		Option7.Top = 18, ;
		Option7.Width = 71, ;
		Option8.AutoSize = .T., ;
		Option8.BackStyle = 0, ;
		Option8.Caption = "Option8", ;
		Option8.FontName = "Courier New", ;
		Option8.FontSize = 8, ;
		Option8.Height = 16, ;
		Option8.Left = 120, ;
		Option8.Name = "Option8", ;
		Option8.Top = 31, ;
		Option8.Width = 71, ;
		Option9.AutoSize = .T., ;
		Option9.BackStyle = 0, ;
		Option9.Caption = "Option9", ;
		Option9.FontName = "Courier New", ;
		Option9.FontSize = 8, ;
		Option9.Height = 16, ;
		Option9.Left = 120, ;
		Option9.Name = "Option9", ;
		Option9.Top = 44, ;
		Option9.Width = 71, ;
		Option10.AutoSize = .T., ;
		Option10.BackStyle = 0, ;
		Option10.Caption = "Option10", ;
		Option10.FontName = "Courier New", ;
		Option10.FontSize = 8, ;
		Option10.Height = 16, ;
		Option10.Left = 120, ;
		Option10.Name = "Option10", ;
		Option10.Top = 58, ;
		Option10.Width = 78
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'pf' AS pageframe WITH ;
		Comment = "*:OnResize=ST", ;
		ErasePage = .T., ;
		Height = 109, ;
		Left = 1, ;
		Name = "pf", ;
		PageCount = 4, ;
		TabIndex = 5, ;
		Top = 35, ;
		Width = 800, ;
		ZOrderSet = 12, ;
		Page1.BackColor = 255,255,255, ;
		Page1.Caption = "Total sume", ;
		Page1.FontBold = .T., ;
		Page1.Name = "p1", ;
		Page2.BackColor = 255,255,255, ;
		Page2.Caption = "Selectii", ;
		Page2.FontBold = .T., ;
		Page2.Name = "P2", ;
		Page3.BackColor = 255,255,255, ;
		Page3.Caption = "Fise de cont ", ;
		Page3.FontBold = .T., ;
		Page3.Name = "p3", ;
		Page4.BackColor = 255,255,255, ;
		Page4.Caption = "Listare", ;
		Page4.FontBold = .T., ;
		Page4.Name = "P4"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'pf.p1.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Sintetice", ;
		Comment = "*:OnResize=RT", ;
		FontName = "Arial Narrow", ;
		Height = 19, ;
		Left = 233, ;
		Name = "Check1", ;
		SpecialEffect = 0, ;
		Style = 1, ;
		Top = 6, ;
		Visible = .T., ;
		Width = 43
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.p1.Label2' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Rulaje", ;
		Comment = "*:OnResize=RT", ;
		Height = 18, ;
		Left = 405, ;
		Name = "Label2", ;
		Top = 7, ;
		Width = 127, ;
		ZOrderSet = 31
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.Label4' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Total sume", ;
		Comment = "*:OnResize=RT", ;
		Height = 18, ;
		Left = 533, ;
		Name = "Label4", ;
		Top = 7, ;
		Width = 127, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.Label5' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Solduri", ;
		Comment = "*:OnResize=RT", ;
		Height = 18, ;
		Left = 661, ;
		Name = "Label5", ;
		Top = 7, ;
		Width = 127, ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.Label8' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Total precedente", ;
		Comment = "*:OnResize=RT", ;
		Height = 18, ;
		Left = 277, ;
		Name = "Label8", ;
		TabIndex = 19, ;
		Top = 7, ;
		Width = 127, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.lblcredit' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Credit", ;
		Comment = "*:OnResize=RT", ;
		Height = 23, ;
		Left = 234, ;
		Name = "lblcredit", ;
		TabIndex = 20, ;
		Top = 50, ;
		Width = 42, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.lbldebit' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Debit", ;
		Comment = "*:OnResize=RT", ;
		Height = 23, ;
		Left = 234, ;
		Name = "lbldebit", ;
		TabIndex = 20, ;
		Top = 26, ;
		Width = 42, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.lblsld1' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Caption = " Solduri 1 Ian.", ;
		Comment = "*:OnResize=RT", ;
		Height = 18, ;
		Left = 148, ;
		Name = "lblsld1", ;
		TabIndex = 19, ;
		Top = 7, ;
		Visible = .F., ;
		Width = 127, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'pf.p1.Shape1' AS shape WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 3, ;
		Comment = "*:OnResize=ST", ;
		Height = 76, ;
		Left = 2, ;
		Name = "Shape1", ;
		Top = 1, ;
		Width = 790
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pf.p1.Text1' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.sprecdeb", ;
		DisabledBackColor = 187,235,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 277, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 26, ;
		Width = 127, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text2' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.spreccred", ;
		DisabledBackColor = 187,235,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 277, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 50, ;
		Width = 127, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text3' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.srulcred", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 405, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 8, ;
		Top = 50, ;
		Width = 127, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text4' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.sruldeb", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 405, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 10, ;
		Top = 26, ;
		Width = 127, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text5' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.stotdeb", ;
		DisabledBackColor = 187,235,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 533, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 9, ;
		Top = 26, ;
		Width = 127, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text6' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.stotcred", ;
		DisabledBackColor = 187,235,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 533, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 11, ;
		Top = 50, ;
		Width = 127, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text7' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.ssolddeb", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 661, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 26, ;
		Width = 127, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.Text8' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.ssoldcred", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(15,gnPA)), ;
		Left = 661, ;
		Name = "Text8", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 50, ;
		Width = 127, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.txtpreccred1' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.spreccred1", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 148, ;
		Name = "txtpreccred1", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 50, ;
		Visible = .F., ;
		Width = 127, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.p1.txtprecdeb1' AS textbox WITH ;
		Alignment = 1, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "m.sprecdeb1", ;
		DisabledBackColor = 236,249,255, ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPA)), ;
		Left = 148, ;
		Name = "txtprecdeb1", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 26, ;
		Visible = .F., ;
		Width = 127, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'pf.P2.Ck_cont' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		camp_nume = cont, ;
		Caption = "Selectie cont", ;
		Comment = "*:OnResize=ST", ;
		FontName = "Courier New", ;
		Left = 618, ;
		Name = "Ck_cont", ;
		Top = 36
		*< END OBJECT: ClassLib="..\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.ckanalitic' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Conturi analitice", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 464, ;
		Name = "ckanalitic", ;
		TabIndex = 4, ;
		Top = 36, ;
		Value = 0, ;
		Width = 141, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.cksold1' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Solduri la 1 ian.", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 618, ;
		Name = "cksold1", ;
		TabIndex = 4, ;
		Top = 16, ;
		Value = 0, ;
		Width = 141, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.cktotal1' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Total clase (gr.1)", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 224, ;
		Name = "cktotal1", ;
		TabIndex = 2, ;
		Top = 15, ;
		Value = 0, ;
		Width = 148, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.cktotal2' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Total grupe (gr.2)", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 224, ;
		Name = "cktotal2", ;
		TabIndex = 3, ;
		Top = 34, ;
		Value = 0, ;
		Width = 148, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.cktotal3' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Total conturi sintetice (gr.3)", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 224, ;
		Name = "cktotal3", ;
		TabIndex = 5, ;
		Top = 54, ;
		Value = 0, ;
		Width = 232, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.cktotal4' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Conturi", ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		FontBold = .F., ;
		FontName = "Courier New", ;
		Height = 17, ;
		Left = 464, ;
		Name = "cktotal4", ;
		TabIndex = 6, ;
		Top = 16, ;
		Value = 1, ;
		Width = 71, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'pf.P2.Shape1' AS shape WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 3, ;
		Comment = "*:OnResize=ST", ;
		Height = 76, ;
		Left = 2, ;
		Name = "Shape1", ;
		Top = 1, ;
		Width = 790
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pf.p3.Optiongroup1' AS optiongroup WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 8, ;
		Comment = "*:OnResize=RT", ;
		ControlSource = "", ;
		Height = 61, ;
		Left = 204, ;
		Name = "Optiongroup1", ;
		SpecialEffect = 1, ;
		Top = 12, ;
		Value = 8, ;
		Width = 385, ;
		ZOrderSet = 3, ;
		Option1.AutoSize = .F., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Rulaj Debit", ;
		Option1.ControlSource = "", ;
		Option1.Enabled = .T., ;
		Option1.FontName = "Courier New", ;
		Option1.FontSize = 9, ;
		Option1.Height = 16, ;
		Option1.Left = 112, ;
		Option1.Name = "Option3", ;
		Option1.TabIndex = 3, ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option1.Width = 99, ;
		Option2.AutoSize = .F., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "R\<ulaj Credit", ;
		Option2.ControlSource = "", ;
		Option2.Enabled = .T., ;
		Option2.FontName = "Courier New", ;
		Option2.FontSize = 9, ;
		Option2.Height = 16, ;
		Option2.Left = 112, ;
		Option2.Name = "Option4", ;
		Option2.TabIndex = 4, ;
		Option2.Top = 25, ;
		Option2.Value = 0, ;
		Option2.Width = 106, ;
		Option3.AutoSize = .F., ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "Tota\<l Debit", ;
		Option3.ControlSource = "", ;
		Option3.Enabled = .T., ;
		Option3.FontName = "Courier New", ;
		Option3.FontSize = 9, ;
		Option3.Height = 16, ;
		Option3.Left = 257, ;
		Option3.Name = "Option6", ;
		Option3.TabIndex = 6, ;
		Option3.Top = 5, ;
		Option3.Width = 99, ;
		Option4.AutoSize = .F., ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "T\<otal Credit", ;
		Option4.ControlSource = "", ;
		Option4.Enabled = .T., ;
		Option4.FontName = "Courier New", ;
		Option4.FontSize = 9, ;
		Option4.Height = 16, ;
		Option4.Left = 257, ;
		Option4.Name = "Option7", ;
		Option4.TabIndex = 7, ;
		Option4.Top = 25, ;
		Option4.Value = 0, ;
		Option4.Width = 106, ;
		Option5.AutoSize = .T., ;
		Option5.BackStyle = 0, ;
		Option5.Caption = "Ru\<laje Deb&Cred", ;
		Option5.FontName = "Courier New", ;
		Option5.FontSize = 9, ;
		Option5.Height = 17, ;
		Option5.Left = 112, ;
		Option5.Name = "Option5", ;
		Option5.TabIndex = 5, ;
		Option5.Top = 43, ;
		Option5.Value = 0, ;
		Option5.Width = 127, ;
		Option6.AutoSize = .T., ;
		Option6.BackStyle = 0, ;
		Option6.Caption = "Tot\<al Deb&Cred", ;
		Option6.FontName = "Courier New", ;
		Option6.FontSize = 9, ;
		Option6.Height = 17, ;
		Option6.Left = 257, ;
		Option6.Name = "Option8", ;
		Option6.TabIndex = 8, ;
		Option6.Top = 43, ;
		Option6.Value = 0, ;
		Option6.Width = 120, ;
		Option7.AutoSize = .T., ;
		Option7.BackStyle = 0, ;
		Option7.Caption = "\<Fisa cont", ;
		Option7.FontName = "Courier New", ;
		Option7.FontSize = 9, ;
		Option7.Height = 17, ;
		Option7.Left = 12, ;
		Option7.Name = "Option2", ;
		Option7.TabIndex = 2, ;
		Option7.Top = 25, ;
		Option7.Value = 0, ;
		Option7.Width = 85, ;
		Option8.AutoSize = .T., ;
		Option8.BackStyle = 0, ;
		Option8.Caption = "Balanta", ;
		Option8.FontName = "Courier New", ;
		Option8.FontSize = 9, ;
		Option8.Height = 17, ;
		Option8.Left = 12, ;
		Option8.Name = "Option1", ;
		Option8.TabIndex = 1, ;
		Option8.Top = 5, ;
		Option8.Value = 1, ;
		Option8.Width = 71
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'pf.p3.Shape1' AS shape WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 3, ;
		Comment = "*:OnResize=ST", ;
		Height = 76, ;
		Left = 2, ;
		Name = "Shape1", ;
		Top = 1, ;
		Width = 786
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'pf.P4.opt1' AS optiongroup WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		Height = 46, ;
		Left = 213, ;
		Name = "opt1", ;
		SpecialEffect = 1, ;
		Top = 12, ;
		Value = 1, ;
		Width = 46, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "A4", ;
		Option1.FontName = "Courier New", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 36, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "A3", ;
		Option2.FontName = "Courier New", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option2.Width = 36
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'pf.P4.opt2' AS optiongroup WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		Height = 46, ;
		Left = 285, ;
		Name = "opt2", ;
		SpecialEffect = 1, ;
		Top = 12, ;
		Value = 1, ;
		Width = 179, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Total", ;
		Option1.FontName = "Courier New", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 57, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Solduri la 1 ianuarie", ;
		Option2.FontName = "Courier New", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option2.Width = 169
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'pf.P4.Shape1' AS shape WITH ;
		BackColor = 236,249,255, ;
		BorderStyle = 3, ;
		Comment = "*:OnResize=ST", ;
		Height = 76, ;
		Left = 2, ;
		Name = "Shape1", ;
		Top = 1, ;
		Width = 786
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Resizer1' AS resizer WITH ;
		Left = 792, ;
		Name = "Resizer1", ;
		TabIndex = 16, ;
		Top = 405, ;
		ZOrderSet = 13, ;
		LABEL1.Name = "LABEL1"
		*< END OBJECT: ClassLib="..\clase\resizer.vcx" BaseClass="control" />

	ADD OBJECT 'txtcont' AS textbox WITH ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		Height = 23, ;
		Left = 34, ;
		Name = "txtcont", ;
		SpecialEffect = 1, ;
		TabIndex = 1, ;
		Top = 87, ;
		Width = 37, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Txtcont2' AS textbox WITH ;
		Comment = "*:OnResize=LT", ;
		ControlSource = "", ;
		Format = "k", ;
		Height = 23, ;
		Left = 84, ;
		Name = "Txtcont2", ;
		SpecialEffect = 1, ;
		TabIndex = 2, ;
		Top = 87, ;
		Width = 37, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		
		*!*	tw1=thisform.Width
		*!*	tl1=thisform.Height
		
		*!*	thisform.WindowState=2
		*!*	tw2=thisform.Width
		*!*	tl2=thisform.Height
		
		*!*	gw1=thisform.grid1.width
		*!*	gl1=thisform.grid1.height
		
		*!*	thisform.grid1.width=ROUND(gw1*tw2/tw1,0)
		*!*	thisform.grid1.height=ROUND(gl1*tl2/tl1,0)
		
		*!*	thisform.paint
		*!*	thisform.refresh
		THISFORM.WindowState= 2
		
		
		
	ENDPROC

	PROCEDURE adauga_linie
		Private pcbal,pcCont,pcSCont,pcACont,pnButon
		Store "" To pcbal,pcCont,pcSCont,pcACont
		pnButon=1
		pcbal=This.CALIas
		pcCont=SELECT_CONT()
		If pnButon=2
			Return
		Endif
		If Empty(pcCont)
			Return
		Endif
		
		pcSCont=Left(pcCont,4)
		lnPos=At(".",pcCont)
		If lnPos>0
			pcACont=Padr(Substr(pcCont,lnPos+1),4," ")
		Endif
		
		pcexec=[begin balanainsproc(']+Alltrim(gcS)+[',]+Alltrim(Str(gnLuna))+[,]+Alltrim(Str(gnAn))+;
			[,']+Alltrim(pcSCont)+[',']+Alltrim(pcACont)+['); end;]
		lnSucces=goExecutor.oexecute(pcexec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			Messagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		If !Empty(pcACont)
			Thisform.pf.p2.ckanalitic.Value=1
		Endif
		
		Thisform.MousePointer=11
		Thisform.LockScreen=.T.
		Thisform.reconstruct
		Thisform.afisactual
		Select (pcbal)
		Locate For Cont=pcSCont And acont=pcACont
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		Thisform.grid1.SetFocus
		
	ENDPROC

	PROCEDURE afisactual
		Private lcbal,lcacont  && ,lccont1,lccont2 - le-am pus inainte de do form
		lcbal=Thisform.calias
		
		Local T1
		T1=""
		T='.t.'
		
		lccont1=Alltrim(This.txtcont.Value)
		lccont2=Alltrim(This.txtcont2.Value)
		
		If Empty(lccont2)
			lccont2 = lccont1
		Endif
		
		*lcacont=ALLTRIM(this.txtacont.value)
		lcacont1=Alltrim(This.ct2.text1.Value)
		lcacont2=Alltrim(This.ct2.text2.Value)
		lcacont3=Alltrim(This.ct2.text3.Value)
		lcacont4=Alltrim(This.ct2.text4.Value)
		
		Do Case
		Case Len(lccont1)=1
		*T=[G1="]+LCCONT+["]
			T = T + [ and VAL(LEFT(G1,1))>=VAL(lcCont1)]
		Case Len(lccont1)=2
		*T=[G2="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))>=VAL(lcCont1)]
		Case Len(lccont1)=3
		*T=[G3="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))>=VAL(lcCont1)]
		Case Len(lccont1)=4
		*T=[G4="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))>=VAL(lcCont1)]
		Endcase
		
		Do Case
		Case Len(lccont2)=1
		*T=[G1="]+LCCONT+["]
			T = T + [ and VAL(LEFT(G1,1))<=VAL(lcCont2)]
		Case Len(lccont2)=2
		*T=[G2="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))<=VAL(lcCont2)]
		Case Len(lccont2)=3
		*T=[G3="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))<=VAL(lcCont2)]
		Case Len(lccont2)=4
		*T=[G4="]+LCCONT+["]
			T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))<=VAL(lcCont2)]
		Endcase
		
		*--------------------------------------------------------
		&&& conditia de filtrare pt balanta sintetica
		*!*	T1=[SET FILT TO]
		*!*	lccond1=[]
		*!*	IF !EMPTY(lcCont)
		*!*		lccond1=[ UPPER(LEFT(cont,]+ALLTRIM(STR(LEN(ALLTRIM(lcCont))))+[))="]+ALLTRIM(lcCont)+["]
		*!*	ENDIF
		
		*!*	T1 = T1 + lcCond1
		*!*	****
		
		
		*!*	*!*	WAIT WINDOW 't = '+t
		*!*	*	WAIT WINDOW 't1 = '+t1
		*!*	*!*	if thisform.check1.Value=1
		*!*	*!*		T="UPPER(LEFT(cont,LEN(M.cont)))==M.cont"
		*!*	*!*	ENDIF
		
		
		
		
		*!*	llTotal1=IIF(this.pf.p2.cktotal1.Value=1,.t.,.f.)
		*!*	llTotal2=IIF(this.pf.p2.cktotal2.Value=1,.t.,.f.)
		*!*	llTotal3=IIF(this.pf.p2.cktotal3.Value=1,.t.,.f.)
		*!*	llTotal4=IIF(this.pf.p2.cktotal4.Value=1,.t.,.f.)
		*!*	llAnalitic=IIF(this.pf.p2.ckanalitic.Value=1,.t.,.f.)
		
		
		
		*!*	lclista=[]
		*!*	IF llTotal1
		*!*		lclista=lclista+[,1]
		*!*	ENDIF
		*!*	IF llTotal2
		*!*		lclista=lclista+[,2]
		*!*	ENDIF
		*!*	IF llTotal3
		*!*		lclista=lclista+[,3]
		*!*	ENDIF
		*!*	IF llTotal4
		*!*		lclista=lclista+[,4]
		*!*	ENDIF
		*!*	IF llAnalitic
		*!*		lclista=lclista+[,5]
		*!*	ENDIF
		
		
		*!*	IF !EMPTY(lclista)
		*!*		IF LEFT(lclista,1)=","
		*!*			lclista=SUBSTR(lclista,2)
		*!*		ENDIF
		*!*		T=T+[ AND INLIST(BNIVEL,]+LCLISTA+[)]
		*!*	ELSE
		*!*		T=T+[ AND .F.]
		*!*	ENDIF
		
		*!*	lccond2=[]
		
		
		*!*	IF !EMPTY(lcaCont1)
		*!*		lccond2= lccond2 + [ and SUBSTR(acont,1,1)="]+lcaCont1+["]
		*!*	ENDIF
		*!*	IF !EMPTY(lcaCont2)
		*!*		lccond2= lccond2 + [ and SUBSTR(acont,2,1)="]+lcaCont2+["]
		*!*	ENDIF
		*!*	IF !EMPTY(lcaCont3)
		*!*		lccond2= lccond2 + [ and SUBSTR(acont,3,1)="]+lcaCont3+["]
		*!*	ENDIF
		*!*	IF !EMPTY(lcaCont4)
		*!*		lccond2= lccond2 + [ and SUBSTR(acont,4,1)="]+lcaCont4+["]
		*!*	ENDIF
		*!*	*!*	IF THIS.pf.p1.check1.Value = 1
		*!*	*!*		T1 = T1 + lcCond2
		*!*	*!*	ENDIF
		
		*!*	T= T + lcCond2
		*!*	IF this.pf.p2.ck_cont.Value = 1
		*!*		T = t + " AND " + this.pf.p2.ck_cont.filtru
		*!*	ENDIF
		
		*!*	T=[SET FILT TO ]+T
		*!*	SELECT (LCBAL)
		*!*	&T
		
		
		*!*	SELECT BAL
		*!*	&T1
		*!*	IF existacamp("bal","precdeb1")
		*!*		sum PRECDEB1,PRECCRED1,precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred;
		*!*		 to m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		*!*	ELSE
		*!*		sum precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred;
		*!*		 to m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		*!*		 STORE 0 TO m.sprecdeb1,m.spreccred1
		*!*	ENDIF
		
		*!*	SET FILTER TO
		
		*!*	IF this.pf.p1.check1.Value = 1
		*!*		SELECT (LCBAL)
		*!*		sum PRECDEB1,PRECCRED1,precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred FOR bnivel = 5 ;
		*!*		 to m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		*!*	ENDIF
		*!*
		*!*	WITH thisform.pf.p1
		*!*		.text1.Refresh
		*!*		.text2.Refresh
		*!*		.text3.Refresh
		*!*		.text4.Refresh
		*!*		.text5.Refresh
		*!*		.text6.Refresh
		*!*		.text7.Refresh
		*!*		.text8.Refresh
		*!*		.TXTpreccred1.Refresh
		*!*		.TXTprecdeb1.Refresh
		*!*	ENDWITH
		
		*!*	SELECT (LCBAL)
		*!*	GO top
		*!*	THIS.GRID1.Refresh
		
		
		*/-----------------------------------------------------
		&&& conditia de filtrare pt balanta sintetica
		llTotal1=Iif(This.pf.p2.cktotal1.Value=1,.T.,.F.)
		llTotal2=Iif(This.pf.p2.cktotal2.Value=1,.T.,.F.)
		llTotal3=Iif(This.pf.p2.cktotal3.Value=1,.T.,.F.)
		llTotal4=Iif(This.pf.p2.cktotal4.Value=1,.T.,.F.)
		llAnalitic=Iif(This.pf.p2.ckanalitic.Value=1,.T.,.F.)
		
		
		
		lclista=[]
		If llTotal1
			lclista=lclista+[,1]
		Endif
		If llTotal2
			lclista=lclista+[,2]
		Endif
		If llTotal3
			lclista=lclista+[,3]
		Endif
		If llTotal4
			lclista=lclista+[,4]
		Endif
		If llAnalitic
			lclista=lclista+[,5]
		Endif
		
		
		If !Empty(lclista)
			If Left(lclista,1)=","
				lclista=Substr(lclista,2)
			Endif
			T=T+[ AND INLIST(BNIVEL,]+lclista+[)]
		Else
			T=T+[ AND .F.]
		Endif
		
		lccond2=[]
		
		If !Empty(lcacont1)
			lccond2= lccond2 + [ and SUBSTR(acont,1,1)="]+lcacont1+["]
		Endif
		If !Empty(lcacont2)
			lccond2= lccond2 + [ and SUBSTR(acont,2,1)="]+lcacont2+["]
		Endif
		If !Empty(lcacont3)
			lccond2= lccond2 + [ and SUBSTR(acont,3,1)="]+lcacont3+["]
		Endif
		If !Empty(lcacont4)
			lccond2= lccond2 + [ and SUBSTR(acont,4,1)="]+lcacont4+["]
		Endif
		
		T= T + lccond2
		If thisform.pf.p2.ck_cont.Value = 1
				T = T + thisform.pf.p2.ck_cont.filtru_vfp
		Endif
		
		T=[SET FILT TO ]+T
		Select (lcbal)
		*!*	Copy To C:\BAL.Dbf
		&T
		
		Select (lcbal)
		Sum PRECDEB1,PRECCRED1,precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred For bnivel = 4 ;
			to m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		
		
		If This.pf.p1.check1.Value = 1
			Select (lcbal)
			Sum PRECDEB1,PRECCRED1,precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred For bnivel = 5 ;
				to m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		Endif
		
		With Thisform.pf.p1
			.text1.Refresh
			.text2.Refresh
			.text3.Refresh
			.text4.Refresh
			.text5.Refresh
			.text6.Refresh
			.text7.Refresh
			.text8.Refresh
			.TXTpreccred1.Refresh
			.TXTprecdeb1.Refresh
		Endwith
		
		Select (lcbal)
		Go Top
		This.GRID1.Refresh
		
	ENDPROC

	PROCEDURE butapend
		*!*	LOCAL lbMenu[4]
		*!*	PRIVATE lcbal
		*!*	lcbal=THISFORM.calias
		
		
		*!*	lbMenu=""
		*!*	lbMenu[1]="\<Deblocare"
		*!*	IF THISFORM.grid1.READONLY
		*!*		lbMenu[2]="\Adaug Blanc"
		*!*	ELSE
		*!*		lbMenu[2]="\<Adaug Blanc"
		*!*	ENDIF
		*!*	lbMenu[3]="\-"
		*!*	lbMenu[4]="\<Revenire"
		
		
		*!*	THISFORM.oMenuShortcut.ShowMenu(@lbMenu)
		
		*!*	DO CASE
		*!*		CASE BAR()=1
		
		*!*			SELECT (lcbal)
		*!*			SET FILTER TO !DELETED()
		*!*			THISFORM.grid1.READONLY=.F.
		*!*			THISFORM.grid1.DELETEMARK=.T.
		
		*!*		CASE BAR()=2
		*!*			this.adauga_linie()
		*!*		CASE BAR()=4
		*!*	*SELE BAL
		*!*			SELECT (lcbal)
		*!*			SET FILTER TO !DELETED()
		*!*			THISFORM.grid1.READONLY=.T.
		*!*			THISFORM.grid1.DELETEMARK=.F.
		*!*	ENDCASE
		
		
		
		
		
	ENDPROC

	PROCEDURE butdrept
		*return
		Private lcsel,lccont
		lcsel=This.CALIAS
		
		Local laMenu[9]
		Select (lcsel)
		lccont=Cont
		
		laMenu=""
		
		laMenu[1]="\<Fisa cont "+Alltrim(lccont)
		laMenu[2]="\-"
		laMenu[3]="\<Rulaj Debit"
		laMenu[4]="R\<ulaj Credit"
		laMenu[5]="Ru\<laje Deb&Cred"
		laMenu[6]="\-"
		laMenu[7]="\<Total Debit"
		laMenu[8]="T\<otal Credit"
		laMenu[9]="Tot\<al Deb&Cred"
		
		Thisform.oMenuShortcut.ShowMenu(@laMenu)
		
		Do Case
		Case Bar()=1
			Thisform.fisacont
		Case Bar()=3
			Thisform.ruldeb
		Case Bar()=4
			Thisform.rulcred
		Case Bar()=5
			Thisform.ruldebcred
		Case Bar()=7
			Thisform.totdeb
		Case Bar()=8
			Thisform.totcred
		Case Bar()=9
			Thisform.totdebcred
		Endcase
		
		*laMenu[1]="\<Copiaza"
		*laMenu[2]="Re\<da"
		*laMenu[3]="\-"
		*CASE BAR()=1
		*	SYS(1500,'_MED_copy','_MEDIT')
		*CASE BAR()=2
		*	SYS(1500,'_MED_paste','_MEDIT')
		
		Thisform.txtcont.Refresh
		
	ENDPROC

	PROCEDURE calculeaza
		Private pcSufix,pcAlias,pnOldValue,pcVar,pnValoare,pnRec,pcOldAlias,pcFiltru,pcAcont
		pcSufix=Thisform.cField
		pcAlias=Thisform.cAlias
		pnOldValue=Thisform.noldvalue
		
		Select (pcAlias)
		pcVar=pcAlias+[.]+pcSufix
		pnValoare=Evaluate(pcVar)
		pcAcont=Upper(Alltrim(acont))
		
		This.nnewvalue=pnValoare
		lnNewValue=This.nnewvalue
		pcFiltru=Filter()
		pnRec=Recno()
		pcField=This.cField
		
		If lnNewValue!=pnOldValue
			If Empty(This.ccont) && o linie cu totaluri
				Wait Window "Nu puteti modifica totalul." Timeout 1
				Select (pcAlias)
				Replace &pcVar With pnOldValue
				This.nnewvalue=pnOldValue
				Return
			Endif
			lcDbf=Dbf(pcAlias)
			Use (lcDbf) In 0 Again Shared Alias TBALANTAR
			Select TBALANTAR
			Goto pnRec
			pcOldAlias=This.cAlias
			This.cAlias="TBALANTAR"
		*	If Inlist(lcField,"PRECDEB","PRECCRED","RULDEB","RULCRED") && NU CALCULEZ DECAT PT PRECEDENTE SI RULAJE
			Thisform.calculeaza_orizontal() && calculez pentru linia curenta
		*	Endif
			If Empty(pcAcont)			&& cont2003 oracle
				Thisform.calculeaza_vertical()  && calculez pentru linia cu totaluri
			Endif
			Use In TBALANTAR
			This.cAlias=pcOldAlias
			Select (pcOldAlias)
			This.in_bal(This.ccont,pcAcont,.T.)	&& introduc in bal noua valoare si recalculez
		*!*		Select (lcAlias)
		*!*		Set Filter To &lcFilter
		Endif
		This.afisactual
	ENDPROC

	PROCEDURE calculeaza_orizontal
		PARAMETERS tcAlias
		PRIVATE lcAlias
		
		IF EMPTY(tcAlias)
			lcAlias=thisform.calias 
		ELSE
			lcAlias=ALLTRIM(tcalias)
		ENDIF 
		*WAIT WINDOW 'calculeaza orizontal '+lcalias
		*!*	SELECT (lcAlias)
		*!*	lcCont=CONT
		*!*	lcG1=G1
		*!*	lcG2=G2
		*!*	lcG3=G3
		*!*	lcG4=G4
		*!*	lcCond=[left(cont,]+ALLTRIM(STR(LEN(lccont)))+[)=]+lccont+[ AND G1=]+lcG1+[ AND G2=]+lcG2+[ AND G3=]+lcG3+[ AND G4=]+lcG4
		*!*	WAIT WINDOW lcCond
		
		SELECT (lcAlias)
		IF FLOCK()
			REPLACE totdeb WITH precdeb+ruldeb,totcred WITH preccred+rulcred
			REPLACE solddeb WITH IIF(totdeb-totcred>=0,ABS(totdeb-totcred),0),soldcred WITH IIF(totdeb-totcred<0,ABS(totdeb-totcred),0)
			UNLOCK
		*	brow
		ENDIF 
				
		
		
		
		
	ENDPROC

	PROCEDURE calculeaza_vertical
		Private lccont,lcAlias,lnRec,lnDifValue,lcField,lnValoare,laarray
		
		lcAlias=This.calias
		Select (lcAlias)
		lnRec=Recno()
		lccont=Alltrim(This.ccont)
		*WAIT WINDOW 'lccont= '+lccont
		lcField=This.cfield
		lnDifValue=This.nnewvalue- This.noldvalue
		*WAIT WINDOW 'lndifvalue = '+STR(lndifValue)
		*WAIT WINDOW 'calculeaza vertical '+lcalias
		
		lnlung=4
		Dimension laarray[lnlung]
		Store Space(4) To laarray
		For i=1 To lnlung-1
		*	WAIT WINDOW 'i= '+STR(i)
			laarray[i] = Substr(lccont,1,i)
		*	WAIT WINDOW laArray[i]
			lcVar="G"+Alltrim(Str(i))
			lcVar1="G"+Alltrim(Str(i+1))
			LCCOND=[LOCATE FOR LEFT(]+lcVar+[,]+Alltrim(Str(i))+[)="]+Left(laarray[I],i)+[" AND EMPTY(]+lcVar1+[)]
		*	WAIT WINDOW lccond
			Select (lcAlias)
			&LCCOND
			If Found()
				If Flock()
					lnValoare=Evaluate(lcField)+lnDifValue
					Replace &lcField With lnValoare
					This.calculeaza_orizontal(lcAlias) && calculez pentru liniile cu totaluri
					Unlock
				Endif
			Endif
		Endfor
		
		Select (lcAlias)
		Goto lnRec
	ENDPROC

	PROCEDURE cfield_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.cfield = m.vNewVal
		
		PRIVATE lcAlias,lcSufix,lcVar
		lcAlias=thisform.calias 
		lcSufix=this.cField
		lcVar=lcAlias+[.]+lcSufix
		lcCont=lcAlias+[.cont]
		THISFORM.nOldValue=EVALUATE(lcVar)
		thisform.ccont=EVALUATE(lcCont)
		*WAIT WINDOW 'ccont '+thisform.ccont
		
	ENDPROC

	PROCEDURE do_excel
		Local i,xlsheet,XLApp,tmpsheet, lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
		lcAlias = this.grid1.RecordSource 
		lcFiltru = FILTER(lcAlias)
		IF EMPTY(lcFiltru)
			lcFiltru = '.T.'
		ENDIF 
		
		exista_excel=.T.
		lcColumnList = ''
		lcHeaderList = ''
		lcSelect = ''
		llSelect = .T.
		lcType = 'CURSOR'
		lcFrom = lcAlias
		lcWhere = lcFiltru
		lcOrder = 'g5'
		lcOutput = 'crsBal'
		
		get_schema_grid(this.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
		&lcSelect
		*!*	MESSAGEBOX(p3)
		IF USED(lcOutput)
			DO export_xls WITH lcOutput IN exportare.prg
			USE IN (lcOutput)
		ENDIF 	
		
		
		RETURN 
		
		*!*	On Error Do exportare With Thisform.grid1.RecordSource,p1,p2
		*!*	tmpsheet = Getobject('','excel.sheet')
		*!*	On Error
		
		*!*	If exista_excel
		*!*		Wait Window "Se transmit datele catre Excel..." Nowait
		
		*!*		XLApp = tmpsheet.Application
		
		*!*		XLApp.workbooks.Close()
		*!*		XLApp.workbooks.Add()
		*!*		poExcel = XLApp.ActiveSheet
		
		
		*!*		Go Top
		*!*		poExcel.Cells(1,1).Font.Size=16
		*!*		poExcel.Cells(1,1).Font.Bold=.T.
		*!*		poExcel.Cells(1,1)=Thisform.titluFRUMOS1.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
		*!*		nRows = 3
		*!*		With Thisform.grid1
		*!*			For nCol = 1 To .ColumnCount
		*!*				nColumn = .Columns(nCol).ColumnOrder
		*!*				poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
		*!*				For lnobjcol=1 To .Columns(nCol).Objects.Count
		*!*					If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER'
		*!*						poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption
		*!*						Exit
		*!*					Endif
		*!*				Endfor
		*!*				poExcel.Cells(nRows,nColumn).Font.Bold = .T.
		*!*				poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
		*!*			Endfor
		*!*			Scan
		*!*				nRows = nRows + 1
		*!*				For nCol = 1 To .ColumnCount
		*!*					nColumn = .Columns(nCol).ColumnOrder
		*!*					If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
		*!*						poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
		*!*					Else
		*!*						poExcel.Cells(nRows,nColumn) = IIF(empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource))
		*!*					Endif
		*!*				Endfor
		*!*			Endscan
		*!*		Endwith
		
		*!*		XLApp.Visible = .T.
		*!*	Endif
	ENDPROC

	PROCEDURE do_listare
		
		PRIVATE lla4,llsolduri,pcPerioadaRef,pcDataOra
		LOCAL Tlist
		
		pcDataora = ''
		pcDataOra = get_ora(2)
		
		pcPerioadaRef = 'Luna ' + PADL(ALLTRIM(STR(gnLuna)),2,'0') + "/" + ALLTRIM(STR(gnAn))
		lla4=.F.
		IF thisform.pf.p4.opt1.Value=1
			lla4=.T.
		ENDIF 
		
		llsolduri=.T.
		IF thisform.pf.p4.opt2.Value=1
			llsolduri=.F.
		ENDIF 
		
		
		LNG1=thisform.pf.p2.cktotal1.Value
		LNG2=thisform.pf.p2.cktotal3.Value
		LNG3=thisform.pf.p2.cktotal3.Value
		LNG4=thisform.pf.p2.cktotal4.Value
		LNG5=thisform.pf.p2.ckanalitic.Value
		
		LCBAL=THISFORM.CALIas 
		SELECT (LCBAL)
		
		LCPARTIALA=IIF(!EMPTY(THISFORM.TXTcont.VALUE)," PARTIALA "," ")
		DO case
			CASE LNG5=1
				m.titlu='- ANALITICA'+LCPARTIALA+'-'
				SELECT (LCBAL)	
				&T
				REPLACE ALL bifa WITH .f.
				
				SELECT DISTINCT cont,bnivel,bifa FROM &lcbal ;
				WHERE bnivel=5 ;
				INTO cursor listbal readwrite
				
				IF _tally # 0 
					DO FORM frm_list_balana
		
					SELECT listbal
					SCAN FOR bifa
						SCATTER NAME olist
						SELECT (LCBAL)
						REPLACE ALL bifa WITH .t. for cont=olist.cont AND bnivel=5
						SELECT listbal
					ENDSCAN 
					RELEASE olist
								
					SELECT (LCBAL)	
					Tlist = T + ' and !bifa '
					&Tlist
				ENDIF 
				USE IN listbal
				SELECT (LCBAL)
		
			CASE LNG4=1 AND LNG5=0
				m.titlu='- SINTETICA'+LCPARTIALA+'-'
			OTHERWISE
				IF EMPTY(lcpartiala)
					m.titlu=""
				ELSE
					m.titlu='-'+LCPARTIALA+'-'		
				ENDIF 
		ENDCASE
		
		DO case
			CASE !lla4
				lcRaport="rapbal_solduri_a3" && A3 CU SOLDURI LA 1 IANUARIE
			CASE lla4 AND !llsolduri
				lcRaport="rapbal_total_a4" && A4 FARA SOLDURI LA 1 IANUARIE
			OTHERWISE
				lcRaport="rapbal_solduri_a4" && A4 CU SOLODURI LA 1 IANUARIE
		ENDCASE 
		
		REPORT FORMAT (lcRaport) TO PRINTER PROMPT preview
		
	ENDPROC

	PROCEDURE do_reface
		If glLunaInchisa
			RETURN
		ENDIF
		
		x= xmenu('Refacere \<lunara;Refacere cu \<precedente')
		DO case
			CASE x = 1
				lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + [,0); end;]
			CASE x = 2
				lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + [,1); end;]
			OTHERWISE
				RETURN 
		ENDCASE 
		
		lnSucces = goExecutor.oExecute(lcExec)
		IF lnSucces < 0
			MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
			RETURN
		ENDIF 
		
		MESSAGEBOX('Refacerea s-a terminat')
		Thisform.reconstruct
		Thisform.afisactual
		do inainte WITH "BALANTA" in oinainte_de.prg
	ENDPROC

	PROCEDURE fisacont
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Scatter Name locont
		
		Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
		Store "" To poact
		*!*	pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
		*!*		['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
		*!*		['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
		*!*		['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
		*!*		['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
		*!*		['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
		*!*		['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
		*!*		['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema1=['']
		pcselect1=['select * from ] + gcS + [.vact where 1=2']
		pcfiltru1=[(luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[) and (SCD=]+Substr(locont.Cont,1,4)+[ or scc=]+Substr(locont.Cont,1,4)+[)]
		pcorder1=['']
		llAfisare=.F.
		*!*	gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
		gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
		poact.ca_baza1.afisare()
		
		*!*	SELE ACT
		*!*	SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
		*!*	Do NRORD With "ACT"
		*!*	ORC=Createobj("AFDEBCRED")
		*!*	ORC.LABELTITLU.Caption="FISA CONTULUI "+locont.Cont
		*!*	ORC.ALI = 'ACT'
		*!*	ORC.Show(1)
		
		Do NRORD With "ACN1"
		SELECT acn1
		GO TOP 
		ORC=Createobject("frm_debcred")
		orc.lb_titlu_alb_b121.caption=thisform.titlufrumos1.caption+" - FISA CONTULUI "+locont.Cont
		orc.lb_titlu1.caption="FISA CONTULUI "+locont.Cont
		orc._grdbase1.removeobject("cUtil")
		orc._grdbase1.removeobject("cDataOra")
		ORC.Show(1)
		
		*!*	SELECT act
		*!*	SET FILTER TO
		Use In acn1
		Release poact
		Select(lcbal)
	ENDPROC

	PROCEDURE Init
		If glLunaInchisa
			THIS.BUT_reface1.Visible = .F.
			THIS.MOdifica1.Visible = .F.
		Endif
		PUBLIC sz
		this.calias=this.grid1.RecordSource && TBALANTA 
		PRIVATE lcbal
		lcbal=thisform.calias 
		
		SELECT(LCBAL)
		GO TOP
		
		PUBLIC m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		STORE 0.0000 TO m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		
		WITH thisform.grid1
			.cprecdeb1.width=0
			.cpreccred1.width=0
		ENDWITH 
		thisform.afisactual
		*!*	DO verif_balana
		*!*	thisform.oafbalana=crea('afbalana')
		
	ENDPROC

	PROCEDURE in_bal
		Parameters tcCont,tcAcont,tlCalculeaza
		Private lcCont,lcField,lcOldAlias,lcTabela
		lcOldAlias=Alias()
		lcField=This.cfield
		lnvalue=This.nnewvalue
		lnOldValue=This.noldvalue
		
		If lnvalue=lnOldValue
			Return
		Endif
		
		If Empty(tcAcont)
			lcAcont=""
		Else
			lcAcont=Upper(Alltrim(tcAcont))
		Endif
		
		If Empty(tcCont)
			lcCont=""
		Else
			lcCont=Upper(Alltrim(tcCont))
		Endif
		
		If !Empty(lcAcont)
			lcTabela="balana"
			lcCond=[TRIM(UPPER(cont))=']+lcCont+[' and TRIM(UPPER(acont))=']+lcAcont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
		Else
			lcTabela="bal"
			lcCond=[TRIM(UPPER(cont))=']+lcCont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
		Endif
		
		*!*	If !EXISTACAMP(lcTabela,lcField) && DACA NU EXISTA CAMPUL NU FAC NIMIC
		*!*		Return
		*!*	Endif
		
		&& setare zecimale
		pcexec=[update ]+ALLTRIM(gcS)+[.]+ALLTRIM(lcTabela)+[ set ]+ALLTRIM(lcField)+[=]+ALLTRIM(STR(lnvalue,24,4))+[ ]+;
				[where ]+lcCond
		lnSucces=goExecutor.oexecute(pcexec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			Messagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		If tlCalculeaza
			This.calculeaza_orizontal()
		Endif
		
		If !Empty(lcOldAlias)
			Select (lcOldAlias)
		Endif
	ENDPROC

	PROCEDURE meniu_as
		Private lcbal
		lcbal=Thisform.calias
		
		If Thisform.grid1.ReadOnly
			lcText=[\<Deblocare;]
			lcText=lcText+[\-;]
			lcText=lcText+[\Adauga Blanc;]
			lcText=lcText+[\Sterge]
		Else
			lcText=[\<Revenire;]
			lcText=lcText+[\-;]
			lcText=lcText+[\<Adauga Blanc;]
			lcText=lcText+[\<Sterge]
		Endif
		lnOpt=xmenu(lcText)
		Do Case
		Case lnOpt=1
			With Thisform.grid1
				.ReadOnly=!.ReadOnly
				.ccont.ReadOnly=.T.
				.cacont.ReadOnly=.T.
				.cdenumire.ReadOnly=.T.
		&& cont2003 oracle
				.ctotdeb.ReadOnly=.T.
				.ctotcred.ReadOnly=.T.
				.csolddeb.ReadOnly=.T.
				.csoldcred.ReadOnly=.T.
			Endwith
		Case lnOpt=3
			This.adauga_linie()
		Case lnOpt=4
			This.sterge_linie()
		Endcase
		
	ENDPROC

	PROCEDURE reconstruct
		save_grid_tag(This.grid1)
		lcTabel=make_tbalanta()
		restore_grid_tag(This.grid1)
	ENDPROC

	PROCEDURE Release
		PRIVATE lcbal
		lcbal=thisform.calias 
		
		RELEASE m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
		
		SELECT (LCBAL)
		SET FILTER TO
	ENDPROC

	PROCEDURE Resize
		THIS.RESIZER1.ONREsize 
	ENDPROC

	PROCEDURE rulcred
		Private lcbal
		lcbal=Thisform.calias
		Select (lcbal)
		Local c
		
		Scatter Name LOCONT
		Thisform.AlwaysOnTop= .F.
		If LOCONT.RULCRED==0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
			OST.LABEL3.Caption="Rulaj Credit = 0"
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
			Store "" To poact
			pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
				['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
				['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
				['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
				['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
				['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
				['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
				['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
			pcschema1=['']
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
			pcorder1=['']
			llAfisare=.F.
			gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact.ca_baza1.afisare()
		
		*!*		Sele ACT
		*!*		Set Filter To SCC=Substr(LOCONT.cont,1,4) And !Deleted()
		*!*		ORC=Createobj("AFDEBCRED")
		*!*		With ORC
		*!*			.ali='act'
		*!*			.LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ CREDIT"
		*!*		Endwith
			ORC=Createobj("frm_debcred")
			With ORC
					.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - RULAJ CREDIT"
					.lb_titlu1.caption="SITUATIE ANALITICA - RULAJ CREDIT"
					._grdbase1.removeobject("cUtil")
					._grdbase1.removeobject("cDataOra")
			Endwith
			ORC.Show(1)
			USE IN acn1
		*!*		SELECT ACT
		*!*		SET FILTER TO
		*!*		Select act
		*!*		Use
			Release poact
		Endif
		
		Thisform.AlwaysOnTop= .T.
		Select (lcbal)
		Release LOCONT
	ENDPROC

	PROCEDURE ruldeb
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Local c
		Scatter Name LOCONT
		Thisform.AlwaysOnTop= .F.
		If LOCONT.RULDEB==0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
			OST.LABEL3.Caption="Rulaj Debit = 0"
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
			Store "" To poact
			pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
				['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
				['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
				['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
				['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
				['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
				['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
				['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
			pcschema1=['']
			pcselect1=['select * from ] + gcS + [.vact where 2=2']
			pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCD=]+Substr(LOCONT.Cont,1,4)+[]
			pcorder1=['']
			llAfisare=.F.
			gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact.ca_baza1.afisare()
		
		*!*		Sele ACT
		*!*		Set Filter To SCD=Substr(LOCONT.Cont,1,4) And !Deleted()
		*!*		ORC=Createobj("AFDEBCRED")
		*!*		With ORC
		*!*			.ali='act'
		*!*			.LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ DEBIT"
		*!*		Endwith
		*!*		ORC.Show(1)
		*!*		Select act
		*!*		Use
			ORC=Createobj("frm_debcred")
			With ORC
					.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - RULAJ DEBIT"
					.lb_titlu1.caption="SITUATIE ANALITICA - RULAJ DEBIT"
					._grdbase1.removeobject("cUtil")
					._grdbase1.removeobject("cDataOra")
			Endwith
			ORC.Show(1)	
		
			USE IN acn1
			Release poact
		Endif
		Release ORC
		Thisform.AlwaysOnTop= .T.
		
		*!*	SELECT ACT
		*!*	SET FILTER TO
		
		Select(lcbal)
		Release LOCONT
	ENDPROC

	PROCEDURE ruldebcred
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Local c
		Scatter Name LOCONT
		If LOCONT.RULCRED=0 And LOCONT.RULDEB=0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
			OST.LABEL3.Caption="Nu exista rulaje in luna."
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcschema1,poact,poact1,poact2
			Store "" To poact,poact1,poact2
			pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
				['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
				['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
				['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
				['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
				['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
				['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
				['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
			pcschema1=['']
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))
			pcorder1=[]
			llAfisare=.F.
			gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact.ca_baza1.afisare()
			Sele ACT
		*DO NRORD WITH "ACT"
			Sele 0
		
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCD=]+Substr(LOCONT.Cont,1,4)+[]
			pcorder1=[]
			llAfisare=.F.
			gencursor('poact1','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact1.ca_baza1.afisare()
		*!*			USE &DATE/ACT.DBF;
		*!*			AGAIN ALIAS ACn1
		*!*			SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
		
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCC=]+Substr(LOCONT.Cont,1,4)+[]
			pcorder1=[]
			llAfisare=.F.
			gencursor('poact2','acn2',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact2.ca_baza1.afisare()
		*!*			SELE 0
		*!*			USE &DATE/ACT.DBF;
		*!*			AGAIN ALIAS ACn2
		*!*			SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
		
		*!*		ORC=Createobj("AFDEBsiCRED")
		*!*		ORC.Caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
		*!*		ORC.Show(1)
			orc=CREATEOBJECT("frm_debsicred")
			orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
			orc.show(1)
			Sele acn1
			Use
			Sele acn2
			Use
		
		*!*		modificare
			Select ACT
			Use
			Release poact,poact1,poact2,ORC
		*!*
		Endif
		
		Select(lcbal)
		Release LOCONT
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		DODEFAULT()
		IF luna_inchisa
			thisform.modifica1.Visible = .F.
			thisform.coMMAND4.Visible = .f.
		ENDIF 
	ENDPROC

	PROCEDURE sterge_linie
		Private lcbal,lcContS,lcContA
		lcbal=This.calias
		
		Select (lcbal)
		lcContS=Alltrim(Cont)
		lcContA=Alltrim(acont)
		
		If Empty(lcContS) And Empty(lcContA)
			Messagebox("Nu puteti sterge un total!",0+48,"Atentie")
			Return
		Endif
		
		pcexec=[begin balanadelproc(']+Alltrim(gcS)+ [',] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna))+ [,']+lcContS+[',']+lcContA+['); end;]
		lnSucces=goExecutor.oexecute(pcexec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			If "ORA-20000"$lcTextEroare
				lnPozi=At("ORA-20000",lcTextEroare)+11
				lnPozf=At("ORA",lcTextEroare,2)
				lcTextEroare=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
			Endif
			Messagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		This.reconstruct
		This.afisactual
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
	ENDPROC

	PROCEDURE totcred
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Local c
		Scatter Name LOCONT
		Thisform.AlwaysOnTop= .F.
		
		If LOCONT.TOTCRED==0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
			OST.LABEL3.Caption="Total Credit = 0"
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcschema1,poact
			Store "" To poact
			pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
				['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
				['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
				['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
				['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
				['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
				['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
				['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
			pcschema1=['']
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
			pcorder1=['']
			llAfisare=.F.
			gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact.ca_baza1.afisare()
		
		*!*		Sele ACTAN
		*!*	*		DO NRORD WITH "ACTAN"
		*!*		*	sum suma to totsum
		*!*			SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
		*!*		ORC=Createobj("AFDEBCRED")
		*!*		With ORC
		*!*			.ali='actan'
		*!*			.LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL CREDIT"
		*!*		Endwith
		*!*		ORC.Show(1)
			ORC=Createobj("frm_debcred")
			With ORC
					.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - TOTAL CREDIT"
					.lb_titlu1.caption="SITUATIE ANALITICA - TOTAL CREDIT"
					._grdbase1.removeobject("cUtil")
					._grdbase1.removeobject("cDataOra")
			Endwith
			ORC.Show(1)	
		*!*			SELECT ACTAN
		*!*			SET FILTER TO
		*!*	  	modificare
		*!*		Select ACTAN
		*!*		Use
			USE IN acn1
			Release poact
		*!*
		Endif
		Release ORC
		Thisform.AlwaysOnTop= .T.
		
		Select (lcbal)
		
	ENDPROC

	PROCEDURE totdeb
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Local c
		Scatter Name LOCONT
		
		Thisform.AlwaysOnTop= .F.
		If LOCONT.TOTDEB==0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
			OST.LABEL3.Caption="Total Debit = 0"
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcschema1,poact
			Store "" To poact
			pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
				['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
				['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
				['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
				['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
				['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
				['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
				['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
			pcschema1=['']
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
			pcorder1=['']
			llAfisare=.F.
			gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact.ca_baza1.afisare()
		
		*!*		Sele ACTAN
		*!*	*		DO NRORD WITH "ACTAN"
		*!*	*	sum suma to totsum
		*!*		SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
		*!*	*		DO NRORD WITH "ACTAN"
		*!*		ORC=Createobj("AFDEBCRED")
		*!*		With ORC
		*!*			.ali='actan'
		*!*			.LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL DEBIT"
		*!*		Endwith
		*!*		ORC.Show(1)
			orc=CREATEOBJECT("frm_debcred")
			With ORC
					.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - TOTAL DEBIT"
					.lb_titlu1.caption="SITUATIE ANALITICA - TOTAL DEBIT"
					._grdbase1.removeobject("cUtil")
					._grdbase1.removeobject("cDataOra")
			ENDWITH
			orc.show(1)
		*!*		SELECT ACTAN
		*!*		SET FILTER TO
		
		*!* modificare
		*!*		Select ACTAN
		*!*		Use
			USE IN acn1
			Release poact
		*!*
		Endif
		
		Thisform.AlwaysOnTop= .T.
		Select (lcbal)
		Release LOCONT
		
	ENDPROC

	PROCEDURE totdebcred
		Private lcbal
		lcbal=Thisform.calias
		
		Select (lcbal)
		Local c
		Scatter Name LOCONT
		Thisform.AlwaysOnTop= .F.
		If LOCONT.TOTCRED==0 And LOCONT.TOTDEB==0 Then
			OST=Createobj("stop")
			OST.LABEL2.Caption="Contul "+LOCONT.Cont
			OST.LABEL3.Caption="este neutilizat!"
			OST.Show(1)
		Else
			Private pcselect1,pcfiltru1,pcschema1,poact,poact1,poact2
			Store "" To poact,poact1,poact2
		*!*		pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
		*!*			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
		*!*			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
		*!*			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
		*!*			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
		*!*			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
		*!*			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
		*!*			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
				pcschema1=['']
		*!*		pcselect1=["select * from ] + gcS + [.vact where 2=2"]
		*!*		pcfiltru1=[2=2]
		*!*		pcorder1=[]
		*!*		llAfisare=.F.
		*!*		gencursor('poact','actan',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
		*!*		poact.ca_baza1.afisare()
		
		*!*		Sele ACTan
		*!*	*	DO NRORD WITH "ACTan"
			Sele 0
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
			pcorder1=[]
			llAfisare=.F.
			gencursor('poact1','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact1.ca_baza1.afisare()
		*!*			USE &DATEan/ACTan.DBF;
		*!*			AGAIN ALIAS ACn1
		*!*			SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
		
			pcselect1=["select * from ] + gcS + [.vact where 2=2"]
			pcfiltru1=[SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
			pcorder1=[]
			llAfisare=.F.
			gencursor('poact2','acn2',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
			poact2.ca_baza1.afisare()
		*!*			SELE 0
		*!*			USE &DATEan/ACTan.DBF;
		*!*			AGAIN ALIAS ACn2
		*!*			SET FILTER TO SCC=SUBSTR(locont.CONT,1,4) AND !DELETED()
		*!*		ORC=Createobj("AFDEBsiCRED")
		*!*		ORC.Caption="SITUATIE ANALITICA - Total Cont "+LOCONT.Cont
		*!*		ORC.Show(1)
			orc=CREATEOBJECT("frm_debsicred")
			orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - Total Cont "+LOCONT.Cont
			orc.show(1)
		
			Sele acn1
			Use
			Sele acn2
			Use
		*!*	  	modificare
		*!*		Select ACTan
		*!*		Use
			Release poact,poact1,poact2
			Release ORC
		*!*
		Endif
		
		Thisform.AlwaysOnTop= .T.
		Select (lcbal)
		
	ENDPROC

	PROCEDURE But_modifica1.Click
		If glLunaInchisa
			RETURN
		Endif
		thisform.meniu_as
		thisform.grID1.SetFocus 
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		Lparameters nColIndex
	ENDPROC

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

	PROCEDURE Grid1.ccont.Text1.GotFocus
		lcSufix="cont"
		thisform.cField=lcSufix
		
	ENDPROC

	PROCEDURE Grid1.ccont.Text1.Valid
		thisform.nnewvalue=this.value
		LOCAL lcCont
		lcCont=thisform.noldvalue
		RETURN .T.
		thisform.in_bal(lcCont)
		
	ENDPROC

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

	PROCEDURE Grid1.cdenumire.Text1.GotFocus
		lcSufix="denumire"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.cdenumire.Text1.Valid
		RETURN .T.
		PRIVATE lcbal
		lcBal=thisform.calias 
		LOCAL lcCont,lcAcont
		
		
		thisform.nnewvalue=this.value
		SELECT (lcBal)
		lcCont=cont
		lcAcont=acont
		
		thisform.in_bal(lcCont,lcAcont)
	ENDPROC

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

	PROCEDURE Grid1.cpreccred.Text1.GotFocus
		lcSufix="PRECCRED"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.cpreccred.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

	PROCEDURE Grid1.cpreccred1.Text1.GotFocus
		lcSufix="PRECCRED1"
		thisform.cField=lcSufix
	ENDPROC

	PROCEDURE Grid1.cpreccred1.Text1.Valid
		thisform.calculeaza
	ENDPROC

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

	PROCEDURE Grid1.cprecdeb.Text1.GotFocus
		lcSufix="PRECDEB"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.cprecdeb.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

	PROCEDURE Grid1.cprecdeb1.Text1.GotFocus
		lcSufix="PRECDEB1"
		thisform.cField=lcSufix
	ENDPROC

	PROCEDURE Grid1.cprecdeb1.Text1.Valid
		thisform.calculeaza
	ENDPROC

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

	PROCEDURE Grid1.crulcred.Text1.GotFocus
		lcSufix="RULCRED"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.crulcred.Text1.Valid
		thisform.calculeaza
	ENDPROC

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

	PROCEDURE Grid1.cruldeb.Text1.GotFocus
		lcSufix="RULDEB"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.cruldeb.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

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

	PROCEDURE Grid1.csoldcred.Text1.GotFocus
		lcSufix="SOLDCRED"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.csoldcred.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

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

	PROCEDURE Grid1.csolddeb.Text1.GotFocus
		lcSufix="SOLDDEB"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.csolddeb.Text1.Valid
		thisform.calculeaza
		
		
	ENDPROC

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

	PROCEDURE Grid1.ctotcred.Text1.GotFocus
		lcSufix="TOTCRED"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.ctotcred.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

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

	PROCEDURE Grid1.ctotdeb.Text1.GotFocus
		lcSufix="TOTDEB"
		thisform.cField=lcSufix
		
	ENDPROC

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

	PROCEDURE Grid1.ctotdeb.Text1.Valid
		thisform.calculeaza
		
	ENDPROC

	PROCEDURE Grid1.DblClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Init
		*!*	this.SetAll("DynamicForeCOlor",;
		*!*	"IIF(!EMPTY(cont),RGB(0,0,0),IIF(nivel=1,RGB(0,0,255),RGB(0,128,128)))","Column")
		
		this.SetAll("DynamicForeCOlor","IIF(BNIVEL<3,RGB(0,0,255),RGB(0,0,0))","Column")
		
		this.SetAll("DynamicFontbold","IIF(INLIST(BNIVEL,1,3),.t.,.f.)","Column")
		
	ENDPROC

	PROCEDURE Optiongroup1.Option1.Click
		PRIVATE lcbal
		lcbal=thisform.calias 
		
		THIS.PARENT.OPTION2.ENABLED=.F.
		THIS.PARENT.OPTION3.ENABLED=.F.
		THIS.PARENT.OPTION4.ENABLED=.F.
		THIS.PARENT.OPTION5.ENABLED=.F.
		
		SELECT(LCBAL)
		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 pf.p1.Check1.Valid
		thisform.afisactual 
		IF this.Value = 1
			this.Caption = 'Analitice'
		ELSE 
			this.Caption = 'Sintetice'
		ENDIF 
	ENDPROC

	PROCEDURE pf.p1.Click
		WITH THIS
			.text1.Refresh
			.text2.Refresh
			.text3.Refresh
			.text4.Refresh
			.text5.Refresh
			.text6.Refresh
			.text7.Refresh
			.text8.Refresh
		ENDWITH 
	ENDPROC

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

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

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

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

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

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

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

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

	PROCEDURE pf.p1.txtpreccred1.Refresh
		THIS.FORECOLOR=IIF(M.SPRECCRED1>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pf.p1.txtprecdeb1.Refresh
		THIS.FORECOLOR=IIF(M.SPRECDEB1>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE pf.P2.ckanalitic.Click
		
		
	ENDPROC

	PROCEDURE pf.P2.ckanalitic.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE pf.P2.cksold1.Click
		
		
	ENDPROC

	PROCEDURE pf.P2.cksold1.Valid
		IF this.Value=0
			WITH thisform.grid1
				.cprecdeb1.width=0
				.cprecdeb1.visible=.F.	&& cont2003 oracle
				.cpreccred1.width=0
				.cpreccred1.visible=.F.
			ENDWITH 
			WITH thisform.pf.p1
				.lblsld1.Visible=.F.
				.txtprecdeb1.Visible=.F.
				.txtpreccred1.Visible=.F.		
				.lbldebit.Left=.text1.left-45
				.lblcredit.Left=.text2.left-45
				.check1.Left=.label8.left-45
			ENDWITH 
		ELSE
		
			WITH thisform.grid1
				.cprecdeb1.width=72
				.cprecdeb1.visible=.T.
				.cpreccred1.width=72
				.cpreccred1.visible=.T.
			ENDWITH 
			WITH thisform.pf.p1
				.lblsld1.Visible=.T.
				.txtprecdeb1.Visible=.T.
				.txtpreccred1.Visible=.T.		
				.lbldebit.Left=.txtprecdeb1.left-45
				.lblcredit.Left=.txtpreccred1.left-45
				.check1.Left=.lblsld1.left-45
			ENDWITH 
		ENDIF
		
	ENDPROC

	PROCEDURE pf.P2.cktotal1.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE pf.P2.cktotal2.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE pf.P2.cktotal3.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE pf.P2.cktotal4.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE pf.P2.Ck_cont.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option1.Click
		*!*	lcbal=thisform.calias 
		
		*!*	THIS.PARENT.OPTION2.ENABLED=.F.
		*!*	THIS.PARENT.OPTION3.ENABLED=.F.
		*!*	THIS.PARENT.OPTION4.ENABLED=.F.
		*!*	THIS.PARENT.OPTION5.ENABLED=.F.
		
		*!*	SELECT(LCBAL)
		*!*	SET FILTER TO !DELETED()
		THISFORM.GRID1.SetFocus 
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option2.Click
		thisform.fisacont
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option3.Click
		THISFORM.RULDEB
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option4.Click
		THISFORM.RULCRED
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option5.Click
		THISFORM.RULDEBCRED
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option6.Click
		THISFORM.TOTDEB
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option7.Click
		THISFORM.TOTCRED
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE pf.p3.Optiongroup1.Option8.Click
		THISFORM.TOTDEBCRED
		THIS.parent.Value=8 && balanta
	ENDPROC

	PROCEDURE txtcont.Valid
		thisform.txtcont2.Value = this.Value 
		thisform.afisactual
		
	ENDPROC

	PROCEDURE Txtcont2.Valid
		thisform.afisactual
	ENDPROC

ENDDEFINE
