*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="viz.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 = 1
		Name = "Dataenvironment"
		Top = 220
		Width = 520
	*</PropValue>

ENDDEFINE

DEFINE CLASS ffergen1 AS ffergen OF "..\..\contab\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="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" 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.Column9.Header9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afisactual
		*m: butdrept
		*m: modificare
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 523
		Name = "Ffergen1"
		Width = 793
		Line1.Left = 0
		Line1.Name = "Line1"
		Line1.Top = 496
	*</PropValue>

	ADD OBJECT 'Check1' AS checkbox WITH ;
		Caption = "\<Denumire", ;
		ControlSource = "bden", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 696, ;
		Name = "Check1", ;
		TabIndex = 12, ;
		Top = 228, ;
		Width = 100
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check2' AS checkbox WITH ;
		Caption = "\<Cont Deb.", ;
		ControlSource = "bscd", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 696, ;
		Name = "Check2", ;
		TabIndex = 12, ;
		Top = 288, ;
		Width = 100
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check4' AS checkbox WITH ;
		Caption = "\<Gestiune", ;
		ControlSource = "bgest", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 696, ;
		Name = "Check4", ;
		TabIndex = 15, ;
		Top = 268, ;
		Width = 100
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check9' AS checkbox WITH ;
		Caption = "\<Valoare", ;
		ControlSource = "bsuma", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 696, ;
		Name = "Check9", ;
		TabIndex = 20, ;
		Top = 247, ;
		Width = 100
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Enabled = .F., ;
		Left = 697, ;
		Name = "Cmdlist1", ;
		ToolTipText = "Listare", ;
		Top = 398, ;
		Width = 98
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Caption = "", ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 696, ;
		Name = "Command1", ;
		Picture = ..\..\contab\grafice\edit1.bmp, ;
		StatusBarText = "", ;
		TabIndex = 4, ;
		ToolTipText = "Modificare", ;
		Top = 359, ;
		Width = 98
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 254,255,240, ;
		ColumnCount = 18, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 405, ;
		Left = 12, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "MF", ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 672, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 254,255,240, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nract", ;
		Column1.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .F., ;
		Column1.Width = 48, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 254,255,240, ;
		Column2.ColumnOrder = 10, ;
		Column2.ControlSource = "uzura", ;
		Column2.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 38, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 254,255,240, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "dataact", ;
		Column3.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .F., ;
		Column3.Width = 53, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 254,255,240, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "denumire", ;
		Column4.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .F., ;
		Column4.Width = 151, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 254,255,240, ;
		Column5.ColumnOrder = 4, ;
		Column5.ControlSource = "valoare", ;
		Column5.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Format = "r", ;
		Column5.InputMask = "99 999 999 999 999", ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .F., ;
		Column5.Width = 101, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 254,255,240, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "nrinv", ;
		Column6.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column7", ;
		Column6.ReadOnly = .F., ;
		Column6.Width = 51, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 254,255,240, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "codmf", ;
		Column7.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column8", ;
		Column7.ReadOnly = .F., ;
		Column7.Width = 44, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 254,255,240, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "normat", ;
		Column8.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.FontSize = 9, ;
		Column8.Format = "r", ;
		Column8.InputMask = "999 999 999 999", ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .F., ;
		Column8.Width = 56, ;
		Column9.Alignment = 0, ;
		Column9.BackColor = 254,255,240, ;
		Column9.ColumnOrder = 5, ;
		Column9.ControlSource = "datapif", ;
		Column9.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 53, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 254,255,240, ;
		Column10.ColumnOrder = 6, ;
		Column10.ControlSource = "nrpif", ;
		Column10.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 38, ;
		Column11.BackColor = 254,255,240, ;
		Column11.ColumnOrder = 11, ;
		Column11.ControlSource = "tipamort", ;
		Column11.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column13", ;
		Column11.ReadOnly = .F., ;
		Column11.Width = 46, ;
		Column12.BackColor = 254,255,240, ;
		Column12.ColumnOrder = 14, ;
		Column12.ControlSource = "gest", ;
		Column12.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column14", ;
		Column12.ReadOnly = .F., ;
		Column12.Width = 44, ;
		Column13.BackColor = 254,255,240, ;
		Column13.ColumnOrder = 15, ;
		Column13.ControlSource = "respons", ;
		Column13.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column15", ;
		Column13.ReadOnly = .F., ;
		Column13.Width = 122, ;
		Column14.BackColor = 254,255,240, ;
		Column14.ColumnOrder = 18, ;
		Column14.ControlSource = "caract", ;
		Column14.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Name = "Column16", ;
		Column14.ReadOnly = .F., ;
		Column14.Visible = .F., ;
		Column14.Width = 0, ;
		Column15.BackColor = 254,255,240, ;
		Column15.ColumnOrder = 16, ;
		Column15.ControlSource = "scd", ;
		Column15.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.Name = "Column17", ;
		Column15.ReadOnly = .F., ;
		Column15.Width = 43, ;
		Column16.BackColor = 254,255,240, ;
		Column16.ColumnOrder = 12, ;
		Column16.ControlSource = "valoare/normat", ;
		Column16.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.Format = "r", ;
		Column16.InputMask = "999 999 999 999", ;
		Column16.Name = "Column18", ;
		Column16.ReadOnly = .F., ;
		Column17.BackColor = 254,255,240, ;
		Column17.ColumnOrder = 13, ;
		Column17.ControlSource = "uzura*valoare/normat", ;
		Column17.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.Format = "r", ;
		Column17.InputMask = "999 999 999 999", ;
		Column17.Name = "Column19", ;
		Column17.ReadOnly = .F., ;
		Column18.BackColor = 254,255,240, ;
		Column18.ColumnOrder = 17, ;
		Column18.ControlSource = "casat", ;
		Column18.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.Name = "Column20", ;
		Column18.ReadOnly = .F., ;
		Column18.Width = 37
		*< END OBJECT: BaseClass="grid" />

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

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

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

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

	ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
		Caption = "Tip Amort.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
		Caption = "Nr. Gest.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
		Caption = "Cont Deb.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
		*< END OBJECT: BaseClass="textbox" />

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

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

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

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		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 = "Denumire", ;
		FontName = "Arial Narrow", ;
		Name = "Header5"
		*< END OBJECT: BaseClass="header" />

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

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

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		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 = "Nr. Inventar", ;
		FontName = "Arial Narrow", ;
		Name = "Header7"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		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 = "Cod MF", ;
		FontName = "Arial Narrow", ;
		Name = "Header8"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
		Alignment = 2, ;
		Caption = "Durata Amort.", ;
		FontName = "Arial Narrow", ;
		Name = "Header9"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "VIZUALIZARE MIJLOACE FIXE IN LUNA", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 19, ;
		Left = 13, ;
		Name = "Label10", ;
		TabIndex = 10, ;
		Top = 6, ;
		Width = 384, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 254,255,240, ;
		Caption = "Nu sunt inregistrate mijloace fixe in aceasta luna!", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 255,0,0, ;
		Height = 60, ;
		Left = 252, ;
		Name = "Label19", ;
		Top = 204, ;
		Visible = .F., ;
		Width = 204, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Amortizmente in Luna:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 378, ;
		Name = "Label3", ;
		TabIndex = 8, ;
		Top = 451, ;
		Width = 154
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Caption = "Selectie", ;
		Height = 17, ;
		Left = 696, ;
		Name = "Label7", ;
		TabIndex = 9, ;
		Top = 212, ;
		Width = 46
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 56, ;
		Left = 10, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 448, ;
		Width = 676
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		Height = 477, ;
		Left = 691, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 27, ;
		Width = 108
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		Height = 157, ;
		Left = 691, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 292, ;
		Width = 108
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape5' AS shape WITH ;
		Height = 45, ;
		Left = 360, ;
		Name = "Shape5", ;
		SpecialEffect = 0, ;
		Top = 459, ;
		Width = 307
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape6' AS shape WITH ;
		Height = 107, ;
		Left = 691, ;
		Name = "Shape6", ;
		SpecialEffect = 0, ;
		Top = 216, ;
		Width = 108
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "m.suma", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 450, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 198
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text16' AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "m.nl", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 23, ;
		Left = 400, ;
		Name = "Text16", ;
		ReadOnly = .T., ;
		TabIndex = 37, ;
		Top = 4, ;
		Width = 36
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text17' AS textbox WITH ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.an", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 23, ;
		Left = 442, ;
		Name = "Text17", ;
		ReadOnly = .T., ;
		TabIndex = 38, ;
		Top = 4, ;
		Width = 80
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		STORE ".T." TO Tden,Tsuma,Tgest,tscd
		
		sele mf
		
		if Bden==.t. then
			Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
		endif
		
		if Bscd==.t. then
			Tscd="UPPER(LEFT(scd,LEN(M.scd)))==UPPER(m.scd)"
		endif
		
		if bgest==.t. then
			Tgest="gest==m.gest"
		endif
		
		
		if bsuma==.t. then
			Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
		endif
		
		sele mf
		SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tscd and !deleted()
		
		
		THISFORM.GRID1.REFRESH
		THISFORM.GRID1.SETFOCUS
		go top
		
		sum valoare/normat to m.suma
		thisform.text1.refresh
	ENDPROC

	PROCEDURE butdrept
	ENDPROC

	PROCEDURE Init
		public Tden,Tsuma,Tgest,tscd,m.suma1,m.suma2,m.suma,bden,bsuma,bgest,bscd
		store 0 to m.suma1,m.suma2,m.suma
		store .f. to bden,bsuma,bgest,bscd
		STORE ".T." TO Tden,Tsuma,Tgest,tscd
		
		thisform.afisactual
		
		sele mf
		go top
		if eof()
		thisform.grid1.gridlines=0
		thisform.check1.enabled=.f.
		thisform.check4.enabled=.f.
		thisform.check9.enabled=.f.
		thisform.command1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		
	ENDPROC

	PROCEDURE modificare
		sele mf
		scatter memvar
		ofi=create('fisa')
		ofi.show(1)
		
		if buton==1
		gather memvar
		endif
		thisform.afisactual
	ENDPROC

	PROCEDURE Check1.Click
		if Bden==.t. then
			OLIT=CREATEOBJECT("CAUTLITERE")
			WITH OLIT
				.CAPTION="Denumire"
				.text1.controlsource="m.denumire"
			endwith
			olit.show(1)
		endif
		
		
	ENDPROC

	PROCEDURE Check1.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check2.Click
		if Bscd==.t. then
			OLIT=CREATEOBJECT("CAUTLITERE")
			WITH OLIT
				.CAPTION="Simbol Cont Debitor"
				.text1.controlsource="m.scd"
			endwith
			olit.show(1)
		endif
		
		
	ENDPROC

	PROCEDURE Check2.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check4.Click
		if bgest==.t. then
			*OLIT=CREATEOBJECT("CAUTLITERE")
			*WITH OLIT
			*	.CAPTION="Gestiunea"
			*	.text1.controlsource="m.numegest"
			*endwith
			*olit.show(1)
			do caut_alf with 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
		endif
		
		sele numegest
		locate for numegest=m.numegest
		scatter memvar
		
	ENDPROC

	PROCEDURE Check4.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check9.Click
		if bsuma==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Valoare"
				.label1.caption="Valoare minima:"
				.label2.caption="Valoare maxima:"
				.text1.controlsource="m.suma1"
				.text2.controlsource="m.suma2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check9.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Cmdlist1.Click
		
		THISFORM.AFISACTUAL
		*REPORT FORMAT ACT.FRX PREVIEW
		
	ENDPROC

	PROCEDURE Command1.Click
		thisform.modificare
	ENDPROC

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

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

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

	PROCEDURE Grid1.Column11.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.Init
		sele mf
		
	ENDPROC

	PROCEDURE Shape2.RightClick
		LOCAL lbMenu[3]
		
		
		lbMenu=""
		lbMenu[1]="\<Deblocare"
		lbMenu[2]="\-"
		lbMenu[3]="\<Revenire"
		
		thisform.oMenuShortcut.ShowMenu(@lbMenu)
		
		do case
			case bar()=1
				thisform.grid1.readonly=.f.
				thisform.grid1.deletemark=.t.
				thisform.grid1.backcolor=rgb(225,255,255)
			case bar()=3
				thisform.grid1.readonly=.t.
				thisform.grid1.deletemark=.f.
				thisform.grid1.backcolor=rgb(254,255,240)
				SELE MF
				SET FILTER TO !DELETED()
				thisform.grid1.REFRESH
		endcase
	ENDPROC

	PROCEDURE Text1.GotFocus
		sum suma to m.suma
		this.refresh
	ENDPROC

	PROCEDURE Text1.Init
		sele act
		set filter to
		sum suma to m.suma
		*this.refresh
	ENDPROC

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

ENDDEFINE
