*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="mfix2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" 		&& Application class.
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		clastcaption = Microsoft Visual FoxPro
		clasticon = 
		Name = "capplication"
		nformcount = 0
	*</PropValue>
	
	PROCEDURE onshutdown
		IF glQuit
			QUIT
		ENDIF 
		os=CREATEOBJECT('sigur')
		os.show(1)
		IF buton=1
		*!*	do inchidprog
		*!*	thisform.release
		QUIT
		ENDIF 
	ENDPROC

ENDDEFINE

DEFINE CLASS casdanu AS danu OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 155
		Name = "casdanu"
		Width = 306
		SEIP1.Height = 144
		SEIP1.Left = 4
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 6
		SEIP1.Width = 296
		SEIP1.ZOrderSet = 0
		Image1.Height = 32
		Image1.Name = "Image1"
		Image1.Width = 32
		Image1.ZOrderSet = 1
		Line1.Name = "Line1"
		Line1.ZOrderSet = 2
		Label1.AutoSize = .F.
		Label1.Caption = "Se caseaza mijlocul fix:"
		Label1.FontSize = 10
		Label1.Height = 37
		Label1.Left = 57
		Label1.Name = "Label1"
		Label1.Top = 23
		Label1.Width = 216
		Label1.WordWrap = .T.
		Label1.ZOrderSet = 3
		Label2.Name = "Label2"
		Label2.ZOrderSet = 4
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Imbuton1.Height = 29
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 27
		CMDTERMIN1.Left = 61
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 120
		CMDTERMIN1.ZOrderSet = 5
		Label3.Name = "Label3"
		Label3.ZOrderSet = 6
		Nu1.Command1.Name = "Command1"
		Nu1.Imbuton1.Height = 27
		Nu1.Imbuton1.Name = "Imbuton1"
		Nu1.Imbuton1.Width = 51
		Nu1.Left = 154
		Nu1.Name = "Nu1"
		Nu1.Top = 114
		Nu1.ZOrderSet = 7
		Da1.Command1.Name = "Command1"
		Da1.Imbuton1.Height = 27
		Da1.Imbuton1.Name = "Imbuton1"
		Da1.Imbuton1.Width = 51
		Da1.Left = 102
		Da1.Name = "Da1"
		Da1.Top = 114
		Da1.ZOrderSet = 8
	*</PropValue>

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cu Numarul de Inventar:", ;
		Height = 17, ;
		Left = 16, ;
		Name = "Label4", ;
		Top = 58, ;
		Width = 133, ;
		WordWrap = .T., ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumirea:", ;
		Height = 17, ;
		Left = 16, ;
		Name = "Label5", ;
		Top = 83, ;
		Width = 65, ;
		WordWrap = .T., ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nrinv", ;
		Height = 23, ;
		Left = 152, ;
		Name = "Text1", ;
		Top = 56, ;
		Width = 137, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.denumire", ;
		Height = 23, ;
		Left = 87, ;
		Name = "Text2", ;
		Top = 81, ;
		Width = 200, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 194
		Name = "eroareverif"
		Width = 436
		Line1.Left = 8
		Line1.Name = "Line1"
		Line1.Top = 486
		Line1.ZOrderSet = 1
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "DOCUMENTUL:", ;
		Height = 17, ;
		Left = 18, ;
		Name = "Label1", ;
		TabIndex = 3, ;
		Top = 46, ;
		Width = 90, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "/", ;
		Height = 17, ;
		Left = 310, ;
		Name = "Label2", ;
		TabIndex = 6, ;
		Top = 46, ;
		Width = 5, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "TOTAL ACHIZITIE:", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label3", ;
		TabIndex = 8, ;
		Top = 88, ;
		Width = 101, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "VALOARE MIJLOACE FIXE INSCRISE:", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label4", ;
		TabIndex = 9, ;
		Top = 112, ;
		Width = 208, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Introdus gresit!", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontSize = 11, ;
		ForeColor = 255,0,0, ;
		Height = 19, ;
		Left = 17, ;
		Name = "Label5", ;
		TabIndex = 12, ;
		Top = 155, ;
		Width = 109, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr.", ;
		Height = 17, ;
		Left = 214, ;
		Name = "Label6", ;
		TabIndex = 6, ;
		Top = 45, ;
		Width = 18, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 2, ;
		Left = 17, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 65, ;
		Width = 400, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		Height = 2, ;
		Left = 17, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 135, ;
		Width = 400, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackStyle = 0, ;
		Height = 142, ;
		Left = 6, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 42, ;
		Width = 420, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackColor = 0,64,128, ;
		BorderStyle = 0, ;
		BorderWidth = 0, ;
		Height = 36, ;
		Left = -5, ;
		Name = "Shape4", ;
		Top = 0, ;
		Width = 552, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 391, ;
		Name = "Terminat1", ;
		Picture = ..\..\comun\grafice\orb.bmp, ;
		Top = 2, ;
		ZOrderSet = 1, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "M.FDOC", ;
		Height = 20, ;
		Left = 110, ;
		Name = "Text1", ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 43, ;
		Width = 100, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "M.NRACT", ;
		Height = 20, ;
		Left = 227, ;
		Name = "Text2", ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 43, ;
		Width = 80, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "M.DATAACT", ;
		Height = 20, ;
		Left = 319, ;
		Name = "Text3", ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 43, ;
		Width = 80, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "M.SUMA", ;
		Format = "R", ;
		Height = 20, ;
		InputMask = "999 999 999 999 999", ;
		Left = 233, ;
		Name = "Text4", ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 86, ;
		Width = 132, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "TOTVAL", ;
		Format = "R", ;
		Height = 20, ;
		InputMask = "999 999 999 999 999", ;
		Left = 233, ;
		Name = "Text5", ;
		TabIndex = 11, ;
		TabStop = .F., ;
		Top = 112, ;
		Width = 132, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
		Caption = "Imobilizari - Eroare de introducere", ;
		FontSize = 11, ;
		Height = 37, ;
		Left = 8, ;
		Name = "Titlufrumos1", ;
		Top = 4, ;
		Width = 320, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label33" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label28" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text28" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label34" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label32" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="T23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label31" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="T21" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: fel_imob
		*p: valrez
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 255,255,255
		BorderStyle = 1
		DoCreate = .T.
		fel_imob = ''
		Height = 477
		Name = "fisa"
		valrez = 0
		Width = 565
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 30, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 456, ;
		ZOrderSet = 69
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 331, ;
		Name = "Cmdlist1", ;
		TabIndex = 39, ;
		Top = 528, ;
		Visible = .F., ;
		Width = 38, ;
		ZOrderSet = 70, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Height = 27, ;
		Left = 369, ;
		Name = "CMDRENUNT1", ;
		TabIndex = 38, ;
		Top = 528, ;
		Visible = .F., ;
		Width = 38, ;
		ZOrderSet = 7, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Height = 27, ;
		Left = 408, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 37, ;
		Top = 528, ;
		Visible = .F., ;
		Width = 38, ;
		ZOrderSet = 61, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Combo1' AS combobox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BoundTo = .F., ;
		ControlSource = "m.k", ;
		DisplayValue = Combo1, ;
		Enabled = .F., ;
		FirstElement = 1, ;
		Format = "", ;
		Height = 20, ;
		InputMask = "", ;
		Left = 414, ;
		Name = "Combo1", ;
		ReadOnly = .F., ;
		RowSource = "1.5,2,2.5", ;
		RowSourceType = 1, ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 19, ;
		Top = 89, ;
		Value = , ;
		Width = 130, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Caption = "Calculul amortizarii", ;
		Height = 60, ;
		Left = 288, ;
		Name = "Command1", ;
		SpecialEffect = 2, ;
		TabIndex = 75, ;
		Top = 408, ;
		Width = 264, ;
		WordWrap = .T., ;
		ZOrderSet = 72
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizare", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 298, ;
		Name = "Label1", ;
		TabIndex = 41, ;
		Top = 317, ;
		Width = 65, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Uzura (in luni)", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 298, ;
		Name = "Label10", ;
		TabIndex = 54, ;
		Top = 158, ;
		Width = 82, ;
		ZOrderSet = 49
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Durata normala de serviciu (DNS)", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 298, ;
		Name = "Label11", ;
		TabIndex = 44, ;
		Top = 247, ;
		Width = 195, ;
		ZOrderSet = 38
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Precedenta ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 327, ;
		Name = "Label12", ;
		TabIndex = 52, ;
		Top = 176, ;
		Width = 72, ;
		ZOrderSet = 47
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Tip de amortizare", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 298, ;
		Name = "Label13", ;
		TabIndex = 57, ;
		Top = 48, ;
		Width = 103, ;
		ZOrderSet = 51
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Gestiunea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label14", ;
		TabIndex = 60, ;
		Top = 313, ;
		Width = 61, ;
		ZOrderSet = 55
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Responsabil", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label15", ;
		TabIndex = 62, ;
		Top = 337, ;
		Width = 73, ;
		ZOrderSet = 59
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label16' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cont ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 31, ;
		Name = "Label16", ;
		TabIndex = 66, ;
		Top = 411, ;
		Width = 33, ;
		ZOrderSet = 62
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label17' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. inventar", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label17", ;
		TabIndex = 69, ;
		Top = 261, ;
		Width = 67, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label18' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Calculata", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 339, ;
		Name = "Label18", ;
		TabIndex = 48, ;
		Top = 198, ;
		Width = 56, ;
		ZOrderSet = 45
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Totala", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 357, ;
		Name = "Label19", ;
		TabIndex = 49, ;
		Top = 220, ;
		Width = 37, ;
		ZOrderSet = 43
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		DisabledBackColor = 128,128,255, ;
		Height = 17, ;
		Left = 439, ;
		Name = "Label2", ;
		TabIndex = 73, ;
		Top = 293, ;
		Width = 106, ;
		ZOrderSet = 63
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label20' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Precedenta ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 324, ;
		Name = "Label20", ;
		TabIndex = 50, ;
		Top = 336, ;
		Width = 72, ;
		ZOrderSet = 42
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label21' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lunara", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 351, ;
		Name = "Label21", ;
		TabIndex = 46, ;
		Top = 357, ;
		Width = 41, ;
		ZOrderSet = 41
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label22' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Totala", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 354, ;
		Name = "Label22", ;
		TabIndex = 43, ;
		Top = 379, ;
		Width = 37, ;
		ZOrderSet = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label23' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "procent", ;
		Enabled = .F., ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 358, ;
		Name = "Label23", ;
		TabIndex = 58, ;
		Top = 70, ;
		Width = 45, ;
		ZOrderSet = 50
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label24' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "coeficient", ;
		Enabled = .F., ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 345, ;
		Name = "Label24", ;
		TabIndex = 56, ;
		Top = 90, ;
		Width = 58, ;
		ZOrderSet = 48
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		DisabledBackColor = 128,128,255, ;
		Height = 17, ;
		Left = 439, ;
		Name = "Label25", ;
		TabIndex = 72, ;
		Top = 269, ;
		Width = 106, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label26' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoare de calcul", ;
		DisabledBackColor = 128,128,255, ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 297, ;
		Name = "Label26", ;
		TabIndex = 51, ;
		Top = 127, ;
		Width = 102, ;
		ZOrderSet = 60
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label27' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "De calcul", ;
		DisabledBackColor = 128,128,255, ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 325, ;
		Name = "Label27", ;
		TabIndex = 47, ;
		Top = 289, ;
		Width = 56, ;
		ZOrderSet = 77
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label28' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea de intrare", ;
		FontBold = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label28", ;
		TabIndex = 45, ;
		Top = 173, ;
		Width = 109, ;
		WordWrap = .T., ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label29' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoare reziduala:", ;
		FontBold = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 29, ;
		Name = "Label29", ;
		TabIndex = 42, ;
		Top = 469, ;
		Visible = .F., ;
		Width = 106, ;
		ZOrderSet = 65
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. doc.achiz.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label3", ;
		TabIndex = 55, ;
		Top = 49, ;
		Width = 83, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label30' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Calculul amortizarii:", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 312, ;
		Name = "Label30", ;
		TabIndex = 40, ;
		Top = 468, ;
		Visible = .F., ;
		Width = 116, ;
		ZOrderSet = 66
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label31' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Initiala", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 325, ;
		Name = "Label31", ;
		TabIndex = 53, ;
		Top = 267, ;
		Width = 39, ;
		ZOrderSet = 79
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label32' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Sectie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label32", ;
		TabIndex = 64, ;
		Top = 362, ;
		Width = 39, ;
		ZOrderSet = 57
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label33' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cont Analitic", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label33", ;
		TabIndex = 70, ;
		Top = 436, ;
		Width = 76, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label34' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lucrarea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label34", ;
		TabIndex = 63, ;
		Top = 387, ;
		Width = 52, ;
		ZOrderSet = 53
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data doc. achiz.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label4", ;
		TabIndex = 59, ;
		Top = 72, ;
		Width = 97, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumire ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label5", ;
		TabIndex = 61, ;
		Top = 109, ;
		Width = 61, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoare de achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label6", ;
		TabIndex = 65, ;
		Top = 147, ;
		Width = 116, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data p.i.f.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label7", ;
		TabIndex = 67, ;
		Top = 208, ;
		Width = 58, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. p.i.f.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label8", ;
		TabIndex = 68, ;
		Top = 234, ;
		Width = 48, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 31, ;
		Name = "Label9", ;
		TabIndex = 71, ;
		Top = 288, ;
		Width = 25, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'LIST1' AS list WITH ;
		Left = 460, ;
		Name = "LIST1", ;
		TabIndex = 34, ;
		Top = 3, ;
		ZOrderSet = 74, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		BackStyle = 0, ;
		ButtonCount = 2, ;
		Height = 47, ;
		Left = 305, ;
		Name = "Optiongroup1", ;
		TabIndex = 31, ;
		Top = 483, ;
		Value = 1, ;
		Visible = .F., ;
		Width = 264, ;
		ZOrderSet = 78, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Folosind cota", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 92, ;
		Option2.AutoSize = .F., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Valoare ramasa de amortizat / Luni ramase", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24, ;
		Option2.Value = 0, ;
		Option2.Width = 255
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Renunt1' AS renunt WITH ;
		Left = 493, ;
		Name = "Renunt1", ;
		TabIndex = 33, ;
		Top = 3, ;
		ZOrderSet = 75, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 366, ;
		Left = 289, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 39, ;
		Width = 266, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 430, ;
		Left = 12, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 38, ;
		Width = 266, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		Height = 2, ;
		Left = 289, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 242, ;
		Width = 266, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape4' AS shape WITH ;
		Height = 2, ;
		Left = 289, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 117, ;
		Width = 266, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape5' AS shape WITH ;
		Height = 2, ;
		Left = 289, ;
		Name = "Shape5", ;
		SpecialEffect = 0, ;
		Top = 154, ;
		Width = 266, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape6' AS shape WITH ;
		Height = 2, ;
		Left = 289, ;
		Name = "Shape6", ;
		SpecialEffect = 0, ;
		Top = 313, ;
		Width = 266, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape7' AS shape WITH ;
		Height = 2, ;
		Left = 12, ;
		Name = "Shape7", ;
		SpecialEffect = 0, ;
		Top = 199, ;
		Width = 266, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape8' AS shape WITH ;
		Height = 2, ;
		Left = 12, ;
		Name = "Shape8", ;
		SpecialEffect = 0, ;
		Top = 137, ;
		Width = 266, ;
		ZOrderSet = 81
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape9' AS shape WITH ;
		Height = 2, ;
		Left = 12, ;
		Name = "Shape9", ;
		SpecialEffect = 0, ;
		Top = 96, ;
		Width = 266, ;
		ZOrderSet = 82
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'T21' AS textbox WITH ;
		ControlSource = "m.normat", ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		InputMask = "999.999", ;
		Left = 482, ;
		Name = "T21", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 25, ;
		Top = 264, ;
		Width = 37, ;
		ZOrderSet = 84
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'T23' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valin", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 150, ;
		Name = "T23", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		TabStop = .F., ;
		Top = 171, ;
		Width = 115, ;
		ZOrderSet = 76
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 525, ;
		Name = "Terminat1", ;
		TabIndex = 32, ;
		Top = 3, ;
		ZOrderSet = 73, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.nract", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 1, ;
		Top = 47, ;
		Width = 115, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text10' AS combobox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BoundTo = .F., ;
		ControlSource = "m.tipamort", ;
		DisplayValue = , ;
		FirstElement = 1, ;
		Height = 20, ;
		Left = 414, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		RowSource = "Liniara,Accelerata,Degresiva", ;
		RowSourceType = 1, ;
		SpecialEffect = 0, ;
		Style = 2, ;
		TabIndex = 16, ;
		Top = 48, ;
		Value = , ;
		Width = 130, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.NUMEgest", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		Top = 311, ;
		Width = 115, ;
		ZOrderSet = 54
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.respons", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		Top = 336, ;
		Width = 115, ;
		ZOrderSet = 58
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS combobox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BoundTo = .F., ;
		ControlSource = "m.scd", ;
		DisplayValue = , ;
		FirstElement = 1, ;
		Height = 20, ;
		Left = 456, ;
		Name = "Text13", ;
		ReadOnly = .F., ;
		RowSource = "2121,2122,2123,2124,2125,2126", ;
		RowSourceType = 1, ;
		Style = 0, ;
		TabIndex = 36, ;
		Top = 528, ;
		Value = , ;
		Visible = .F., ;
		Width = 180, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.nrinv", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text14", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		Top = 259, ;
		Width = 115, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text15' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.amortprec", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 413, ;
		Name = "Text15", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 28, ;
		ToolTipText = "Valoarea amortizarii pana in momentul achizitiei", ;
		Top = 335, ;
		Width = 132, ;
		ZOrderSet = 35
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text16' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "uz", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 414, ;
		Name = "Text16", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 22, ;
		ToolTipText = "Uzura - de la data punerii in functiune si pana in prezent", ;
		Top = 193, ;
		Value = , ;
		Width = 132, ;
		ZOrderSet = 44
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text17' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.uzura", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 414, ;
		Name = "Text17", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 23, ;
		ToolTipText = "", ;
		Top = 214, ;
		Width = 132, ;
		ZOrderSet = 39
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text18' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.amortlun", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 413, ;
		Name = "Text18", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 29, ;
		Top = 356, ;
		Width = 132, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text19' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.amorttot", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 413, ;
		Name = "Text19", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 30, ;
		Top = 377, ;
		Width = 132, ;
		ZOrderSet = 80
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.dataact", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 2, ;
		Top = 70, ;
		Width = 115, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text20' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.p", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 22, ;
		InputMask = "9.99", ;
		Left = 414, ;
		Name = "Text20", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 18, ;
		ToolTipText = "", ;
		Top = 68, ;
		Width = 130, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text21' AS textbox WITH ;
		ControlSource = "m.scd", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text21", ;
		SpecialEffect = 0, ;
		TabIndex = 14, ;
		Top = 411, ;
		Width = 115, ;
		ZOrderSet = 67
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text22' AS textbox WITH ;
		ControlSource = "m.valrez", ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = "99 999 999 999 999", ;
		Left = 149, ;
		Name = "Text22", ;
		SpecialEffect = 0, ;
		TabIndex = 17, ;
		Top = 468, ;
		Visible = .F., ;
		Width = 115, ;
		ZOrderSet = 68
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text23' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.normat2", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		InputMask = "999.999", ;
		Left = 398, ;
		Name = "Text23", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 26, ;
		TabStop = .F., ;
		Top = 288, ;
		Width = 37, ;
		ZOrderSet = 30
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text24' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.normat2lun", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 482, ;
		Name = "Text24", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 27, ;
		TabStop = .F., ;
		Top = 288, ;
		Width = 36, ;
		ZOrderSet = 64
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text25' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valramasa", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 413, ;
		Name = "Text25", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		ToolTipText = "Valoarea amortizarii pana in momentul achizitiei", ;
		Top = 124, ;
		Width = 132, ;
		ZOrderSet = 36
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text26' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.sectie", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text26", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 361, ;
		Width = 115, ;
		ZOrderSet = 56
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text27' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.ascd", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text27", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 15, ;
		Top = 434, ;
		Width = 115, ;
		ZOrderSet = 24
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text28' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.NRORD", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text28", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 13, ;
		Top = 386, ;
		Width = 115, ;
		ZOrderSet = 52
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text29' AS textbox WITH ;
		ControlSource = "m.denumire", ;
		FontName = "Arial Narrow", ;
		Format = "k!", ;
		Height = 22, ;
		Left = 92, ;
		Name = "Text29", ;
		TabIndex = 3, ;
		Top = 108, ;
		Width = 173
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.denumire", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k!", ;
		Height = 22, ;
		Left = 672, ;
		Name = "Text3", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 35, ;
		Top = 108, ;
		Visible = .F., ;
		Width = 115, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valoare", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 150, ;
		Name = "Text4", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 4, ;
		Top = 145, ;
		Width = 115, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.datapif", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 6, ;
		Top = 206, ;
		Width = 115, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.nrpif", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text6", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		Top = 232, ;
		Width = 115, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.codmf", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 150, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 9, ;
		Top = 286, ;
		Width = 115, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		ControlSource = "m.normaan", ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		InputMask = "999.999", ;
		Left = 398, ;
		Name = "Text8", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 24, ;
		Top = 264, ;
		Width = 37, ;
		ZOrderSet = 31
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.uzuraprec", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		Left = 414, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 21, ;
		ToolTipText = "Uzura la momentul achizitiei", ;
		Top = 172, ;
		Width = 132, ;
		ZOrderSet = 46
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
		Caption = "Fisa Mijlocului Fix", ;
		Height = 37, ;
		Left = 11, ;
		Name = "Titlufrumos1", ;
		TabIndex = 74, ;
		Top = 6, ;
		Width = 355, ;
		ZOrderSet = 71
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
	
	PROCEDURE Init
		If Upper(Left(m.tipamort,1))='L'
			m.tipamort='Liniara'
		Endif
		uz=m.uzura-m.uzuraprec
		thisform.valrez=m.valrez
		
		If m.tipamort='Accelerata'
			Thisform.text20.Enabled=.T.
			Thisform.label23.Enabled=.T.
		Else
			Thisform.text20.Enabled=.F.
			Thisform.label23.Enabled=.F.
		Endif
		If m.tipamort='Degresiva'
			Thisform.combo1.Enabled=.T.
			Thisform.label24.Enabled=.T.
			Do Case
			Case m.normat>24 And m.normat<=60
				m.k=1.5
			Case m.normat>60 And m.normat<=120
				m.k=2
			Case m.normat>120
				m.k=2.5
			Endcase
			Thisform.combo1.Refresh
		Else
			Thisform.combo1.Enabled=.F.
			Thisform.label24.Enabled=.F.
		Endif
		
		*thisform.text10.value=m.tipamort
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF UPPER(ALLTRIM(thisform.fel_imob)) = 'N'
			this.text8.Enabled = .t.
			this.text8.ReadOnly = .f.
			this.t21.Enabled = .t.
			this.t21.ReadOnly = .f.
			this.text23.Enabled = .t.
			this.text23.ReadOnly = .f.
			this.text24.Enabled = .t.
			this.text24.ReadOnly = .f.
		ENDIF 
	ENDPROC

	PROCEDURE Cmdlist1.Click
		sele act
		locate for cod=m.cod
		m.nume=nume
		do datapif.prg
		
		sele mf
		set filter to denumire=m.denumire and cod=m.cod AND nrpif=m.nrpif AND nrinv=m.nrinv
		
		thisform.alwaysontop=.f.
		report form fisa_mf2 to printer prompt preview
		thisform.alwaysontop=.t.
	ENDPROC

	PROCEDURE CMDTERMIN1.Click
		THISFORM.REFRESH
		IF EMPTY(m.normat)
			DO mesaj WITH "Introduceti durata normala de serviciu!",''
		*IF buton=1
			RETURN
		*endif
		ENDIF
		
		IF EMPTY(m.valoare)
			DO mesaj WITH "Introduceti valoarea de achizitie!",''
		*IF buton=1
			RETURN
		*endif
		ENDIF
		
		IF EMPTY(m.datapif)
			DO mesaj WITH 'Trebuie introdusa data punerii in functiune!',' '
		*IF buton=1
			RETURN
		*endif
		ENDIF
		
		THISFORM.RELEASE
		
	ENDPROC

	PROCEDURE Command1.Click
		do calcamortm.prg
		DO FORM frm_calcul
		thisform.text18.refresh
		thisform.text19.refresh
	ENDPROC

	PROCEDURE LIST1.Command1.Click
		thisform.cmdLIST1.Click 
	ENDPROC

	PROCEDURE Optiongroup1.Init
		*this.Value=m.tipcalcul+1
	ENDPROC

	PROCEDURE Optiongroup1.Valid
		*m.tipcalcul=this.Value-1
	ENDPROC

	PROCEDURE Terminat1.Command1.Click
		thisform.cmdtermin1.Click 
		*!*	thisform.refresh
		*!*	if EMPTY(m.normat)
		*!*	do mesaj WITH "Introduceti durata normala de serviciu!",''
		*!*	*IF buton=1
		*!*	RETURN 
		*!*	*endif
		*!*	ENDIF
		
		*!*	if EMPTY(m.valoare)
		*!*	do mesaj WITH "Introduceti valoarea de achizitie!",''
		*!*	*IF buton=1
		*!*	RETURN 
		*!*	*endif
		*!*	ENDIF
		
		*!*	if EMPTY(m.datapif)
		*!*	do mesaj with 'Trebuie introdusa data punerii in functiune!',' '
		*!*	*IF buton=1
		*!*	RETURN 
		*!*	*endif
		*!*	ENDIF
		
		*!*	thisform.Release 
	ENDPROC

	PROCEDURE Text10.Valid
		if m.tipamort='Accelerata'
			thisform.text20.enabled=.t.
			thisform.label23.enabled=.t.
		else
			thisform.text20.enabled=.f.
			thisform.label23.enabled=.f.
		endif
		if m.tipamort='Degresiva'
			thisform.combo1.enabled=.t.
			thisform.label24.enabled=.t.
			do case
				case m.normat>24 and m.normat<=60
					m.k=1.5
				case m.normat>60 and m.normat<=120
					m.k=2
				case m.normat>120 
					m.k=2.5
			endcase
			thisform.combo1.refresh		
		else
			thisform.combo1.enabled=.f.
			thisform.label24.enabled=.f.
		endif
		
	ENDPROC

	PROCEDURE Text11.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFA WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		SELE NUMEGEST
		LOCATE FOR NUMEGEST=M.NUMEGEST
		SCATTER MEMVAR
	ENDPROC

	PROCEDURE Text12.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFA WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		M.RESPONS=M.NUME_2
	ENDPROC

	PROCEDURE Text15.Valid
		thisform.text18.refresh
		thisform.text19.refresh
	ENDPROC

	PROCEDURE Text20.Valid
		if m.p<=0 or m.p>0.5
			do mesaj with 'Valoarea acestui coeficient trebuie sa fie cuprinsa intre','0(exclusiv) si 0,50 (inclusiv)'
			return 0
		endif
		
		thisform.text15.valid
	ENDPROC

	PROCEDURE Text22.GotFocus
		thisform.refresh
	ENDPROC

	PROCEDURE Text22.Valid
		IF this.Value>thisform.text4.Value
			DO mesaj WITH 'Valoarea reziduala nu poate fi mai mare ','decat valoarea de achizitie !'
			RETURN 0
		ENDIF
		
		*!*	M.VALRAMASA = M.VALRAMASA +thisform.valrez - M.VALREZ
		*!*	thisform.valrez=m.valrez 
		*!*	thisform.text25.Refresh 
	ENDPROC

	PROCEDURE Text23.Valid
		*IF thisform.fel_imob='N'
		*	m.normat=ROUND(12*m.normaan,0)
		*	thisform.t21.Refresh 
		*ENDIF 
	ENDPROC

	PROCEDURE Text24.Valid
		*IF thisform.fel_imob='N'
		*	m.normaan=ROUND(m.normat/12,3)
		*	thisform.text8.Refresh 
		*ENDIF 
	ENDPROC

	PROCEDURE Text25.Valid
		thisform.text18.refresh
		thisform.text19.refresh
	ENDPROC

	PROCEDURE Text26.GotFocus
		DO CAUT_ALFA_cursor WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie'
		SELECT sectie
		LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie))
		IF FOUND()
			m.id_sectie=id_sectie
		ENDIF 
		
	ENDPROC

	PROCEDURE Text28.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFA WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD'
		
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		
	ENDPROC

	PROCEDURE Text7.GotFocus
		*!*	IF thisform.fel_imob='C'
		*!*		LOCAL den
		*!*		den=m.denumire
		
		*!*		LOCAL SALV1,SALV2,salv3
		*!*		SALV1=M.NORMAT
		*!*		SALV2=M.NORMAAN
		*!*		salv3=m.codmf
		
		*!*		OCA=CREATEOBJECT("NORMATREE_2005")
		*!*		OCA.SHOW(1)
		
		*!*		IF buton=2
		*!*			IF TYPE('M.NORMAT')='C'
		*!*				m.NORMAT=STR(SALV1)
		*!*				m.NORMAAN=STR(SALV2)
		*!*				m.codmf=salv3
		*!*			ENDIF
		*!*			RETURN
		*!*		ENDIF
		
		*!*		SELE norma_2005
		*!*		pcCodMf = norma_2005.codmf
		*!*		m.NORMAT=STR(SALV1)
		*!*		m.NORMAAN=STR(SALV2)
		*!*		m.codmf=pcCodMf
		*!*		THISFORM.TEXT8.REFRESH
		*!*		THISFORM.T21.REFRESH
		
		*!*		THISFORM.TEXT13.REFRESH
		*!*	ELSE 
		*!*	ENDIF 
		
		
		IF thisform.fel_imob#'C'
			RETURN 
		ENDIF 
		
		LOCAL den
		
		den=m.denumire
		IF VAL(m.an)>=2005
			SELE norma_2005
			SCATTER NAME onorma BLANK 
			OCA=CREATEOBJECT("NORMATREE_2005")
			OCA.SHOW(1)
			*SELE norma_2005
		ELSE
			SELE NORMA
			SCATTER NAME onorma BLANK 
			OCA=CREATEOBJECT("NORMATREE")
			OCA.SHOW(1)
			*SELE NORMA
		ENDIF
		m.denumire=den
		
		IF buton = 1
			IF VAL(m.an)>=2005
				m.normaan = onorma.norma_min
				m.normat = onorma.norma_min*12
				DO CASE
				CASE LEFT(ALLTRIM(onorma.codmf),2) = [1.]
					lcCont = '212 '
				CASE LEFT(ALLTRIM(onorma.codmf),2) = [2.]
					IF LEFT(ALLTRIM(onorma.codmf),3) # [2.5]
						lcCont  = '213' + SUBSTR(ALLTRIM(onorma.codmf),3,1)
					ELSE
						lcCont = []
					ENDIF
				CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.]
					lcCont = '214'
				OTHERWISE
					lcCont = []
				ENDCASE
				IF !EMPTY(lcCont) AND ALLTRIM(lcCont)#ALLTRIM(m.scd)
					DO mesaj WITH 'Atentie! Trebuie schimbat contul!',' '
				ENDIF
			ELSE
				IF TYPE('onorma.NORMAT')='C'
					m.normat=VAL(onorma.normat)
				ENDIF
				IF TYPE('onorma.NORMAAN')='C'
					m.normaan=VAL(onorma.normaan)
				ENDIF
			ENDIF
			m.codmf = onorma.codmf
		ENDIF
		*!*	m.normat2 = m.normaan
		*!*	m.normat2lun = m.normat
		RELEASE onorma 
		THISFORM.REFRESH
		
	ENDPROC

	PROCEDURE Text7.LostFocus
		*!*	IF thisform.fel_imob='C'
		*!*		IF TYPE('M.NORMAT')='C'
		*!*			m.normat=VAL(m.normat)
		*!*			m.normaan=VAL(m.normaan)
		*!*		ENDIF 
		*!*	ENDIF 
	ENDPROC

	PROCEDURE Text8.Valid
		*IF thisform.fel_imob='N'
			m.normat=ROUND(12*m.normaan,0)
			thisform.t21.Refresh 
		*ENDIF 
	ENDPROC

	PROCEDURE Text9.Valid
		LOCAL NRL,NRA,L,A
		STORE 0 TO L,A
		NRL=VAL(M.NL)
		NRA=VAL(M.AN)
		
		if empty(m.datapif)
			do mesaj with 'Trebuie introdusa data punerii in functiune!',''
			return
		endif
		L=MONTH(m.DATAPIF)
		A=YEAR(m.DATAPIF)
		
		UZ=IIF(NRA<A,0,12*(NRA-A)+NRL-L)
		if uz=0 and m.uzuraprec#0
			uz=1
		ENDIF
		
		m.UZURA = UZ + m.uzuraprec
		
		thisform.text16.refresh
		thisform.text17.refresh
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS incurs AS formtermin OF "..\..\comun\clase\baza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdrenunt2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist2" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 286
		Name = "incurs"
		Width = 350
		Shape1.Height = 36
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 253
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 317
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 10
		Terminat1.Top = 3
		Terminat1.Visible = .T.
		Titlufrumos1.AutoSize = .F.
		Titlufrumos1.Caption = "Fisa Imobilizarilor in Curs"
		Titlufrumos1.Height = 20
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 11
		Titlufrumos1.Top = 2
		Titlufrumos1.Width = 245
	*</PropValue>

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Enabled = .T., ;
		Left = 36, ;
		Name = "Cmdlist1", ;
		TabIndex = 14, ;
		Top = 324, ;
		Visible = .F., ;
		Width = 84, ;
		ZOrderSet = 20, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Cmdlist2' AS cmdlist WITH ;
		Left = 255, ;
		Name = "Cmdlist2", ;
		TabIndex = 25, ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Left = 180, ;
		Name = "CMDRENUNT1", ;
		TabIndex = 13, ;
		Top = 336, ;
		Visible = .F., ;
		Width = 84, ;
		ZOrderSet = 18, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Cmdrenunt2' AS cmdrenunt WITH ;
		Left = 286, ;
		Name = "Cmdrenunt2", ;
		TabIndex = 24, ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Left = 336, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 12, ;
		Top = 288, ;
		Visible = .F., ;
		Width = 84, ;
		ZOrderSet = 19, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lucrarea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label1", ;
		TabIndex = 15, ;
		Top = 78, ;
		Width = 52, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Gestiunea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label14", ;
		TabIndex = 18, ;
		Top = 203, ;
		Width = 61, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Responsabil", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label15", ;
		TabIndex = 20, ;
		Top = 228, ;
		Width = 73, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label16' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cont Deb.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label16", ;
		TabIndex = 22, ;
		Top = 252, ;
		Width = 60, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label17' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. inventar", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label17", ;
		TabIndex = 23, ;
		Top = 178, ;
		Width = 67, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. document achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label3", ;
		TabIndex = 16, ;
		Top = 52, ;
		Width = 132, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data document achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label4", ;
		TabIndex = 17, ;
		Top = 103, ;
		Width = 142, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumire ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label5", ;
		TabIndex = 19, ;
		Top = 128, ;
		Width = 61, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoare de achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 12, ;
		Name = "Label6", ;
		TabIndex = 21, ;
		Top = 153, ;
		Width = 116, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.nract", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 1, ;
		Top = 50, ;
		Width = 180, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.NUMEgest", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 7, ;
		Top = 201, ;
		Width = 180, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.respons", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 8, ;
		Top = 226, ;
		Width = 180, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.nrinv", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text14", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 176, ;
		Width = 180, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.dataact", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 3, ;
		Top = 101, ;
		Width = 180, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text21' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.scd", ;
		DisabledForeColor = 0,0,0, ;
		Format = "k", ;
		Height = 21, ;
		Left = 157, ;
		Name = "Text21", ;
		SpecialEffect = 2, ;
		TabIndex = 9, ;
		Top = 251, ;
		Value = 231, ;
		Width = 180, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.denumire", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k!", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text3", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 126, ;
		Width = 180, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valoare", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 157, ;
		Name = "Text4", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 151, ;
		Width = 180, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.nrord", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 157, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 76, ;
		Width = 180, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Cmdlist1.Click
		sele act
		locate for cod=m.cod
		m.nume=nume
		*do datapif.prg
		
		sele mf
		set filter to denumire=m.denumire and cod=m.cod AND !inactiv
		
		thisform.alwaysontop=.f.
		report form fisa_ic to printer prompt preview
		thisform.alwaysontop=.t.
	ENDPROC

	PROCEDURE Cmdlist2.Command1.Click
		thisform.cmdlist1.click
	ENDPROC

	PROCEDURE CMDTERMIN1.Click
		LOCAL I,T
		I=1
		T=''
		
		SELE mf
		m.cod=-1
		APPE BLANK
		GATHER MEMVAR
		REPLACE fel WITH 'C'
		*replace scd WITH "231 "
		
		BUTON=1
		odanu=CREATEOBJ('danu')
		odanu.SHOW(1)
		IF BUTON==2
			THISFORM.RELEASE
		ELSE
			STORE 0 TO m.nract,m.valoare
			STORE '' TO m.denumire, m.nrinv, m.respons
			STORE '' TO M.NUMEGEST
			STORE DATE() TO m.dataact
			
			SELE mf
				
			CALCULATE MAX(nrinv) FOR ALLTRIM(UPPER(fel)) == "C" TO lcmax
			lnmax = VAL(lcmax)+1
			m.nrinv = ALLTRIM(STR(lnmax)) 
				
			FOR I=1 TO 4
				T='THISFORM.TEXT'+IIF(I<10,ALLT(STR(I,1)),ALLT(STR(I,2)))+'.REFRESH'
				&T
			NEXT
			THISFORM.text11.REFRESH
			THISFORM.text12.REFRESH
			THISFORM.text14.REFRESH
			THISFORM.text21.LOSTFOCUS
		ENDIF
		
	ENDPROC

	PROCEDURE Text11.GotFocus
		DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
		SELE NUMEGEST
		LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST)
		SCATTER MEMVAR
	ENDPROC

	PROCEDURE Text12.GotFocus
		DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
		M.RESPONS=M.NUME_2
	ENDPROC

	PROCEDURE Text5.Click
		*DO CAUT_ALF WITH "lucrari","nrord",THISFORM.LABEL1.CAPTION,THIS.CONTROLSOURCE
	ENDPROC

	PROCEDURE Text5.GotFocus
		DO CAUT_ALFa WITH "lucrari","nrord",THISFORM.LABEL1.CAPTION,'m.nrord'
	ENDPROC

ENDDEFINE

DEFINE CLASS ingest AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="NU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="DA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calcul_dr
		*p: ncod_op
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 1
		Caption = "Form1"
		DoCreate = .T.
		Height = 137
		Name = "ingest"
		ncod_op = 0
		TitleBar = 0
		Width = 311
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'DA1' AS da WITH ;
		Left = 104, ;
		Name = "DA1", ;
		TabIndex = 3, ;
		Top = 102, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Label1", ;
		FontBold = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 45, ;
		Left = 16, ;
		Name = "Label1", ;
		TabIndex = 5, ;
		Top = 7, ;
		Width = 271, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Cauza iesirii din gestiune", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 23, ;
		Left = 10, ;
		Name = "Label2", ;
		TabIndex = 6, ;
		Top = 55, ;
		Width = 162, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Data", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 23, ;
		Left = 10, ;
		Name = "Label3", ;
		TabIndex = 7, ;
		Top = 80, ;
		Width = 162, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'NU1' AS nu WITH ;
		Left = 156, ;
		Name = "NU1", ;
		TabIndex = 4, ;
		Top = 102, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 49, ;
		Left = 4, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 3, ;
		Width = 303
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 131, ;
		Left = 4, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 4, ;
		Width = 303
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "m.cauza", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Format = "!", ;
		Height = 23, ;
		Left = 174, ;
		Name = "Text1", ;
		SpecialEffect = 2, ;
		TabIndex = 1, ;
		Top = 53, ;
		Width = 127
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "m.dataout", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Format = "!", ;
		Height = 23, ;
		Left = 174, ;
		Name = "Text2", ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 78, ;
		Width = 127
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE calcul_dr
		
		lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataEval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
		pnNormat2Lun = omf.normat2lun - lnUzura  && Durata ramasa (in luni)
		pnNormat2=ROUND(pnNormat2lun/12,3)
		
	ENDPROC

	PROCEDURE Text2.Valid
		IF thisform.ncod_op = 12 && conservare
			thisform.calcul_dr
		ENDIF 
	ENDPROC

ENDDEFINE

DEFINE CLASS ingest_transfer AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="NU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="DA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo2" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		Caption = "Form1"
		DoCreate = .T.
		Height = 220
		Name = "ingest_transfer"
		TitleBar = 0
		Width = 311
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'Combo1' AS combobox WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "150,0", ;
		ControlSource = "", ;
		Height = 24, ;
		Left = 136, ;
		Name = "Combo1", ;
		RowSource = "sectie.sectie,id_sectie", ;
		RowSourceType = 2, ;
		TabIndex = 2, ;
		Top = 82, ;
		Width = 165
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Combo2' AS combobox WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "200,0", ;
		ControlSource = "", ;
		Height = 24, ;
		Left = 136, ;
		Name = "Combo2", ;
		RowSource = "numegest.numegest,gest", ;
		RowSourceType = 2, ;
		TabIndex = 1, ;
		Top = 57, ;
		Width = 165
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Combo3' AS combobox WITH ;
		BoundColumn = 1, ;
		BoundTo = .T., ;
		ColumnCount = 1, ;
		ControlSource = "", ;
		Height = 24, ;
		Left = 136, ;
		Name = "Combo3", ;
		RowSource = "cRespons.nume_2", ;
		RowSourceType = 2, ;
		TabIndex = 3, ;
		Top = 107, ;
		Width = 165
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'DA1' AS da WITH ;
		Left = 104, ;
		Name = "DA1", ;
		TabIndex = 6, ;
		Top = 183, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Label1", ;
		FontBold = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 45, ;
		Left = 16, ;
		Name = "Label1", ;
		TabIndex = 8, ;
		Top = 7, ;
		Width = 271, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Cauza iesirii din gestiune", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 23, ;
		Left = 10, ;
		Name = "Label2", ;
		TabIndex = 9, ;
		Top = 136, ;
		Width = 162, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Data iesirii din gestiune", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 23, ;
		Left = 10, ;
		Name = "Label3", ;
		TabIndex = 12, ;
		Top = 161, ;
		Width = 162, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Gestiune", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 22, ;
		Left = 10, ;
		Name = "Label4", ;
		TabIndex = 10, ;
		Top = 58, ;
		Width = 50, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Sectie", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 22, ;
		Left = 10, ;
		Name = "Label5", ;
		TabIndex = 13, ;
		Top = 83, ;
		Width = 34, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Responsabil", ;
		FontBold = .F., ;
		FontItalic = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 22, ;
		Left = 10, ;
		Name = "Label6", ;
		TabIndex = 11, ;
		Top = 108, ;
		Width = 69, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'NU1' AS nu WITH ;
		Left = 156, ;
		Name = "NU1", ;
		TabIndex = 7, ;
		Top = 183, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 49, ;
		Left = 4, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 3, ;
		Width = 303
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 213, ;
		Left = 4, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 4, ;
		Width = 303
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "m.cauza", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Format = "!", ;
		Height = 23, ;
		Left = 174, ;
		Name = "Text1", ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 134, ;
		Width = 127
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "m.dataout", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Format = "!", ;
		Height = 23, ;
		Left = 174, ;
		Name = "Text2", ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 159, ;
		Width = 127
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Combo1.LostFocus
		m.id_sectie = sectie.id_sectie
	ENDPROC

	PROCEDURE Combo2.LostFocus
		m.gest = numegest.gest
	ENDPROC

	PROCEDURE Combo3.LostFocus
		m.respons = cRespons.nume_2
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: introdus
		*m: sterge
		*p: fel_imob
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		fel_imob = ''
		Height = 456
		Name = "introd"
		Width = 712
		WindowState = 0
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 32, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 604
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 0, ;
		Height = 336, ;
		Left = 16, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcs", ;
		TabIndex = 1, ;
		Top = 68, ;
		View = 0, ;
		Width = 300, ;
		ZOrderSet = 4, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "nract", ;
		Column1.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 59, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "dataact", ;
		Column2.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 61, ;
		Column3.BackColor = 255,255,255, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "nume", ;
		Column3.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 123, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "explicatia", ;
		Column4.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 148, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ControlSource = "SCD", ;
		Column5.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.BackColor = 255,255,255, ;
		Column6.ControlSource = "SUMA", ;
		Column6.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "r", ;
		Column6.InputMask = "99 999 999 999", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.BackColor = 255,255,255, ;
		Column7.ControlSource = "cod", ;
		Column7.DynamicForeColor = "IIF(THISFORM.INTRODUS(),RGB(0,0,255),RGB(255,0,0))", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T.
		*< END OBJECT: BaseClass="grid" />

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

	ADD OBJECT 'Grid1.Column1.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.Column2.Header1' AS header WITH ;
		Caption = "Data", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.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.Column3.Header1' AS header WITH ;
		Caption = "Furnizor", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.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.Column4.Header1' AS header WITH ;
		Caption = "Explicatia", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ;
		Caption = "  ", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Lista documentelor de achizitie", ;
		FontBold = .F., ;
		FontName = "Comic Sans MS", ;
		FontShadow = .F., ;
		FontSize = 11, ;
		ForeColor = 0,78,155, ;
		Height = 22, ;
		Left = 19, ;
		Name = "Label1", ;
		TabIndex = 22, ;
		Top = 33, ;
		Width = 218, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS titlufrumos WITH ;
		Caption = "INTRODUCERE IMOBILIZARI NECORPORALE  in luna", ;
		Height = 28, ;
		Left = 9, ;
		Name = "Label10", ;
		TabIndex = 44, ;
		Top = 5, ;
		Width = 338
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Durata normala de funct.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label11", ;
		TabIndex = 23, ;
		Top = 247, ;
		Width = 144, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Uzura", ;
		Enabled = .T., ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label12", ;
		TabIndex = 25, ;
		Top = 270, ;
		Width = 36, ;
		ZOrderSet = 24
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Tip de amortizare", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label13", ;
		TabIndex = 27, ;
		Top = 294, ;
		Width = 102, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Gestiunea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label14", ;
		TabIndex = 29, ;
		Top = 316, ;
		Width = 61, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Responsabil", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label15", ;
		TabIndex = 32, ;
		Top = 340, ;
		Width = 73, ;
		ZOrderSet = 30
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label16' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cont Deb.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label16", ;
		TabIndex = 34, ;
		Top = 386, ;
		Width = 60, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label17' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Nr. inventar", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label17", ;
		TabIndex = 38, ;
		Top = 175, ;
		Width = 67, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label18' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 22, ;
		Left = 732, ;
		Name = "Label18", ;
		TabIndex = 21, ;
		Top = 48, ;
		Visible = .F., ;
		Width = 2, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Nu exista achizitii de imobilizari in aceasta luna!", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 255,0,0, ;
		Height = 60, ;
		Left = 59, ;
		Name = "Label19", ;
		TabIndex = 41, ;
		Top = 158, ;
		Visible = .F., ;
		Width = 204, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Fisa ", ;
		FontBold = .F., ;
		FontName = "Comic Sans MS", ;
		FontShadow = .F., ;
		FontSize = 11, ;
		ForeColor = 0,78,155, ;
		Height = 22, ;
		Left = 359, ;
		Name = "Label2", ;
		TabIndex = 24, ;
		Top = 32, ;
		Width = 34, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label20' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Acest element este introdus !", ;
		ForeColor = 0,0,255, ;
		Height = 17, ;
		Left = 51, ;
		Name = "Label20", ;
		TabIndex = 42, ;
		Top = 436, ;
		Visible = .F., ;
		Width = 161
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label21' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Acest element nu este introdus !", ;
		ForeColor = 255,0,0, ;
		Height = 17, ;
		Left = 49, ;
		Name = "Label21", ;
		TabIndex = 43, ;
		Top = 436, ;
		Visible = .F., ;
		Width = 178
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label22' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Sectie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label22", ;
		TabIndex = 31, ;
		Top = 364, ;
		Width = 39, ;
		ZOrderSet = 30
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label23' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cont Analitic", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label23", ;
		TabIndex = 35, ;
		Top = 409, ;
		Width = 76, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label24' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "ani", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 565, ;
		Name = "Label24", ;
		TabIndex = 23, ;
		Top = 247, ;
		Width = 19, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Nr. document achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label3", ;
		TabIndex = 26, ;
		Top = 55, ;
		Width = 132, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Data document achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label4", ;
		TabIndex = 28, ;
		Top = 79, ;
		Width = 142, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Denumire ", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label5", ;
		TabIndex = 30, ;
		Top = 103, ;
		Width = 61, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Valoare de achizitie", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label6", ;
		TabIndex = 33, ;
		Top = 127, ;
		Width = 116, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Data punerii in functiune", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label7", ;
		TabIndex = 36, ;
		Top = 151, ;
		Width = 141, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Nr. p.i.f.", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label8", ;
		TabIndex = 37, ;
		Top = 199, ;
		Width = 48, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Cod", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 352, ;
		Name = "Label9", ;
		TabIndex = 39, ;
		Top = 223, ;
		Width = 25, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ;
		Left = 581, ;
		Name = "Lim_inf_sup1", ;
		Top = 241, ;
		Text29.Name = "Text29", ;
		Text30.Name = "Text30", ;
		Label25.Name = "Label25", ;
		Label35.Name = "Label35"
		*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="container" />

	ADD OBJECT 'List1' AS list WITH ;
		Left = 611, ;
		Name = "List1", ;
		TabIndex = 20, ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Renunt1' AS renunt WITH ;
		Left = 644, ;
		Name = "Renunt1", ;
		TabIndex = 19, ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 394, ;
		Left = 7, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 40, ;
		Width = 324, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 394, ;
		Left = 343, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 40, ;
		Width = 360, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackStyle = 0, ;
		Height = 21, ;
		Left = 7, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 432, ;
		Width = 696, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 677, ;
		Name = "Terminat1", ;
		TabIndex = 18, ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.nract", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 53, ;
		Width = 180, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text10' AS combobox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BoundTo = .F., ;
		ControlSource = "m.tipamort", ;
		DisplayValue = Text10, ;
		Enabled = .F., ;
		FirstElement = 1, ;
		Height = 20, ;
		Left = 508, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		RowSource = "Liniara,Accelerata,Degresiva", ;
		RowSourceType = 1, ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 12, ;
		Top = 292, ;
		Value = 0, ;
		Width = 180, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.NUMEgest", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 13, ;
		Top = 314, ;
		Width = 180, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.respons", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 14, ;
		Top = 338, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS combobox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BoundTo = .F., ;
		ControlSource = "m.scd", ;
		DisplayValue = Text13, ;
		Enabled = .F., ;
		FirstElement = 1, ;
		Height = 20, ;
		Left = 540, ;
		Name = "Text13", ;
		ReadOnly = .F., ;
		RowSource = "2121,2122,2123,2124,2125,2126", ;
		RowSourceType = 1, ;
		Style = 0, ;
		TabIndex = 40, ;
		Top = 456, ;
		Value = , ;
		Visible = .F., ;
		Width = 180, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.nrinv", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text14", ;
		SpecialEffect = 2, ;
		TabIndex = 7, ;
		Top = 173, ;
		Width = 180, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text15' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.scd", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text15", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 16, ;
		Top = 386, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text16' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nl", ;
		FontName = "Comic Sans MS", ;
		FontSize = 10, ;
		ForeColor = 255,255,255, ;
		Height = 23, ;
		Left = 346, ;
		Name = "Text16", ;
		TabIndex = 45, ;
		TabStop = .F., ;
		Top = 4, ;
		Width = 27
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text17' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.an", ;
		FontName = "Comic Sans MS", ;
		FontSize = 10, ;
		ForeColor = 255,255,255, ;
		Height = 23, ;
		Left = 375, ;
		Name = "Text17", ;
		TabIndex = 46, ;
		TabStop = .F., ;
		Top = 4, ;
		Width = 64
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text18' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.sectie", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text18", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 15, ;
		Top = 362, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text19' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.ascd", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text19", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 17, ;
		Top = 409, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.dataact", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 3, ;
		Top = 77, ;
		Width = 180, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.denumire", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K!", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text3", ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 101, ;
		Width = 180, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.valoare", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "KR", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 508, ;
		Name = "Text4", ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 125, ;
		Width = 180, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.datapif", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text5", ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 149, ;
		Width = 180, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.nrpif", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text6", ;
		SpecialEffect = 2, ;
		TabIndex = 8, ;
		Top = 197, ;
		Width = 180, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.codmf", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text7", ;
		SpecialEffect = 2, ;
		TabIndex = 9, ;
		Top = 221, ;
		Width = 180, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.normaan", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text8", ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		Top = 245, ;
		Width = 53, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.uzura", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		Top = 268, ;
		Width = 180, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		*PUBLIC INTRODUSTOT
		INTRODUSTOT=.F.
		m.tipamort='Liniara'
		THISFORM.STERGE
		sele actcs
		go top
		if eof()
			*thisform.cmdtermin1.enabled=.f.
			thisform.terminat1.Enabled= .F.  
			thisform.label19.visible=.t.
		endif
		
		
	ENDPROC

	PROCEDURE introdus
		local totval
		totval=0
		
		scatter memvar
		sele act
		locate for cod=m.cod and !deleted()
		m.suma=suma
		
		sele mf
		set filter to !deleted()
		locate for cod=m.cod and !deleted()
		*sum valoare to totval
		if found()
		* and totval==m.suma
			return .t.
		else
			return .f.
		endif
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF VAL(m.an)<2005
			this.lim_inf_sup1.Visible = .F. 
		ENDIF 
	ENDPROC

	PROCEDURE sterge
		*!*	store 0 to m.normat,m.gest,m.uzura,M.AMORTPREC
		*!*	store '' to m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
		SELECT mf
		SCATTER MEMVAR BLANK 
		
		store '' to M.NUME_2,M.NUMEGEST,m.sectie
		store date() to m.dataact,m.datapif
		
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		LPARAMETERS nColIndex
		
		local i,s,t,TVAL
		s=.t.
		
		sele actcs
		scatter memvar
		m.datapif=m.dataact
		m.tipamort='Liniara'
		m.valoare=m.suma
		_nract=m.nract
		_dataact=m.dataact
		_cod=m.cod
		
		IF m.intr = 1 OR m.intr = 2
			SELECT mf
			LOCATE FOR cod = m.cod
			IF FOUND()
				SCATTER MEMVAR 
			ENDIF 
		ENDIF 
		
		FOR i=1 to 19
			if m.intr = 1
				t='thisform.text'+alltrim(str(i))+'.enabled= .f.'
			else
				t='thisform.text'+alltrim(str(i))+'.enabled= .t.'
			endif
			&t
		ENDFOR 
		
		FOR  i=1 to 15
			t='thisform.text'+alltrim(str(i))+'.REFRESH'
			&t
		ENDFOR 
		
		DO CASE	
			CASE m.intr = 0
				thisform.label21.ForeColor = 255
				thisform.label21.Caption = 'Acest element nu este introdus!'
				INTRODUSTOT = .f.
			CASE m.intr = 1
				thisform.label21.ForeColor = 0
				thisform.label21.Caption = 'Acest element este introdus!'
				INTRODUSTOT = .t.
			CASE m.intr = 2
				thisform.label21.ForeColor = 16711680
				thisform.label21.Caption = 'Introdus partial!'
				INTRODUSTOT = .f.
		ENDCASE 
		
		
		
		*!*	LPARAMETERS nColIndex
		
		*!*	local i,s,t,TVAL,intr
		*!*	s=.t.
		
		*!*	thisform.label20.CAPTION='Acest element este introdus!'
		*!*	sele actcs
		*!*	scatter memvar
		*!*	m.datapif=m.dataact
		*!*	m.tipamort='Liniara'
		
		*!*	intr=thisform.introdus()
		*!*	M.DENUMIRE=EXPLICATIA
		*!*	m.valoare=m.suma
		*!*	thisform.text1.refresh
		*!*	thisform.text2.refresh
		*!*	thisform.text3.refresh
		*!*	thisform.text4.refresh
		*!*	thisform.text10.refresh
		*!*	thisform.text15.refresh
		*!*	thisform.text19.refresh
		*!*	THIS.COLUMN6.Refresh 
		*!*	_nract=m.nract
		*!*	_dataact=m.dataact
		*!*	_cod=m.cod
		
		
		
		*!*	IF intr
		*!*	&&	
		*!*		sele actcs
		*!*		locate for cod=m.cod and !deleted()
		*!*		m.suma=suma
		
		*!*		sele mf
		*!*		SET FILTER TO cod=m.cod and !deleted()
		*!*		SCATTER MEMVAR
		*!*		
		*!*		sum valoare to tval
		*!*		if tval#m.suma
		*!*			s=.f.
		*!*			thisform.label20.CAPTION='Introdus partial!'
		*!*		ENDIF
		*!*	&&
		*!*	ELSE
		*!*		THISFORM.STERGE
		*!*		sele actcs
		*!*		scatter memvar
		*!*		m.datapif=m.dataact
		*!*		m.tipamort='Liniara'
		*!*		M.DENUMIRE=EXPLICATIA
		*!*		m.valoare=m.suma
		*!*	ENDIF
		
		
		*!*	for i=3 to 19
		*!*		t='thisform.text'+alltrim(str(i))+'.REFRESH'
		*!*		&t
		*!*	next
		
		*!*		
		*!*	for i=1 to 14
		*!*	if s
		*!*		t='thisform.text'+alltrim(str(i))+'.enabled=!intr'
		*!*	else
		*!*		t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
		*!*	endif
		*!*	&t
		*!*	next
		
		*!*	INTRODUSTOT=INTR AND S
		*!*	IF THISFORM.FEL_IMOB='N'
		*!*		THISFORM.TEXT7.Enabled=.F.
		*!*	ENDIF 
		*!*	thisform.label20.visible= intr
		*!*	thisform.label21.visible=!intr
		
		
		
	ENDPROC

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

	PROCEDURE Terminat1.Command1.Click
		m.nract=_nract
		m.dataact=_dataact
		m.cod=_cod
		
		If Empty(m.codmf) And Thisform.FEL_IMOB='C'
			Do mesaj With 'Introduceti codul!!',''
			Return
		Endif
		
		Sele ACTCS
		If !INTRODUSTOT
			m.CASAT=.F.
		*	m.tipcalcul=1
			m.dataeval = m.datapif
			m.valin = m.valoare 
			m.valramasa = m.valoare
			m.cota = calcul_cota(m.Normat2lun)
			m.codop = 3
			
			Sele mf
			Appe Blank
			If Flock()
				Gather Memvar
			Endif
			Unlock
			If Thisform.LABEL10.Caption='INTRODUCERE IMOBILIZARI NECORPORALE in luna'
				Replace fel With 'N'
			Endif
		Endif
		
		Select mflun
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Preluare din contabilitate',dataora With Datetime()
			Replace codop With 3
		Endif
		Unlock
		
		Select mfanual
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Preluare din contabilitate',dataora With Datetime()
			Replace codop With 3
		Endif
		Unlock
		
		od=Create('danu')
		od.Show(1)
		If buton==2
			Thisform.Release
		ELSE 
			SELECT mf
			SCATTER MEMVAR BLANK 
			thisform.Refresh 
		Endif
		
		
	ENDPROC

	PROCEDURE Text11.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		SELE NUMEGEST
		LOCATE FOR NUMEGEST=M.NUMEGEST
		SCATTER MEMVAR
	ENDPROC

	PROCEDURE Text12.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFa WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		M.RESPONS=M.NUME_2
	ENDPROC

	PROCEDURE Text14.Valid
		SELECT mf
		LOCATE FOR UPPER(ALLTRIM(nrinv))=UPPER(ALLTRIM(m.nrinv))
		IF FOUND()
			DO mesaj WITH 'Exista deja un mijloc fix cu ','acest numar de inventar!'
		ENDIF 
		
	ENDPROC

	PROCEDURE Text18.GotFocus
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		DO CAUT_ALFa WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie'
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		SELECT sectie
		m.id_sectie=id_sectie
		
		
		
		
	ENDPROC

	PROCEDURE Text7.GotFocus
		local den
		den=m.denumire
		*!*	thisform.cmdtermin1.enabled=.f.
		*!*	thisform.cmdrenunt1.enabled=.f.
		*!*	thisform.cmdlist1.enabled=.f.
		*
		IF VAL(m.an)>=2005
			OCA=CREATEOBJECT("NORMATREE_2005") 
			OCA.SHOW(1)
			SELE norma_2005
		ELSE
			OCA=CREATEOBJECT("NORMATREE") 
			OCA.SHOW(1)
			SELE norma
		ENDIF 
		*!*	thisform.cmdtermin1.enabled=.t.
		*!*	thisform.cmdrenunt1.enabled=.t.
		*!*	thisform.cmdlist1.enabled=.t.
		
		*LOCATE FOR codmf=m.codmf
		IF VAL(m.an)>=2005
			m.normat = m.norma_min*12
			this.Parent.lim_inf_sup1.Refresh 
		ENDIF 
		scat memv
		m.denumire=den
		DO CASE 
			CASE LEFT(ALLTRIM(m.codmf),2) = [1.]
				m.scd = '212 '
			CASE LEFT(ALLTRIM(m.codmf),2) = [2.]
				IF LEFT(ALLTRIM(m.codmf),3) # [2.5]
					m.scd = '213' + SUBSTR(ALLTRIM(m.codmf),3,1)
				ELSE 
					m.scd = '213' 
					thisform.text15.ReadOnly = .f.
				ENDIF 
			CASE LEFT(ALLTRIM(m.codmf),2) = [3.]
				m.scd = '214'
			OTHERWISE 
				*
		ENDCASE 
		*!*	m.scd='212'+allt(left(m.codmf,2))
		*THISFORM.TEXT15.value=m.scd
		THISFORM.TEXT8.REFRESH
		THISFORM.TEXT15.REFRESH
		
	ENDPROC

	PROCEDURE Text7.Init
		IF ALLTRIM(UPPER(thisform.fel_imob)) = 'N'
			this.Enabled = .f.
		ENDIF 
	ENDPROC

	PROCEDURE Text8.Valid
		IF UPPER(ALLTRIM(thisform.fel_imob)) = 'C'
			If !((thisform.nnorma_min) <= m.normaan) And (m.normaan <= thisform.nnorma_max)
				Do mesaj With "Durata introdusa nu este din intervalul",Alltrim(Str(thisform.nnorma_min))+" - "+Alltrim(Str(thisform.nnorma_max))+" ani!"
				Do Case
					Case thisform.nnorma_min > m.normaan
						m.normaan = thisform.nnorma_min
					CASE m.normaan > thisform.nnorma_max
						m.normaan = thisform.nnorma_max
				Endcase
			ENDIF 
		ENDIF 
		m.normat = ROUND(m.normaan*12,0)
		m.normat2lun = m.normat
		m.notmat2 = m.normaan
	ENDPROC

ENDDEFINE

DEFINE CLASS introdc AS introd OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text26" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 372
		Name = "introdc"
		Width = 717
		Shape1.Height = 296
		Shape1.Left = 12
		Shape1.Name = "Shape1"
		Shape1.Top = 46
		Shape1.Width = 324
		Shape1.ZOrderSet = 2
		Label18.Name = "Label18"
		Label18.TabIndex = 24
		Label18.ZOrderSet = 7
		Label1.Left = 24
		Label1.Name = "Label1"
		Label1.TabIndex = 25
		Label1.Top = 38
		Label1.ZOrderSet = 8
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column2.Header1.Name = "Header1"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Column3.Header1.Name = "Header1"
		Grid1.Column3.Name = "Column3"
		Grid1.Column3.Text1.Name = "Text1"
		Grid1.Column4.Header1.Name = "Header1"
		Grid1.Column4.Name = "Column4"
		Grid1.Column4.Text1.Name = "Text1"
		Grid1.Column5.Header1.Name = "Header1"
		Grid1.Column5.Name = "Column5"
		Grid1.Column5.Text1.Name = "Text1"
		Grid1.Column6.DynamicForeColor = ""
		Grid1.Column6.Header1.Name = "Header1"
		Grid1.Column6.InputMask = (get_mask(14,gnZ))
		Grid1.Column6.Name = "Column6"
		Grid1.Column6.Text1.Name = "Text1"
		Grid1.Column7.Header1.Name = "Header1"
		Grid1.Column7.Name = "Column7"
		Grid1.Column7.Text1.Name = "Text1"
		Grid1.Height = 264
		Grid1.Left = 22
		Grid1.Name = "Grid1"
		Grid1.TabIndex = 11
		Grid1.Top = 66
		Grid1.Width = 307
		Grid1.ZOrderSet = 9
		Shape2.Height = 296
		Shape2.Left = 348
		Shape2.Name = "Shape2"
		Shape2.Top = 46
		Shape2.Width = 360
		Shape2.ZOrderSet = 1
		Label2.Name = "Label2"
		Label2.TabIndex = 27
		Label2.ZOrderSet = 10
		Text1.Left = 508
		Text1.Name = "Text1"
		Text1.TabIndex = 1
		Text1.Top = 70
		Text1.ZOrderSet = 11
		Label3.Left = 360
		Label3.Name = "Label3"
		Label3.TabIndex = 29
		Label3.Top = 70
		Label3.ZOrderSet = 12
		Text2.Left = 508
		Text2.Name = "Text2"
		Text2.TabIndex = 2
		Text2.Top = 97
		Text2.ZOrderSet = 13
		Label4.Left = 360
		Label4.Name = "Label4"
		Label4.TabIndex = 31
		Label4.Top = 99
		Label4.ZOrderSet = 14
		Text3.Left = 508
		Text3.Name = "Text3"
		Text3.TabIndex = 3
		Text3.Top = 124
		Text3.ZOrderSet = 15
		Label5.Left = 360
		Label5.Name = "Label5"
		Label5.TabIndex = 33
		Label5.Top = 126
		Label5.ZOrderSet = 16
		Text4.Left = 508
		Text4.Name = "Text4"
		Text4.TabIndex = 4
		Text4.Top = 151
		Text4.ZOrderSet = 18
		Label6.Left = 360
		Label6.Name = "Label6"
		Label6.TabIndex = 36
		Label6.Top = 153
		Label6.ZOrderSet = 20
		Text5.Enabled = .F.
		Text5.Left = 252
		Text5.Name = "Text5"
		Text5.TabIndex = 12
		Text5.Top = 408
		Text5.Visible = .F.
		Text5.ZOrderSet = 22
		Label7.Enabled = .F.
		Label7.Left = 109
		Label7.Name = "Label7"
		Label7.TabIndex = 39
		Label7.Top = 410
		Label7.Visible = .F.
		Label7.ZOrderSet = 24
		Text6.Enabled = .F.
		Text6.Left = 252
		Text6.Name = "Text6"
		Text6.TabIndex = 13
		Text6.Top = 433
		Text6.Visible = .F.
		Text6.ZOrderSet = 29
		Label8.Enabled = .F.
		Label8.Left = 109
		Label8.Name = "Label8"
		Label8.TabIndex = 40
		Label8.Top = 435
		Label8.Visible = .F.
		Label8.ZOrderSet = 31
		Text13.Left = 480
		Text13.Name = "Text13"
		Text13.TabIndex = 43
		Text13.Top = 408
		Text13.ZOrderSet = 6
		Text14.Left = 508
		Text14.Name = "Text14"
		Text14.TabIndex = 6
		Text14.Top = 205
		Text14.ZOrderSet = 33
		Label9.Enabled = .F.
		Label9.Left = 672
		Label9.Name = "Label9"
		Label9.TabIndex = 42
		Label9.Top = 228
		Label9.Visible = .F.
		Label9.ZOrderSet = 39
		Text8.Enabled = .F.
		Text8.Left = 815
		Text8.Name = "Text8"
		Text8.TabIndex = 15
		Text8.Top = 250
		Text8.Visible = .F.
		Text8.ZOrderSet = 41
		Label11.Enabled = .F.
		Label11.Left = 672
		Label11.Name = "Label11"
		Label11.TabIndex = 26
		Label11.Top = 252
		Label11.Visible = .F.
		Label11.ZOrderSet = 42
		Text9.Enabled = .F.
		Text9.Left = 815
		Text9.Name = "Text9"
		Text9.TabIndex = 16
		Text9.Top = 273
		Text9.Visible = .F.
		Text9.ZOrderSet = 43
		Label12.Enabled = .F.
		Label12.Left = 672
		Label12.Name = "Label12"
		Label12.TabIndex = 28
		Label12.Top = 275
		Label12.Visible = .F.
		Label12.ZOrderSet = 45
		Label17.Left = 360
		Label17.Name = "Label17"
		Label17.TabIndex = 41
		Label17.Top = 207
		Label17.ZOrderSet = 35
		Label13.Enabled = .F.
		Label13.Left = 672
		Label13.Name = "Label13"
		Label13.TabIndex = 30
		Label13.Top = 300
		Label13.Visible = .F.
		Label13.ZOrderSet = 47
		Text11.Left = 508
		Text11.Name = "Text11"
		Text11.TabIndex = 7
		Text11.Top = 233
		Text11.ZOrderSet = 48
		Label14.Left = 360
		Label14.Name = "Label14"
		Label14.TabIndex = 32
		Label14.Top = 235
		Label14.ZOrderSet = 17
		Text12.Left = 508
		Text12.Name = "Text12"
		Text12.TabIndex = 8
		Text12.Top = 262
		Text12.ZOrderSet = 19
		Label15.Left = 360
		Label15.Name = "Label15"
		Label15.TabIndex = 35
		Label15.Top = 264
		Label15.ZOrderSet = 21
		Text15.Left = 508
		Text15.Name = "Text15"
		Text15.TabIndex = 9
		Text15.Top = 290
		Text15.ZOrderSet = 30
		Label16.Left = 360
		Label16.Name = "Label16"
		Label16.TabIndex = 37
		Label16.Top = 290
		Label16.ZOrderSet = 23
		Shape3.Left = 12
		Shape3.Name = "Shape3"
		Shape3.Top = 344
		Shape3.ZOrderSet = 26
		Text7.Enabled = .F.
		Text7.Left = 815
		Text7.Name = "Text7"
		Text7.TabIndex = 14
		Text7.Top = 226
		Text7.Visible = .F.
		Text7.ZOrderSet = 37
		Text10.Enabled = .F.
		Text10.Left = 815
		Text10.Name = "Text10"
		Text10.TabIndex = 17
		Text10.Top = 298
		Text10.Visible = .F.
		Text10.ZOrderSet = 28
		TEXT18.Name = "TEXT18"
		TEXT18.TabIndex = 19
		TEXT18.Visible = .F.
		LABEL22.Name = "LABEL22"
		LABEL22.TabIndex = 34
		LABEL22.Visible = .F.
		TEXT19.Left = 508
		TEXT19.Name = "TEXT19"
		TEXT19.TabIndex = 10
		TEXT19.Top = 316
		LABEL23.Left = 360
		LABEL23.Name = "LABEL23"
		LABEL23.TabIndex = 38
		LABEL23.Top = 316
		Label24.Left = 696
		Label24.Name = "Label24"
		Label24.TabIndex = 23
		Label24.Top = 336
		Label24.Visible = .F.
		Label19.Name = "Label19"
		Label19.TabIndex = 44
		Label19.ZOrderSet = 36
		Label20.Left = 36
		Label20.Name = "Label20"
		Label20.TabIndex = 45
		Label20.Top = 346
		Label20.ZOrderSet = 38
		Label21.Left = 34
		Label21.Name = "Label21"
		Label21.TabIndex = 46
		Label21.Top = 346
		Label21.Visible = .T.
		Label21.ZOrderSet = 40
		Banda21.Name = "Banda21"
		Banda21.ZOrderSet = 0
		Label10.Caption = "INTRODUCERE IMOBILIZARI IN CURS  in luna"
		Label10.Height = 22
		Label10.Left = 11
		Label10.Name = "Label10"
		Label10.TabIndex = 47
		Label10.Top = 8
		Label10.Width = 300
		Label10.ZOrderSet = 25
		Text16.Height = 23
		Text16.Left = 312
		Text16.Name = "Text16"
		Text16.TabIndex = 48
		Text16.Top = 7
		Text16.Width = 25
		Text16.ZOrderSet = 44
		Text17.Left = 338
		Text17.Name = "Text17"
		Text17.TabIndex = 50
		Text17.Top = 7
		Text17.ZOrderSet = 46
		LIST1.Command1.Name = "Command1"
		LIST1.Imbuton1.Height = 27
		LIST1.Imbuton1.Name = "Imbuton1"
		LIST1.Imbuton1.Width = 30
		LIST1.Name = "LIST1"
		LIST1.TabIndex = 22
		Renunt1.Command1.Name = "Command1"
		Renunt1.Imbuton1.Height = 27
		Renunt1.Imbuton1.Name = "Imbuton1"
		Renunt1.Imbuton1.Width = 30
		Renunt1.Name = "Renunt1"
		Renunt1.TabIndex = 21
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 27
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 30
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 20
		Lim_inf_sup1.Label25.Name = "Label25"
		Lim_inf_sup1.Label35.Name = "Label35"
		Lim_inf_sup1.Left = 672
		Lim_inf_sup1.Name = "Lim_inf_sup1"
		Lim_inf_sup1.TabIndex = 49
		Lim_inf_sup1.Text29.Name = "Text29"
		Lim_inf_sup1.Text30.Name = "Text30"
		Lim_inf_sup1.Top = 216
		Lim_inf_sup1.Visible = .F.
	*</PropValue>

	ADD OBJECT 'Label30' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lucrarea", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 360, ;
		Name = "Label30", ;
		TabIndex = 18, ;
		Top = 181, ;
		Width = 52, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text26' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.nrord", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 508, ;
		Name = "Text26", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 178, ;
		Width = 180, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE sterge
		DODEFAULT() 
	ENDPROC

	PROCEDURE Terminat1.Command1.Click
		m.nract=_nract
		m.dataact=_dataact
		m.cod=_cod
		
		*!*	If Empty(m.codmf) And Thisform.FEL_IMOB='C'
		*!*		Do mesaj With 'Introduceti codul!!',''
		*!*		Return
		*!*	Endif
		
		Sele ACTCS
		If !INTRODUSTOT
			m.CASAT=.F.
		*	m.tipcalcul=1
			m.dataeval = m.datapif
			m.valin = m.valoare 
		*	m.valramasa = m.valoare
		*	m.cota = calcul_cota(m.Normat2lun)
			m.codop = 3
			m.fel = 'C'
			
			Sele mf
			Appe Blank
			If Flock()
				Gather Memvar
			Endif
			Unlock
		Endif
		
		Select mflun
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Preluare din contabilitate',dataora With Datetime()
			Replace codop With 3
		Endif
		Unlock
		
		Select mfanual
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Preluare din contabilitate',dataora With Datetime()
			Replace codop With 3
		Endif
		Unlock
		
		od=Create('danu')
		od.Show(1)
		If buton==2
			Thisform.Release
		ELSE 
			SELECT mf
			SCATTER MEMVAR BLANK 
			thisform.Refresh 
		Endif
		
		
	ENDPROC

	PROCEDURE Text26.Click
		DO CAUT_ALFa WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD'
		
		
	ENDPROC

	PROCEDURE Text26.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		
	ENDPROC

ENDDEFINE

DEFINE CLASS jurnal AS vizp OF "..\..\imob2003fara_mod_liana\clase\mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column27.Text1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 557
		Name = "jurnal"
		Width = 797
		Shape1.Height = 68
		Shape1.Left = 798
		Shape1.Name = "Shape1"
		Shape1.Top = 42
		Shape1.Visible = .F.
		Shape1.ZOrderSet = 8
		Line1.Name = "Line1"
		Line1.ZOrderSet = 9
		SHAPE4.Height = 36
		SHAPE4.Left = -2
		SHAPE4.Name = "SHAPE4"
		SHAPE4.Top = 0
		SHAPE4.Width = 705
		SHAPE4.ZOrderSet = 10
		Shape2.Name = "Shape2"
		Shape2.ZOrderSet = 11
		Shape5.Left = 949
		Shape5.Name = "Shape5"
		Shape5.Top = 59
		Shape5.Visible = .F.
		Shape5.ZOrderSet = 12
		Shape3.Name = "Shape3"
		Shape3.ZOrderSet = 13
		Grid1.Column1.ColumnOrder = 27
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column10.ColumnOrder = 6
		Grid1.Column10.Header1.Name = "Header1"
		Grid1.Column10.Name = "Column10"
		Grid1.Column10.Text1.Name = "Text1"
		Grid1.Column11.ColumnOrder = 7
		Grid1.Column11.Header1.Name = "Header1"
		Grid1.Column11.Name = "Column11"
		Grid1.Column11.Text1.Name = "Text1"
		Grid1.Column12.ColumnOrder = 16
		Grid1.Column12.Header1.Name = "Header1"
		Grid1.Column12.Name = "Column12"
		Grid1.Column12.Text1.Name = "Text1"
		Grid1.Column13.ColumnOrder = 12
		Grid1.Column13.Header1.Name = "Header1"
		Grid1.Column13.Name = "Column13"
		Grid1.Column13.Text1.Name = "Text1"
		Grid1.Column14.ColumnOrder = 17
		Grid1.Column14.Header1.Name = "Header1"
		Grid1.Column14.Name = "Column14"
		Grid1.Column14.Text1.Name = "Text1"
		Grid1.Column15.ColumnOrder = 21
		Grid1.Column15.Header1.Name = "Header1"
		Grid1.Column15.Name = "Column15"
		Grid1.Column15.Text1.Name = "Text1"
		Grid1.Column16.ColumnOrder = 14
		Grid1.Column16.Header1.Name = "Header1"
		Grid1.Column16.Name = "Column16"
		Grid1.Column16.Text1.Name = "Text1"
		Grid1.Column17.ColumnOrder = 22
		Grid1.Column17.Header1.Name = "Header1"
		Grid1.Column17.Name = "Column17"
		Grid1.Column17.Text1.Name = "Text1"
		Grid1.Column18.ColumnOrder = 13
		Grid1.Column18.Header1.Name = "Header1"
		Grid1.Column18.Name = "Column18"
		Grid1.Column18.Text1.Name = "Text1"
		Grid1.Column19.ColumnOrder = 15
		Grid1.Column19.Header1.Name = "Header1"
		Grid1.Column19.Name = "Column19"
		Grid1.Column19.Text1.Name = "Text1"
		Grid1.Column2.ColumnOrder = 1
		Grid1.Column2.Header2.Name = "Header2"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Column20.ColumnOrder = 23
		Grid1.Column20.Header1.Name = "Header1"
		Grid1.Column20.Name = "Column20"
		Grid1.Column20.Text1.Name = "Text1"
		Grid1.Column21.ColumnOrder = 18
		Grid1.Column21.Header1.Name = "Header1"
		Grid1.Column21.Name = "Column21"
		Grid1.Column21.Text1.Name = "Text1"
		Grid1.Column22.ColumnOrder = 19
		Grid1.Column22.Header1.Name = "Header1"
		Grid1.Column22.Name = "Column22"
		Grid1.Column22.Text1.Name = "Text1"
		Grid1.Column23.ColumnOrder = 24
		Grid1.Column23.FontName = "Arial Narrow"
		Grid1.Column23.Header1.Name = "Header1"
		Grid1.Column23.Name = "Column23"
		Grid1.Column23.Text1.FontName = "Arial Narrow"
		Grid1.Column23.Text1.Name = "Text1"
		Grid1.Column24.ColumnOrder = 20
		Grid1.Column24.Header1.Name = "Header1"
		Grid1.Column24.Name = "Column24"
		Grid1.Column24.Text1.Name = "Text1"
		Grid1.Column25.ColumnOrder = 25
		Grid1.Column25.ControlSource = "util"
		Grid1.Column25.FontName = "Arial Narrow"
		Grid1.Column25.Name = "Column25"
		Grid1.Column26.ColumnOrder = 26
		Grid1.Column26.ControlSource = "dataora"
		Grid1.Column26.FontName = "Arial Narrow"
		Grid1.Column26.Name = "Column26"
		Grid1.Column27.ColumnOrder = 4
		Grid1.Column27.ControlSource = "explicatia"
		Grid1.Column27.Name = "Column27"
		Grid1.Column27.Width = 113
		Grid1.Column3.ColumnOrder = 11
		Grid1.Column3.Header3.Name = "Header3"
		Grid1.Column3.Name = "Column3"
		Grid1.Column3.Text1.Name = "Text1"
		Grid1.Column4.ColumnOrder = 2
		Grid1.Column4.Header4.Name = "Header4"
		Grid1.Column4.Name = "Column4"
		Grid1.Column4.Text1.Name = "Text1"
		Grid1.Column5.ColumnOrder = 3
		Grid1.Column5.Header5.Name = "Header5"
		Grid1.Column5.Name = "Column5"
		Grid1.Column5.Sparse = .F.
		Grid1.Column5.Text1.BackStyle = 0
		Grid1.Column5.Text1.BorderColor = 255,255,255
		Grid1.Column5.Text1.BorderStyle = 1
		Grid1.Column5.Text1.ColorScheme = 1
		Grid1.Column5.Text1.ColorSource = 0
		Grid1.Column5.Text1.Name = "Text1"
		Grid1.Column5.Text1.SpecialEffect = 2
		Grid1.Column6.ColumnOrder = 5
		Grid1.Column6.Header6.Name = "Header6"
		Grid1.Column6.Name = "Column6"
		Grid1.Column6.Text1.Name = "Text1"
		Grid1.Column7.ColumnOrder = 8
		Grid1.Column7.Header7.Name = "Header7"
		Grid1.Column7.Name = "Column7"
		Grid1.Column7.Text1.Name = "Text1"
		Grid1.Column8.ColumnOrder = 9
		Grid1.Column8.Header8.Name = "Header8"
		Grid1.Column8.Name = "Column8"
		Grid1.Column8.Text1.Name = "Text1"
		Grid1.Column9.ColumnOrder = 10
		Grid1.Column9.Header9.Name = "Header9"
		Grid1.Column9.Name = "Column9"
		Grid1.Column9.Text1.Name = "Text1"
		Grid1.ColumnCount = 27
		Grid1.Height = 469
		Grid1.Left = 1
		Grid1.Name = "Grid1"
		Grid1.Panel = 1
		Grid1.Top = 86
		Grid1.Width = 791
		Grid1.ZOrderSet = 14
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.ZOrderSet = 15
		Text1.Left = 956
		Text1.Name = "Text1"
		Text1.Top = 72
		Text1.Visible = .F.
		Text1.ZOrderSet = 16
		Label3.Left = 1069
		Label3.Name = "Label3"
		Label3.Top = 43
		Label3.Visible = .F.
		Label3.ZOrderSet = 17
		Shape6.Height = 44
		Shape6.Left = 5
		Shape6.Name = "Shape6"
		Shape6.Top = 39
		Shape6.Width = 785
		Shape6.ZOrderSet = 2
		Label7.Name = "Label7"
		Label7.ZOrderSet = 18
		Cmdlist1.Name = "Cmdlist1"
		Cmdlist1.ZOrderSet = 19
		Command1.Left = 994
		Command1.Name = "Command1"
		Command1.Top = 108
		Command1.ZOrderSet = 20
		Label10.Caption = "Jurnal"
		Label10.Height = 22
		Label10.Left = 11
		Label10.Name = "Label10"
		Label10.Top = 8
		Label10.Width = 47
		Label10.ZOrderSet = 21
		Text16.Name = "Text16"
		Text16.ZOrderSet = 22
		Text17.Name = "Text17"
		Text17.ZOrderSet = 23
		oMenuShortcut.Name = "oMenuShortcut"
		oMenuShortcut.ZOrderSet = 24
		Label19.Caption = "Nu sunt inregistrate miscari de imobilizari in aceasta luna!"
		Label19.Height = 60
		Label19.Left = 292
		Label19.Name = "Label19"
		Label19.Top = 254
		Label19.Width = 272
		Label19.ZOrderSet = 25
		Label1.Left = 959
		Label1.Name = "Label1"
		Label1.Top = 50
		Label1.Visible = .F.
		Label1.ZOrderSet = 26
		Text2.Left = 1097
		Text2.Name = "Text2"
		Text2.Top = 72
		Text2.Visible = .F.
		Text2.ZOrderSet = 27
		Label2.Left = 1125
		Label2.Name = "Label2"
		Label2.Top = 50
		Label2.Visible = .F.
		Label2.ZOrderSet = 28
		Command2.Left = 918
		Command2.Name = "Command2"
		Command2.Top = 108
		Command2.ZOrderSet = 29
		t3.Left = 804
		t3.Name = "t3"
		t3.Top = 72
		t3.Visible = .F.
		t3.ZOrderSet = 30
		Label5.Left = 532
		Label5.Name = "Label5"
		Label5.Top = 458
		Label5.Visible = .F.
		Label5.ZOrderSet = 3
		Label6.Left = 629
		Label6.Name = "Label6"
		Label6.Top = 459
		Label6.Visible = .F.
		Label6.ZOrderSet = 4
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 29
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 27
		TERMINAT1.Left = 766
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 4
		TERMINAT1.ZOrderSet = 31
		Label4.Left = 806
		Label4.Name = "Label4"
		Label4.Top = 49
		Label4.Visible = .F.
		Label4.ZOrderSet = 32
		EXCEL1.COMMAND1.Name = "COMMAND1"
		EXCEL1.IMBUTON1.Height = 27
		EXCEL1.IMBUTON1.Name = "IMBUTON1"
		EXCEL1.IMBUTON1.Width = 30
		EXCEL1.Left = 704
		EXCEL1.Name = "EXCEL1"
		EXCEL1.Top = 4
		EXCEL1.ZOrderSet = 33
		Cmdlist2.COMMAND1.Name = "COMMAND1"
		Cmdlist2.IMBUTON1.Height = 27
		Cmdlist2.IMBUTON1.Name = "IMBUTON1"
		Cmdlist2.IMBUTON1.Width = 30
		Cmdlist2.Left = 735
		Cmdlist2.Name = "Cmdlist2"
		Cmdlist2.Top = 4
		Cmdlist2.ZOrderSet = 34
		Sterge1.COMMAND1.Name = "COMMAND1"
		Sterge1.IMBUTON1.Height = 27
		Sterge1.IMBUTON1.Name = "IMBUTON1"
		Sterge1.IMBUTON1.Width = 30
		Sterge1.Name = "Sterge1"
		Sterge1.Visible = .F.
		Sterge1.ZOrderSet = 0
		Modifica1.COMMAND1.Name = "COMMAND1"
		Modifica1.IMBUTON1.Height = 27
		Modifica1.IMBUTON1.Name = "IMBUTON1"
		Modifica1.IMBUTON1.Width = 30
		Modifica1.Name = "Modifica1"
		Modifica1.Visible = .F.
		Modifica1.ZOrderSet = 1
		Command3.Left = 816
		Command3.Name = "Command3"
		Command3.Top = 108
		Command3.Visible = .F.
		Command3.ZOrderSet = 35
		Cgest.Left = 947
		Cgest.Name = "Cgest"
		Cgest.Top = 116
		Cgest.Visible = .F.
		Cgest.ZOrderSet = 36
		Check7.Left = 516
		Check7.Name = "Check7"
		Check7.Top = 444
		Check7.Visible = .F.
		Check7.ZOrderSet = 5
		Check12.Left = 612
		Check12.Name = "Check12"
		Check12.Top = 444
		Check12.Visible = .F.
		Check12.ZOrderSet = 6
		Check11.Left = 96
		Check11.Name = "Check11"
		Check11.Top = 62
		Check11.ZOrderSet = 37
		Check10.Left = 96
		Check10.Name = "Check10"
		Check10.Top = 44
		Check10.ZOrderSet = 38
		Check8.Left = 612
		Check8.Name = "Check8"
		Check8.Top = 409
		Check8.Visible = .F.
		Check8.ZOrderSet = 7
		Check6.Caption = "Responsabil"
		Check6.Left = 448
		Check6.Name = "Check6"
		Check6.Top = 44
		Check6.ZOrderSet = 39
		Check5.Left = 271
		Check5.Name = "Check5"
		Check5.Top = 62
		Check5.ZOrderSet = 40
		Check3.Left = 10
		Check3.Name = "Check3"
		Check3.Top = 44
		Check3.ZOrderSet = 41
		Check2.Left = 181
		Check2.Name = "Check2"
		Check2.Top = 62
		Check2.ZOrderSet = 42
		Check9.Left = 271
		Check9.Name = "Check9"
		Check9.Top = 44
		Check9.ZOrderSet = 43
		Check4.Left = 181
		Check4.Name = "Check4"
		Check4.Top = 44
		Check4.ZOrderSet = 44
		Check1.Left = 10
		Check1.Name = "Check1"
		Check1.Top = 62
		Check1.ZOrderSet = 45
	*</PropValue>

	ADD OBJECT 'Check13' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "Explicatia", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 366, ;
		Name = "Check13", ;
		SpecialEffect = 2, ;
		Top = 44, ;
		Width = 67, ;
		ZOrderSet = 46
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check14' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "Utilizator", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 366, ;
		Name = "Check14", ;
		SpecialEffect = 2, ;
		Top = 62, ;
		Width = 67, ;
		ZOrderSet = 47
		*< END OBJECT: BaseClass="checkbox" />

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

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

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

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

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

	ADD OBJECT 'Grid1.Column27.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,t2,t3
		*WAIT WINDOW "afisactual"
		
		SET EXACT ON 
		sele xmf
		IF this.check14.Value=1
			t3="UPPER(LEFT(ALLTRIM(util),LEN(pc_nume)))==UPPER(pc_nume)"
		ENDIF 
		IF this.check13.Value=1
			t2="UPPER(LEFT(ALLTRIM(explicatia),LEN(M.explicatia)))==UPPER(m.explicatia)"
		ENDIF 
		IF this.check12.Value=1
			t1='UZURA>=NORMAT'
		ENDIF 
		if Bden==.t. then
			Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
		endif
		
		if Bscd==.t. then
			Tscd="UPPER(LEFT(ALLTRIM(scd),LEN(M.scd)))==UPPER(m.scd)"
		endif
		
		if bgest==.t. and m.gest#-1 then
			Tgest="gest==m.gest"
		endif
		
		
		if bsuma==.t. then
			Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
		endif
		
		if bnract==.t. then
			Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
		endif
		
		if Bresp==.t. then
			Tresp="UPPER(LEFT(respons,LEN(M.respons)))==UPPER(m.respons)"
		ENDIF
		
		if bnrinv==.t. then
			Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
		endif
		
		if bamort==.t. then
			Tamort="(amortlun>=pamort1) and (amortlun<=pamort2)"
		ENDIF
		
		if bdata==.t. then
			Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
		ENDIF
		
		if bdatpif==.t. then
			Tdatpif="(datapif>=pdata1) and (datapif<=pdata2)"
		ENDIF
		
		*felul=IIF(thisform.label10.Caption ="Lista imobilizarilor corporale"," ","N")
		*WAIT WINDOW 'felul>>'+felul
		
		IF bcasat==.t.
		sele xmf
		SET FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif and casat
		ELSE
		SET FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif
		ENDIF 
		
		SELECT xmf
		*set order to 5   && NRINV 
		*THISFORM.CALCUZURA
		*thisform.calcamort
		sele xmf
		go top
		THISFORM.GRID1.REFRESH
		
		sele xmf
		*!*	sum amortlun to m.suma 
		*!*	sum amorttot to m.sumat 
		*!*	SUM VALOARE TO TVALOARE
		
		thisform.text1.refresh
		thisform.text2.refresh
		thisform.t3.refresh
		*thisform.Refresh 
	ENDPROC

	PROCEDURE calcamort
		*
	ENDPROC

	PROCEDURE calcuzura
		*
	ENDPROC

	PROCEDURE Init
		*WAIT WINDOW "init"
		*ON ERROR do a
		*!*	if existacamp('xmf','fel')
		*!*	DO mesaj WITH "Dati reindexare!",""
		*!*	*this.cmdTERMIN1.click
		*!*	ENDIF 
		
		STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
		STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
		store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
		store .f. to bden,bsuma,bgest,bscd,bnract
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
		
		sele xmf
		*!*	IF this.label10.Caption="Lista imobilizarilor corporale"
		*!*	SET FILTER TO fel=" "
		*!*	ELSE
		*!*	SET FILTER TO UPPER(fel)='N'
		*!*	ENDIF 
		go top
		if eof()
		thisform.grid1.gridlines=0
		thisform.check1.enabled=.f.
		thisform.check2.enabled=.f.
		thisform.check3.enabled=.f.
		thisform.check4.enabled=.f.
		thisform.check5.enabled=.f.
		thisform.check6.enabled=.f.
		*thisform.check7.enabled=.f.
		thisform.check9.enabled=.f.
		thisform.check10.enabled=.f.
		thisform.check11.enabled=.f.
		thisform.check13.enabled=.f.
		thisform.check14.enabled=.f.
		thisform.command1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		thisform.afisactual
	ENDPROC

	PROCEDURE modificare
		*
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		*
	ENDPROC

	PROCEDURE Check13.Click
		m.explicatia=''
		IF this.Value=1
		oj=CREATEOBJECT('cautlitere')
			WITH oj
				.caption='Explicatia'
				.text1.controlsource='m.explicatia'
			ENDWITH 
		oj.show(1)
		ENDIF 
	ENDPROC

	PROCEDURE Check13.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Check14.Click
		IF this.Value=1
			oj=CREATEOBJECT('cautlitere')
			oj.caption='Utilizatorul'
			oj.text1.controlsource='pc_nume'
			oj.show(1)
		ENDIF 
		
	ENDPROC

	PROCEDURE Check14.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Cmdlist2.COMMAND1.Click
		
		THISFORM.AFISACTUAL
		thisform.alwaysontop=.f.
		*report form listmfjurnal to printer prompt preview
		report form jurnal to printer prompt preview
		
		thisform.alwaysontop=.t.
		
	ENDPROC

	PROCEDURE Grid1.Init
		*
	ENDPROC

ENDDEFINE

DEFINE CLASS jurnal_nou AS formtermin OF "..\..\comun\clase\baza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column22.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 557
		Name = "jurnal_nou"
		ScrollBars = 0
		Width = 797
		SHAPE1.Height = 36
		SHAPE1.Left = 0
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 0
		SHAPE1.Width = 728
		SHAPE1.ZOrderSet = 1
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 29
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 27
		TERMINAT1.Left = 762
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 2
		TERMINAT1.ZOrderSet = 2
		TITLUFRUMOS1.Caption = "JURNAL"
		TITLUFRUMOS1.Height = 21
		TITLUFRUMOS1.Left = 13
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.Top = 7
		TITLUFRUMOS1.Width = 364
		TITLUFRUMOS1.ZOrderSet = 16
	*</PropValue>

	ADD OBJECT 'Check1' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Denumire", ;
		ControlSource = "bden", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 16, ;
		Name = "Check1", ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 68, ;
		Width = 64, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check10' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data act", ;
		ControlSource = "bdata", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 283, ;
		Name = "Check10", ;
		SpecialEffect = 2, ;
		Top = 45, ;
		Width = 56, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check11' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data pif", ;
		ControlSource = "bdatpif", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 283, ;
		Name = "Check11", ;
		SpecialEffect = 2, ;
		Top = 68, ;
		Width = 53, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check13' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "Explicatia", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 355, ;
		Name = "Check13", ;
		SpecialEffect = 2, ;
		Top = 45, ;
		Width = 67, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check14' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "Utilizator", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 355, ;
		Name = "Check14", ;
		SpecialEffect = 2, ;
		Top = 69, ;
		Width = 67, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check2' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Cont Deb.", ;
		ControlSource = "bscd", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 199, ;
		Name = "Check2", ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 45, ;
		Width = 66, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check3' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Nr. Doc.", ;
		ControlSource = "bnract", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 16, ;
		Name = "Check3", ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		Top = 45, ;
		Width = 58, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check4' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Gestiune", ;
		ControlSource = "bgest", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 432, ;
		Name = "Check4", ;
		SpecialEffect = 2, ;
		TabIndex = 15, ;
		Top = 68, ;
		Width = 59, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check5' AS checkbox WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "Nr.inventar", ;
		ControlSource = "bnrinv", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 199, ;
		Name = "Check5", ;
		SpecialEffect = 2, ;
		Top = 68, ;
		Width = 71, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check6' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Responsabili", ;
		ControlSource = "bresp", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 432, ;
		Name = "Check6", ;
		SpecialEffect = 2, ;
		Top = 45, ;
		Width = 78, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check7' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Valoare de inventar", ;
		ControlSource = "", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 84, ;
		Name = "Check7", ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		Top = 68, ;
		Width = 111, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check9' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Valoare de achizitie", ;
		ControlSource = "bsuma", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 84, ;
		Name = "Check9", ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		Top = 45, ;
		Width = 109, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Gridb1' AS gridb WITH ;
		ColumnCount = 31, ;
		FontName = "Arial Narrow", ;
		Height = 451, ;
		Left = 6, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordSource = "XMF", ;
		Top = 96, ;
		Width = 784, ;
		ZOrderSet = 4, ;
		COLUMN1.ControlSource = "nract", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.HEADER1.Alignment = 2, ;
		COLUMN1.HEADER1.Caption = "Nr. Act", ;
		COLUMN1.HEADER1.FontName = "Arial Narrow", ;
		COLUMN1.HEADER1.Name = "HEADER1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.TEXT1.FontName = "Arial Narrow", ;
		COLUMN1.TEXT1.Name = "TEXT1", ;
		COLUMN1.Width = 53, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.Width = 64, ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.Width = 169, ;
		Column4.ColumnOrder = 7, ;
		Column4.ControlSource = "upper(explicatia)", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.Width = 124, ;
		Column5.ColumnOrder = 8, ;
		Column5.ControlSource = "valoare", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Format = "kr", ;
		Column5.InputMask = (get_mask(14,gnZ)), ;
		Column5.Name = "Column5", ;
		Column5.Width = 85, ;
		Column6.ColumnOrder = 3, ;
		Column6.ControlSource = "datapif", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column6.Width = 53, ;
		Column7.ColumnOrder = 4, ;
		Column7.ControlSource = "allt(nrpif)", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column7.Width = 41, ;
		Column8.ColumnOrder = 5, ;
		Column8.ControlSource = "allt(nrinv)", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column8.Width = 54, ;
		Column9.ColumnOrder = 13, ;
		Column9.ControlSource = "codmf", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column9.Width = 46, ;
		Column10.ColumnOrder = 14, ;
		Column10.ControlSource = "normat/12", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.InputMask = "9999.99", ;
		Column10.Name = "Column10", ;
		Column10.Width = 42, ;
		Column11.ColumnOrder = 16, ;
		Column11.ControlSource = "uzura", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column11.Width = 53, ;
		Column12.ColumnOrder = 18, ;
		Column12.ControlSource = "tipamort", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.Width = 44, ;
		Column13.ColumnOrder = 19, ;
		Column13.ControlSource = "amortlun", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Format = "kr", ;
		Column13.InputMask = (get_mask(14,gnZ)), ;
		Column13.Name = "Column13", ;
		Column14.ColumnOrder = 17, ;
		Column14.ControlSource = "cota", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Name = "Column14", ;
		Column14.Width = 38, ;
		Column15.ColumnOrder = 20, ;
		Column15.ControlSource = "amorttot", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.Format = "kr", ;
		Column15.InputMask = (get_mask(14,gnZ)), ;
		Column15.Name = "Column15", ;
		Column16.ColumnOrder = 21, ;
		Column16.ControlSource = "amortan", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.Format = "kr", ;
		Column16.InputMask = (get_mask(14,gnZ)), ;
		Column16.Name = "Column16", ;
		Column17.ColumnOrder = 24, ;
		Column17.ControlSource = "gest", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.Name = "Column17", ;
		Column17.Width = 43, ;
		Column18.ColumnOrder = 31, ;
		Column18.ControlSource = "cod", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.Name = "Column18", ;
		Column18.Width = 41, ;
		Column19.ColumnOrder = 10, ;
		Column19.ControlSource = "valramasa", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.Format = "kr", ;
		Column19.InputMask = (get_mask(14,gnZ)), ;
		Column19.Name = "Column19", ;
		Column20.ColumnOrder = 11, ;
		Column20.ControlSource = "VALREZ", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.Format = "kr", ;
		Column20.InputMask = (get_mask(14,gnZ)), ;
		Column20.Name = "Column20", ;
		Column21.ColumnOrder = 25, ;
		Column21.ControlSource = "respons", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.Name = "Column21", ;
		Column21.Width = 108, ;
		Column22.ColumnOrder = 26, ;
		Column22.ControlSource = "scd", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.Name = "Column22", ;
		Column22.Width = 45, ;
		Column23.ColumnOrder = 27, ;
		Column23.ControlSource = "iif(casat=.f.,'NU','DA')", ;
		Column23.FontName = "Arial Narrow", ;
		Column23.Name = "Column23", ;
		Column23.Width = 55, ;
		Column24.ColumnOrder = 28, ;
		Column24.ControlSource = "cauza", ;
		Column24.FontName = "Arial Narrow", ;
		Column24.Name = "Column24", ;
		Column25.ColumnOrder = 29, ;
		Column25.ControlSource = "util", ;
		Column25.FontName = "Arial Narrow", ;
		Column25.Name = "Column25", ;
		Column25.Width = 104, ;
		Column26.ColumnOrder = 30, ;
		Column26.ControlSource = "dataora", ;
		Column26.FontName = "Arial Narrow", ;
		Column26.Name = "Column26", ;
		Column26.Width = 130, ;
		Column27.ColumnOrder = 15, ;
		Column27.ControlSource = "normat2", ;
		Column27.FontName = "Arial Narrow", ;
		Column27.Name = "Column27", ;
		Column27.Width = 51, ;
		Column28.ColumnOrder = 9, ;
		Column28.ControlSource = "valin", ;
		Column28.FontName = "Arial Narrow", ;
		Column28.Format = "kr", ;
		Column28.InputMask = (get_mask(14,gnZ)), ;
		Column28.Name = "Column28", ;
		Column29.ColumnOrder = 12, ;
		Column29.ControlSource = "valin-valoare", ;
		Column29.FontName = "Arial Narrow", ;
		Column29.Format = "kr", ;
		Column29.InputMask = (get_mask(14,gnZ)), ;
		Column29.Name = "Column29", ;
		Column30.ColumnOrder = 22, ;
		Column30.ControlSource = "valin-amorttot", ;
		Column30.FontName = "Arial Narrow", ;
		Column30.Format = "kr", ;
		Column30.InputMask = (get_mask(14,gnZ)), ;
		Column30.Name = "Column30", ;
		Column30.Width = 103, ;
		Column31.ColumnOrder = 23, ;
		Column31.ControlSource = "dataeval", ;
		Column31.FontName = "Arial Narrow", ;
		Column31.Name = "Column31", ;
		Column31.Width = 73
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Gridb1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "DNS(ani)", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Uzura (luni)", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Gridb1.Column19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Val. de calcul", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Gridb1.Column23.Header1' AS header WITH ;
		Caption = "Iesit din gest.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cauza iesirii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Gridb1.Column26.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data/ora miscarii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column27.Header1' AS header WITH ;
		Caption = "DNS calcul", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column28.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Val.de intrare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column29.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Val.majorare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Gridb1.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Val.ramasa de amortizat", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridb1.Column31.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data ultimei eval.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'Gridb1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare de achizitie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

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

	ADD OBJECT 'Gridb1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod MF", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Label19' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "Nu sunt inregistrate miscari de imobilizari in aceasta luna!", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 255,0,0, ;
		Height = 60, ;
		Left = 336, ;
		Name = "Label19", ;
		Top = 312, ;
		Visible = .F., ;
		Width = 242, ;
		WordWrap = .T., ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'List1' AS list WITH ;
		Left = 730, ;
		Name = "List1", ;
		Top = 2, ;
		ZOrderSet = 3, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'SEIP1' AS seip WITH ;
		BorderColor = 128,128,128, ;
		Height = 49, ;
		Left = 5, ;
		Name = "SEIP1", ;
		Top = 41, ;
		Width = 786, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
	
	PROCEDURE Activate
		*WAIT WINDOW "activate"
		tw1=thisform.Width
		tl1=thisform.Height
		
		thisform.WindowState=2
		tw2=thisform.Width
		tl2=thisform.Height
		
		gw1=thisform.gridb1.width
		gl1=thisform.gridb1.height
		
		thisform.gridb1.width=ROUND(gw1*tw2/tw1,0)
		thisform.gridb1.height=ROUND(gl1*tl2/tl1,0)
		*
		thisform.paint
		thisform.refresh
		
		*thisform.afisactual
		
	ENDPROC

	PROCEDURE afisactual
		
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,t2,t3,t7
		*WAIT WINDOW "afisactual"
		
		SET EXACT ON 
		sele xmf
		IF this.check14.Value=1
			t3="UPPER(LEFT(ALLTRIM(util),LEN(pc_nume)))==UPPER(pc_nume)"
		ENDIF 
		IF this.check13.Value=1
			t2="UPPER(LEFT(ALLTRIM(explicatia),LEN(M.explicatia)))==UPPER(m.explicatia)"
		ENDIF 
		
		if Bden==.t. then
			Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
		endif
		
		if Bscd==.t. then
			Tscd="UPPER(LEFT(ALLTRIM(scd),LEN(M.scd)))==UPPER(m.scd)"
		endif
		
		if bgest==.t. and m.gest#-1 then
			Tgest="gest==m.gest"
		endif
		
		
		if bsuma==.t. then
			Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
		endif
		
		if bnract==.t. then
			Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
		endif
		
		if Bresp==.t. then
			Tresp="UPPER(LEFT(respons,LEN(M.respons)))==UPPER(m.respons)"
		ENDIF
		
		if bnrinv==.t. then
			Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
		endif
		
		if bdata==.t. then
			Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
		ENDIF
		
		if bdatpif==.t. then
			Tdatpif="(datapif>=pdata1) and (datapif<=pdata2)"
		ENDIF
		
		IF this.check7.Value=1
			T7="(valramasa>=pnsuma1) and (valramasa<=pnsuma2)"
		ENDIF 
		
		*felul=IIF(thisform.label10.Caption ="Lista imobilizarilor corporale"," ","N")
		*WAIT WINDOW 'felul>>'+felul
		
		
		seT FILTER TO &t1 and &t2 and &t3 AND &Tden AND &Tsuma AND &Tgest and &tscd and &tnract AND &tnrinv AND &tresp AND &Tamort AND &Tdata AND &Tdatpif AND &t7
		
		
		SELECT xmf
		*set order to 5   && NRINV 
		*THISFORM.CALCUZURA
		*thisform.calcamort
		sele xmf
		go top
		THISFORM.gridb1.REFRESH
		
		sele xmf
		*!*	sum amortlun to m.suma 
		*!*	sum amorttot to m.sumat 
		*!*	SUM VALOARE TO TVALOARE
		
		*!*	thisform.text1.refresh
		*!*	thisform.text2.refresh
		*!*	thisform.t3.refresh
		*thisform.Refresh 
	ENDPROC

	PROCEDURE Init
		*WAIT WINDOW "init"
		*ON ERROR do a
		*!*	if existacamp('xmf','fel')
		*!*	DO mesaj WITH "Dati reindexare!",""
		*!*	*this.cmdTERMIN1.click
		*!*	ENDIF 
		
		STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
		STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
		store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
		store .f. to bden,bsuma,bgest,bscd,bnract
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
		
		sele xmf
		SET ORDER TO dataora
		*!*	IF this.label10.Caption="Lista imobilizarilor corporale"
		*!*	SET FILTER TO fel=" "
		*!*	ELSE
		*!*	SET FILTER TO UPPER(fel)='N'
		*!*	ENDIF 
		go top
		if eof()
		thisform.gridb1.gridlines=0
		thisform.check1.enabled=.f.
		thisform.check2.enabled=.f.
		thisform.check3.enabled=.f.
		thisform.check4.enabled=.f.
		thisform.check5.enabled=.f.
		thisform.check6.enabled=.f.
		*thisform.check7.enabled=.f.
		thisform.check9.enabled=.f.
		thisform.check10.enabled=.f.
		thisform.check11.enabled=.f.
		thisform.check13.enabled=.f.
		thisform.check14.enabled=.f.
		*thisform.command1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		thisform.afisactual
	ENDPROC

	PROCEDURE Release
		SELECT xmf
		SET FILTER TO 
	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 Check10.Click
		STORE DATE() TO m.data1, m.data2
		if bdata==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data act"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="m.data1"
				.text2.controlsource="m.data2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check10.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check11.Click
		STORE DATE() TO pdata1, pdata2
		if bdatpif==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data pif"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="pdata1"
				.text2.controlsource="pdata2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check11.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check13.Click
		m.explicatia=''
		IF this.Value=1
		oj=CREATEOBJECT('cautlitere')
			WITH oj
				.caption='Explicatia'
				.text1.controlsource='m.explicatia'
			ENDWITH 
		oj.show(1)
		ENDIF 
	ENDPROC

	PROCEDURE Check13.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Check14.Click
		IF this.Value=1
			oj=CREATEOBJECT('cautlitere')
			oj.caption='Utilizatorul'
			oj.text1.controlsource='pc_nume'
			oj.show(1)
		ENDIF 
		
	ENDPROC

	PROCEDURE Check14.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 Check3.Click
		if bnract==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul documentului"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="m.nr1"
				.text2.controlsource="m.nr2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check3.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
		IF buton=2
		RETURN
		ENDIF 
		sele numegest
		locate for numegest=m.numegest
		scatter memvar
		
	ENDPROC

	PROCEDURE Check4.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check5.Click
		STORE 0 TO pnrinv1,pnrinv2
		if bnrinv==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul de inventar"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="pnrinv1"
				.text2.controlsource="pnrinv2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check5.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check6.Click
		if Bresp==.t. then
			OLIT=CREATEOBJECT("CAUTLITERE")
			WITH OLIT
				.CAPTION="Responsabil"
				.text1.controlsource="m.respons"
			endwith
			olit.show(1)
		endif
		
	ENDPROC

	PROCEDURE Check6.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check7.Click
		if this.Value= 1 
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Valoare de inventar"
				.label1.caption="Valoare minima:"
				.label2.caption="Valoare maxima:"
				.text1.controlsource="pnsuma1"
				.text2.controlsource="pnsuma2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check7.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check9.Click
		if bsuma==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Valoare de achizitie"
				.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 List1.COMMAND1.Click
		THISFORM.AFISACTUAL
		thisform.alwaysontop=.f.
		*report form listmfjurnal to printer prompt preview
		report form jurnal to printer prompt preview
		
		thisform.alwaysontop=.t.
	ENDPROC

ENDDEFINE

DEFINE CLASS lim_inf_sup AS container 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text30" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label35" UniqueID="" Timestamp="" />

	*<PropValue>
		BackColor = 255,255,255
		BackStyle = 0
		BorderWidth = 0
		Height = 29
		Name = "lim_inf_sup"
		Width = 107
	*</PropValue>

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "ani", ;
		FontItalic = .T., ;
		Height = 17, ;
		Left = 85, ;
		Name = "Label25", ;
		Top = 7, ;
		Width = 19
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label35' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "-", ;
		Height = 17, ;
		Left = 42, ;
		Name = "Label35", ;
		Top = 7, ;
		Width = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text29' AS textbox WITH ;
		ControlSource = "m.norma_min", ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 6, ;
		Name = "Text29", ;
		ReadOnly = .T., ;
		Top = 4, ;
		Width = 34
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text30' AS textbox WITH ;
		ControlSource = "m.norma_max", ;
		FontName = "Arial Narrow", ;
		Height = 23, ;
		Left = 49, ;
		Name = "Text30", ;
		ReadOnly = .T., ;
		Top = 4, ;
		Width = 34
		*< END OBJECT: BaseClass="textbox" />

ENDDEFINE

DEFINE CLASS modif AS introd OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Name = "modif"
		SHAPE1.Name = "SHAPE1"
		Label18.Name = "Label18"
		LABEL1.Name = "LABEL1"
		Grid1.COLUMN1.ControlSource = "nrinv"
		Grid1.COLUMN1.Header1.Caption = "Nr.Inventar"
		Grid1.COLUMN1.Header1.Name = "Header1"
		Grid1.COLUMN1.Name = "COLUMN1"
		Grid1.COLUMN1.Text1.Name = "Text1"
		Grid1.COLUMN2.ControlSource = "Denumire"
		Grid1.COLUMN2.Header1.Caption = "Denumire"
		Grid1.COLUMN2.Header1.Name = "Header1"
		Grid1.COLUMN2.Name = "COLUMN2"
		Grid1.COLUMN2.Text1.Name = "Text1"
		Grid1.COLUMN2.Width = 210
		Grid1.COLUMN3.ColumnOrder = 6
		Grid1.COLUMN3.ControlSource = ""
		Grid1.COLUMN3.Header1.Name = "Header1"
		Grid1.COLUMN3.Name = "COLUMN3"
		Grid1.COLUMN3.Text1.Name = "Text1"
		Grid1.COLUMN3.Text1.Visible = .F.
		Grid1.COLUMN3.Visible = .F.
		Grid1.COLUMN4.ColumnOrder = 5
		Grid1.COLUMN4.ControlSource = ""
		Grid1.COLUMN4.Header1.Name = "Header1"
		Grid1.COLUMN4.Name = "COLUMN4"
		Grid1.COLUMN4.Text1.Name = "Text1"
		Grid1.COLUMN4.Text1.Visible = .F.
		Grid1.COLUMN4.Visible = .F.
		Grid1.Column5.ColumnOrder = 3
		Grid1.Column5.Header1.Name = "Header1"
		Grid1.Column5.Name = "Column5"
		Grid1.Column5.Text1.Name = "Text1"
		Grid1.Column6.ColumnOrder = 4
		Grid1.Column6.DynamicForeColor = ""
		Grid1.Column6.Header1.Name = "Header1"
		Grid1.Column6.InputMask = (get_mask(14,gnZ))
		Grid1.Column6.Name = "Column6"
		Grid1.Column6.Text1.Name = "Text1"
		Grid1.Column7.Header1.Name = "Header1"
		Grid1.Column7.Name = "Column7"
		Grid1.Column7.Text1.Name = "Text1"
		Grid1.Name = "Grid1"
		Grid1.Panel = 1
		Grid1.RecordSource = "mf"
		Shape2.Name = "Shape2"
		LABEL2.Name = "LABEL2"
		Text1.Name = "Text1"
		LABEL3.Name = "LABEL3"
		Text2.Name = "Text2"
		Label4.Name = "Label4"
		Text3.Name = "Text3"
		Label5.Name = "Label5"
		Text4.Name = "Text4"
		Label6.Name = "Label6"
		Text5.Name = "Text5"
		Label7.Name = "Label7"
		Text6.Name = "Text6"
		Label8.Name = "Label8"
		Text13.Name = "Text13"
		Text14.Name = "Text14"
		Label9.Name = "Label9"
		Text8.Name = "Text8"
		Label11.Name = "Label11"
		Text9.Name = "Text9"
		Text9.ReadOnly = .F.
		Label12.Name = "Label12"
		Label17.Name = "Label17"
		Label13.Name = "Label13"
		Text11.Name = "Text11"
		Label14.Name = "Label14"
		Text12.Name = "Text12"
		Label15.Name = "Label15"
		Text15.Name = "Text15"
		Label16.Name = "Label16"
		Shape3.Name = "Shape3"
		Text7.Name = "Text7"
		Text10.Name = "Text10"
		Text18.Name = "Text18"
		Label22.Name = "Label22"
		Text19.Name = "Text19"
		Label23.Name = "Label23"
		Label24.Name = "Label24"
		Label19.Caption = "Nu sunt inregistrate mijloace fixe!"
		Label19.Name = "Label19"
		Label20.Name = "Label20"
		Label21.Name = "Label21"
		Banda21.Name = "Banda21"
		Label10.Caption = "MODIFICARE MIJLOACE FIXE in luna"
		Label10.Name = "Label10"
		Text16.Left = 389
		Text16.Name = "Text16"
		Text16.Top = 6
		Text17.Left = 431
		Text17.Name = "Text17"
		Text17.Top = 6
		LIST1.Command1.Name = "Command1"
		LIST1.Imbuton1.Height = 27
		LIST1.Imbuton1.Name = "Imbuton1"
		LIST1.Imbuton1.Width = 30
		LIST1.Name = "LIST1"
		Renunt1.Command1.Name = "Command1"
		Renunt1.Imbuton1.Height = 27
		Renunt1.Imbuton1.Name = "Imbuton1"
		Renunt1.Imbuton1.Width = 30
		Renunt1.Name = "Renunt1"
		TERMINAT1.Command1.Name = "Command1"
		TERMINAT1.Imbuton1.Height = 27
		TERMINAT1.Imbuton1.Name = "Imbuton1"
		TERMINAT1.Imbuton1.Width = 30
		TERMINAT1.Name = "TERMINAT1"
		Lim_inf_sup1.Label25.Name = "Label25"
		Lim_inf_sup1.Label35.Name = "Label35"
		Lim_inf_sup1.Name = "Lim_inf_sup1"
		Lim_inf_sup1.Text29.Name = "Text29"
		Lim_inf_sup1.Text30.Name = "Text30"
	*</PropValue>
	
	PROCEDURE Init
		sele mf
		go top
		if eof()
		thisform.cmdtermin1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		
	ENDPROC

	PROCEDURE Grid1.AfterRowColChange
		LPARAMETERS nColIndex
		local i,t
		
		sele mf
		scatter memvar
		for i=1 to 14
		t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
		&t
		t='thisform.text'+alltrim(str(i))+'.refresh'
		&t
		next
		
		
	ENDPROC

	PROCEDURE Text3.Valid
		*
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pagefrn1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p2.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p3.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p4.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Cw5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrn1.p1.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text2" UniqueID="" Timestamp="" />

	*<PropValue>
		AlwaysOnTop = .F.
		AutoCenter = .F.
		BackColor = 192,192,192
		BorderStyle = 2
		DoCreate = .T.
		Height = 500
		Name = "p_imob_e"
		Width = 800
		WindowType = 0
	*</PropValue>

	ADD OBJECT 'Container1' AS container WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		BorderWidth = 0, ;
		Height = 48, ;
		Left = 138, ;
		Name = "Container1", ;
		SpecialEffect = 1, ;
		TabStop = .F., ;
		Top = 381, ;
		Width = 302
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'Container1.Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 8, ;
		Name = "Label1", ;
		Top = 5, ;
		Width = 53
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nivel de acces:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label2", ;
		Top = 24, ;
		Width = 85
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Text1' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "utilizator", ;
		DisabledBackColor = 255,255,255, ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 63, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 4, ;
		Width = 147
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Container1.Text2' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nivel", ;
		DisabledBackColor = 255,255,255, ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 93, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 23, ;
		Width = 28
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Image1' AS image WITH ;
		Height = 240, ;
		Left = 228, ;
		Name = "Image1", ;
		Picture = ..\grafice\conimob.bmp, ;
		Stretch = 1, ;
		Top = 112, ;
		Width = 516
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Pagefrn1' AS pagefrn WITH ;
		ErasePage = .T., ;
		Height = 442, ;
		Left = 0, ;
		Name = "Pagefrn1", ;
		Top = 2, ;
		Width = 790, ;
		p2.Name = "p2", ;
		p2.PageOrder = 2, ;
		p2.ToolTipText = "", ;
		p3.Name = "p3", ;
		p3.PageOrder = 3, ;
		p3.ToolTipText = "", ;
		p4.Name = "p4", ;
		p4.PageOrder = 4, ;
		p4.ToolTipText = "", ;
		p1.Caption = "Situatii analitice", ;
		p1.Name = "p1", ;
		p1.PageOrder = 1
		*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Pagefrn1.p1.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 26, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Jurnal Miscari", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p1.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 133, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Total amortizmente", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p1.Cw3' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw3", ;
		TabIndex = 3, ;
		Top = 180, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p1.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 101, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rulaj amortizmente", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p1.Cw5' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw5", ;
		TabIndex = 1, ;
		Top = 55, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Jurnal Total Miscari", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p1.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p1.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 87, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p1.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 164, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p1.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 211, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p2.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 26, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Introducere", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p2.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 100, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Vizualizare", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p2.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 56, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Preluare din contabilitate", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p2.Cw6' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw6", ;
		TabIndex = 4, ;
		Top = 149, ;
		Visible = .T., ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.TabIndex = 1
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p2.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p2.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 85, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p2.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 133, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p2.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 180, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p3.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 26, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Introducere", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p3.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 100, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Vizualizare", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p3.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 56, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Preluare din contabilitate", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p3.Cw6' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw6", ;
		TabIndex = 4, ;
		Top = 149, ;
		Visible = .T., ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.TabIndex = 1
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p3.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p3.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 85, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p3.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 133, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p3.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 180, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p4.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 26, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Introducere", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p4.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 100, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Vizualizare", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p4.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 56, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Preluare din contabilitate", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p4.Cw6' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw6", ;
		TabIndex = 4, ;
		Top = 149, ;
		Visible = .T., ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.TabIndex = 1
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrn1.p4.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p4.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 85, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p4.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 133, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrn1.p4.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 180, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE Show
		LPARAMETERS nStyle
		LOCAL w,h
		w=_screen.Width
		h=_screen.Height
		
		this.Width=w
		this.Height=h
		
		*!*	lnTopVer = this.lb_version.Top - this.image1.Top
		*!*	lnLeftVer = this.lb_version.Left - this.image1.Left
		
		this.image1.Left=w-this.image1.Width
		this.image1.Top=h-this.image1.height
		this.container1.top=h-this.container1.height
		
		*!*	this.Lb_version.Left=this.image1.Left + lnLeftVer
		*!*	this.Lb_version.Top=this.image1.Top + lnTopVer
		
		WITH this.pagefrn1
		.width=w
		.height=h
		.p1.shape1.height=h
		.p2.shape1.height=h
		.p3.shape1.height=h
		.p4.shape1.height=h
		*.p5.shape1.height=h
		*.p6.shape1.height=h
		endwith
		
	ENDPROC

	PROCEDURE Image1.RightClick
		set safety off
		
		ostart.show(1)
		*DO FORM start00
		do totv
		DO init_optiuni.prg
	ENDPROC

	PROCEDURE Pagefrn1.p1.Cw1.Click
		DO jurnal
		
	ENDPROC

	PROCEDURE Pagefrn1.p1.Cw2.Click
		
		DO total_amortizment
	ENDPROC

	PROCEDURE Pagefrn1.p1.Cw3.Click
		felul="' ','N'"
		
		DO sitana.mpr
	ENDPROC

	PROCEDURE Pagefrn1.p1.Cw4.Click
		DO rulaj_amortizment
	ENDPROC

	PROCEDURE Pagefrn1.p1.Cw5.Click
		DO jurnal_total
		
		
	ENDPROC

	PROCEDURE Pagefrn1.p1.RightClick
		this.parent.RightClick
	ENDPROC

	PROCEDURE Pagefrn1.p2.Cw1.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO introducere_corporale
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
		ENDIF
		
		
	ENDPROC

	PROCEDURE Pagefrn1.p2.Cw2.Click
		DO viz_corporale
	ENDPROC

	PROCEDURE Pagefrn1.p2.Cw4.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO preluare_corporale
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
			*THIS.Enabled= .F. 
		ENDIF 
	ENDPROC

	PROCEDURE Pagefrn1.p2.Cw6.Click
		DO listcorp.mpr
	ENDPROC

	PROCEDURE Pagefrn1.p2.RightClick
		this.parent.RightClick
	ENDPROC

	PROCEDURE Pagefrn1.p3.Cw1.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO introducere_necorporale
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
		ENDIF
		
		
	ENDPROC

	PROCEDURE Pagefrn1.p3.Cw2.Click
		DO viz_necorporale
	ENDPROC

	PROCEDURE Pagefrn1.p3.Cw4.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO preluare_necorporale
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
			*THIS.Enabled= .F. 
		ENDIF 
	ENDPROC

	PROCEDURE Pagefrn1.p3.Cw6.Click
		DO listnecorp.mpr
	ENDPROC

	PROCEDURE Pagefrn1.p3.RightClick
		this.parent.RightClick
	ENDPROC

	PROCEDURE Pagefrn1.p4.Cw1.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO introducere_in_curs
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
		ENDIF
		
		
	ENDPROC

	PROCEDURE Pagefrn1.p4.Cw2.Click
		DO viz_in_curs
	ENDPROC

	PROCEDURE Pagefrn1.p4.Cw4.Click
		IF !luna_inchisa
			buton = 1
			DO WHILE buton = 1
				DO preluare_incurs
				IF buton = 1
					od=CREATE('danu')
					od.SHOW(1)
				ENDIF 
			ENDDO 
			
		ELSE 
			DO mesaj WITH "Luna inchisa","Nu se pot face preluari!"
			RETURN 
			*THIS.Enabled= .F. 
		ENDIF 
	ENDPROC

	PROCEDURE Pagefrn1.p4.Cw6.Click
		*DO list1.mpr
		DO list_incurs
	ENDPROC

	PROCEDURE Pagefrn1.p4.RightClick
		this.parent.RightClick
	ENDPROC

	PROCEDURE Pagefrn1.Refresh
		IF E_INDEPENDENT
		
		this.p2.cw4.Enabled=.f.
		this.p2.cw4.label_ITEM1.Enabled=.f.
		this.p3.cw4.Enabled=.f.
		this.p3.cw4.label_ITEM1.Enabled=.f.
		this.p4.cw4.Enabled=.f.
		this.p4.cw4.label_ITEM1.Enabled=.f.
		ELSE
		this.p2.cw4.Enabled=.t.
		this.p2.cw4.label_ITEM1.Enabled=.t.
		this.p3.cw4.Enabled=.t.
		this.p3.cw4.label_ITEM1.Enabled=.t.
		this.p4.cw4.Enabled=.t.
		this.p4.cw4.label_ITEM1.Enabled=.t.
		endif
	ENDPROC

	PROCEDURE Pagefrn1.RightClick
		thisform.imaGE1.RightClick
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pagefrb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page1.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefrb1.Page2.Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text2" UniqueID="" Timestamp="" />

	*<PropValue>
		AlwaysOnTop = .F.
		AutoCenter = .F.
		BackColor = 192,192,192
		DoCreate = .T.
		Name = "p_imob_i"
		WindowType = 0
	*</PropValue>

	ADD OBJECT 'Container1' AS container WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		BorderWidth = 0, ;
		Height = 48, ;
		Left = 138, ;
		Name = "Container1", ;
		SpecialEffect = 1, ;
		TabStop = .F., ;
		Top = 381, ;
		Width = 302
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'Container1.Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 8, ;
		Name = "Label1", ;
		Top = 5, ;
		Width = 53
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nivel de acces:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label2", ;
		Top = 24, ;
		Width = 85
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Text1' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "utilizator", ;
		DisabledBackColor = 255,255,255, ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 63, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 4, ;
		Width = 147
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Container1.Text2' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nivel", ;
		DisabledBackColor = 255,255,255, ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 93, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 23, ;
		Width = 28
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Image1' AS image WITH ;
		Height = 240, ;
		Left = 228, ;
		Name = "Image1", ;
		Picture = ..\grafice\conimob.bmp, ;
		Stretch = 1, ;
		Top = 120, ;
		Width = 492
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Pagefrb1' AS pagefrb WITH ;
		ErasePage = .T., ;
		Height = 442, ;
		Left = 0, ;
		Name = "Pagefrb1", ;
		PageCount = 2, ;
		Top = 2, ;
		Width = 790, ;
		Page1.Caption = "        Situatii analitice        ", ;
		Page1.FontName = "Times New Roman", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "       Imobilizari corporale       ", ;
		Page2.FontName = "Times New Roman", ;
		Page2.Name = "Page2"
		*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Pagefrb1.Page1.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 21, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Jurnal miscari", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page1.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 93, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Total amortizmente", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page1.Cw3' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw3", ;
		TabIndex = 3, ;
		Top = 137, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page1.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 65, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rulaj amortizmente", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page1.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page1.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 52, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page1.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 124, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page1.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 168, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page2.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw1", ;
		TabIndex = 1, ;
		Top = 21, ;
		Width = 126, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Introducere", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page2.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw2", ;
		TabIndex = 3, ;
		Top = 93, ;
		Width = 126, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Vizualizare", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page2.Cw4' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw4", ;
		TabIndex = 2, ;
		Top = 50, ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Preluare din contabilitate", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page2.Cw6' AS cw WITH ;
		Height = 20, ;
		Left = 6, ;
		Name = "Cw6", ;
		TabIndex = 4, ;
		Top = 137, ;
		Visible = .T., ;
		Width = 126, ;
		ZOrderSet = 1, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.TabIndex = 1
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefrb1.Page2.Shape1' AS shape WITH ;
		Curvature = 0, ;
		Height = 373, ;
		Left = 1, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 1, ;
		Width = 139, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page2.Shape2' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 80, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page2.Shape3' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 124, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Pagefrb1.Page2.Shape4' AS shape WITH ;
		Curvature = 0, ;
		Height = 2, ;
		Left = 1, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 168, ;
		Width = 139
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE Show
		LPARAMETERS nStyle
		LOCAL w,h
		w=_screen.Width
		h=_screen.Height
		
		this.Width=w
		this.Height=h
		
		*!*	lnTopVer = this.lb_version.Top - this.image1.Top
		*!*	lnLeftVer = this.lb_version.Left - this.image1.Left
		
		this.image1.Left=w-this.image1.Width
		this.image1.Top=h-this.image1.height
		this.container1.top=h-this.container1.height
		
		*!*	this.Lb_version.Left=this.image1.Left + lnLeftVer
		*!*	this.Lb_version.Top=this.image1.Top + lnTopVer
		
		WITH this.pagefrb1
		.width=w
		.height=h
		.page1.shape1.height=h
		.page2.shape1.height=h
		*.p3.shape1.height=h
		*.p4.shape1.height=h
		*.p5.shape1.height=h
		*.p6.shape1.height=h
		endwith
		
	ENDPROC

	PROCEDURE Image1.RightClick
		set safety off
		
		ostart.show(1)
		do totv
	ENDPROC

	PROCEDURE Pagefrb1.Page1.Cw1.Click
		DO jurnal
	ENDPROC

	PROCEDURE Pagefrb1.Page1.Cw2.Click
		felul="' '"
		DO total_amortizment
	ENDPROC

	PROCEDURE Pagefrb1.Page1.Cw3.Click
		DO sitana.mpr
	ENDPROC

	PROCEDURE Pagefrb1.Page1.Cw4.Click
		felul="' '"
		DO rulaj_amortizment
	ENDPROC

	PROCEDURE Pagefrb1.Page2.Activate
		i=this.pageorder
		this.parent.activate_pag(i)
	ENDPROC

	PROCEDURE Pagefrb1.Page2.Cw1.Click
		DO introducere_corporale
	ENDPROC

	PROCEDURE Pagefrb1.Page2.Cw2.Click
		DO viz_corporale
	ENDPROC

	PROCEDURE Pagefrb1.Page2.Cw4.Click
		DO preluare_corporale
	ENDPROC

	PROCEDURE Pagefrb1.Page2.Cw6.Click
		DO listcorp.mpr
	ENDPROC

	PROCEDURE Pagefrb1.Page2.RightClick
		this.parent.RightClick
	ENDPROC

ENDDEFINE

DEFINE CLASS pagefrb AS pageframe 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: activate_pag
		*m: selectie
		*p: c_deschis
		*p: c_gri
		*p: c_inchis
	*</DefinedPropArrayMethod>

	*<PropValue>
		c_deschis = 16777215
		c_gri = 0
		c_inchis = 8404992
		ErasePage = .T.
		Height = 92
		Name = "pagefrb"
		PageCount = 1
		TabStretch = 0
		TabStyle = 1
		Width = 789
		Page1.Caption = "Page1"
		Page1.Name = "Page1"
	*</PropValue>
	
	PROCEDURE activate_pag
		PARAMETERS np
		
		*!*	IF np=1
		*!*	osetgest.tbrprim.hide
		*!*	osetgest.tbrprim.dock(-1,0,0)
		*!*	osetviz.tbrprim.dock(0,0,0)
		*!*	osetviz.tbrprim.visible=.t.
		*!*	else
		*!*	osetviz.tbrprim.hide
		*!*	osetviz.tbrprim.dock(-1,0,0)
		*!*	osetgest.tbrprim.dock(0,135,0)
		*!*	osetgest.tbrprim.visible=.t.
		*!*	ENDIF
		
		FOR i=1 TO this.PageCount
		zi='this.page'+ALLTRIM(STR(i))+'.'
		IF i<>np
		&zi.BackColor=this.c_gri
		&zi.ForeColor=this.c_deschis
		else
		&zi.BackColor=this.c_deschis
		&zi.ForeColor=this.c_inchis
		ENDIF
		NEXT
		
		nr_gest=np
		*osetgest.tbrprim.refresh
		
		this.selectie(nr_gest)
	ENDPROC

	PROCEDURE Init
		
		this.c_gri=11630087
		this.c_deschis=16777215
		this.c_inchis=8404992
		
		this.SetAll('backcolor',this.c_gri,'page')
		
		
		
	ENDPROC

	PROCEDURE RightClick
		this.parent.imaGE1.RightClick
	ENDPROC

	PROCEDURE selectie
		PARAMETERS nr_g
	ENDPROC

	PROCEDURE Page1.Activate
		i=this.pageorder
		this.parent.activate_pag(i)
	ENDPROC

	PROCEDURE Page1.RightClick
		this.parent.RightClick
	ENDPROC

ENDDEFINE

DEFINE CLASS pagefrn AS pageframe 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: activate_pag
		*m: selectie
		*p: c_deschis
		*p: c_gri
		*p: c_inchis
	*</DefinedPropArrayMethod>

	*<PropValue>
		ActivePage = 1
		c_deschis = 16777215
		c_gri = 0
		c_inchis = 8404992
		ErasePage = .T.
		Height = 92
		Name = "pagefrn"
		PageCount = 4
		Tabs = .T.
		TabStretch = 0
		TabStyle = 1
		Width = 789
		Page1.Caption = "Imobilizari corporale"
		Page1.FontName = "Times New Roman"
		Page1.Name = "p2"
		Page1.PageOrder = 2
		Page1.ToolTipText = "Cont: 301,302"
		Page2.Caption = "Imobilizari necorporale"
		Page2.FontName = "Times New Roman"
		Page2.Name = "p3"
		Page2.PageOrder = 3
		Page2.ToolTipText = "Cont: 303"
		Page3.Caption = "Imobilizari in curs"
		Page3.FontName = "Times New Roman"
		Page3.Name = "p4"
		Page3.PageOrder = 4
		Page3.ToolTipText = "Cont: 341,345"
		Page4.Caption = "Gestiuni"
		Page4.FontName = "Times New Roman"
		Page4.Name = "p1"
		Page4.PageOrder = 1
	*</PropValue>
	
	PROCEDURE activate_pag
		PARAMETERS np
		
		*!*	IF np=1
		*!*	osetgest.tbrprim.hide
		*!*	osetgest.tbrprim.dock(-1,0,0)
		*!*	osetviz.tbrprim.dock(0,0,0)
		*!*	osetviz.tbrprim.visible=.t.
		*!*	else
		*!*	osetviz.tbrprim.hide
		*!*	osetviz.tbrprim.dock(-1,0,0)
		*!*	osetgest.tbrprim.dock(0,135,0)
		*!*	osetgest.tbrprim.visible=.t.
		*!*	ENDIF
		
		FOR i=1 TO this.PageCount
		zi='this.p'+ALLTRIM(STR(i))+'.'
		IF i<>np
		&zi.BackColor=this.c_gri
		&zi.ForeColor=this.c_deschis
		else
		&zi.BackColor=this.c_deschis
		&zi.ForeColor=this.c_inchis
		ENDIF
		NEXT
		
		nr_gest=np
		*osetgest.tbrprim.refresh
		
		this.selectie(nr_gest)
	ENDPROC

	PROCEDURE Init
		
		this.c_gri=11630087
		this.c_deschis=16777215
		this.c_inchis=8404992
		
		this.SetAll('backcolor',this.c_gri,'page')
		
		
		
	ENDPROC

	PROCEDURE selectie
		PARAMETERS nr_g
	ENDPROC

	PROCEDURE p1.Activate
		*!*	TIP_GEST=THIS.CAPTION
		*!*	cont_gest='-1'
		*!*	this.parent.activate_pag(1)
		i=this.pageorder
		this.parent.activate_pag(i)
		
		
		
	ENDPROC

	PROCEDURE p2.Activate
		*!*	TIP_GEST=THIS.CAPTION
		*!*	cont_gest='301,302'
		
		*!*	this.parent.activate_pag(2)
		
		
		i=this.pageorder
		this.parent.activate_pag(i)
	ENDPROC

	PROCEDURE p2.Init
		*this.BackColor=11630087
	ENDPROC

	PROCEDURE p3.Activate
		*!*	TIP_GEST=THIS.CAPTION
		*!*	cont_gest='303'
		
		*!*	this.parent.activate_pag(3)
		i=this.pageorder
		this.parent.activate_pag(i)
		
	ENDPROC

	PROCEDURE p4.Activate
		*TIP_GEST=THIS.CAPTION
		*cont_gest='345,347'
		i=this.pageorder
		this.parent.activate_pag(i)
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS preluare AS fisa OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Txt15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cidsectie
		*p: nnorma_max
		*p: nnorma_min
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cidsectie = 
		DoCreate = .T.
		fel_imob = 'C'
		Height = 440
		Name = "preluare"
		nnorma_max = 0
		nnorma_min = 0
		Width = 650
		LABEL25.Name = "LABEL25"
		LABEL25.Visible = .F.
		Shape1.Left = 655
		Shape1.Name = "Shape1"
		Shape1.Top = 12
		Shape1.Visible = .F.
		Shape1.ZOrderSet = 8
		Shape2.Height = 390
		Shape2.Left = 12
		Shape2.Name = "Shape2"
		Shape2.Top = 43
		Shape2.Width = 360
		Shape2.ZOrderSet = 0
		Shape4.Left = 655
		Shape4.Name = "Shape4"
		Shape4.Top = 247
		Shape4.Visible = .F.
		Shape4.ZOrderSet = 9
		Shape7.Left = 596
		Shape7.Name = "Shape7"
		Shape7.Top = 261
		Shape7.Visible = .F.
		Shape7.ZOrderSet = 7
		Shape5.Left = 370
		Shape5.Name = "Shape5"
		Shape5.Top = 239
		Shape5.Visible = .F.
		Shape5.ZOrderSet = 10
		Shape6.Left = 370
		Shape6.Name = "Shape6"
		Shape6.Top = 184
		Shape6.ZOrderSet = 11
		CMDRENUNT1.Command1.Name = "Command1"
		CMDRENUNT1.Imbuton1.Height = 27
		CMDRENUNT1.Imbuton1.Name = "Imbuton1"
		CMDRENUNT1.Imbuton1.Width = 30
		CMDRENUNT1.Left = 528
		CMDRENUNT1.Name = "CMDRENUNT1"
		CMDRENUNT1.TabIndex = 27
		CMDRENUNT1.Top = 372
		CMDRENUNT1.ZOrderSet = 13
		Text1.Left = 172
		Text1.Name = "Text1"
		Text1.TabIndex = 1
		Text1.Top = 48
		Text1.Width = 180
		Text1.ZOrderSet = 14
		Label3.Left = 30
		Label3.Name = "Label3"
		Label3.TabIndex = 35
		Label3.Top = 50
		Label3.ZOrderSet = 15
		Text2.Left = 172
		Text2.Name = "Text2"
		Text2.TabIndex = 2
		Text2.Top = 73
		Text2.Width = 180
		Text2.ZOrderSet = 16
		Label4.Left = 30
		Label4.Name = "Label4"
		Label4.TabIndex = 37
		Label4.Top = 75
		Label4.ZOrderSet = 17
		Text3.Left = 656
		Text3.Name = "Text3"
		Text3.TabIndex = 23
		Text3.Top = 309
		Text3.Visible = .F.
		Text3.ZOrderSet = 18
		Label5.Left = 30
		Label5.Name = "Label5"
		Label5.TabIndex = 39
		Label5.Top = 101
		Label5.ZOrderSet = 19
		Text4.Format = "kr"
		Text4.InputMask = (get_mask(14,gnZ))
		Text4.Left = 172
		Text4.Name = "Text4"
		Text4.TabIndex = 4
		Text4.Top = 137
		Text4.Width = 180
		Text4.ZOrderSet = 20
		Label6.Caption = "Valoare de achizitie"
		Label6.Height = 18
		Label6.Left = 30
		Label6.Name = "Label6"
		Label6.TabIndex = 43
		Label6.Top = 135
		Label6.Width = 114
		Label6.WordWrap = .T.
		Label6.ZOrderSet = 21
		Text5.Left = 172
		Text5.Name = "Text5"
		Text5.TabIndex = 5
		Text5.Top = 165
		Text5.Width = 180
		Text5.ZOrderSet = 22
		Label7.Left = 30
		Label7.Name = "Label7"
		Label7.TabIndex = 47
		Label7.Top = 167
		Label7.ZOrderSet = 23
		Text6.Left = 172
		Text6.Name = "Text6"
		Text6.TabIndex = 6
		Text6.Top = 188
		Text6.Width = 180
		Text6.ZOrderSet = 24
		Label8.Left = 30
		Label8.Name = "Label8"
		Label8.TabIndex = 50
		Label8.Top = 190
		Label8.ZOrderSet = 25
		COMBO1.Left = 494
		COMBO1.Name = "COMBO1"
		COMBO1.TabIndex = 40
		COMBO1.Top = 100
		COMBO1.ZOrderSet = 28
		Text10.Height = 20
		Text10.Left = 493
		Text10.Name = "Text10"
		Text10.TabIndex = 17
		Text10.Top = 52
		Text10.Width = 132
		Text10.ZOrderSet = 29
		Text13.Height = 20
		Text13.Left = 168
		Text13.Name = "Text13"
		Text13.TabIndex = 28
		Text13.Top = 432
		Text13.Visible = .F.
		Text13.Width = 180
		Text13.ZOrderSet = 30
		Text7.Left = 172
		Text7.Name = "Text7"
		Text7.TabIndex = 8
		Text7.Top = 235
		Text7.Width = 180
		Text7.ZOrderSet = 31
		Text27.Left = 497
		Text27.Name = "Text27"
		Text27.TabIndex = 20
		Text27.Top = 214
		Text27.Visible = .T.
		Text27.Width = 115
		Text14.Left = 172
		Text14.Name = "Text14"
		Text14.TabIndex = 7
		Text14.Top = 211
		Text14.Width = 180
		Text14.ZOrderSet = 32
		Label9.Left = 30
		Label9.Name = "Label9"
		Label9.TabIndex = 53
		Label9.Top = 237
		Label9.ZOrderSet = 33
		Label33.Left = 384
		Label33.Name = "Label33"
		Label33.TabIndex = 72
		Label33.Top = 215
		Label33.Visible = .T.
		Shape3.Left = 655
		Shape3.Name = "Shape3"
		Shape3.Top = 131
		Shape3.Visible = .F.
		Shape3.ZOrderSet = 12
		Label17.Left = 30
		Label17.Name = "Label17"
		Label17.TabIndex = 52
		Label17.Top = 213
		Label17.ZOrderSet = 35
		Text23.Left = 587
		Text23.Name = "Text23"
		Text23.TabIndex = 29
		Text23.Top = 285
		Text23.Visible = .F.
		Text23.ZOrderSet = 34
		Text8.Height = 22
		Text8.InputMask = "999.999"
		Text8.Left = 196
		Text8.Name = "Text8"
		Text8.ReadOnly = .F.
		Text8.SpecialEffect = 0
		Text8.TabIndex = 9
		Text8.Top = 259
		Text8.Width = 33
		Text8.ZOrderSet = 36
		Text18.Left = 710
		Text18.Name = "Text18"
		Text18.TabIndex = 56
		Text18.Top = 187
		Text18.Visible = .F.
		Text18.ZOrderSet = 40
		Text20.Left = 494
		Text20.Name = "Text20"
		Text20.TabIndex = 49
		Text20.Top = 75
		Text20.ZOrderSet = 41
		Label28.Caption = "Valoarea de calcul"
		Label28.Left = 574
		Label28.Name = "Label28"
		Label28.TabIndex = 46
		Label28.Top = 239
		Label28.Visible = .F.
		Label28.ZOrderSet = 39
		TEXT15.Left = 710
		TEXT15.Name = "TEXT15"
		TEXT15.TabIndex = 48
		TEXT15.Top = 163
		TEXT15.Visible = .F.
		TEXT15.ZOrderSet = 42
		Text25.Left = 692
		Text25.Name = "Text25"
		Text25.TabIndex = 25
		Text25.Top = 213
		Text25.Visible = .F.
		Text25.ZOrderSet = 38
		Label1.Left = 663
		Label1.Name = "Label1"
		Label1.TabIndex = 60
		Label1.Top = 139
		Label1.Visible = .F.
		Label1.ZOrderSet = 43
		Label11.FontName = "Arial Narrow"
		Label11.Left = 30
		Label11.Name = "Label11"
		Label11.TabIndex = 33
		Label11.Top = 261
		Label11.ZOrderSet = 44
		TEXT17.Left = 711
		TEXT17.Name = "TEXT17"
		TEXT17.TabIndex = 55
		TEXT17.Top = 98
		TEXT17.Visible = .F.
		TEXT17.ZOrderSet = 45
		Label22.Left = 665
		Label22.Name = "Label22"
		Label22.TabIndex = 61
		Label22.Top = 211
		Label22.Visible = .F.
		Label22.ZOrderSet = 47
		Label21.Left = 662
		Label21.Name = "Label21"
		Label21.TabIndex = 62
		Label21.Top = 188
		Label21.Visible = .F.
		Label21.ZOrderSet = 48
		Label20.Left = 690
		Label20.Name = "Label20"
		Label20.TabIndex = 67
		Label20.Top = 164
		Label20.Visible = .F.
		Label20.ZOrderSet = 49
		Label19.Left = 668
		Label19.Name = "Label19"
		Label19.TabIndex = 65
		Label19.Top = 102
		Label19.Visible = .F.
		Label19.ZOrderSet = 51
		TEXT16.Left = 711
		TEXT16.Name = "TEXT16"
		TEXT16.TabIndex = 54
		TEXT16.Top = 75
		TEXT16.Visible = .F.
		TEXT16.ZOrderSet = 52
		Label18.Left = 705
		Label18.Name = "Label18"
		Label18.TabIndex = 63
		Label18.Top = 79
		Label18.Visible = .F.
		Label18.ZOrderSet = 54
		Text9.ControlSource = "m.uzuraprec"
		Text9.Enabled = .T.
		Text9.Height = 22
		Text9.InputMask = "9999"
		Text9.Left = 172
		Text9.Name = "Text9"
		Text9.TabIndex = 11
		Text9.ToolTipText = "Uzura la momentul achizitiei "
		Text9.Top = 283
		Text9.Width = 180
		Text9.ZOrderSet = 55
		Label12.Caption = "Uzura precedenta (luni)"
		Label12.Enabled = .T.
		Label12.Left = 30
		Label12.Name = "Label12"
		Label12.TabIndex = 21
		Label12.Top = 284
		Label12.ZOrderSet = 56
		Label24.Left = 431
		Label24.Name = "Label24"
		Label24.TabIndex = 70
		Label24.Top = 101
		Label24.ZOrderSet = 57
		Label10.Left = 663
		Label10.Name = "Label10"
		Label10.TabIndex = 68
		Label10.Top = 30
		Label10.Visible = .F.
		Label10.ZOrderSet = 58
		Label23.Left = 444
		Label23.Name = "Label23"
		Label23.TabIndex = 69
		Label23.Top = 78
		Label23.ZOrderSet = 59
		Label13.Left = 382
		Label13.Name = "Label13"
		Label13.TabIndex = 36
		Label13.Top = 51
		Label13.ZOrderSet = 60
		Text28.Left = 172
		Text28.Name = "Text28"
		Text28.TabIndex = 16
		Text28.Top = 407
		Text28.Width = 180
		Label34.Left = 30
		Label34.Name = "Label34"
		Label34.TabIndex = 64
		Label34.Top = 408
		Text11.Left = 172
		Text11.Name = "Text11"
		Text11.TabIndex = 13
		Text11.Top = 333
		Text11.Width = 180
		Text11.ZOrderSet = 61
		Label14.Left = 30
		Label14.Name = "Label14"
		Label14.TabIndex = 38
		Label14.Top = 335
		Label14.ZOrderSet = 62
		Text26.Left = 172
		Text26.Name = "Text26"
		Text26.TabIndex = 15
		Text26.Top = 383
		Text26.Width = 180
		Label32.Left = 30
		Label32.Name = "Label32"
		Label32.TabIndex = 66
		Label32.Top = 384
		Text12.Left = 172
		Text12.Name = "Text12"
		Text12.TabIndex = 14
		Text12.Top = 358
		Text12.Width = 180
		Text12.ZOrderSet = 63
		Label15.Left = 30
		Label15.Name = "Label15"
		Label15.TabIndex = 41
		Label15.Top = 360
		Label15.ZOrderSet = 64
		Label26.Caption = "(unitara)"
		Label26.FontItalic = .F.
		Label26.FontName = "Arial Narrow"
		Label26.FontSize = 9
		Label26.Left = 110
		Label26.Name = "Label26"
		Label26.TabIndex = 57
		Label26.Top = 149
		Label26.Visible = .F.
		Label26.ZOrderSet = 46
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Imbuton1.Height = 27
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 30
		CMDTERMIN1.Left = 564
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.TabIndex = 31
		CMDTERMIN1.Top = 372
		CMDTERMIN1.ZOrderSet = 65
		Label16.Left = 384
		Label16.Name = "Label16"
		Label16.TabIndex = 45
		Label16.Top = 194
		Label16.ZOrderSet = 66
		Label2.Left = 627
		Label2.Name = "Label2"
		Label2.TabIndex = 77
		Label2.Top = 290
		Label2.Visible = .F.
		Label2.ZOrderSet = 70
		Text24.Left = 671
		Text24.Name = "Text24"
		Text24.TabIndex = 32
		Text24.Top = 285
		Text24.Visible = .F.
		Text24.ZOrderSet = 73
		Label29.Left = 382
		Label29.Name = "Label29"
		Label29.TabIndex = 44
		Label29.Top = 151
		Label29.ZOrderSet = 74
		Label30.Left = 25
		Label30.Name = "Label30"
		Label30.TabIndex = 42
		Label30.Top = 433
		Label30.ZOrderSet = 77
		Text21.FontName = "Arial Narrow"
		Text21.Height = 22
		Text21.Left = 497
		Text21.Name = "Text21"
		Text21.TabIndex = 19
		Text21.Top = 190
		Text21.Width = 115
		Text21.ZOrderSet = 80
		Text22.InputMask = (get_mask(14,gnZ))
		Text22.Left = 498
		Text22.Name = "Text22"
		Text22.TabIndex = 18
		Text22.Top = 150
		Text22.ZOrderSet = 81
		Banda21.Height = 30
		Banda21.Left = 0
		Banda21.Name = "Banda21"
		Banda21.Top = 0
		Banda21.Width = 540
		Banda21.ZOrderSet = 1
		Cmdlist1.Command1.Name = "Command1"
		Cmdlist1.Imbuton1.Height = 27
		Cmdlist1.Imbuton1.Name = "Imbuton1"
		Cmdlist1.Imbuton1.Width = 30
		Cmdlist1.Left = 490
		Cmdlist1.Name = "Cmdlist1"
		Cmdlist1.TabIndex = 26
		Cmdlist1.Top = 372
		Cmdlist1.Visible = .F.
		Cmdlist1.ZOrderSet = 68
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 74
		Titlufrumos1.ZOrderSet = 2
		Command1.Left = 216
		Command1.Name = "Command1"
		Command1.TabIndex = 73
		Command1.Top = 444
		Command1.ZOrderSet = 75
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 27
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 30
		Terminat1.Left = 615
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 22
		Terminat1.Top = 1
		Terminat1.ZOrderSet = 76
		LIST1.Command1.Name = "Command1"
		LIST1.Imbuton1.Height = 27
		LIST1.Imbuton1.Name = "Imbuton1"
		LIST1.Imbuton1.Width = 30
		LIST1.Left = 552
		LIST1.Name = "LIST1"
		LIST1.TabIndex = 75
		LIST1.Top = 1
		LIST1.ZOrderSet = 78
		Renunt1.Command1.Name = "Command1"
		Renunt1.Imbuton1.Height = 27
		Renunt1.Imbuton1.Name = "Imbuton1"
		Renunt1.Imbuton1.Width = 30
		Renunt1.Left = 583
		Renunt1.Name = "Renunt1"
		Renunt1.TabIndex = 30
		Renunt1.Top = 1
		Renunt1.ZOrderSet = 79
		t23.Left = 716
		t23.Name = "t23"
		t23.ReadOnly = .F.
		t23.TabIndex = 24
		t23.TabStop = .T.
		t23.Top = 237
		t23.Visible = .F.
		t23.ZOrderSet = 72
		Label27.Left = 572
		Label27.Name = "Label27"
		Label27.TabIndex = 51
		Label27.Top = 309
		Label27.Visible = .F.
		Label27.ZOrderSet = 50
		Optiongroup1.Name = "Optiongroup1"
		Optiongroup1.Option1.Left = 5
		Optiongroup1.Option1.Name = "Option1"
		Optiongroup1.Option1.Top = 5
		Optiongroup1.Option2.Left = 5
		Optiongroup1.Option2.Name = "Option2"
		Optiongroup1.Option2.Top = 24
		Optiongroup1.TabIndex = 76
		Optiongroup1.ZOrderSet = 82
		Label31.Left = 584
		Label31.Name = "Label31"
		Label31.TabIndex = 59
		Label31.Top = 333
		Label31.Visible = .F.
		Label31.ZOrderSet = 53
		Text19.Left = 710
		Text19.Name = "Text19"
		Text19.TabIndex = 58
		Text19.Top = 211
		Text19.Visible = .F.
		Text19.ZOrderSet = 37
		Shape8.Left = 584
		Shape8.Name = "Shape8"
		Shape8.Top = 273
		Shape8.Visible = .F.
		Shape8.ZOrderSet = 6
		Shape9.Left = 572
		Shape9.Name = "Shape9"
		Shape9.Top = 285
		Shape9.Visible = .F.
		Shape9.ZOrderSet = 5
		Text29.Left = 172
		Text29.Name = "Text29"
		Text29.Top = 102
		Text29.Width = 180
		t21.Name = "t21"
		t21.Visible = .F.
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizare precedenta", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label1", ;
		TabIndex = 34, ;
		Top = 310, ;
		Width = 133, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "ani", ;
		FontItalic = .T., ;
		Height = 17, ;
		Left = 230, ;
		Name = "Label25", ;
		Top = 262, ;
		Width = 19
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ;
		Left = 245, ;
		Name = "Lim_inf_sup1", ;
		Top = 255, ;
		Text29.ControlSource = "this.parent.parent.nnorma_min", ;
		Text29.Name = "Text29", ;
		Text30.ControlSource = "this.parent.parent.nnorma_max", ;
		Text30.Name = "Text30", ;
		Label25.Name = "Label25", ;
		Label35.Name = "Label35"
		*< END OBJECT: ClassLib="mfix2000.vcx" BaseClass="container" />

	ADD OBJECT 'Shape5' AS shape WITH ;
		BackStyle = 0, ;
		Height = 390, ;
		Left = 372, ;
		Name = "Shape5", ;
		SpecialEffect = 0, ;
		Top = 43, ;
		Width = 266, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape6' AS shape WITH ;
		Height = 2, ;
		Left = 371, ;
		Name = "Shape6", ;
		SpecialEffect = 0, ;
		Top = 131, ;
		Width = 265, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Txt15' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.amortprec", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 172, ;
		Name = "Txt15", ;
		ReadOnly = .F., ;
		TabIndex = 12, ;
		Top = 307, ;
		Width = 180, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		*!*	store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma,m.valramasa
		*!*	store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
		*!*	store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
		
		
		store '' to M.NUME_2,M.NUMEGEST,M.EXPLICATIA,m.text
		store date() to m.dataact,m.datapif
		
		THISFORM.LABEL15.VISIBLE=!E_INDEPENDENT
		THISFORM.TEXT12.VISIBLE=!E_INDEPENDENT
		
		*!*	thisform.text7.Enabled=IIF(thisform.FEL_IMOB='C',.t.,.f.)
		*!*	thisform.text8.ReadOnly=IIF(thisform.FEL_IMOB='C',.t.,.f.)
		*!*	thisform.t21.ReadOnly=IIF(thisform.FEL_IMOB='C',.t.,.f.)
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF !this.fel_imob='C'
			this.text7.Enabled=.f.
			this.text8.ReadOnly=.f.
			this.t21.ReadOnly=.f.
			this.text8.TabStop= .T.
			this.text7.TabStop= .T.
		ENDIF 
		
		IF VAL(m.an) < 2005
			this.lim_inf_sup1.Visible = .F. 
		ENDIF 
	ENDPROC

	PROCEDURE Cmdlist1.Click
		m.nume=''
		m.dat={}
		sele mf
		set filter to denumire=m.denumire and cod=m.cod
		
		thisform.windowstate=1
		
		report form fisa_mf to printer prompt preview
		
		thisform.windowstate=0
	ENDPROC

	PROCEDURE CMDTERMIN1.Click
		Local I,T
		I=1
		T=''
		m.fel=""
		
		
		m.cod=-1
		*m.tipcalcul=1
		m.dataeval = m.datapif
		m.valin = m.valoare 
		m.valramasa = m.valoare-m.valrez
		m.cota = calcul_cota(m.Normat2lun)
		m.codop = 2
		
		Sele mf
		Appe Blank
		Gather Memvar
		If Thisform.titlufrumos1.Caption='Introducere imobilizari necorporale'
			Replace fel With 'N'
		Endif
		
		Select mflun
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Introducere',dataora With Datetime()
			Replace codop With 2
		Endif
		Unlock
		
		Select mfanual
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Introducere',dataora With Datetime()
			Replace codop With 2
		Endif
		Unlock
		
		buton=1
		THISFORM.RELEASE
		
		*!*	BUTON=1
		*!*	odanu=Createobj('danu')
		*!*	odanu.Show(1)
		*!*	If BUTON==2
		*!*		Thisform.Release
		*!*	Else
		*!*	*!*	store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma,m.valramasa
		*!*	*!*	store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
		*!*	*!*	store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
		*!*		Select mf
		*!*		Scatter Memvar Blank
		*!*		
		*!*		IF ALLTRIM(UPPER(thisform.fel_imob)) == "C"
		*!*			CALCULATE MAX(nrinv) FOR EMPTY(fel) TO lcmax
		*!*		ELSE
		*!*			CALCULATE MAX(nrinv) FOR ALLTRIM(UPPER(fel)) == "N" TO lcmax
		*!*		ENDIF 	
		*!*		
		*!*		lnmax = VAL(lcmax)+1
		*!*		m.nrinv = ALLTRIM(STR(lnmax))
		*!*		
		*!*		Store '' To M.NUME_2,M.NUMEGEST,M.explicatia,m.text
		*!*		Store Date() To m.dataact,m.datapif
		*!*	*	STORE 1 TO m.bucati
		*!*		
		*!*		For I=1 To 15
		*!*			T='THISFORM.TEXT'+Iif(I<10,Allt(Str(I,1)),Allt(Str(I,2)))+'.REFRESH'
		*!*			&T
		*!*		Next
		*!*		Thisform.TEXT20.Refresh
		*!*		Thisform.COMBO1.Refresh
		*!*		thisform.text27.Refresh 
		*!*	Endif
		
	ENDPROC

	PROCEDURE Terminat1.Command1.Click
		Local I,T
		I=1
		T=''
		m.fel=""
		
		
		m.cod=-1
		*m.tipcalcul=1
		m.dataeval = m.datapif
		m.valin = m.valoare 
		m.valramasa = m.valoare-m.valrez
		m.cota = calcul_cota(m.Normat2lun)
		m.codop = 2
		m.id_sectie = thisform.cIdSectie
		
		Sele mf
		Appe Blank
		Gather Memvar
		If Thisform.titlufrumos1.Caption='Introducere imobilizari necorporale'
			Replace fel With 'N'
		Endif
		
		Select mflun
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Introducere',dataora With Datetime()
			Replace codop With 2
		Endif
		Unlock
		
		Select mfanual
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Introducere',dataora With Datetime()
			Replace codop With 2
		Endif
		Unlock
		
		buton=1
		THISFORM.RELEASE
	ENDPROC

	PROCEDURE Text10.Valid
		*
	ENDPROC

	PROCEDURE Text14.Valid
		SELECT mf
		LOCATE FOR UPPER(ALLTRIM(nrinv))=UPPER(ALLTRIM(m.nrinv))
		IF FOUND()
			DO mesaj WITH 'Exista deja un mijloc fix cu ','acest numar de inventar!'
		ENDIF 
	ENDPROC

	PROCEDURE Text26.GotFocus
		DO CAUT_ALFa_cursor WITH "sectie","sectie",'NUMELE SECTIEI','M.sectie'
		SELECT sectie
		LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie))
		IF FOUND()
			m.id_sectie=id_sectie
			thisform.cIdSectie = m.id_sectie
		ENDIF 
	ENDPROC

	PROCEDURE Text4.Valid
		*m.valin = m.valoare
	ENDPROC

	PROCEDURE Text7.GotFocus
		If Thisform.fel_imob='C'
			Local den
			den=m.denumire
		
			IF VAL(m.an)>=2005
				SELE norma_2005
				SCATTER NAME onorma BLANK 
				OCA=CREATEOBJECT("NORMATREE_2005") 
				OCA.SHOW(1)
				IF buton = 1
					thisform.nnorma_min = onorma.norma_min   && in ani
					thisform.nnorma_max = onorma.norma_max   && in ani
				ENDIF 
			ELSE
				SELE norma
				SCATTER NAME onorma BLANK 
				OCA=CREATEOBJECT("NORMATREE") 
				OCA.SHOW(1)
				IF buton = 1
					thisform.nnorma_min = VAL(onorma.normaan)  && in ani
					thisform.nnorma_max = VAL(onorma.normaan)  && in ani
				ENDIF 
			ENDIF 
			m.denumire=den
			IF buton = 1
				m.normaan = thisform.nnorma_min
				m.normat = thisform.nnorma_min*12
				DO CASE 
					CASE LEFT(ALLTRIM(onorma.codmf),2) = [1.]
						m.scd = '212 '
					CASE LEFT(ALLTRIM(onorma.codmf),2) = [2.]
						IF LEFT(ALLTRIM(onorma.codmf),3) # [2.5]
							m.scd = '213' + SUBSTR(ALLTRIM(onorma.codmf),3,1)
						ELSE 
							m.scd = '213' 
							thisform.text21.ReadOnly = .f.
						ENDIF 
					CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.]
						m.scd = '214'
					OTHERWISE 
						*
				ENDCASE 
				m.codmf = onorma.codmf
			ENDIF 
			m.normat2lun = m.normat
			m.notmat2 = m.normaan
			Thisform.TEXT8.Refresh
			Thisform.Lim_inf_sup1.Refresh 
		ELSE
			Thisform.TEXT8.SetFocus
		Endif
		Thisform.Refresh
		
	ENDPROC

	PROCEDURE Text7.LostFocus
		*!*	IF TYPE('M.NORMAT')='C'
		*!*		m.normat=VAL(m.normat)
		*!*		m.normaan=VAL(m.normaan)
		*!*	ENDIF 
	ENDPROC

	PROCEDURE Text8.Valid
		IF UPPER(ALLTRIM(thisform.fel_imob)) = 'C'
			If !((thisform.nnorma_min <= m.normaan) And (m.normaan <= thisform.nnorma_max))
				Do mesaj With "Durata introdusa nu este din intervalul",Alltrim(Str(thisform.nnorma_min))+" - "+Alltrim(Str(thisform.nnorma_max))+" ani!"
				Do Case
					Case thisform.nnorma_min > m.normaan
						m.normaan = thisform.nnorma_min
					CASE m.normaan > thisform.nnorma_max
						m.normaan = thisform.nnorma_max
				Endcase
			ENDIF 
		ENDIF 
		m.normat = ROUND(m.normaan*12,0)
		m.normat2lun = m.normat
		m.notmat2 = m.normaan
	ENDPROC

	PROCEDURE Text9.Valid
		*
	ENDPROC

	PROCEDURE Txt15.Click
		*
	ENDPROC

	PROCEDURE Txt15.Valid
		*
	ENDPROC

ENDDEFINE

DEFINE CLASS preluareinc AS incurs OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Name = "preluareinc"
		Shape1.Name = "Shape1"
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Name = "Terminat1"
		Text1.Left = 157
		Text1.Name = "Text1"
		Text1.TabIndex = 1
		Text1.Top = 46
		Label3.Left = 15
		Label3.Name = "Label3"
		Label3.TabIndex = 16
		Label3.Top = 50
		Text2.Name = "Text2"
		Text2.TabIndex = 3
		Label4.Name = "Label4"
		Label4.TabIndex = 17
		TEXT3.Name = "TEXT3"
		TEXT3.TabIndex = 4
		LABEL5.Name = "LABEL5"
		LABEL5.TabIndex = 19
		TEXT4.Name = "TEXT4"
		TEXT4.TabIndex = 5
		LABEL6.Name = "LABEL6"
		LABEL6.TabIndex = 21
		TEXT14.Name = "TEXT14"
		TEXT14.TabIndex = 6
		LABEL17.Name = "LABEL17"
		LABEL17.TabIndex = 23
		TEXT11.Name = "TEXT11"
		TEXT11.TabIndex = 7
		LABEL14.Name = "LABEL14"
		LABEL14.TabIndex = 18
		TEXT12.Name = "TEXT12"
		TEXT12.TabIndex = 8
		LABEL15.Name = "LABEL15"
		LABEL15.TabIndex = 20
		LABEL16.Name = "LABEL16"
		LABEL16.TabIndex = 22
		Text21.Name = "Text21"
		Text21.TabIndex = 9
		Text5.Left = 157
		Text5.Name = "Text5"
		Text5.TabIndex = 2
		Text5.Top = 73
		Label1.Left = 15
		Label1.Name = "Label1"
		Label1.TabIndex = 15
		Label1.Top = 76
		Cmdrenunt1.Name = "Cmdrenunt1"
		Cmdrenunt1.TabIndex = 11
		Cmdlist1.Name = "Cmdlist1"
		Cmdlist1.TabIndex = 12
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.TabIndex = 13
		Titlufrumos1.AutoSize = .F.
		Titlufrumos1.Caption = "Fisa Imobilizarilor in Curs"
		Titlufrumos1.Height = 23
		Titlufrumos1.Left = 3
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.Top = 1
		Titlufrumos1.Width = 249
		Titlufrumos1.WordWrap = .F.
		Cmdrenunt2.Command1.Name = "Command1"
		Cmdrenunt2.Imbuton1.Height = 27
		Cmdrenunt2.Imbuton1.Name = "Imbuton1"
		Cmdrenunt2.Imbuton1.Width = 30
		Cmdrenunt2.Name = "Cmdrenunt2"
		Cmdlist2.Command1.Name = "Command1"
		Cmdlist2.Imbuton1.Height = 27
		Cmdlist2.Imbuton1.Name = "Imbuton1"
		Cmdlist2.Imbuton1.Width = 30
		Cmdlist2.Name = "Cmdlist2"
	*</PropValue>
	
	PROCEDURE CMDTERMIN1.Click
		LOCAL I,T
		I=1
		T=''
		
		sele mf
		m.cod=-1
		appe blank
		gather memvar
		REPLACE fel WITH 'C'
		
		
		BUTON=1
		odanu=createobj('danu')
		odanu.show(1)
		if buton==2
		thisform.release
		ELSE
		store 0 to m.nract,m.valoare,m.normat,m.gest,m.cod,m.uzura,m.suma
		store 0 to m.uzuraprec,m.amorttot,m.amortlun,m.amortprec,uz,M.P,M.K,m.amortan
		store '' to m.denumire,m.nrpif,m.codmf,m.nrinv,m.tipamort,m.respons,m.scd,m.caract,m.fdoc
		store '' to M.NUME_2,M.NUMEGEST,M.EXPLICATIA,m.text
		store date() to m.dataact,m.datapif
		FOR I=1 TO 15
		T='THISFORM.TEXT'+IIF(I<10,ALLT(STR(I,1)),ALLT(STR(I,2)))+'.REFRESH'
		&T
		NEXT
		THISFORM.TEXT20.REFRESH
		THISFORM.COMBO1.REFRESH
		endif
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdGetDir" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: dir
		*m: filltree
		*p: da
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 358
		Name = "redirect"
		Width = 479
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 30, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 410
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'cmdGetDir' AS commandbutton WITH ;
		Caption = "\<DRIVE...", ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 365, ;
		Name = "cmdGetDir", ;
		TabIndex = 4, ;
		Top = 315, ;
		Width = 84
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Left = 492, ;
		Name = "CMDRENUNT1", ;
		Top = 264, ;
		Visible = .F., ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Left = 492, ;
		Name = "Cmdtermin1", ;
		Top = 296, ;
		Visible = .F., ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Introduceti calea directorului unde se afla datele firmei:", ;
		FontSize = 11, ;
		Height = 48, ;
		Left = 22, ;
		Name = "Label1", ;
		Top = 48, ;
		Width = 192, ;
		WordWrap = .T., ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
		Height = 45, ;
		Left = 406, ;
		Name = "oleImagesList", ;
		Top = 55, ;
		Width = 65
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAABQAAAAYAAAAHAAAACAAAAP7//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAtRzjLasMBAwAAAMALAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAxAoAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALgAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAAMAAAADQAAAA4AAAAPAAAAEAAAABEAAAASAAAAEwAAABQAAAAVAAAAFgAAABcAAAAYAAAAGQAAABoAAAAbAAAAHAAAAB0AAAAeAAAAHwAAACAAAAAhAAAAIgAAACMAAAAkAAAAJQAAACYAAAAnAAAAKAAAACkAAAAqAAAAKwAAACwAAAAtAAAA/v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQBMAAAAEQAPAMDAwAD/////Ae/NqwAABQAwDc+CcgT///////8FAACAAAAAAAQAAAABBQAAAHcAbwByAGwAZAAAAQQAAABmAGwAZAByAAEFAAAAZgBsAGQAcgAyAAQAAAABAAAAbHQAABIBAABCTRIBAAAAAAAAdgAAACgAAAARAAAADQAAAAEABAAAAAAAnAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A//9wAAAH///wAAAA//B+4CfnD//wAAAA/w7uAnJ+4P/wAAAA937uJycm53/wAAAA8O7ucnJ27g/wAAAA8O4nJycn7g/wAAAA8O4CcnJy4g/wAAAA8O4nJycnJw/wAAAA8O5yDvficg/wAAAA934g7v7nJ3/wAAAA/w7icnJy4P/wAAAA//B+JycnD//wAAAA//9wAAAH///wAAAAAgAAAGx0AAD+AgAAAAABAAEAICAQAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAL+wAAAAAAAAAAAAAAAAAAD7+/AAAAAAAAAAAAAAAACwv7+/sAAAAAAAAAAAAAAA8Pv7+/vwAAAAAAAAAAAAD7C/v7+/v7AAAAAAAAAAAAsA+/v7+/v78AAAAAAAAAC/AL+/v7+/v7+wAAAAAAAA8PD7+/v7+/v7+/AAAAAAD7Dwv7+/v7+/v7+wAAAAAAsP8Pv7+/v7+/v78AAAAAC/D/C/v7+/v7+/v7AAAAAA8P//APv7+/v7+/vwAAAAD7D///8Av7+/v7+/sAAAAAv7AP///wD7+/v7+/AAAAAAv78A///wv7+/v7+wAAAAAPv7+wD/8Pv7+/v78AAAAAC/v7C/AP8Av7+/v7AAAAAAAPsAAPsA/wD7+/vwAAAAAAAAAAAAvwD/AL+/sAAAAAAAAAAAAAD7APsA+/AAAAAAAAAAAAAAAL+/AACwAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////8/////D////gP///4A///8AD///AAP//gAA//4AAD/8AAAP/AAAB/gAAAf4AAAH8AAAB/AAAAfgAAAH4AAAB/AAAAfwAAAH8AAAB/ggAAf+eAAH//4AB///gIf//+Hn///5/////////////////wMAAABsdAAA/gIAAAAAAQABACAgEAAAAAAA6AIAABYAAAAoAAAAIAAAAEAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAPC/8AAAAAAAAAAAAAAAAACw/7/wAAAAAAAAAAAAAAAA8L//t/AAAAAAAAAAAAAAALD/v/e/8AAAAAAAAAAAAADwv/+3/7fwAAAAAAAAAAAAsP+//7/3t/AAAAAAAAAAAPC//7//t/e38AAAAAAAAACw/7//v/e3978AAAAAAAAA8L//v/+397f/AAAAAAAAALD/v/+/97f3vwAAAAAAAADwv/+//7f3t/8AAAAAAAAAsP+//7/3t/e/AAAAAAAAAPC//7//v/e3/wAAAAAAAACw/7//v/+3978AAAAAAAAA8L//v/+/97f/AAAAAAAAALD/v/+//7f3vwAAAAAAAADwv/+//7/3t/8AAAAAAAAAsA+//7//v/e/AAAAAAAAAA+wD7APv/+3/wAAAAAAAAAAD7APsA+/978AAAAAAAAAAAAL+/vwD7f/AAAAAAAAAAAAAL+/v7D3vwAAAAAAAAAAAAD7+/vwt/8AAAAAAAAAAAAAD7+/vwC/AAAAAAAAAAAAAAAL8AD7AAAAAAAAAAAAAAAAAAAAALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////P////g////wD///8AP///AA///wAD//8AAP//AAA//wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD//AAA//8AAP//wAD//8AA///AAP//8AD///zh////+f/////8EAAAAbHQAAP4CAAAAAAEAAQAgIBAAAAAAAOgCAAAWAAAAKAAAACAAAABAAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADs7Ozs7Ozs7Ozs7OzsAAACzs7Ozs7Ozs7Ozs7OzAAAAOzs7Ozs7Ozs7Ozs7OwAAA7Ozs7Ozs7Ozs7Ozs7AAAAs7Ozs7Ozs7Ozs7OzswAAADs7Ozs7Ozs7Ozs7OzsAAACzs7Ozs7Ozs7Ozs7OzAAALOzs7Ozs7Ozs7Ozs7MPAAA7Ozs7Ozs7Ozs7Ozs7DwAAs7Ozs7Ozs7Ozs7Ozsw8AADs7Ozs7Ozs7Ozs7OzsPAAOzs7Ozs7Ozs7Ozs7OwvwALOzs7Ozs7Ozs7Ozs7MP8AA7Ozs7Ozs7Ozs7Ozs7C/AAAAAAAAAAAAAAAAAAAA/wAAAL//v/+//7//v/+//78AAAD/v/+//7//v/+//7//AAAAv/+//7//v/+//7//vwAAAP+//7//v/+//7//v/8AAAAP/7//AAAAAAAAAAAAAAAAAL//sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////////////////////4AAAAeAAAAHgAAAB4AAAAcAAAAHAAAABwAAAAcAAAAGAAAABgAAAAYAAAAGAAAABAAAAAQAAAAEAAAABAAAAAeAAAAHgAAAB4AAAAeAAAAHgAAAB+A////wf////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAwAAABJbWFnZUhlaWdodAAJAAAASQoAAAAPAAAACwAAAEltYWdlV2lkdGgACQAAAEkKAAAAEQAAAAAAADs7Ozs7Ozs7Ozs7DwADs7Ozs7Ozs7Ozs7OzsL8ACzs7Ozs7Ozs7Ozs7OzD/AAOzs7Ozs7Ozs7Ozs7OwvwAAAAA=" />

	ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
		Height = 165, ;
		Left = 22, ;
		Name = "oleTreeview", ;
		Top = 146, ;
		Width = 426
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBVUDjLasMBAwAAAIABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACIAAAAAAAAAAwAAAAIAAAD+////BQAAAP7////+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAHLAAADhEAAI5+4eYCAAUAQAAAANz+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAuoMABgCCAAAAAAAFAACAFrQrIA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANxQz4IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'Renunt1' AS renunt WITH ;
		Left = 414, ;
		Name = "Renunt1", ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 2, ;
		Left = 14, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 96, ;
		Width = 445, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 303, ;
		Left = 10, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 44, ;
		Width = 457, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 446, ;
		Name = "Terminat1", ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.flung", ;
		FontBold = .F., ;
		FontName = "Arial Black", ;
		FontSize = 10, ;
		Height = 23, ;
		Left = 226, ;
		Name = "Text1", ;
		Top = 57, ;
		Width = 228, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		BackStyle = 1, ;
		ControlSource = "m.calefirm", ;
		DisabledBackColor = 223,223,223, ;
		Height = 23, ;
		Left = 23, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		Top = 108, ;
		Width = 426, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
		Caption = "REDIRECTIONARE", ;
		FontSize = 11, ;
		Left = 11, ;
		Name = "Titlufrumos1", ;
		Top = 6
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
	
	PROCEDURE Activate
		THISFORM.DIR
	ENDPROC

	PROCEDURE dir
		LOCAL cDir,T
		t='\'
		
		*cDir = GETDIR()
		CALEFIRMA=ALLTRIM(M.CALEFIRM)
		cdir=iif(right(calefirma,1)=t,CALEFIRMA,CALEFIRMA+t)
		
		IF EMPTY(m.cDir)
			RETURN
		ENDIF
		
		THISFORM.DA=.T.
		THISFORM.Text2.Value = m.cDir
		THISFORM.OleTreeview.Nodes.Clear
		THISFORM.FillTree(m.cDir)
	ENDPROC

	PROCEDURE filltree
		PARAMETERS m.path, m.nlevel, m.nCount
		
		LOCAL DirArr,i,nTotDir,lvl,pkey
		m.path = ALLTRIM(m.path)
		
		IF PARAMETERS()<2 OR TYPE("m.nlevel") #"N"
			lvl = 0
		ELSE
			lvl = m.nlevel
		ENDIF
		
		IF PARAMETERS()<2 OR TYPE("m.nCount") #"N"
			cnt = 0
		ELSE
			cnt = m.nCount
		ENDIF
		 
		lvl = lvl + 1
		cnt = cnt + 1
		
		pkey = LOWER(SUBSTR(m.path,1,RAT("\",m.path,2)))+"_"
		
		* Add items to treeview control
		o = THIS.oleTreeview
		IF cnt = 1
			oNode = o.nodes.add(,1,LOWER(m.path)+"_",LOWER(m.path),,)
			oNode.Image = "world"
		ELSE
			oNode = o.nodes.add(m.pkey,4,LOWER(m.path)+"_",LOWER(m.path),,)
		*	oNode.Image = "fldr2"
		ENDIF
		
		*o.Nodes.sorted = .T.
		
		DIMENSION DirArr[1,1]
		nTotDir=ADIR(DirArr,m.path+"*.","D")
		ASORT(DirArr)
		
		FOR i = 1 TO m.nTotDir
			IF DirArr[m.i,1] != '.' AND ATC('D',DirArr[m.i,5])#0
				THIS.FillTree(m.path+DirArr[m.i,1]+'\', m.lvl, m.cnt)
			ENDIF
		ENDFOR
		
	ENDPROC

	PROCEDURE Init
		IF TYPE("THIS.oleTreeview") # "O" OR ISNULL(THIS.oleTreeview)
			RETURN .F.
		ENDIF
	ENDPROC

	PROCEDURE cmdGetDir.Click
		LOCAL cDir
		
		cDir = GETDIR()
		*m.cdir
		IF EMPTY(m.cDir)
			RETURN
		ENDIF
		
		THISFORM.DA=.T.
		THISFORM.Text2.Value = m.cDir
		THISFORM.OleTreeview.Nodes.Clear
		THISFORM.FillTree(m.cDir)
	ENDPROC

	PROCEDURE Cmdtermin1.Click
		*
	ENDPROC

	PROCEDURE Cmdtermin1.Valid
		local c,c1,l,cf
		cf=calefirma
		CALEFIRMA=ALLTRIM(THISFORM.text2.value)
		
		l=len(nfscurt)
		if right(calefirma,1)#'\'
		calefirma=calefirma+'\'
		endif
		c=upper(right(calefirma,l+1))
		c1=upper(nfscurt+'\')
		
		
		IF !FILE('&CALEFIRMA\DATEAN\CALENdar.DBF') or c#c1
		DO MESAJATENT WITH 'Cale incorecta!','Alegeti directorul in care se afla datele firmei!'
		calefirma=cf
		RETURN 0
		ENDIF
		
		m.calefirm=calefirma
		sele firma
		loca for firma=m.flung
		repl calefirm with calefirma
		thisform.release
		
		ostart.show(1)
	ENDPROC

	PROCEDURE oleTreeview.Click
		*** OLE Control Event ***
		*IF !THISFORM.DA
		*	THISFORM.DIR
		*ELSE
			THISFORM.TEXT2.Value = THIS.SelectedItem.TEXT
			THISFORM.TEXT2.REFRESH
		*ENDIF
	ENDPROC

	PROCEDURE Terminat1.Command1.Valid
		THISFORM.CMDTermin1.Valid 
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin2" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 133
		Name = "seleluna"
		Width = 240
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Cmdtermin2' AS cmdtermin WITH ;
		Left = 192, ;
		Name = "Cmdtermin2", ;
		Top = 84, ;
		ZOrderSet = 6, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Combo1' AS combobox WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ControlSource = "", ;
		Height = 24, ;
		Left = 24, ;
		Name = "Combo1", ;
		RowSource = "nl,an", ;
		RowSourceType = 6, ;
		SpecialEffect = 2, ;
		Style = 2, ;
		Top = 48, ;
		Width = 72, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "Selectati anul si luna de inceput:", ;
		Height = 13, ;
		Left = 24, ;
		Name = "Label1", ;
		Top = 24, ;
		Width = 192, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 136, ;
		Name = "Label2", ;
		Top = 52, ;
		Width = 27, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 171, ;
		Name = "Label3", ;
		Top = 52, ;
		Width = 40, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 109, ;
		Left = 12, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 12, ;
		Width = 217, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE Combo1.Valid
		sele calendar
		anul=an
		luna=nl
		thisform.label2.caption=luna
		thisform.label3.caption=anul
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 2
		DoCreate = .T.
		Height = 449
		Name = "sit"
		Width = 729
	*</PropValue>

	ADD OBJECT 'Banda21' AS banda2 WITH ;
		Height = 30, ;
		Left = 0, ;
		Name = "Banda21", ;
		Top = 0, ;
		Width = 656, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Excel1' AS excel WITH ;
		Height = 28, ;
		Left = 660, ;
		Name = "Excel1", ;
		Top = 3, ;
		Width = 30, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		DeleteMark = .F., ;
		GridLineColor = 192,192,192, ;
		Height = 409, ;
		Left = 8, ;
		Name = "Grid1", ;
		ReadOnly = .T., ;
		RecordSource = "rulaje", ;
		Top = 36, ;
		Width = 711, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'List2' AS list WITH ;
		Left = 800, ;
		Name = "List2", ;
		Top = 0, ;
		Visible = .F., ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 692, ;
		Name = "Terminat1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Titlu1' AS titlu WITH ;
		Caption = "SITUATIE ANALITICA - RULAJ AMORTIZMENTE", ;
		Height = 37, ;
		Left = 11, ;
		Name = "Titlu1", ;
		Top = 8, ;
		Width = 624, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
	
	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
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		THISFORM.GRID1.SetAll("DynamicBackColor", "IIF(!EMPTY(NL), RGB(255,255,255), RGB(215,215,255))", "Column")
		
	ENDPROC

	PROCEDURE Excel1.Command1.Click
		LOCAL i,xlsheet,XLApp,tmpsheet
		exista_excel=.t.
		
		p2='AN'
		SELECT RULAJE
		FOR J=2 TO FCOUNT()
		T=FIELD(J)
		p2=p2+','+T
		ENDFOR 
		*WAIT WINDOW p2
		p1=p2
		ON ERROR do exportare with 'rulaje',p1,p2
								   
		tmpsheet = GetObject('','excel.sheet')
		ON ERROR
		
		IF exista_excel
		WAIT WINDOW "Se deschide Excel..." NOWAIT 
		
		XLApp = tmpsheet.application
		
		XLApp.Visible = .t.
		XLApp.WorkBooks.Add()
		XLSheet = XLApp.ActiveSheet
		
		SELECT RULAJE
		FOR J=1 TO FCOUNT()
		T=FIELD(J)
		XLSheet.Cells(1,J).Value = T
		*XLSheet.Cells(1,2).Value = "Data Act"
		NEXT
		
		i=1
		sele RULAJE
		scan
			i=i+1
			FOR J=1 TO FCOUNT()
			T=FIELD(J)
			XLSheet.Cells(i,J).Value =&T
			NEXT
		*	XLSheet.Cells(i,2).Value =dataact
		
		endscan
		ENDIF 
	ENDPROC

	PROCEDURE Grid1.Init
		FOR i = 3 TO this.ColumnCount 
			this.Columns[i].inputMask = get_mask(14,gnZ)
		ENDFOR 
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="img_start" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_ter_al" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboLuna" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboFirma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblFirma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblLuna" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblAnul" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_start_al" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboAnul" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: cindmaus
		*m: go
		*m: lasfirsit
		*m: validfirma
		*m: validluna
		*p: tt1
		*p: tt2
		*p: tt3
		*p: ttanul
		*p: ttdata
		*p: ttfirma
		*p: ttluna
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 0
		DoCreate = .T.
		Height = 153
		Name = "start00"
		Picture = ..\grafice\backgrnd.bmp
		TabStop = .F.
		tt1 = ""
		tt2 = ""
		tt3 = ""
		ttanul = ""
		ttdata = ""
		ttfirma = ""
		ttluna = "
		Width = 529
		WindowState = 0
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'cboAnul' AS combobox WITH ;
		Alignment = 0, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "thisform.ttAnul", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Format = "", ;
		Height = 20, ;
		Left = 267, ;
		Name = "cboAnul", ;
		RowSource = "1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020", ;
		RowSourceType = 1, ;
		SpecialEffect = 2, ;
		Style = 2, ;
		TabIndex = 2, ;
		TabStop = .T., ;
		Top = 47, ;
		Value = 2000, ;
		Visible = .T., ;
		Width = 247, ;
		ZOrderSet = 35
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'cboFirma' AS combobox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "thisform.ttFirma", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Format = "", ;
		Height = 20, ;
		InputMask = "", ;
		Left = 267, ;
		Name = "cboFirma", ;
		RowSource = "firma.firma", ;
		RowSourceType = 2, ;
		SpecialEffect = 2, ;
		Style = 2, ;
		TabIndex = 1, ;
		TabStop = .T., ;
		Top = 10, ;
		Visible = .T., ;
		Width = 247, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'cboLuna' AS combobox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "thisform.ttluna", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Format = "", ;
		Height = 20, ;
		Left = 267, ;
		Name = "cboLuna", ;
		RowSource = "lunilean.numeluna", ;
		RowSourceType = 6, ;
		SpecialEffect = 2, ;
		Style = 2, ;
		TabIndex = 3, ;
		TabStop = .T., ;
		Top = 85, ;
		Visible = .T., ;
		Width = 247, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'img_start' AS image WITH ;
		Height = 156, ;
		Left = 0, ;
		Name = "img_start", ;
		Picture = ..\grafice\start.bmp, ;
		Stretch = 2, ;
		Top = 0, ;
		Width = 529, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'img_start_al' AS image WITH ;
		BackStyle = 0, ;
		Height = 28, ;
		Left = 80, ;
		Name = "img_start_al", ;
		Picture = ..\grafice\start_albastru.bmp, ;
		Stretch = 2, ;
		Top = 120, ;
		Width = 108, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'img_ter_al' AS image WITH ;
		BackStyle = 0, ;
		Height = 34, ;
		Left = 336, ;
		Name = "img_ter_al", ;
		Picture = ..\grafice\terminat_a.bmp, ;
		Stretch = 2, ;
		Top = 116, ;
		Width = 128, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'lblAnul' AS label WITH ;
		Alignment = 1, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "Anul:", ;
		FontBold = .T., ;
		FontName = "Courier New", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 209, ;
		Name = "lblAnul", ;
		TabIndex = 6, ;
		Top = 49, ;
		Width = 42, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblFirma' AS label WITH ;
		Alignment = 1, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "Firma:", ;
		FontBold = .T., ;
		FontName = "Courier New", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 201, ;
		Name = "lblFirma", ;
		TabIndex = 5, ;
		Top = 13, ;
		Width = 50, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblLuna' AS label WITH ;
		Alignment = 1, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "Luna contabila:", ;
		FontBold = .T., ;
		FontName = "Courier New", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 129, ;
		Name = "lblLuna", ;
		TabIndex = 4, ;
		Top = 87, ;
		Width = 122, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Activate
		thisform.ttfirma=pofirma.firma
		thisform.ttanul=m.an
		thisform.ttluna=m.luna
		
		SELE FIRMA
		go top
		if !eof()
		LOCAL II,ESTE
		II=1
		ESTE=.F.
		FOR II = 1 TO FCOUNT( )  
			IF ALLT(FIELD(II))='PERMIS'
			ESTE=.T.
			ENDIF
		NEXT
		IF ESTE
		SELE FIRMA
		REPL ALL PERMIS WITH '*' FOR EMPTY(PERMIS)
		UTILIZATOR=ALLT(UTILIZATOR)
		SET FILTER TO ALLT(PERMIS)='*' OR LIKE('*'+UTILIZATOR+'*',PERMIS) AND !EMPTY(ALLT(PERMIS))
		ENDIF
		SELE FIRMA
		GO TOP
		ENDIF
		
		
		
		
		
		
		
		
	ENDPROC

	PROCEDURE cindmaus
	ENDPROC

	PROCEDURE go
		IF THISFORM.VALIDLUNA()
		* THISFORM.VISIBLE=.F.
		
		 THISFORM.LASFIRSIT
		
		* do totv
		* DO INIT_OPTIUNI
		
		 THISFORM.hide
		ENDIF
		
		
	ENDPROC

	PROCEDURE Init
		*!*	CLOSE DATABASES 
		*!*	calefirma=dirgen
		*!*	Do des With 'FIRMA' IN totv.prg
		
		*!*	Sele FIRMA
		*!*	Go Top
		*!*	If !Eof()
		*!*		Local II,ESTE
		*!*		II=1
		*!*		ESTE=.F.
		*!*		For II = 1 To Fcount( )
		*!*			If Allt(Field(II))='PERMIS'
		*!*				ESTE=.T.
		*!*			Endif
		*!*		Next
		*!*		If ESTE
		*!*			Sele FIRMA
		*!*			Repl All PERMIS With '*' For Empty(PERMIS)
		*!*			UTILIZATOR=Allt(UTILIZATOR)
		*!*			Set Filter To Allt(PERMIS)='*' Or Like('*'+UTILIZATOR+'*',PERMIS) And !Empty(Allt(PERMIS))
		*!*		Endif
		*!*		Sele FIRMA
		*!*		Go Top
		*!*		m.flung=FIRMA
		*!*		thisform.ttfirma=ALLTRIM(firma)
		*!*		m.antet=Alltrim(M.flung)
		*!*		nfscurt=Alltrim(fscurt)
		*!*		m.CALEFIRM=ADDBS(Alltrim(CALEFIRM))
		*!*		calefirma=M.CALEFIRM
		*!*		LOC=Allt(LOCTEMPO)
		
		
		*!*		If ESERVER And !Empty(CALES)
		*!*			calefirma=ADDBS(STRTRAN(CALES+'\'+nfscurt,"\\","\"))
		
		*!*		Endif
		
		*!*	Else
		*!*		Do Form STARTFIRMA
		*!*		Do mesaj With 'Pentru initializare programul trebuie restartat',''
		*!*		QUIT 
		*!*	Endif
		
		*!*	*daca firma a fost creata in sal2000__________
		*!*	If !File('&CALEFIRMA\datean\calendar.DBF') And File('&CALEFIRMA\datean\calensal.DBF')
		*!*		Do firmadinsal
		*!*		Do des With 'FIRMA' IN totv.prg
		*!*	Endif
		
		*!*	*** aleg ultima luna deschisa
		*!*	Do des With 'CALENDAR' IN totv.prg
		*!*	SELECT calendar
		*!*	Go Bottom
		*!*	Scatter Memvar
		*!*	thisform.ttanul=an
		*!*	lc_luna=nl
		*!*	lc_anul=an
		
		*!*	Do des With 'LUNILEAN' IN totv.prg
		*!*	Seek(lc_luna)
		*!*	Scatter Memvar
		*!*	m.luna=numeluna
		*!*	thisform.ttluna=numeluna
		
		*!*	THIS.CBOFirma.SetFocus
		
		
		
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		if nkeycode=13
			this.go()
		ELSE
			DODEFAULT ()
		endif
	ENDPROC

	PROCEDURE lasfirsit
		
		*capapl="CONT2000      Firma "+numefirma+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+"  "
		SELECT lunilean
		LOCATE FOR nl=m.nl
		m.luna=numeluna
		
		&&ESTE CUMVA LUNA BLOCATA?
		SELE calendar
		LOCA for nl=m.nl and AN=m.AN
		SCAT memv
		luna_inchisa=smf
		
		&&ESTE CUMVA LUNA NEPLATITA?
		*sele calendar
		*loca for nl=m.nl and an=m.an
		*SKIP
		*IF EOF()
		IF e_ultima_luna()
			IF USED('cul')
				USE IN cul
			ENDIF 
		*	SELE 0
		*	USE &DIRGEN\_ALFA\DATEAN\CUL ALIAS CUL
			DO DES WITH 'CUL' IN totv.prg
			IF SERIA_LUNARA_E_CORECTA()
				LUNA_NEPLATITA=.F.
			ELSE
				LUNA_NEPLATITA=.T.
			ENDIF
			SELE cul
			USE
		ELSE
			LUNA_NEPLATITA=.F.
		ENDIF
		
		
		Select FIRMA
		LOCATE FOR firma=thisform.ttfirma 
		Scatter Name poFirma && OBIECT GLOBAL
		
		Select calendar
		Scatter Name poCalendar && OBIECT GLOBAL
		
		NUMEFIRMA=UPPER(rTRIM(poFirma.firma))
		*NUMEPROGRAM=UPPER(ALLTRIM(PCNUMEAPP))
		
		capapl=NUMEPROGRAM+"      Firma "+NUMEFIRMA+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+"  "
		goApp.SetCaption(capapl)
		
	ENDPROC

	PROCEDURE validfirma
		*WAIT WINDOW this.ttFirma
		Sele FIRMA
		Loca For FIRMA=this.ttFirma
		Scatter Memvar
		
		antet=ALLTRIM(M.FLUNG)
		NFSCURT=Alltrim(m.FSCURT)
		CALEFIRMA=Alltrim(M.CALEFIRM)
		IF !Start_Nou()
			LOC=ALLT(LOCTEMPO)
		ELSE
			LOC = ADDBS(gcTempPath)
		ENDIF
		DIRFIRM=addbs(loc)+nfscurt+"\"
		
		If ESERVER And !Empty(CALES)
			CALEFIRMA=CALES+'\'+NFSCURT
		Endif
		
		*daca firma a fost creata in sal2000__________
		*!*	If !File('&CALEFIRMA\datean\calendar.DBF') And File('&CALEFIRMA\datean\calensal.DBF')
		*!*		Do firmadinsal
		*!*		Do DES With 'LUNILEAN'
		*!*		Do DES With 'CALENDAR'
		*!*	Endif
		
		IF USED('CALENDAR')
			Sele calendar
			USE
		ENDIF
		*** compar calendarmf.dbf cu calendar.dbf
		DO compar_calendare WITH 'calendarmf','calendar'
		
		*** aleg ultima luna deschisa
		Do DES With 'CALENDAR'
		Sele calendar
		Go Bottom
		Scatter Memvar
		THIS.TTAnul=AN
		
		Sele lunilean
		Seek(m.nl)
		Scatter Memvar
		m.luna=m.numeluna
		
		THIS.TTLUNA=LUNA
		
		THIS.CBOAnul.Refresh
		THIS.CBOLuna.Refresh 
	ENDPROC

	PROCEDURE validluna
		local amin,amax,lmin,lmax,_an,_luna
		*!*	WAIT WINDOW this.ttanul
		*!*	WAIT WINDOW this.ttluna
		*!*	WAIT WINDOW this.ttFirma
		*m.an=thisform.ttanul
		_AN=THIS.TTANUL 
		_LUNA=THIS.TTLUNA 
		m.an = THIS.TTANUL 
		SELECT lunilean
		LOCATE FOR numeluna=this.ttluna
		SCATTER MEMVAR
		_NL=m.NL
		_an=m.an
		*!*	m.luna=numeluna
		
		sele calendar
		LOCATE FOR !EMPTY(an) AND !EMPTY(nl)
		IF FOUND()
			amin=an
			lmin=nl
		endif
		
		go bottom
		amax=an
		lmax=nl
		
		&& verific daca luna aleasa este mai mica decat luna maxima deschisa inscrisa in tabelul start_meniuri
		 
		lnLunaC = VAL(m.an)*12+VAL(m.nl)
		lcCaleFirma = ADDBS(calefirma)
		lcFscurt = ALLTRIM(nfscurt)
		lcLunaS = Citeste_Firma_Luna(lcCaleFirma,lcFscurt) && proceduri_verificare_luna.prg
		lcLuna = m.nl
		lcAn = m.an
		lnPos = AT("\",lcLunaS)
		IF lnPos = 0
			lnLunaS = 0
		ELSE 
			lcAn = LEFT(lcLunaS,lnPos - 1)
			lcLuna = SUBSTR(lcLunaS,lnPos+1)
			lnLunaS = VAL(lcAn)*12 + VAL(lcLuna)
		ENDIF
		IF lnLunaC>lnLunaS
			DO mesaj WITH "Ultima luna deschisa este: "+lcLuna+" "+lcAn,""
			sele calendar
			LOCATE FOR VAL(an) = VAL(lcAn) AND VAL(nl) = VAL(lCLuna)
			IF FOUND()
				scatter memvar
				THIS.TTANUL = m.an
				sele lunilean
				seek(m.nl)
				m.luna=numeluna
			ENDIF 
			THIS.CBOAnul.Refresh
			THIS.CBOLuna.Refresh	
			RETURN .F.
		ENDIF 
		&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
		
		
		*daca luna nu e dechisa___________
		if VAL(_an)*12+VAL(_NL)>VAL(amax)*12+VAL(lmax)
			do mesaj with "Luna "+rtrim(_NL)+" "+_an+" nu a fost deschisa!","Ultima luna deschisa este: "+lmax+" "+amax
			*WAIT WINDOW "Ultima luna deschisa este: "+lmax+" "+amax
			sele calendar
			go bottom
			scatter memvar
			thisform.ttanul=an
			
			sele lunilean
			seek(M.nl)
			IF FOUND()
				m.luna=numeluna
				THISFORM.TTLUNA=NUMELUNA
			ENDIF 
			THIS.CBOAnul.Refresh
			THIS.CBOLuna.Refresh 
			RETURN .F.
		endif
		
		*daca luna nu exista_________________
		if VAL(_an)*12+VAL(_NL)<VAL(amin)*12+VAL(lmin)
			do mesaj with "Nu sunt inregistrate date in luna  "+rtrim(_NL)+" "+_an+" !",;
				"Prima luna deschisa a fost: "+lmin+" "+amin
			sele calendar
			go bottom
			scatter memvar
			thisform.ttanul=an
			
			sele lunilean
			seek(M.nl)
			IF FOUND()
				m.luna=numeluna
				THISFORM.TTLUNA=NUMELUNA
			ENDIF 
			THIS.CBOAnul.Refresh
			THIS.CBOLuna.Refresh 
			RETURN .F.
		endif
		m.nl=_NL
		m.an=_an
		
		
		
	ENDPROC

	PROCEDURE cboAnul.Valid
		
		
		
	ENDPROC

	PROCEDURE cboFirma.Valid
		thisform.validfirma()
		
		
	ENDPROC

	PROCEDURE cboLuna.Valid
		
		
		
		
		
		
		
	ENDPROC

	PROCEDURE img_start_al.Click
		thisform.go()
		
	ENDPROC

	PROCEDURE img_start_al.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.Picture=addbs(gcAppPath)+'GRAFICE\START_GALBEN.BMP'
		
	ENDPROC

	PROCEDURE img_start_al.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.Picture=addbs(gcAppPath)+'GRAFICE\start_albastru.bmp'
	ENDPROC

	PROCEDURE img_ter_al.Click
		quit
	ENDPROC

	PROCEDURE img_ter_al.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_g.BMP'
	ENDPROC

	PROCEDURE img_ter_al.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_a.BMP'
	ENDPROC

ENDDEFINE

DEFINE CLASS viz AS ffergen OF "..\..\gestiuni\clase\ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column21.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column22.Text1" 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="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="" />
	*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="t3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="TERMINAT1" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BackColor = 255,255,255
		DoCreate = .T.
		Height = 523
		Name = "viz"
		Width = 793
		Line1.Left = -6
		Line1.Name = "Line1"
		Line1.Top = 496
	*</PropValue>

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

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

	ADD OBJECT 'Check3' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "\<Nr. Doc.", ;
		ControlSource = "bnract", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 690, ;
		Name = "Check3", ;
		SpecialEffect = 2, ;
		TabIndex = 20, ;
		Top = 209, ;
		Width = 100
		*< END OBJECT: BaseClass="checkbox" />

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

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

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

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "", ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 690, ;
		Name = "Command2", ;
		Picture = ..\..\contab\grafice\delete.bmp, ;
		StatusBarText = "", ;
		TabIndex = 4, ;
		ToolTipText = "Eliminarea din lista", ;
		Top = 326, ;
		Width = 98
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "Calcul amortizare", ;
		Height = 51, ;
		Left = 696, ;
		Name = "Command3", ;
		Top = 120, ;
		Width = 84, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Excel1' AS excel WITH ;
		Left = 696, ;
		Name = "Excel1", ;
		Top = 384, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 254,255,240, ;
		ColumnCount = 22, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 405, ;
		Left = 6, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "xMF", ;
		TabIndex = 1, ;
		Top = 27, ;
		Width = 672, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 254,255,240, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nract", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 48, ;
		Column2.Alignment = 1, ;
		Column2.BackColor = 254,255,240, ;
		Column2.ColumnOrder = 10, ;
		Column2.ControlSource = "uzura", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 44, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 254,255,240, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "datact", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 53, ;
		Column4.Alignment = 0, ;
		Column4.BackColor = 254,255,240, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 151, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 254,255,240, ;
		Column5.ColumnOrder = 4, ;
		Column5.ControlSource = "valoare", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Format = "r", ;
		Column5.InputMask = "99 999 999 999 999", ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 101, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 254,255,240, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "nrinv", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column7", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 51, ;
		Column7.Alignment = 1, ;
		Column7.BackColor = 254,255,240, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "codmf", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column8", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 44, ;
		Column8.Alignment = 1, ;
		Column8.BackColor = 254,255,240, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "normat/12", ;
		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 = "9999", ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 42, ;
		Column9.Alignment = 0, ;
		Column9.BackColor = 254,255,240, ;
		Column9.ColumnOrder = 5, ;
		Column9.ControlSource = "datapif", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 53, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 254,255,240, ;
		Column10.ColumnOrder = 6, ;
		Column10.ControlSource = "nrpif", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 38, ;
		Column11.BackColor = 254,255,240, ;
		Column11.ColumnOrder = 11, ;
		Column11.ControlSource = "tipamort", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column13", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 46, ;
		Column12.BackColor = 254,255,240, ;
		Column12.ColumnOrder = 16, ;
		Column12.ControlSource = "gest", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column14", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 44, ;
		Column13.BackColor = 254,255,240, ;
		Column13.ColumnOrder = 19, ;
		Column13.ControlSource = "respons", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column15", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 122, ;
		Column14.BackColor = 254,255,240, ;
		Column14.ColumnOrder = 13, ;
		Column14.ControlSource = "cota", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Format = "r", ;
		Column14.InputMask = "999.99%", ;
		Column14.Name = "Column16", ;
		Column14.ReadOnly = .T., ;
		Column14.Visible = .T., ;
		Column14.Width = 40, ;
		Column15.BackColor = 254,255,240, ;
		Column15.ColumnOrder = 20, ;
		Column15.ControlSource = "scd", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.Name = "Column17", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 43, ;
		Column16.BackColor = 254,255,240, ;
		Column16.ColumnOrder = 12, ;
		Column16.ControlSource = "amortlun", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.Format = "r", ;
		Column16.InputMask = "999 999 999 999", ;
		Column16.Name = "Column18", ;
		Column16.ReadOnly = .T., ;
		Column17.BackColor = 254,255,240, ;
		Column17.ColumnOrder = 14, ;
		Column17.ControlSource = "amorttot", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.Format = "r", ;
		Column17.InputMask = "999 999 999 999", ;
		Column17.Name = "Column19", ;
		Column17.ReadOnly = .T., ;
		Column18.BackColor = 254,255,240, ;
		Column18.ColumnOrder = 21, ;
		Column18.ControlSource = "casat", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.Name = "Column20", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 37, ;
		Column19.BackColor = 254,255,240, ;
		Column19.ColumnOrder = 22, ;
		Column19.ControlSource = "cod", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.Name = "Column1", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 48, ;
		Column20.BackColor = 254,255,240, ;
		Column20.ColumnOrder = 15, ;
		Column20.ControlSource = "amortan", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.Format = "r", ;
		Column20.InputMask = "999 999 999 999", ;
		Column20.Name = "Column12", ;
		Column20.ReadOnly = .T., ;
		Column21.BackColor = 254,255,240, ;
		Column21.ColumnOrder = 17, ;
		Column21.ControlSource = "normat2", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.Name = "Column21", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 32, ;
		Column22.BackColor = 254,255,240, ;
		Column22.ColumnOrder = 18, ;
		Column22.ControlSource = "valramasa", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.Format = "r", ;
		Column22.InputMask = "999 999 999 999", ;
		Column22.Name = "Column22", ;
		Column22.ReadOnly = .T., ;
		Column22.Width = 56
		*< END OBJECT: BaseClass="grid" />

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

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

	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 = .T.
		*< 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 = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.Column12.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.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 = .T.
		*< 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 = .T.
		*< 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 = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota", ;
		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 = .T., ;
		Visible = .T.
		*< 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 = .T.
		*< 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", ;
		ReadOnly = .T.
		*< 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", ;
		ReadOnly = .T.
		*< 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 = .T., ;
		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", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.Column21.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.Column22.Header1' AS header WITH ;
		Caption = "Val.ramasa dupa schimbarea DNS", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column22.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 (luni)", ;
		FontName = "Arial Narrow", ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		ToolTipText = ""
		*< 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 = .T.
		*< 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 = .T.
		*< 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 = .T.
		*< 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 = .T.
		*< 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 = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
		Alignment = 2, ;
		Caption = "DNS(ani)", ;
		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 = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Amortizmente:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 264, ;
		Name = "Label1", ;
		TabIndex = 8, ;
		Top = 436, ;
		Width = 100
		*< END OBJECT: BaseClass="label" />

	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 = 22, ;
		Left = 7, ;
		Name = "Label10", ;
		TabIndex = 10, ;
		Top = 6, ;
		Width = 335, ;
		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 = 246, ;
		Name = "Label19", ;
		Top = 199, ;
		Visible = .F., ;
		Width = 204, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Total Amortizmente:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 514, ;
		Name = "Label2", ;
		TabIndex = 8, ;
		Top = 452, ;
		Width = 139
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Rulaje:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 426, ;
		Name = "Label3", ;
		TabIndex = 8, ;
		Top = 450, ;
		Width = 51
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Total Valoare:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 22, ;
		Left = 26, ;
		Name = "Label4", ;
		TabIndex = 8, ;
		Top = 436, ;
		Width = 99
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'LIST1' AS list WITH ;
		Left = 725, ;
		Name = "LIST1", ;
		Top = 441, ;
		Visible = .F., ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

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

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

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

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

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

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

	ADD OBJECT 't3' AS textbox WITH ;
		ControlSource = "tvaloare", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 76, ;
		Name = "t3", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 473, ;
		Width = 162
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'TERMINAT1' AS terminat WITH ;
		Left = 725, ;
		Name = "TERMINAT1", ;
		Top = 471, ;
		Visible = .F., ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "m.suma", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 314, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 473, ;
		Width = 162
		*< 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 = 394, ;
		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 = 436, ;
		Name = "Text17", ;
		ReadOnly = .T., ;
		TabIndex = 38, ;
		Top = 4, ;
		Width = 80
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "m.sumat", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 492, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 473, ;
		Width = 156
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
		
		sele xmf
		
		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. and m.gest#-1 then
			Tgest="gest==m.gest"
		endif
		
		
		if bsuma==.t. then
			Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
		endif
		
		if bnract==.t. then
			Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
		endif
		
		sele xmf
		SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tscd and &tnract and !casat
		*set order to tag dataact
		*THISFORM.CALCUZURA
		*thisform.calcamort
		sele xmf
		go top
		THISFORM.GRID1.REFRESH
		
		sele xmf
		sum amortlun to m.suma 
		sum amorttot to m.sumat 
		SUM VALOARE TO TVALOARE
		
		thisform.text1.refresh
		thisform.text2.refresh
		thisform.t3.refresh
	ENDPROC

	PROCEDURE butdrept
	ENDPROC

	PROCEDURE calcamort
		Sele xmf
		SCAN FOR !inactiv
			Scat Memv
			Do calcAMORTm.PRG
			Gath Memv
		Endscan
		
	ENDPROC

	PROCEDURE calcuzura
		do calcuzura.prg
	ENDPROC

	PROCEDURE Init
		store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
		store .f. to bden,bsuma,bgest,bscd,bnract
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
		
		sele xmf
		SET ORDER TO 5   && STR(VAL(NRINV))  
		go top
		if eof()
		thisform.grid1.gridlines=0
		thisform.check1.enabled=.f.
		thisform.check2.enabled=.f.
		thisform.check3.enabled=.f.
		thisform.check4.enabled=.f.
		thisform.check9.enabled=.f.
		thisform.command1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		thisform.afisactual
	ENDPROC

	PROCEDURE modificare
		SELE xmf
		SCATTER MEMVAR
		
		SELECT numegest
		LOCATE FOR gest=m.gest
		SCATTER FIELDS numegest MEMVAR
		
		SELECT sectie
		LOCATE FOR id_sectie=m.id_sectie
		SCATTER FIELDS sectie MEMVAR
		
		buton=1 
		ofi=CREATE('fisa')
		IF felul='N'
			ofi.fel_imob='N'
		ELSE
			ofi.fel_imob='C'
		ENDIF 
		ofi.SHOW(1)
		
		IF buton=2
			RETURN
		ENDIF 
		
			SELECT xmf 
			IF FLOCK()
				GATHER MEMVAR
			ENDIF
			UNLOCK
		
			SELECT mflun
			APPEND BLANK
			IF FLOCK()
				GATHER MEMVAR
				REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
				REPLACE codop WITH 1
			ENDIF
			UNLOCK
		
			SELECT mfanual
			APPEND BLANK
			IF FLOCK()
				GATHER MEMVAR
				REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
				REPLACE codop WITH 1
			ENDIF
			UNLOCK
		
		THISFORM.afisactual
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		if primadata1
		thisform.command3.click
		primadata1=.f.
		endif
	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 Check3.Click
		if bnract==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul documentului"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="m.nr1"
				.text2.controlsource="m.nr2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check3.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
		IF buton=2
		RETURN
		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 Command1.Click
		thisform.alwaysontop=.f.
		thisform.modificare
		thisform.alwaysontop=.t.
	ENDPROC

	PROCEDURE Command2.Click
		sele xmf
		scatter memvar
		
		oe=createobj('casdanu')
		oe.label1.caption='Se elimina mijlocul fix:'
		oe.show(1)
		
		if buton==1
		SELE xmf
		SCATTER MEMVAR 
		DELETE 
		
		SELECT mflun
		APPEND BLANK 
		IF FLOCK()
			GATHER MEMVAR
			REPLACE explicatia WITH 'Stergere',dataora WITH DATETIME()
			REPLACE codop WITH 7
		ENDIF 
		UNLOCK 
		
		SELECT mfanual
		APPEND BLANK 
		IF FLOCK()
			GATHER MEMVAR
			REPLACE explicatia WITH 'Stergere',dataora WITH DATETIME()
			REPLACE codop WITH 7
		ENDIF 
		UNLOCK  
		
		
		thisform.afisactual
		endif
	ENDPROC

	PROCEDURE Command3.Click
		Select xmf
		Scan For fel != "C" AND !casat
			Do Case
			Case Empty(normat)
				Do mesaj With 'Trebuie introdusa durata normala de serviciu','la '+Allt(denumire)
				Return
		
			Case Empty(valoare)
				Do mesaj With "Trebuie introdusa valoarea de achizitie",'la '+Allt(denumire)
				Return
		
			Case Empty(datapif)
				Do mesaj With 'Trebuie introdusa data punerii in functiune','la '+Allt(denumire)
				Return
			Endcase
		Endscan
		Thisform.CALCUZURA
		Thisform.calcamort
		Thisform.afisactual
		
	ENDPROC

	PROCEDURE Excel1.Command1.Click
		LOCAL i,xlsheet,XLApp,tmpsheet
		exista_excel=.t.
		p1='nract,dataact,denumire,valoare,datapif,nrpif,nrinv,codmf,normat,uzura,tipamort,amortlun,cota,amorttot,;
		    amortan,gest,normat2,valramasa,respons,scd'
		p2='Nr_Act,Data_Act,Denumire,Valoare,Data_PIF,Nr_PIF,Nr_Inventar,Cod_MF,DNS_ani,Uzura_luni,Tip_amort,Amortizment,;
		   Cota,Total_amort,Amort_anuala,Nr_gest,DNS2,Val_ramasa,Responsabil,Cont_Deb'
		
		ON ERROR do exportare with 'xmf',p1,p2
								   
		tmpsheet = GetObject('','excel.sheet')
		ON ERROR
		
		IF exista_excel
		WAIT WINDOW "Se deschide Excel..." NOWAIT 
		
		XLApp = tmpsheet.application
		
		XLApp.Visible = .t.
		XLApp.WorkBooks.Add()
		XLSheet = XLApp.ActiveSheet
		
		XLSheet.Cells(1,1).Value = "Nr. Act"
		XLSheet.Cells(1,2).Value = "Data Act"
		XLSheet.Cells(1,3).Value = "Denumire"
		XLSheet.Cells(1,4).Value = "Valoare achizitie"
		XLSheet.Cells(1,5).Value = "Valoare inventar"
		XLSheet.Cells(1,6).Value = "Valoare calcul"
		XLSheet.Cells(1,7).Value = "Valoare majorare"
		XLSheet.Cells(1,8).Value = "Data PIF"
		XLSheet.Cells(1,9).Value = "Nr. PIF"
		XLSheet.Cells(1,10).Value = "Nr. Inventar"
		XLSheet.Cells(1,11).Value = "Cod MF"
		XLSheet.Cells(1,12).Value = "DNS(luni)"
		XLSheet.Cells(1,13).Value = "DNS calcul"
		XLSheet.Cells(1,14).Value = "Uzura(luni)"
		XLSheet.Cells(1,15).Value = "Tip amort."
		XLSheet.Cells(1,16).Value = "Amortizment"
		XLSheet.Cells(1,17).Value = "Cota"
		XLSheet.Cells(1,18).Value = "Total amort."
		XLSheet.Cells(1,19).Value = "Amort. anuala"
		XLSheet.Cells(1,20).Value = "Amort. precedenta"
		XLSheet.Cells(1,21).Value = "Nr. gest"
		XLSheet.Cells(1,22).Value = "Responsabil"
		XLSheet.Cells(1,23).Value = "Cont Deb."
		XLSheet.Cells(1,24).Value = "Data reevaluare"
		
		
		i=1
		sele xmf
		SCAN
		
			i=i+1
			XLSheet.Cells(i,1).Value =nract
			XLSheet.Cells(i,2).Value =dataact
			XLSheet.Cells(i,3).Value =denumire
			XLSheet.Cells(i,4).Value =valoare
			XLSheet.Cells(i,5).Value =valin
			XLSheet.Cells(i,6).Value =valramasa
			XLSheet.Cells(i,7).Value = -valoare + valin
			XLSheet.Cells(i,8).Value =datapif
			XLSheet.Cells(i,9).Value =nrpif
			XLSheet.Cells(i,10).Value =nrinv
			XLSheet.Cells(i,11).Value =codmf
			XLSheet.Cells(i,12).Value =normat
			XLSheet.Cells(i,13).Value =normat2lun
			XLSheet.Cells(i,14).Value =uzura
		    XLSheet.Cells(i,15).Value =tipamort
			XLSheet.Cells(i,16).Value =amortlun
			XLSheet.Cells(i,17).Value =cota
			XLSheet.Cells(i,18).Value =amorttot
			XLSheet.Cells(i,19).Value =amortan
			XLSheet.Cells(i,20).Value =amortprec
			XLSheet.Cells(i,21).Value =gest
			XLSheet.Cells(i,22).Value =respons
			XLSheet.Cells(i,23).Value =scd
			XLSheet.Cells(i,24).Value =dataeval
		endscan
		ENDIF 
	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 xmf
		
	ENDPROC

	PROCEDURE LIST1.COMMAND1.Click
		
		THISFORM.AFISACTUAL
		thisform.alwaysontop=.f.
		report form listmfcota to printer prompt preview
		thisform.alwaysontop=.t.
		
	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)
				thisform.afisactual
			case bar()=3
				thisform.grid1.readonly=.t.
				thisform.grid1.deletemark=.f.
				thisform.grid1.backcolor=rgb(254,255,240)
				SELE xmf
				SET FILTER TO !DELETED()
				thisform.afisactual
		endcase
	ENDPROC

	PROCEDURE TERMINAT1.COMMAND1.Click
		primadata1=.t.
		*DO TOTV
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.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.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.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Menulib1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="t3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Barabut1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 542
		Name = "vizc"
		Width = 794
	*</PropValue>

	ADD OBJECT 'Barabut1' AS barabut WITH ;
		Height = 35, ;
		Left = 620, ;
		Name = "Barabut1", ;
		Top = 1, ;
		Width = 164, ;
		ZOrderSet = 18, ;
		TERMINAT1.COMMAND1.Name = "COMMAND1", ;
		TERMINAT1.IMBUTON1.Height = 27, ;
		TERMINAT1.IMBUTON1.Name = "IMBUTON1", ;
		TERMINAT1.IMBUTON1.Width = 30, ;
		TERMINAT1.Left = 131, ;
		TERMINAT1.Name = "TERMINAT1", ;
		TERMINAT1.Top = 3, ;
		List1.COMMAND1.Name = "COMMAND1", ;
		List1.IMBUTON1.Height = 27, ;
		List1.IMBUTON1.Name = "IMBUTON1", ;
		List1.IMBUTON1.Width = 30, ;
		List1.Left = 99, ;
		List1.Name = "List1", ;
		List1.Top = 3, ;
		EXCEL1.COMMAND1.Name = "COMMAND1", ;
		EXCEL1.IMBUTON1.Height = 27, ;
		EXCEL1.IMBUTON1.Name = "IMBUTON1", ;
		EXCEL1.IMBUTON1.Width = 30, ;
		EXCEL1.Left = 67, ;
		EXCEL1.Name = "EXCEL1", ;
		EXCEL1.Top = 3, ;
		Modifica1.COMMAND1.Name = "COMMAND1", ;
		Modifica1.IMBUTON1.Height = 27, ;
		Modifica1.IMBUTON1.Name = "IMBUTON1", ;
		Modifica1.IMBUTON1.Width = 30, ;
		Modifica1.Left = 3, ;
		Modifica1.Name = "Modifica1", ;
		Modifica1.Top = 3, ;
		Sterge1.COMMAND1.Name = "COMMAND1", ;
		Sterge1.IMBUTON1.Height = 27, ;
		Sterge1.IMBUTON1.Name = "IMBUTON1", ;
		Sterge1.IMBUTON1.Width = 30, ;
		Sterge1.Left = 35, ;
		Sterge1.Name = "Sterge1", ;
		Sterge1.Top = 3, ;
		Nou1.COMMAND1.Name = "COMMAND1", ;
		Nou1.IMBUTON1.Height = 27, ;
		Nou1.IMBUTON1.Name = "IMBUTON1", ;
		Nou1.IMBUTON1.Width = 30, ;
		Nou1.Left = -29, ;
		Nou1.Name = "Nou1", ;
		Nou1.Top = 3
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Check1' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "\<Denumire", ;
		ControlSource = "bden", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 223, ;
		Name = "Check1", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 12, ;
		Top = 58, ;
		Width = 74, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check10' AS checkbox WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Data act", ;
		ControlSource = "bdata", ;
		FontName = "Arial", ;
		FontSize = 9, ;
		Height = 17, ;
		Left = 384, ;
		Name = "Check10", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		Top = 58, ;
		Width = 63, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check3' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "\<Nr. Doc.", ;
		ControlSource = "bnract", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 13, ;
		Name = "Check3", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 20, ;
		Top = 58, ;
		Width = 66, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check4' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "\<Gestiune", ;
		ControlSource = "bgest", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 150, ;
		Name = "Check4", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 15, ;
		Top = 58, ;
		Width = 71, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check5' AS checkbox WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Nr.inventar", ;
		ControlSource = "bnrinv", ;
		FontName = "Arial", ;
		FontSize = 9, ;
		Height = 17, ;
		Left = 300, ;
		Name = "Check5", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		Top = 58, ;
		Width = 77, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check9' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "\<Valoare", ;
		ControlSource = "bsuma", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 82, ;
		Name = "Check9", ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 20, ;
		Top = 58, ;
		Width = 65, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 888, ;
		Name = "Cmdlist1", ;
		Top = 180, ;
		Visible = .F., ;
		Width = 82, ;
		ZOrderSet = 21, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Caption = "", ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 888, ;
		Name = "Command1", ;
		Picture = ..\..\contab\grafice\edit1.bmp, ;
		StatusBarText = "", ;
		TabIndex = 4, ;
		ToolTipText = "Modificare", ;
		Top = 132, ;
		Visible = .F., ;
		Width = 82, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "", ;
		Enabled = .T., ;
		Height = 27, ;
		Left = 888, ;
		Name = "Command2", ;
		Picture = ..\..\contab\grafice\delete.bmp, ;
		StatusBarText = "", ;
		TabIndex = 4, ;
		ToolTipText = "Eliminarea din lista", ;
		Top = 108, ;
		Visible = .F., ;
		Width = 82, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "Transformare in mijoc fix", ;
		FontBold = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 27, ;
		Left = 498, ;
		Name = "Command3", ;
		SpecialEffect = 0, ;
		Top = 5, ;
		Width = 121, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 10, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 128,128,128, ;
		Height = 441, ;
		Left = 5, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "MF", ;
		TabIndex = 1, ;
		Top = 87, ;
		Width = 780, ;
		ZOrderSet = 4, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "nract", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 60, ;
		Column2.Alignment = 1, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column4", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 60, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 255,255,255, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "denumire", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column5", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 179, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "valoare", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Format = "kr", ;
		Column4.InputMask = (get_mask(14,gnZ)), ;
		Column4.Name = "Column6", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 97, ;
		Column5.Alignment = 1, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nrinv", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column7", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 51, ;
		Column6.BackColor = 255,255,255, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "gest", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column14", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 44, ;
		Column7.BackColor = 255,255,255, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "respons", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column15", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 106, ;
		Column8.BackColor = 255,255,255, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "scd", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column17", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 43, ;
		Column9.BackColor = 255,255,255, ;
		Column9.ColumnOrder = 1, ;
		Column9.ControlSource = "nrord", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column3", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 118, ;
		Column10.BackColor = 255,255,255, ;
		Column10.ControlSource = "ales", ;
		Column10.CurrentControl = "Check1", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column1", ;
		Column10.ReadOnly = .F., ;
		Column10.Sparse = .F., ;
		Column10.Width = 26
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.Check1' AS checkbox WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "", ;
		ControlSource = "", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Check1", ;
		ReadOnly = .F., ;
		Top = 29, ;
		Value = 0, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

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

	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 = 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.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 = 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.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 = 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.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 = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< 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 = 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.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 = 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.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 = 255,255,255, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< 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 = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lista imobilizarilor in curs", ;
		FontBold = .F., ;
		FontName = "Comic Sans MS", ;
		FontShadow = .F., ;
		FontSize = 11, ;
		ForeColor = 255,255,255, ;
		Height = 22, ;
		Left = 9, ;
		Name = "Label10", ;
		TabIndex = 10, ;
		Top = 4, ;
		Width = 180, ;
		WordWrap = .F., ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackColor = 255,255,255, ;
		Caption = "Nu sunt inregistrate imobilizari in aceasta luna!", ;
		FontBold = .T., ;
		FontSize = 12, ;
		ForeColor = 255,0,0, ;
		Height = 60, ;
		Left = 301, ;
		Name = "Label19", ;
		Top = 268, ;
		Visible = .F., ;
		Width = 217, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Total Valoare:", ;
		FontBold = .T., ;
		FontName = "Arial Narrow", ;
		FontSize = 11, ;
		Height = 22, ;
		Left = 532, ;
		Name = "Label4", ;
		TabIndex = 8, ;
		Top = 53, ;
		Width = 85, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Selectie", ;
		Height = 17, ;
		Left = 13, ;
		Name = "Label7", ;
		TabIndex = 9, ;
		Top = 39, ;
		Width = 46, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Menulib1' AS menulib WITH ;
		Left = 696, ;
		Name = "Menulib1", ;
		Top = 508, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="utility.vcx" BaseClass="container" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		FillStyle = 1, ;
		Height = 33, ;
		Left = 519, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 47, ;
		Width = 266, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackStyle = 0, ;
		FillStyle = 1, ;
		Height = 33, ;
		Left = 5, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 47, ;
		Width = 513, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackColor = 0,64,128, ;
		BorderStyle = 0, ;
		BorderWidth = 0, ;
		Height = 36, ;
		Left = 0, ;
		Name = "Shape4", ;
		Top = 1, ;
		Width = 622, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 't3' AS textbox WITH ;
		BackStyle = 0, ;
		ControlSource = "tvaloare", ;
		Enabled = .T., ;
		Format = "kr", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 620, ;
		Name = "t3", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 11, ;
		Top = 52, ;
		Width = 155, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		ON ERROR do a
		*!*	if existacamp('mf','fel')=.f.
		*!*	DO mesaj WITH "Dati reindexare!",""
		*!*	this.cmdTERMIN1.click
		*!*	ENDIF 
		SELECT mf
		IF COMPARTABELE('MF')=.f.
		DO MESAJ WITH 'Reindexati fisierele','<MENU / UTILE / REINDEXARE>'
		this.cmdTERMIN1.click
		ENDIF
		
		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.afisactual 
		ON ERROR 
	ENDPROC

	PROCEDURE afisactual
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tdata
		*WAIT WINDOW 'afis'
		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. and m.gest#-1 then
			Tgest="gest==m.gest"
		endif
		
		
		if bsuma==.t. then
			Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
		endif
		
		if bnract==.t. then
			Tnract="(nract>=m.nr1) and (nract<=m.nr2)"
		endif
		
		if bnrinv==.t. then
			Tnrinv="(VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
		ENDIF
		
		if bdata==.t. then
			Tdata="(dataact>=m.data1) and (dataact<=m.data2)"
		ENDIF
		
		sele mf
		SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tnract AND &tnrinv AND &Tdata AND UPPER(fel)='C'
		*set order to tag dataact
		*THISFORM.CALCUZURA
		*thisform.calcamort
		sele mf
		go top
		THISFORM.GRID1.REFRESH
		
		sele mf
		SUM VALOARE TO TVALOARE
		
		thisform.t3.refresh
	ENDPROC

	PROCEDURE Init
		ON ERROR do a
		store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
		store .f. to bden,bsuma,bgest,bscd,bnract,bnrinv,bdata
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tdata
		STORE DATE() TO m.data1, m.data2
		sele mf
		REPLACE ALL ALES WITH .f.
		SET FILTER TO UPPER(FEL)='C'
		*REPLACE ALL ales WITH .f.
		*SET ORDER TO 5   && NRINV
		go top
		if eof()
		thisform.grid1.gridlines=0
		thisform.grid1.recordsource=""
		thisform.check1.enabled=.f.
		thisform.check5.enabled=.f.
		thisform.check3.enabled=.f.
		thisform.check4.enabled=.f.
		thisform.check9.enabled=.f.
		thisform.check10.enabled=.f.
		thisform.command1.enabled=.f.
		thisform.label19.visible=.t.
		endif
		
		thisform.afisactual
	ENDPROC

	PROCEDURE Release
		SELECT mf
		SET FILTER TO 
	ENDPROC

	PROCEDURE Barabut1.EXCEL1.COMMAND1.Click
		thisform.cmdlist4.Click 
	ENDPROC

	PROCEDURE Barabut1.List1.COMMAND1.Click
		thisform.cmdlist1.click
		
	ENDPROC

	PROCEDURE Barabut1.Modifica1.COMMAND1.Click
		thisform.commAND1.Click 
	ENDPROC

	PROCEDURE Barabut1.Sterge1.COMMAND1.Click
		thisform.commAND2.Click 
	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 Check10.Click
		STORE DATE() TO m.data1,m.data2
		if bdata==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data act"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="m.data1"
				.text2.controlsource="m.data2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check10.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check3.Click
		if bnract==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul documentului"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="m.nr1"
				.text2.controlsource="m.nr2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check3.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 Check5.Click
		STORE 0 TO pnrinv1,pnrinv2
		if bnrinv==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul de inventar"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="pnrinv1"
				.text2.controlsource="pnrinv2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check5.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
		thisform.alwaysontop=.f.
		report form listimobcurs to printer prompt preview
		thisform.alwaysontop=.t.
		
	ENDPROC

	PROCEDURE Command1.Click
		thisform.alwaysontop=.f.
		sele mf
		scatter memvar
		
		SELECT numegest
		LOCATE FOR gest=m.gest
		SCATTER FIELDS numegest MEMVAR 
		
		ofi=create('incurs')
		ofi.show(1)
		
		if buton==1
		sele mf
		gather memvar
		endif
		thisform.afisactual
		thisform.alwaysontop=.t.
	ENDPROC

	PROCEDURE Command2.Click
		sele mf
		scatter memvar
		
		oe=createobj('casdanu')
		oe.label1.caption='Se elimina imobilizarea in curs:'
		oe.show(1)
		
		if buton==1
		SELE mf
		DELETE 
		
		thisform.afisactual
		endif
	ENDPROC

	PROCEDURE Command3.Click
		Public valtrans
		Local INIVAL,N
		Store {} To m.datapif
		Store 0 To m.nract,m.normaan,m.normat,m.valrez,valtrans
		Store '' To m.nrinv,m.codmf,m.respons
		Select mf
		Locate For ales=.T.
		If !Found()
			Do mesaj With 'Bifati ceea ce vreti sa transformati','in mijloc fix!'
			Return
		Endif
		
		If Used('tmf')
			Use In tmf
		Endif
		
		Select denumire,valoare As valini From mf Where ales=.T. And Upper(FEL)='C' Into Table &loc\&nfscurt\tempo\tmf
		Alter Table tmf Add Column valtrans N(14)
		
		*USE &loc\&nfscurt\tempo\tmf exclusiv IN 0
		
		Select tmf
		Scan
			Replace valtrans With valini
		Endscan
		Go Top
		
		Do Form valoare
		
		If buton=2
			Use In tmf
			Select mf
		*SET FILTER TO
			Return
		Endif
		
		Select tmf
		Scan
			Scatter Memv
			Select mf
			Locate For ales=.T. And Upper(FEL)='C' And denumire=m.denumire
			Scatter Memvar
			If m.valtrans<m.valoare
				Replace valoare With m.valoare-m.valtrans
				Append Blank
				Gather Memv
				Replace valoare With m.valtrans
				Replace FEL With "T"
			Else
				Replace FEL With "T"
			Endif
			Select tmf
		Endscan
		
		Use In tmf
		
		m.valoare=Total
		m.denumire=m.nrord
		m.dataact=Date()
		ofi=Create('frm_fisa')
		ofi.text4.ReadOnly=.T.
		*!*	ofi.t21.readonly=.f.
		ofi.fel_imob = 'C'
		ofi.Command1.Visible=.F.
		ofi.RENUNT1.Visible=.F.
		ofi.list1.Visible=.F.
		ofi.Show(1)
		
		Select mf
		Set Filter To
		Append Blank
		If Flock()
			Gather Memv
			Replace FEL With " "
			REPLACE codop WITH 4
		Endif
		Unlock
		
		Select mflun
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Transformare in mijloc fix',dataora With Datetime()
			Replace codop With 4
		Endif
		Unlock
		
		Select mfanual
		Append Blank
		If Flock()
			Gather Memvar
			Replace explicatia With 'Transformare in mijloc fix',dataora With Datetime()
			Replace codop With 4
		Endif
		Unlock
		
		Select mf
		Set Filter To ales And Upper(FEL)='T'
		If Flock()
			Replace All cauza With Alltrim(m.denumire)
		Endif
		Unlock
		
		Select mf
		Set Filter To
		If Flock()
			Replace All ales With .F.
		Endif
		Unlock
		
		Set Filter To FEL='C'
		Thisform.grid1.Refresh
		
	ENDPROC

	PROCEDURE Grid1.Column1.Check1.Click
		thisform.grid1.Refresh 
	ENDPROC

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

	PROCEDURE Grid1.Column2.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.Init
		sele mf
		GO top
	ENDPROC

ENDDEFINE

DEFINE CLASS vizp AS viz OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ckIstoric" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="LIST1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_majorare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_valin" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_valoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_valramasa" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_amortlun" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_respons" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_acont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_cont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="excel2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_denumire" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_lucrare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column23.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column23.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column25.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column25.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column26.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column26.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column28.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column28.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column29.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column29.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column30.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column30.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column31.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column31.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column32.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column32.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column34.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="GRID1.Column35.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calcul_reevaluare		&& Calculeaza valramasa(de calcul), normat2 si normat2lun
		*m: do_conservare
		*m: do_modificare_istoric
		*m: iesire_din_gestiune
		*m: meniu_as
		*m: meniu_calcul
		*m: schimb_dns
		*m: schimb_val_inventar
		*m: transfer
		*p: pcfel
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 525
		Name = "vizp"
		pcfel = 
		Width = 797
		LABEL10.AutoSize = .T.
		LABEL10.BackStyle = 0
		LABEL10.Caption = "Lista imobilizarilor necorporale"
		LABEL10.FontBold = .F.
		LABEL10.FontName = "Comic Sans MS"
		LABEL10.FontSize = 11
		LABEL10.ForeColor = 255,255,255
		LABEL10.Height = 22
		LABEL10.Left = 7
		LABEL10.Name = "LABEL10"
		LABEL10.Top = 6
		LABEL10.Width = 216
		LABEL10.WordWrap = .F.
		LABEL10.ZOrderSet = 12
		SHAPE1.BackStyle = 0
		SHAPE1.BorderColor = 128,128,128
		SHAPE1.BorderWidth = 1
		SHAPE1.Height = 100
		SHAPE1.Left = 348
		SHAPE1.Name = "SHAPE1"
		SHAPE1.SpecialEffect = 1
		SHAPE1.Top = 39
		SHAPE1.Width = 444
		SHAPE1.ZOrderSet = 1
		SHAPE5.BackStyle = 0
		SHAPE5.BorderColor = 128,128,128
		SHAPE5.BorderWidth = 1
		SHAPE5.Height = 51
		SHAPE5.Left = 498
		SHAPE5.Name = "SHAPE5"
		SHAPE5.SpecialEffect = 1
		SHAPE5.Top = 61
		SHAPE5.Width = 289
		SHAPE5.ZOrderSet = 4
		SHAPE2.Height = 52
		SHAPE2.Left = 876
		SHAPE2.Name = "SHAPE2"
		SHAPE2.Top = 72
		SHAPE2.Visible = .F.
		SHAPE2.Width = 12
		SHAPE2.ZOrderSet = 2
		SHAPE3.Left = 840
		SHAPE3.Name = "SHAPE3"
		SHAPE3.Top = 360
		SHAPE3.Visible = .F.
		SHAPE3.ZOrderSet = 5
		GRID1.BackColor = 255,255,255
		GRID1.COLUMN1.BackColor = 255,255,255
		GRID1.COLUMN1.ColumnOrder = 31
		GRID1.COLUMN1.ControlSource = "dataout"
		GRID1.COLUMN1.FontName = "Arial Narrow"
		GRID1.COLUMN1.HEADER1.Alignment = 2
		GRID1.COLUMN1.HEADER1.Caption = "Data iesirii"
		GRID1.COLUMN1.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN1.HEADER1.Name = "HEADER1"
		GRID1.COLUMN1.Name = "COLUMN1"
		GRID1.COLUMN1.ReadOnly = .T.
		GRID1.COLUMN1.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN1.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN1.TEXT1.Name = "TEXT1"
		GRID1.COLUMN1.TEXT1.ReadOnly = .T.
		GRID1.COLUMN1.TEXT1.Visible = .F.
		GRID1.COLUMN1.Visible = .F.
		GRID1.COLUMN1.Width = 52
		GRID1.COLUMN10.BackColor = 255,255,255
		GRID1.COLUMN10.ColumnOrder = 3
		GRID1.COLUMN10.FontName = "Arial Narrow"
		GRID1.COLUMN10.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN10.HEADER1.Name = "HEADER1"
		GRID1.COLUMN10.Name = "COLUMN10"
		GRID1.COLUMN10.ReadOnly = .T.
		GRID1.COLUMN10.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN10.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN10.TEXT1.Name = "TEXT1"
		GRID1.COLUMN10.TEXT1.ReadOnly = .T.
		GRID1.COLUMN11.BackColor = 255,255,255
		GRID1.COLUMN11.ColumnOrder = 4
		GRID1.COLUMN11.ControlSource = "allt(nrpif)"
		GRID1.COLUMN11.FontName = "Arial Narrow"
		GRID1.COLUMN11.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN11.HEADER1.Name = "HEADER1"
		GRID1.COLUMN11.Name = "COLUMN11"
		GRID1.COLUMN11.ReadOnly = .T.
		GRID1.COLUMN11.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN11.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN11.TEXT1.Name = "TEXT1"
		GRID1.COLUMN11.TEXT1.ReadOnly = .T.
		GRID1.COLUMN12.BackColor = 255,255,255
		GRID1.COLUMN12.ColumnOrder = 21
		GRID1.COLUMN12.FontName = "Arial Narrow"
		GRID1.COLUMN12.Format = "kr"
		GRID1.COLUMN12.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN12.HEADER1.Name = "HEADER1"
		GRID1.COLUMN12.HEADER1.WordWrap = .T.
		GRID1.COLUMN12.InputMask = (get_mask(14,gnZ))
		GRID1.COLUMN12.Name = "COLUMN12"
		GRID1.COLUMN12.ReadOnly = .T.
		GRID1.COLUMN12.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN12.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN12.TEXT1.Name = "TEXT1"
		GRID1.COLUMN12.TEXT1.ReadOnly = .T.
		GRID1.COLUMN13.BackColor = 255,255,255
		GRID1.COLUMN13.ColumnOrder = 15
		GRID1.COLUMN13.FontName = "Arial Narrow"
		GRID1.COLUMN13.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN13.HEADER1.Name = "HEADER1"
		GRID1.COLUMN13.Name = "COLUMN13"
		GRID1.COLUMN13.ReadOnly = .T.
		GRID1.COLUMN13.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN13.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN13.TEXT1.Name = "TEXT1"
		GRID1.COLUMN13.TEXT1.ReadOnly = .T.
		GRID1.COLUMN14.BackColor = 255,255,255
		GRID1.COLUMN14.ColumnOrder = 25
		GRID1.COLUMN14.FontName = "Arial Narrow"
		GRID1.COLUMN14.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN14.HEADER1.Name = "HEADER1"
		GRID1.COLUMN14.Name = "COLUMN14"
		GRID1.COLUMN14.ReadOnly = .T.
		GRID1.COLUMN14.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN14.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN14.TEXT1.Name = "TEXT1"
		GRID1.COLUMN14.TEXT1.ReadOnly = .T.
		GRID1.COLUMN15.BackColor = 255,255,255
		GRID1.COLUMN15.ColumnOrder = 26
		GRID1.COLUMN15.FontName = "Arial Narrow"
		GRID1.COLUMN15.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN15.HEADER1.Name = "HEADER1"
		GRID1.COLUMN15.Name = "COLUMN15"
		GRID1.COLUMN15.ReadOnly = .T.
		GRID1.COLUMN15.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN15.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN15.TEXT1.Name = "TEXT1"
		GRID1.COLUMN15.TEXT1.ReadOnly = .T.
		GRID1.COLUMN15.Width = 96
		GRID1.COLUMN16.BackColor = 255,255,255
		GRID1.COLUMN16.ColumnOrder = 14
		GRID1.COLUMN16.FontName = "Arial Narrow"
		GRID1.COLUMN16.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN16.HEADER1.Name = "HEADER1"
		GRID1.COLUMN16.InputMask = "9999.99%"
		GRID1.COLUMN16.Name = "COLUMN16"
		GRID1.COLUMN16.ReadOnly = .T.
		GRID1.COLUMN16.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN16.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN16.TEXT1.Name = "TEXT1"
		GRID1.COLUMN16.TEXT1.ReadOnly = .T.
		GRID1.COLUMN17.BackColor = 255,255,255
		GRID1.COLUMN17.ColumnOrder = 23
		GRID1.COLUMN17.ControlSource = "scd"
		GRID1.COLUMN17.FontName = "Arial Narrow"
		GRID1.COLUMN17.HEADER1.Alignment = 2
		GRID1.COLUMN17.HEADER1.Caption = "Cont "
		GRID1.COLUMN17.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN17.HEADER1.Name = "HEADER1"
		GRID1.COLUMN17.Name = "COLUMN17"
		GRID1.COLUMN17.ReadOnly = .T.
		GRID1.COLUMN17.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN17.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN17.TEXT1.Name = "TEXT1"
		GRID1.COLUMN17.TEXT1.ReadOnly = .T.
		GRID1.COLUMN17.Width = 35
		GRID1.COLUMN18.BackColor = 255,255,255
		GRID1.COLUMN18.ColumnOrder = 17
		GRID1.COLUMN18.FontName = "Arial Narrow"
		GRID1.COLUMN18.Format = "kr"
		GRID1.COLUMN18.HEADER1.Caption = "Amortizment lunar"
		GRID1.COLUMN18.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN18.HEADER1.Name = "HEADER1"
		GRID1.COLUMN18.HEADER1.WordWrap = .T.
		GRID1.COLUMN18.InputMask = (get_mask(14,gnZ))
		GRID1.COLUMN18.Name = "COLUMN18"
		GRID1.COLUMN18.ReadOnly = .T.
		GRID1.COLUMN18.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN18.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN18.TEXT1.Name = "TEXT1"
		GRID1.COLUMN18.TEXT1.ReadOnly = .T.
		GRID1.COLUMN18.Width = 67
		GRID1.COLUMN19.BackColor = 255,255,255
		GRID1.COLUMN19.ColumnOrder = 18
		GRID1.COLUMN19.FontName = "Arial Narrow"
		GRID1.COLUMN19.Format = "kr"
		GRID1.COLUMN19.HEADER1.Caption = "Total Amortizat"
		GRID1.COLUMN19.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN19.HEADER1.Name = "HEADER1"
		GRID1.COLUMN19.InputMask = (get_mask(14,gnZ))
		GRID1.COLUMN19.Name = "COLUMN19"
		GRID1.COLUMN19.ReadOnly = .T.
		GRID1.COLUMN19.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN19.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN19.TEXT1.Name = "TEXT1"
		GRID1.COLUMN19.TEXT1.ReadOnly = .T.
		GRID1.COLUMN2.BackColor = 255,255,255
		GRID1.COLUMN2.FontName = "Arial Narrow"
		GRID1.COLUMN2.HEADER2.Caption = "Nr.Doc.Achiz."
		GRID1.COLUMN2.HEADER2.FontName = "Arial Narrow"
		GRID1.COLUMN2.HEADER2.Name = "HEADER2"
		GRID1.COLUMN2.Name = "COLUMN2"
		GRID1.COLUMN2.ReadOnly = .T.
		GRID1.COLUMN2.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN2.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN2.TEXT1.Name = "TEXT1"
		GRID1.COLUMN2.TEXT1.ReadOnly = .T.
		GRID1.COLUMN2.Width = 61
		GRID1.COLUMN20.Alignment = 2
		GRID1.COLUMN20.BackColor = 255,255,255
		GRID1.COLUMN20.ColumnOrder = 29
		GRID1.COLUMN20.ControlSource = "iif(casat=.f.,'NU','DA')"
		GRID1.COLUMN20.CurrentControl = "TEXT1"
		GRID1.COLUMN20.FontName = "Arial Narrow"
		GRID1.COLUMN20.HEADER1.Caption = "Iesit din gest."
		GRID1.COLUMN20.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN20.HEADER1.Name = "HEADER1"
		GRID1.COLUMN20.HEADER1.WordWrap = .F.
		GRID1.COLUMN20.Name = "COLUMN20"
		GRID1.COLUMN20.ReadOnly = .T.
		GRID1.COLUMN20.Sparse = .F.
		GRID1.COLUMN20.TEXT1.Alignment = 2
		GRID1.COLUMN20.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN20.TEXT1.ControlSource = "casat"
		GRID1.COLUMN20.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN20.TEXT1.Name = "TEXT1"
		GRID1.COLUMN20.TEXT1.ReadOnly = .T.
		GRID1.COLUMN20.TEXT1.Value = iif(casat=.f.,'NU','DA')
		GRID1.COLUMN20.Width = 56
		GRID1.COLUMN21.BackColor = 255,255,255
		GRID1.COLUMN21.ColumnOrder = 13
		GRID1.COLUMN21.FontName = "Arial Narrow"
		GRID1.COLUMN21.HEADER1.Caption = "DNS Calcul"
		GRID1.COLUMN21.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN21.HEADER1.Name = "HEADER1"
		GRID1.COLUMN21.InputMask = "999.99"
		GRID1.COLUMN21.Name = "COLUMN21"
		GRID1.COLUMN21.ReadOnly = .T.
		GRID1.COLUMN21.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN21.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN21.TEXT1.Name = "TEXT1"
		GRID1.COLUMN21.TEXT1.ReadOnly = .T.
		GRID1.COLUMN21.Width = 55
		GRID1.COLUMN22.BackColor = 255,255,255
		GRID1.COLUMN22.ColumnOrder = 9
		GRID1.COLUMN22.FontName = "Arial Narrow"
		GRID1.COLUMN22.Format = "kr"
		GRID1.COLUMN22.HEADER1.Alignment = 2
		GRID1.COLUMN22.HEADER1.Caption = "Valoare de calcul"
		GRID1.COLUMN22.HEADER1.FontName = "Arial Narrow"
		GRID1.COLUMN22.HEADER1.Name = "HEADER1"
		GRID1.COLUMN22.InputMask = (get_mask(14,gnZ))
		GRID1.COLUMN22.Name = "COLUMN22"
		GRID1.COLUMN22.ReadOnly = .T.
		GRID1.COLUMN22.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN22.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN22.TEXT1.Name = "TEXT1"
		GRID1.COLUMN22.TEXT1.ReadOnly = .T.
		GRID1.COLUMN22.Width = 85
		GRID1.Column23.BackColor = 255,255,255
		GRID1.Column23.ColumnOrder = 30
		GRID1.Column23.ControlSource = "cauza"
		GRID1.Column23.FontName = "Arial Narrow"
		GRID1.Column23.Name = "Column23"
		GRID1.Column23.ReadOnly = .T.
		GRID1.Column23.Visible = .T.
		GRID1.Column23.Width = 83
		GRID1.Column24.BackColor = 255,255,255
		GRID1.Column24.ColumnOrder = 11
		GRID1.Column24.ControlSource = "VALREZ"
		GRID1.Column24.FontName = "Arial Narrow"
		GRID1.Column24.Format = "kr"
		GRID1.Column24.InputMask = (get_mask(14,gnZ))
		GRID1.Column24.Name = "Column24"
		GRID1.Column24.ReadOnly = .T.
		GRID1.Column24.Width = 56
		GRID1.Column25.Alignment = 2
		GRID1.Column25.BackColor = 255,255,255
		GRID1.Column25.ColumnOrder = 20
		GRID1.Column25.ControlSource = "gomonth(dataeval,iif(!empty(normat2lun),normat2lun,normat))"
		GRID1.Column25.FontName = "Arial Narrow"
		GRID1.Column25.Name = "Column25"
		GRID1.Column25.ReadOnly = .T.
		GRID1.Column26.BackColor = 255,255,255
		GRID1.Column26.ColumnOrder = 8
		GRID1.Column26.ControlSource = "valin"
		GRID1.Column26.FontName = "Arial Narrow"
		GRID1.Column26.Format = "kr"
		GRID1.Column26.InputMask = (get_mask(14,gnZ))
		GRID1.Column26.Name = "Column26"
		GRID1.Column26.ReadOnly = .T.
		GRID1.Column26.Width = 80
		GRID1.Column27.BackColor = 255,255,255
		GRID1.Column27.ColumnOrder = 10
		GRID1.Column27.ControlSource = "valin-valoare"
		GRID1.Column27.FontName = "Arial Narrow"
		GRID1.Column27.Format = "kr"
		GRID1.Column27.InputMask = (get_mask(14,gnZ))
		GRID1.Column27.Name = "Column27"
		GRID1.Column27.ReadOnly = .T.
		GRID1.Column27.Width = 62
		GRID1.Column28.BackColor = 255,255,255
		GRID1.Column28.ColumnOrder = 32
		GRID1.Column28.ControlSource = "dataeval"
		GRID1.Column28.FontName = "Arial Narrow"
		GRID1.Column28.Name = "Column28"
		GRID1.Column28.ReadOnly = .T.
		GRID1.Column28.Width = 59
		GRID1.Column29.BackColor = 255,255,255
		GRID1.Column29.ColumnOrder = 19
		GRID1.Column29.ControlSource = "valin-amorttot"
		GRID1.Column29.FontName = "Arial Narrow"
		GRID1.Column29.Format = "kr"
		GRID1.Column29.InputMask = (get_mask(14,gnZ))
		GRID1.Column29.Name = "Column29"
		GRID1.Column29.ReadOnly = .T.
		GRID1.Column29.Width = 83
		GRID1.COLUMN3.BackColor = 255,255,255
		GRID1.COLUMN3.ColumnOrder = 16
		GRID1.COLUMN3.FontName = "Arial Narrow"
		GRID1.COLUMN3.HEADER3.FontName = "Arial Narrow"
		GRID1.COLUMN3.HEADER3.Name = "HEADER3"
		GRID1.COLUMN3.HEADER3.WordWrap = .T.
		GRID1.COLUMN3.Name = "COLUMN3"
		GRID1.COLUMN3.ReadOnly = .T.
		GRID1.COLUMN3.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN3.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN3.TEXT1.Name = "TEXT1"
		GRID1.COLUMN3.TEXT1.ReadOnly = .T.
		GRID1.COLUMN3.Width = 31
		GRID1.Column30.BackColor = 255,255,255
		GRID1.Column30.ColumnOrder = 34
		GRID1.Column30.ControlSource = "cod"
		GRID1.Column30.FontName = "Arial Narrow"
		GRID1.Column30.Name = "Column30"
		GRID1.Column30.ReadOnly = .T.
		GRID1.Column30.Width = 22
		GRID1.Column31.BackColor = 255,255,255
		GRID1.Column31.ColumnOrder = 27
		GRID1.Column31.ControlSource = "id_sectie"
		GRID1.Column31.FontName = "Arial Narrow"
		GRID1.Column31.Name = "Column31"
		GRID1.Column31.ReadOnly = .T.
		GRID1.Column31.Width = 36
		GRID1.Column32.BackColor = 255,255,255
		GRID1.Column32.ColumnOrder = 24
		GRID1.Column32.ControlSource = "ascd"
		GRID1.Column32.FontName = "Arial Narrow"
		GRID1.Column32.Name = "Column32"
		GRID1.Column32.ReadOnly = .T.
		GRID1.Column32.Width = 33
		GRID1.Column33.BackColor = 255,255,255
		GRID1.Column33.ColumnOrder = 28
		GRID1.Column33.ControlSource = "nrord"
		GRID1.Column33.FontName = "Arial Narrow"
		GRID1.Column33.Name = "Column33"
		GRID1.Column33.ReadOnly = .T.
		GRID1.Column34.BackColor = 255,255,255
		GRID1.Column34.ColumnOrder = 35
		GRID1.Column34.ControlSource = "inactiv"
		GRID1.Column34.FontName = "Arial Narrow"
		GRID1.Column34.Name = "Column34"
		GRID1.Column34.ReadOnly = .T.
		GRID1.Column34.Sparse = .F.
		GRID1.Column34.Width = 30
		GRID1.Column35.BackColor = 255,255,255
		GRID1.Column35.ColumnOrder = 33
		GRID1.Column35.ControlSource = "get_explicatie(codop)"
		GRID1.Column35.FontName = "Arial Narrow"
		GRID1.Column35.Name = "Column35"
		GRID1.Column35.ReadOnly = .T.
		GRID1.Column35.Width = 78
		GRID1.COLUMN4.BackColor = 255,255,255
		GRID1.COLUMN4.ControlSource = "dataact"
		GRID1.COLUMN4.FontName = "Arial Narrow"
		GRID1.COLUMN4.HEADER4.Caption = "Data Achiz."
		GRID1.COLUMN4.HEADER4.FontName = "Arial Narrow"
		GRID1.COLUMN4.HEADER4.Name = "HEADER4"
		GRID1.COLUMN4.Name = "COLUMN4"
		GRID1.COLUMN4.ReadOnly = .T.
		GRID1.COLUMN4.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN4.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN4.TEXT1.Name = "TEXT1"
		GRID1.COLUMN4.TEXT1.ReadOnly = .T.
		GRID1.COLUMN5.BackColor = 255,255,255
		GRID1.COLUMN5.ColumnOrder = 6
		GRID1.COLUMN5.FontName = "Arial Narrow"
		GRID1.COLUMN5.HEADER5.FontName = "Arial Narrow"
		GRID1.COLUMN5.HEADER5.Name = "HEADER5"
		GRID1.COLUMN5.Name = "COLUMN5"
		GRID1.COLUMN5.ReadOnly = .T.
		GRID1.COLUMN5.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN5.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN5.TEXT1.Name = "TEXT1"
		GRID1.COLUMN5.TEXT1.ReadOnly = .T.
		GRID1.COLUMN6.BackColor = 255,255,255
		GRID1.COLUMN6.ColumnOrder = 7
		GRID1.COLUMN6.ControlSource = "valoare"
		GRID1.COLUMN6.FontName = "Arial Narrow"
		GRID1.COLUMN6.Format = "kr"
		GRID1.COLUMN6.HEADER6.Caption = "Valoare de achizitie"
		GRID1.COLUMN6.HEADER6.FontName = "Arial Narrow"
		GRID1.COLUMN6.HEADER6.Name = "HEADER6"
		GRID1.COLUMN6.InputMask = (get_mask(14,gnZ))
		GRID1.COLUMN6.Name = "COLUMN6"
		GRID1.COLUMN6.ReadOnly = .T.
		GRID1.COLUMN6.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN6.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN6.TEXT1.Name = "TEXT1"
		GRID1.COLUMN6.TEXT1.ReadOnly = .T.
		GRID1.COLUMN6.Width = 90
		GRID1.COLUMN7.BackColor = 255,255,255
		GRID1.COLUMN7.ColumnOrder = 5
		GRID1.COLUMN7.ControlSource = "allt(nrinv)"
		GRID1.COLUMN7.FontName = "Arial Narrow"
		GRID1.COLUMN7.HEADER7.FontName = "Arial Narrow"
		GRID1.COLUMN7.HEADER7.Name = "HEADER7"
		GRID1.COLUMN7.Name = "COLUMN7"
		GRID1.COLUMN7.ReadOnly = .T.
		GRID1.COLUMN7.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN7.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN7.TEXT1.Name = "TEXT1"
		GRID1.COLUMN7.TEXT1.ReadOnly = .T.
		GRID1.COLUMN8.BackColor = 255,255,255
		GRID1.COLUMN8.ColumnOrder = 22
		GRID1.COLUMN8.FontName = "Arial Narrow"
		GRID1.COLUMN8.HEADER8.FontName = "Arial Narrow"
		GRID1.COLUMN8.HEADER8.Name = "HEADER8"
		GRID1.COLUMN8.Name = "COLUMN8"
		GRID1.COLUMN8.ReadOnly = .T.
		GRID1.COLUMN8.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN8.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN8.TEXT1.Name = "TEXT1"
		GRID1.COLUMN8.TEXT1.ReadOnly = .T.
		GRID1.COLUMN9.BackColor = 255,255,255
		GRID1.COLUMN9.ColumnOrder = 12
		GRID1.COLUMN9.FontName = "Arial Narrow"
		GRID1.COLUMN9.HEADER9.FontName = "Arial Narrow"
		GRID1.COLUMN9.HEADER9.Name = "HEADER9"
		GRID1.COLUMN9.InputMask = "9999.99"
		GRID1.COLUMN9.Name = "COLUMN9"
		GRID1.COLUMN9.ReadOnly = .T.
		GRID1.COLUMN9.TEXT1.BackColor = 255,255,255
		GRID1.COLUMN9.TEXT1.FontName = "Arial Narrow"
		GRID1.COLUMN9.TEXT1.Name = "TEXT1"
		GRID1.COLUMN9.TEXT1.ReadOnly = .T.
		GRID1.ColumnCount = 35
		GRID1.FontName = "Arial Narrow"
		GRID1.HeaderHeight = 33
		GRID1.Height = 376
		GRID1.Left = 1
		GRID1.Name = "GRID1"
		GRID1.Panel = 1
		GRID1.ReadOnly = .T.
		GRID1.Top = 142
		GRID1.Width = 791
		GRID1.ZOrderSet = 6
		TEXT1.BackStyle = 0
		TEXT1.DisabledBackColor = 255,255,255
		TEXT1.FontBold = .F.
		TEXT1.FontName = "Arial Narrow"
		TEXT1.FontSize = 10
		TEXT1.Format = "rk"
		TEXT1.Height = 23
		TEXT1.InputMask = (get_mask(14,gnZ))
		TEXT1.Left = 505
		TEXT1.Name = "TEXT1"
		TEXT1.SpecialEffect = 1
		TEXT1.Top = 74
		TEXT1.Width = 136
		TEXT1.ZOrderSet = 7
		LABEL3.BackStyle = 0
		LABEL3.FontName = "Arial Narrow"
		LABEL3.FontSize = 10
		LABEL3.Left = 618
		LABEL3.Name = "LABEL3"
		LABEL3.Top = 45
		LABEL3.ZOrderSet = 10
		SHAPE6.BackStyle = 0
		SHAPE6.BorderColor = 128,128,128
		SHAPE6.BorderWidth = 1
		SHAPE6.Height = 100
		SHAPE6.Left = 4
		SHAPE6.Name = "SHAPE6"
		SHAPE6.SpecialEffect = 1
		SHAPE6.Top = 39
		SHAPE6.Width = 342
		SHAPE6.ZOrderSet = 0
		LABEL7.Left = 805
		LABEL7.Name = "LABEL7"
		LABEL7.Top = 184
		LABEL7.Visible = .F.
		LABEL7.ZOrderSet = 11
		CHECK1.AutoSize = .T.
		CHECK1.BackStyle = 0
		CHECK1.FontName = "Arial Narrow"
		CHECK1.FontSize = 10
		CHECK1.Left = 96
		CHECK1.Name = "CHECK1"
		CHECK1.SpecialEffect = 2
		CHECK1.Top = 240
		CHECK1.Visible = .F.
		CHECK1.ZOrderSet = 56
		CHECK4.AutoSize = .T.
		CHECK4.BackStyle = 0
		CHECK4.FontName = "Arial Narrow"
		CHECK4.FontSize = 10
		CHECK4.Left = 74
		CHECK4.Name = "CHECK4"
		CHECK4.SpecialEffect = 2
		CHECK4.Top = 39
		CHECK4.ZOrderSet = 49
		CHECK9.AutoSize = .T.
		CHECK9.BackStyle = 0
		CHECK9.Caption = "\<Val. de achizitie"
		CHECK9.FontName = "Arial Narrow"
		CHECK9.FontSize = 10
		CHECK9.Left = 96
		CHECK9.Name = "CHECK9"
		CHECK9.SpecialEffect = 2
		CHECK9.Top = 192
		CHECK9.Visible = .F.
		CHECK9.ZOrderSet = 45
		COMMAND1.Height = 27
		COMMAND1.Left = 816
		COMMAND1.Name = "COMMAND1"
		COMMAND1.Top = 192
		COMMAND1.Visible = .F.
		COMMAND1.Width = 76
		COMMAND1.ZOrderSet = 14
		TEXT16.Left = 805
		TEXT16.Name = "TEXT16"
		TEXT16.Top = 0
		TEXT16.Visible = .F.
		TEXT16.ZOrderSet = 15
		TEXT17.Left = 847
		TEXT17.Name = "TEXT17"
		TEXT17.Top = 0
		TEXT17.Visible = .F.
		TEXT17.ZOrderSet = 16
		OMENUSHORTCUT.Left = 783
		OMENUSHORTCUT.Name = "OMENUSHORTCUT"
		OMENUSHORTCUT.Top = 0
		OMENUSHORTCUT.ZOrderSet = 17
		LABEL19.BackColor = 255,255,255
		LABEL19.Caption = "Nu sunt inregistrate imobilizari in aceasta luna !"
		LABEL19.Height = 41
		LABEL19.Left = 292
		LABEL19.Name = "LABEL19"
		LABEL19.Top = 283
		LABEL19.Width = 248
		LABEL19.ZOrderSet = 18
		CHECK2.AutoSize = .T.
		CHECK2.BackStyle = 0
		CHECK2.FontName = "Arial Narrow"
		CHECK2.FontSize = 10
		CHECK2.Left = 96
		CHECK2.Name = "CHECK2"
		CHECK2.SpecialEffect = 2
		CHECK2.Top = 216
		CHECK2.Visible = .F.
		CHECK2.ZOrderSet = 59
		CHECK3.AutoSize = .T.
		CHECK3.BackStyle = 0
		CHECK3.FontName = "Arial Narrow"
		CHECK3.FontSize = 10
		CHECK3.Left = 8
		CHECK3.Name = "CHECK3"
		CHECK3.SpecialEffect = 2
		CHECK3.Top = 39
		CHECK3.ZOrderSet = 44
		LABEL1.BackColor = 255,255,255
		LABEL1.FontName = "Arial Narrow"
		LABEL1.FontSize = 10
		LABEL1.Left = 508
		LABEL1.Name = "LABEL1"
		LABEL1.Top = 52
		LABEL1.ZOrderSet = 19
		TEXT2.BackStyle = 0
		TEXT2.DisabledBackColor = 255,255,255
		TEXT2.FontBold = .F.
		TEXT2.FontName = "Arial Narrow"
		TEXT2.FontSize = 10
		TEXT2.Format = "rk"
		TEXT2.Height = 23
		TEXT2.InputMask = (get_mask(14,gnZ))
		TEXT2.Left = 646
		TEXT2.Name = "TEXT2"
		TEXT2.SpecialEffect = 1
		TEXT2.Top = 74
		TEXT2.Width = 136
		TEXT2.ZOrderSet = 20
		LABEL2.BackColor = 255,255,255
		LABEL2.FontName = "Arial Narrow"
		LABEL2.FontSize = 10
		LABEL2.Left = 674
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 52
		LABEL2.ZOrderSet = 21
		COMMAND2.Height = 27
		COMMAND2.Left = 816
		COMMAND2.Name = "COMMAND2"
		COMMAND2.Top = 216
		COMMAND2.Visible = .F.
		COMMAND2.Width = 76
		COMMAND2.ZOrderSet = 22
		COMMAND3.Caption = "Calcul Amortizare"
		COMMAND3.FontName = "Arial Narrow"
		COMMAND3.FontSize = 10
		COMMAND3.Height = 36
		COMMAND3.Left = 460
		COMMAND3.Name = "COMMAND3"
		COMMAND3.SpecialEffect = 0
		COMMAND3.Top = 0
		COMMAND3.Width = 84
		COMMAND3.ZOrderSet = 43
		T3.BackStyle = 0
		T3.DisabledBackColor = 255,255,255
		T3.FontBold = .F.
		T3.FontName = "Arial Narrow"
		T3.FontSize = 10
		T3.Format = "rk"
		T3.Height = 23
		T3.InputMask = (get_mask(14,gnZ))
		T3.Left = 353
		T3.Name = "T3"
		T3.SpecialEffect = 1
		T3.Top = 74
		T3.Width = 139
		T3.ZOrderSet = 23
		LABEL4.BackColor = 255,255,255
		LABEL4.Caption = "Total Valoare de intrare:"
		LABEL4.FontName = "Arial Narrow"
		LABEL4.FontSize = 10
		LABEL4.Left = 355
		LABEL4.Name = "LABEL4"
		LABEL4.Top = 51
		LABEL4.ZOrderSet = 25
		Excel1.Command1.Name = "Command1"
		Excel1.Imbuton1.Height = 27
		Excel1.Imbuton1.Name = "Imbuton1"
		Excel1.Imbuton1.Width = 30
		Excel1.Left = 725
		Excel1.Name = "Excel1"
		Excel1.Top = 402
		Excel1.Visible = .F.
		Excel1.ZOrderSet = 31
		LIST1.Command1.Name = "Command1"
		LIST1.Imbuton1.Height = 27
		LIST1.Imbuton1.Name = "Imbuton1"
		LIST1.Imbuton1.Width = 30
		LIST1.Left = 725
		LIST1.Name = "LIST1"
		LIST1.Top = 432
		LIST1.ZOrderSet = 24
		TERMINAT1.Command1.Name = "Command1"
		TERMINAT1.Imbuton1.Height = 27
		TERMINAT1.Imbuton1.Name = "Imbuton1"
		TERMINAT1.Imbuton1.Width = 30
		TERMINAT1.Left = 725
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 462
		TERMINAT1.ZOrderSet = 28
	*</PropValue>

	ADD OBJECT 'Check10' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data act", ;
		ControlSource = "bdata", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 8, ;
		Name = "Check10", ;
		SpecialEffect = 2, ;
		Top = 71, ;
		Width = 56, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check11' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data pif", ;
		ControlSource = "bdatpif", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 74, ;
		Name = "Check11", ;
		SpecialEffect = 2, ;
		Top = 87, ;
		Width = 53, ;
		ZOrderSet = 35
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check12' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Expirat", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 0,0,255, ;
		Height = 18, ;
		Left = 249, ;
		Name = "Check12", ;
		SpecialEffect = 2, ;
		Top = 87, ;
		Width = 51, ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check13' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data expirarii", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 151, ;
		Name = "Check13", ;
		SpecialEffect = 2, ;
		Top = 87, ;
		Width = 81, ;
		ZOrderSet = 36
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check15' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data iesirii gest", ;
		ControlSource = "", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 151, ;
		Name = "Check15", ;
		SpecialEffect = 2, ;
		Top = 103, ;
		Width = 88, ;
		ZOrderSet = 42
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check16' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<Sectie", ;
		ControlSource = "", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 8, ;
		Name = "Check16", ;
		SpecialEffect = 1, ;
		TabIndex = 14, ;
		Top = 103, ;
		Width = 46, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check5' AS checkbox WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		Caption = "Nr.inv", ;
		ControlSource = "bnrinv", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 8, ;
		Name = "Check5", ;
		SpecialEffect = 2, ;
		Top = 87, ;
		Width = 47, ;
		ZOrderSet = 40
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check6' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data ultimei reevaluari", ;
		ControlSource = "", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 8, ;
		Name = "Check6", ;
		SpecialEffect = 2, ;
		Top = 120, ;
		Width = 122, ;
		ZOrderSet = 41
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check7' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Iesit din gestiune", ;
		ControlSource = "bcasat", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 255,0,0, ;
		Height = 18, ;
		Left = 249, ;
		Name = "Check7", ;
		SpecialEffect = 2, ;
		Top = 103, ;
		Width = 95, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Ck_acont' AS ck_filtru_text WITH ;
		camp_nume = ascd, ;
		Caption = "Cont Analitic", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 74, ;
		Name = "Ck_acont", ;
		Top = 71, ;
		ZOrderSet = 51
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_amortlun' AS ck_filtru_numar WITH ;
		camp_nume = amortlun, ;
		Caption = "Amortizment", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 249, ;
		Name = "Ck_amortlun", ;
		Top = 39, ;
		ZOrderSet = 50
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_cont' AS ck_filtru_text WITH ;
		camp_nume = scd, ;
		Caption = "Cont", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 74, ;
		Name = "Ck_cont", ;
		Top = 55, ;
		ZOrderSet = 51
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_denumire' AS ck_filtru_text WITH ;
		camp_nume = denumire, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 8, ;
		Name = "Ck_denumire", ;
		Top = 55, ;
		ZOrderSet = 58
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_lucrare' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Lucrare/Contract", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 249, ;
		Name = "Ck_lucrare", ;
		SpecialEffect = 1, ;
		Top = 71, ;
		Width = 97, ;
		ZOrderSet = 52
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Ck_majorare' AS ck_filtru_numar WITH ;
		camp_nume = valin - valoare, ;
		Caption = "Val majorare", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 74, ;
		Name = "Ck_majorare", ;
		Top = 102, ;
		ZOrderSet = 50
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_respons' AS ck_filtru_text WITH ;
		camp_nume = respons, ;
		Caption = "Responsabil", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 249, ;
		Name = "Ck_respons", ;
		Top = 55, ;
		ZOrderSet = 51
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_valin' AS ck_filtru_numar WITH ;
		camp_nume = valin, ;
		Caption = "\<Val. de intrare", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 151, ;
		Name = "Ck_valin", ;
		Top = 71, ;
		ZOrderSet = 50
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_valoare' AS ck_filtru_numar WITH ;
		camp_nume = valoare, ;
		Caption = "Val de achizitie", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 151, ;
		Name = "Ck_valoare", ;
		Top = 39, ;
		ZOrderSet = 50
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_valramasa' AS ck_filtru_numar WITH ;
		camp_nume = valramasa, ;
		Caption = "\<Val. de calcul", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Left = 151, ;
		Name = "Ck_valramasa", ;
		Top = 55, ;
		ZOrderSet = 50
		*< END OBJECT: ClassLib="caut.vcx" BaseClass="checkbox" />

	ADD OBJECT 'ckIstoric' AS checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Istoric", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 0,128,0, ;
		Height = 18, ;
		Left = 249, ;
		Name = "ckIstoric", ;
		SpecialEffect = 2, ;
		Top = 120, ;
		Width = 45, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Command4' AS commandbutton WITH ;
		Caption = "Operatiuni cu istoric", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 0,128,0, ;
		Height = 36, ;
		Left = 307, ;
		Name = "Command4", ;
		Top = 0, ;
		Width = 84, ;
		WordWrap = .T., ;
		ZOrderSet = 47
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command5' AS commandbutton WITH ;
		Caption = "Completare baza de date -preced.ian. = totaluri dec-", ;
		FontName = "Arial Narrow", ;
		Height = 36, ;
		Left = 190, ;
		Name = "Command5", ;
		Top = 0, ;
		Visible = .F., ;
		Width = 116, ;
		WordWrap = .T., ;
		ZOrderSet = 55
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command6' AS commandbutton WITH ;
		Caption = "Calcul Reevaluare", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		ForeColor = 0,64,128, ;
		Height = 36, ;
		Left = 391, ;
		Name = "Command6", ;
		Top = 0, ;
		Width = 69, ;
		WordWrap = .T., ;
		ZOrderSet = 48
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'excel2' AS excel WITH ;
		Left = 640, ;
		Name = "excel2", ;
		Top = 2, ;
		ZOrderSet = 57, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'GRID1.Column23.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cauza iesire/intrare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'GRID1.Column24.Header1' AS header WITH ;
		Alignment = 0, ;
		Caption = "Val.reziduala", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column24.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.Column25.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data amortizarii complete", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column25.Text1' AS textbox WITH ;
		Alignment = 2, ;
		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.Column26.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare de intrare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column26.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.Column27.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Val. majorare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column27.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.Column28.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data ultimei evaluari", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column28.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.Column29.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare ramasa de amortizat", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column29.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.Column30.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column30.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.Column31.Header1' AS header WITH ;
		Caption = "Id sectie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column31.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.Column32.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'GRID1.Column33.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare/Contract", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'GRID1.Column33.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.Column34.Check1' AS checkbox WITH ;
		Caption = "", ;
		Height = 17, ;
		Left = 30, ;
		Name = "Check1", ;
		Top = 37, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

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

	ADD OBJECT 'GRID1.Column35.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie data evaluare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'LIST1' AS list WITH ;
		Left = 671, ;
		Name = "LIST1", ;
		Top = 2, ;
		ZOrderSet = 46, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1", ;
		COMMAND1.ToolTipText = "Lista amortizarilor lunare"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'List2' AS list WITH ;
		Left = 733, ;
		Name = "List2", ;
		Top = 2, ;
		ZOrderSet = 53, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1", ;
		Command1.ToolTipText = "Listare istoric amortizare"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'List3' AS list WITH ;
		Left = 702, ;
		Name = "List3", ;
		Top = 2, ;
		ZOrderSet = 54, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Modifica1' AS modifica WITH ;
		Left = 578, ;
		Name = "Modifica1", ;
		Top = 2, ;
		ZOrderSet = 30, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackColor = 0,64,128, ;
		BorderStyle = 0, ;
		BorderWidth = 0, ;
		Height = 37, ;
		Left = -19, ;
		Name = "Shape4", ;
		Top = 0, ;
		Width = 565, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Sterge1' AS sterge WITH ;
		Left = 609, ;
		Name = "Sterge1", ;
		Top = 2, ;
		ZOrderSet = 29, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Height = 30, ;
		Left = 764, ;
		Name = "Terminat1", ;
		Picture = ..\..\comun\grafice\orb.bmp, ;
		Top = 2, ;
		Width = 32, ;
		ZOrderSet = 26, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Verif1' AS verif WITH ;
		Left = 547, ;
		Name = "Verif1", ;
		Top = 2, ;
		ZOrderSet = 27, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
	
	PROCEDURE Activate
		*WAIT WINDOW "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.afisactual
		
	ENDPROC

	PROCEDURE afisactual
		Store ".T." To Tden,Tsuma,Tgest,tscd,tnract,tnrinv,tresp,tamort,tdata,tdatpif,t1,tdataexp,t14,tdataout
		
		LOCAL lcFiltre
		lcFiltre = "Upper(fel)=felul"
		
		IF this.ck_majorare.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_majorare.filtru + " "
		ENDIF 
		
		IF this.ck_valoare.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_valoare.filtru + " "
		ENDIF 
		IF this.ck_valin.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_valin.filtru + " "
		ENDIF 
		IF this.ck_valramasa.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_valramasa.filtru + " "
		ENDIF 
		
		IF this.ck_amortlun.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_amortlun.filtru + " "
		ENDIF 
		
		IF this.ck_denumire.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_denumire.filtru + " "
		ENDIF 
		
		IF this.ck_respons.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_respons.filtru + " "
		ENDIF 
		
		IF this.ck_acont.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_acont.filtru + " "
		ENDIF 
		
		IF this.ck_cont.Value = 1
			lcFiltre = lcFiltre +  + " AND " + this.Ck_cont.filtru + " "
		ENDIF 
		
		IF this.check6.Value = 1
			lcFiltre = lcFiltre + " AND (dataeval>=pdata7) and (dataeval<=pdata8)"
		ENDIF 
		If This.check12.Value=1
			lcFiltre = lcFiltre + " AND ROUND(12*VAL(m.an)+VAL(m.nl),0)>12*YEAR(dataeval)+MONTH(dataeval)+normat2lun"
		ENDIF
		
		If This.check16.Value=1
			lcFiltre = lcFiltre + " AND id_sectie = pnSectie"
		ENDIF
		
		If bgest==.T. And m.gest#-1 then
			lcFiltre = lcFiltre + " AND gest==m.gest"
		ENDIF
		
		If this.ck_lucrare.value = 1
			lcFiltre = lcFiltre + " AND ALLTRIM(nrord) = ALLTRIM(PcNrord)"
		ENDIF
		
		
		If bnract==.T. then
			lcFiltre = lcFiltre + " AND (nract>=m.nr1) and (nract<=m.nr2)"
		ENDIF
		
		If bnrinv==.T. then
			lcFiltre = lcFiltre + " AND (VAL(nrinv)>=pnrinv1) and (VAL(nrinv)<=pnrinv2)"
		Endif
		
		If bdata==.T. then
			lcFiltre = lcFiltre + " AND (dataact>=m.data1) and (dataact<=m.data2)"
		Endif
		If bdatpif==.T. then
			lcFiltre = lcFiltre + " AND (datapif>=pdata1) and (datapif<=pdata2)"
		Endif
		IF this.check13.value = 1
			lcFiltre = lcFiltre + " AND (gomonth(dataeval,normat2lun)>=pdata3) and (gomonth(dataeval,normat2lun)<=pdata4)"
		ENDIF 
		
		IF this.check15.value = 1
			lcFiltre = lcFiltre + " AND (dataout>=pdata5) and (dataout<=pdata6)"
		ENDIF 
		IF bcasat==.T.
			lcFiltre = lcFiltre + " AND casat"
		ELSE 
			lcFiltre = lcFiltre + " AND !casat"
		ENDIF 
		
		If This.ckIstoric.Value = 0
			lcFiltre = lcFiltre + " and !inactiv"
		ENDIF
		
		Sele xmf
		SET FILTER TO &lcFiltre 
		
		Sum amortlun To m.suma
		Sum amorttot To m.sumat
		Sum VALin To TVALOARE
		
		Sele xmf
		Go Top
		Thisform.GRID1.Refresh
		Thisform.text1.Refresh
		Thisform.text2.Refresh
		Thisform.t3.Refresh
		thisform.grid1.SetFocus 
		
		
	ENDPROC

	PROCEDURE calcul_reevaluare		&& Calculeaza valramasa(de calcul), normat2 si normat2lun
		PARAMETERS lFaraForm
		
		IF !lFaraForm
			SELECT xmf
			SCATTER NAME omf
		
			IF dataeval = datapif && dc la schimbare val inventar nu s-a trecut si dataeval
				pnDataeval = CTOD('01/'+m.nl+'/'+m.an)-1
			ELSE 
				pnDataeval = omf.dataeval
			ENDIF 
			pnNormat2lun = omf.normat2lun
			pnNormat2 = omf.normat2
			pnValramasa = omf.valramasa
			pnAmortprec = omf.amortprec
			*pnUzuraPrec = omf.uzuraprec
			DO FORM frm_calcul_reevaluare
			IF buton=1
				IF omf.codop = 12 && conservare
					pnCota = 0
				ELSE 
					pnCota = calcul_cota(omf.Normat2lun)
				ENDIF 
				
				SELECT xmf
				REPLACE valramasa WITH pnValramasa, cota WITH pnCota
				
				&& astea ar tb sa fie neschimbate
				REPLACE normat2lun WITH pnNormat2lun, normat2 WITH pnNormat2
				REPLACE dataeval WITH pnDataeval
				REPLACE amortprec WITH pnAmortprec &&, uzuraprec WITH pnUzuraPrec
		
				SCATTER memv
				DO calcamortm 
				SELECT xmf 
				GATHER MEMVAR 
				SCATTER NAME omf
				
				SELECT mflun
				IF FLOCK()
					APPEND BLANK
					GATHER NAME omf
					REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
					REPLACE dataora WITH DATETIME(),util WITH m.utilizator
				ENDIF
				UNLOCK
		
				SELECT MFANUAL
				IF FLOCK()
					APPEND BLANK
					GATHER NAME omf
					REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
					REPLACE dataora WITH DATETIME(),util WITH m.utilizator
				ENDIF
				UNLOCK
			ENDIF 
		
			RELEASE omf 
		ELSE 
			pnDataeval = CTOD('01/'+m.nl+'/'+m.an)-1
			pnLunaEval = MONTH(pnDataEval)
			pnAnEval = YEAR(pnDataEval)
			SELECT xmf
			SCAN FOR !inactiv AND !casat AND MONTH(dataeval) = pnLunaEval AND YEAR(dataeval) = pnAnEval AND INLIST(codop,8,9,10,12,13) && majorari,reevaluari,schimbare DNS,conservare si scoatere din conservare
				SCATTER NAME omf
				IF VAL(m.an)>= 2004
					lnValRez = 0
				ELSE 
					lnValRez = omf.valrez
				ENDIF 
				pnValramasa = omf.valin - omf.Amortprec - lnValRez
				IF omf.codop = 12 && conservare
					pnCota = 0
				ELSE 
					pnCota = calcul_cota(omf.Normat2lun)
				ENDIF 
				SELECT xmf
				REPLACE valramasa WITH pnValramasa, cota WITH pnCota
				SCATTER memv
				DO calcamortm 
				SELECT xmf 
				GATHER MEMVAR 
				SCATTER NAME omf
				
				SELECT mflun
				IF FLOCK()
					APPEND BLANK
					GATHER NAME omf
					REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
					REPLACE dataora WITH DATETIME(),util WITH m.utilizator
				ENDIF
				UNLOCK
		
				SELECT MFANUAL
				IF FLOCK()
					APPEND BLANK
					GATHER NAME omf
					REPLACE explicatia WITH 'Recalculare Cota,Valoare ramasa',codop WITH 11
					REPLACE dataora WITH DATETIME(),util WITH m.utilizator
				ENDIF
				UNLOCK
				RELEASE omf 
				SELECT xmf 
			ENDSCAN 
		ENDIF 
		
		
	ENDPROC

	PROCEDURE do_conservare
		
		SELECT xmf
		SCATTER NAME omf
		IF omf.codop = 12 &&  e conservat
			lcLb1 = "Se scoate din conservare mijlocul fix "+Alltrim(omf.denumire)+" ?"
			lcLb2 = 'Cauza repuneri in functiune'
			lcLb3 = 'Data repuneri in functiune'
			pnCod = 13
		ELSE 
			lcLb1 = "Se conserva mijlocul fix "+Alltrim(omf.denumire)+" ?"
			lcLb2 = 'Cauza conservarii'
			lcLb3 = 'Data conservarii'
			pnCod = 12
		ENDIF 
		pnDataEval = ultima_zi_din_luna(m.an,m.nl)
		pcCauza = ''
		pnNormat2lun = omf.normat2lun
		pnNormat2 = omf.normat2
		
		oi=CREATEOBJECT('ingest')
		oi.label1.CAPTION=lcLb1
		oi.label2.CAPTION=lcLb2
		oi.label3.CAPTION=lcLb3
		oi.text1.controlsource = 'pcCauza'
		oi.text2.controlsource = 'pnDataEval'
		oi.ncod_op = pnCod
		oi.SHOW(1)
		
		IF buton=1
			SELECT xmf
			REPLACE inactiv WITH .T.
			APPEND BLANK 
			omf.codop = pnCod
			omf.dataeval = pnDataEval
			omf.normat2lun = pnNormat2lun 
			omf.normat2 = pnNormat2
			omf.cauza = pcCauza
			omf.cod = -1
			
			GATHER NAME omf 
			lcExplic = get_explicatie(pnCod)
			SELECT mflun
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				REPLACE explicatia WITH lcExplic
				REPLACE dataora WITH DATETIME(), util WITH m.utilizator
			ENDIF
			UNLOCK
		
			SELECT MFANUAL
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				REPLACE explicatia WITH lcExplic
				REPLACE dataora WITH DATETIME(), util WITH m.utilizator
			ENDIF
			UNLOCK
		ENDIF
		
		RELEASE omf
		
	ENDPROC

	PROCEDURE do_modificare_istoric
		SELE xmf
		SCATTER MEMVAR 
		
		SELECT numegest
		LOCATE FOR gest=m.gest
		SCATTER FIELDS numegest MEMVAR
		
		SELECT sectie
		LOCATE FOR id_sectie=m.id_sectie
		SCATTER FIELDS sectie MEMVAR
		
		buton=1 
		lcFrm = 'frm_fisa'
		ofi=CREATEOBJECT(lcFrm)
		ofi.text4.inputmask = get_mask(14,gnZ)
		ofi.text22.inputmask = get_mask(14,gnZ)
		ofi.text25.inputmask = get_mask(14,gnZ)
		ofi.text15.inputmask = get_mask(14,gnZ)
		ofi.text18.inputmask = get_mask(14,gnZ)
		ofi.text19.inputmask = get_mask(14,gnZ)
		ofi.t23.inputmask = get_mask(14,gnZ)
		IF felul='N'
			ofi.fel_imob='N'
		ELSE
			ofi.fel_imob='C'
		ENDIF 
		ofi.SHOW(1)
		
		IF buton=2
			RETURN
		ENDIF 
		
		SELECT xmf 
		IF FLOCK()
			SELECT xmf
			REPLACE inactiv WITH .T.
			
			APPEND BLANK
			GATHER MEMVAR 
			REPLACE cod WITH -1, codop WITH 1
			IF EMPTY(dataeval)
				REPLACE dataeval WITH datapif
			ENDIF 	
		ENDIF
		UNLOCK
		
		SELECT mflun
		APPEND BLANK
		IF FLOCK()
			GATHER MEMVAR 
			REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
			REPLACE codop WITH 1
		ENDIF
		UNLOCK
		
		SELECT mfanual
		APPEND BLANK
		IF FLOCK()
			GATHER MEMVAR 
			REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
			REPLACE codop WITH 1
		ENDIF
		UNLOCK
		
		SELECT xmf
		SCATTER MEMVAR BLANK 
		THISFORM.afisactual
	ENDPROC

	PROCEDURE iesire_din_gestiune
		Select xmf
		If inactiv
			Return
		Endif
		Scatter Memvar
		
		If !casat
			m="Iese din gestiune mijlocul fix "+Alltrim(m.denumire)+" ?"
			Do danu_ingest With casat,m,'iesire'
			If buton=1
				Select xmf
				Scatter Name omf
				Replace inactiv With .T.
		
				If Flock()
					Append Blank
					Gather Name omf
					Replace casat With .T.,cauza With m.cauza,cod With -1,codop With 5
					Replace dataout With m.dataout && e inutil dc am pe dataeval datai esirii
				Endif
				Unlock
		
				Release omf
			Endif
		
			Select mflun
			If Flock()
				Append Blank
				Gather Memv
				Replace casat With .T.,cauza With m.cauza,explicatia With 'Iesire din gestiune',dataora With Datetime(),dataout With m.dataout,cod WITH -1
				Replace codop With 5
			Endif
			Unlock
			Select MFANUAL
			If Flock()
				Append Blank
				Gather Memv
				Replace casat With .T.,cauza With m.cauza,explicatia With 'Iesire din gestiune',dataora With Datetime(),dataout With m.dataout,cod WITH -1
				Replace codop With 5
			Endif
			Unlock
		Else
			m="Intra in gestiune mijlocul fix "+Alltrim(m.denumire)+" ?"
			Do danu_ingest With casat,m,'intrare'
			If buton=2
				Return
			Endif
		
			Select xmf
			Scatter Name omf
			Replace inactiv With .T.
		
			If Flock()
				Append Blank
				Gather Name omf
				Replace casat With .F.,cauza With " ",cod With -1,codop With 6
			Endif
			UNLOCK
			
			Select mflun
			If Flock()
				Append Blank
				Gather Memv
				Replace casat With .F.,cauza With '',explicatia With 'Intrare in gestiune',dataora With Datetime(),cod WITH -1
				Replace codop With 6
			Endif
			Unlock
			Select MFANUAL
			If Flock()
				Append Blank
				Gather Memv
				Replace casat With .F.,cauza With '',explicatia With 'Intrare in gestiune',dataora With Datetime(),cod WITH -1
				Replace codop With 6
			Endif
			Unlock
		*this.Caption="Iesire din gestiune"
		Endif
		
	ENDPROC

	PROCEDURE Init
		*WAIT WINDOW "init"
		
		STORE .f. to bnrinv,bresp,bcasat,bamort,bdata,bdatpif
		STORE ".T." TO Tnrinv,Tresp,Tamort,Tdata,Tdatpif
		store 0 to m.suma1,m.suma2,m.suma,m.sumat,m.nr1,m.nr2,TVALOARE
		store .f. to bden,bsuma,bgest,bscd,bnract
		STORE ".T." TO Tden,Tsuma,Tgest,tscd,tnract
		
		sele xmf
		*REPLACE ALL normat2lun WITH normat2*12 FOR normat2lun=0 AND normat2#0
		go top
		if eof()
			thisform.grid1.gridlines=0
		*!*		thisform.check1.enabled=.f.
		*!*		thisform.check2.enabled=.f.
		*!*		thisform.check3.enabled=.f.
		*!*		thisform.check4.enabled=.f.
		*!*		thisform.check5.enabled=.f.
		*!*		thisform.check7.enabled=.f.
		*!*		thisform.check9.enabled=.f.
		*!*		thisform.check8.enabled=.f.
		*!*		thisform.check10.enabled=.f.
		*!*		thisform.check11.enabled=.f.
		*!*		thisform.check11.enabled=.f.
		*!*		thisform.check12.enabled=.f.
		*!*		thisform.command1.enabled=.f.
			thisform.label19.visible=.t.
		endif
		
		thisform.afisactual
		
	ENDPROC

	PROCEDURE meniu_as
		SELECT xmf
		
		IF xmf.inactiv && sa nu faca operatii cu mf-uri din istoric
			lcText=[\Majorarea valorii de intrare;]
			lcText=lcText+[\Reevaluarea valorii de intrare;]
			IF codop <> 12
				lcText=lcText+[\Conservare;]
			ELSE 
				lcText=lcText+[\Scoatere din conservare;]
			ENDIF 
			lcText=lcText+[\Schimbare DNS;]
			lcText=lcText+[\-;]
			IF !casat
				lcText=lcText+[\Iesire din gestiune;]
			ELSE
				lcText=lcText+[\Intrare in gestiune;]
			ENDIF
		
			lcText=lcText+[\-;]
			lcText=lcText+[\Modificare cu istoric]
		
		ELSE
			lcText=[\<Majorarea valorii de intrare;]
			lcText=lcText+[\<Reevaluarea valorii de intrare;]
			IF codop <> 12
				lcText=lcText+[\<Conservare;]
			ELSE 
				lcText=lcText+[\<Scoatere din conservare;]
			ENDIF 
			lcText=lcText+[\<Schimbare DNS;]
			lcText=lcText+[\-;]
			IF !casat
				lcText=lcText+[\<Iesire din gestiune;]
			ELSE
				lcText=lcText+[\<Intrare in gestiune;]
			ENDIF
			lcText=lcText+[\-;]
			lcText=lcText+[\<Modificare cu istoric]
		
		ENDIF
		lnOpt=xmenu(lcText)
		
		DO CASE
			CASE lnOpt=1
				THISFORM.schimb_val_inventar
			CASE lnOpt=2
				THISFORM.schimb_val_inventar
			CASE lnOpt=3
				THISFORM.do_conservare
			CASE lnOpt=4
				THISFORM.schimb_DNS
			CASE lnOpt=6
				this.iesire_din_gestiune 
			CASE lnOpt=8
				thisform.do_modificare_istoric
		ENDCASE
		
		THISFORM.afisactual
		
	ENDPROC

	PROCEDURE meniu_calcul
		SELECT xmf
		llInactiv = inactiv
		IF !llInactiv
			lcText=[\<Pentru MF selectat;]
		ELSE 
			lcText=[\Pentru MF selectat;]
		ENDIF 	
		
		lcText=lcText+[\<Pentru toate MF reevaluate]
		lnOpt=xmenu(lcText)
		
		DO CASE
			CASE lnOpt=1
				THISFORM.calcul_reevaluare(.F.)
			CASE lnOpt=2
				THISFORM.calcul_reevaluare(.T.)
		ENDCASE
		
		THISFORM.afisactual
		
	ENDPROC

	PROCEDURE modificare
		SELE xmf
		SCATTER MEMVAR
		
		SELECT numegest
		LOCATE FOR gest=m.gest
		SCATTER FIELDS numegest MEMVAR
		
		SELECT sectie
		LOCATE FOR id_sectie=m.id_sectie
		SCATTER FIELDS sectie MEMVAR
		
		buton=1 
		ofi=CREATE('fisa')
		ofi.text4.inputmask = get_mask(14,gnZ)
		ofi.text25.inputmask = get_mask(14,gnZ)
		ofi.text15.inputmask = get_mask(14,gnZ)
		ofi.text18.inputmask = get_mask(14,gnZ)
		ofi.text19.inputmask = get_mask(14,gnZ)
		ofi.t23.inputmask = get_mask(14,gnZ)
		IF felul='N'
			ofi.fel_imob='N'
		ELSE
			ofi.fel_imob='C'
		ENDIF 
		ofi.SHOW(1)
		
		IF buton=2
			RETURN
		ENDIF 
		
			SELECT xmf 
			IF FLOCK()
				GATHER MEMVAR
			ENDIF
			UNLOCK
		
			SELECT mflun
			APPEND BLANK
			IF FLOCK()
				GATHER MEMVAR
				REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
				REPLACE codop WITH 1
			ENDIF
			UNLOCK
		
			SELECT mfanual
			APPEND BLANK
			IF FLOCK()
				GATHER MEMVAR
				REPLACE explicatia WITH 'Modificare',dataora WITH DATETIME()
				REPLACE codop WITH 1
			ENDIF
			UNLOCK
		
		THISFORM.afisactual
	ENDPROC

	PROCEDURE Release
		SELECT xmf
		SET FILTER TO 
	ENDPROC

	PROCEDURE schimb_dns
		SELECT xmf
		SCATTER NAME omf
		
		PRIVATE pcCodmf, pnDR, pnDRani, pnUzuraPrec, pdDataEval, pnDNS, pnDNSani,m.norma_min,m.norma_max
		STORE 0 TO pnDR, pnDNS, pnUzuraPrec,m.norma_min,m.norma_max
		STORE 0.00 to pnDRani, pnDNSani 
		STORE {^2005-01-01} to pdDataEval
		pdDataEval = GOMONTH(pdDataEval,-1)
		pcCodmf = omf.codmf
		
		poDNS = CREATEOBJECT("frm_schimb_dns")
		poDNS.SHOW(1)
		
		IF buton=1
		
			SELECT xmf
			REPLACE inactiv WITH .T.
			APPEND BLANK
			
			omf.normat2 = pnDRani
			omf.normat2lun = pnDR
			omf.dataEval = pdDataEval
			omf.codmf = pcCodmf
			omf.normaan = pnDNSani 
			omf.normat = pnDNS
			omf.inactiv = .F.
		*	omf.uzuraprec = pnUzuraPrec
			omf.inactiv = .F.
			omf.cod = -1
			omf.codop = 10
			
			GATHER NAME omf
			RELEASE omf 
			thisform.calcul_reevaluare(.f.)
			
			SELECT xmf
			SCATTER MEMV
		
			DO calcamortm
			
			SELECT xmf
			GATHER MEMVAR
			SCATTER NAME omf
		
			SELECT mflun
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				REPLACE explicatia WITH 'Schimbare DNS', ;
					dataora WITH DATETIME(),util WITH m.utilizator
				REPLACE codop WITH 10
			ENDIF
			UNLOCK
		
			SELECT MFANUAL
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				REPLACE explicatia WITH 'Schimbare DNS',dataora WITH DATETIME(),util WITH m.utilizator
				REPLACE codop WITH 10
			ENDIF
			UNLOCK
		ENDIF
		
		RELEASE omf
		
	ENDPROC

	PROCEDURE schimb_val_inventar
		SELECT xmf
		SCATTER NAME omf
		
		pnValin=omf.valin
		pnAmortTot = omf.AmortPrec + omf.AmortLun
		pnDataEval = ultima_zi_din_luna(m.an,m.nl)
		pnNormat2lun = omf.normat2lun
		pnNormat2 = omf.normat2
		
		DO CASE
			CASE lnOpt = 1
				DO FORM frm_schimb_valoare2
			CASE lnOpt = 2
				DO FORM frm_schimb_valoare
				omf.amortprec = pnAmortTot - omf.amortlun
		ENDCASE
		
		IF buton=1
		
			SELECT xmf
			IF lnOpt = 1
				REPLACE inactiv WITH .T.
			ELSE
				REPLACE inactiv WITH .T.
			ENDIF 
			APPEND BLANK 
			omf.valin = pnValin
			omf.dataeval = pnDataEval
			omf.normat2lun = pnNormat2lun
			omf.normat2 = pnNormat2
			omf.inactiv = .F.
			omf.cod = -1
			IF lnOpt = 1
				omf.codop = 8
			ELSE
				omf.codop = 9
			ENDIF 
			
			GATHER NAME omf 
			SCATTER NAME omf
		
			SELECT mflun
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				IF lnOpt = 1
					REPLACE explicatia WITH 'Majorarea val. de inventar', codop WITH 8
				ELSE
					REPLACE explicatia WITH 'Reevaluarea val. de inventar', codop WITH 9
				ENDIF
				REPLACE dataora WITH DATETIME(), util WITH m.utilizator
			ENDIF
			UNLOCK
		
			SELECT MFANUAL
			IF FLOCK()
				APPEND BLANK
				GATHER NAME omf
				IF lnOpt = 1
					REPLACE explicatia WITH 'Majorarea val. de inventar', codop WITH 8
				ELSE
					REPLACE explicatia WITH 'Reevaluarea val. de inventar', codop WITH 9
				ENDIF
		
				REPLACE dataora WITH DATETIME(), util WITH m.utilizator
			ENDIF
			UNLOCK
		ENDIF
		
		RELEASE omf
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		*!*	IF !FILE(ADDBS(gcAppPath)+'prg_pt_acn.prg')
		*!*		this.command5.Visible = .f.
		*!*	ENDIF 
		
		IF luna_inchisa
			this.modifica1.Visible = .F. 
			this.sterge1.Visible = .F.
			this.command3.Visible = .F. 
			this.command4.Visible = .F. 
			this.command6.Visible = .f.
		ENDIF
		
		
		*!*	ON ERROR DO a
		*!*	IF COMPARTABELE('xmf')=.F.
		*!*		DO MESAJ WITH 'Reindexati fisierele','<MENU / UTILE / REINDEXARE>'
		*!*		THIS.cmdTERMIN1.CLICK
		*!*	ENDIF
		*!*	ON ERROR
		
		*THISFORM.command3.CLICK
		
		
	ENDPROC

	PROCEDURE transfer
		SELECT xmf
		SCATTER MEMVAR
		IF !inactiv AND !casat
			lm="Se transfera mijlocul fix "+ALLTRIM(m.denumire)+" ?"
			DO danu_transfer WITH casat,lm,'Cauza transferului:'
			IF buton=1
				SELECT xmf
				IF FLOCK()
					REPLACE inactiv WITH .T., casat WITH .t., cauza WITH m.cauza, dataout WITH m.dataout, codop WITH 5
		*!*					gest WITH m.gest, ;
		*!*					id_sectie WITH m.id_sectie, ;
		*!*					respons WITH m.respons
					*m.cauza = ""
					m.dataout = {//}
					omf.inactiv = .F.
					omf.cod = -1
					omf.codop = 6
					
					APPEND BLANK 
					GATHER MEMVAR  
						
				ENDIF
				UNLOCK
			ENDIF
			SELECT mflun
			IF FLOCK()
				APPEND BLANK
				GATHER MEMV
				REPLACE casat WITH .T., cauza WITH m.cauza, explicatia WITH 'Iesire din gestiune', ;
					dataora WITH DATETIME(), dataout WITH m.dataout
					
				REPLACE codop WITH 5
				*m.cauza = ""
				m.dataout = {//}
				APPEND BLANK 
				GATHER MEMVAR  
			ENDIF
			UNLOCK
			SELECT MFANUAL
			IF FLOCK()
				APPEND BLANK
				GATHER MEMV	
				REPLACE casat WITH .T., cauza WITH m.cauza, explicatia WITH 'Iesire din gestiune', ;
					dataora WITH DATETIME(),dataout WITH m.dataout
					
				REPLACE codop WITH 5
				*m.cauza = ""
				m.dataout = {//}
				APPEND BLANK 
				GATHER MEMVAR  
			ENDIF
			UNLOCK
		ELSE
			DO mesaj WITH "Aceasta operatie nu este valabila","pentru mijloacele fixe casate"
			RETURN 
		ENDIF
		
	ENDPROC

	PROCEDURE Check10.Click
		STORE DATE() TO m.data1, m.data2
		if bdata==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data act"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="m.data1"
				.text2.controlsource="m.data2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check10.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check11.Click
		STORE DATE() TO pdata1, pdata2
		if bdatpif==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data pif"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="pdata1"
				.text2.controlsource="pdata2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check11.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check12.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Check13.Click
		STORE DATE() TO pdata3, pdata4
		if this.Value = 1
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data amortizarii complete"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="pdata3"
				.text2.controlsource="pdata4"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check13.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check15.Click
		STORE DATE() TO pdata5, pdata6
		if this.Value = 1 
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data iesirii din gestiune"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="pdata5"
				.text2.controlsource="pdata6"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check15.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check16.Click
		pnSectie = 0
		IF this.Value = 1
			m.sectie = ''
			DO caut_alfa_cursor WITH 'sectie','sectie','NUMELE SECTIEI','m.sectie'
			SELECT sectie
			LOCATE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(m.sectie))
			IF FOUND()
				pnSectie = id_sectie
			ENDIF 
		ENDIF 
		
		
		
	ENDPROC

	PROCEDURE Check16.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check5.Click
		STORE 0 TO pnrinv1,pnrinv2
		if bnrinv==.t. then
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Numarul de inventar"
				.label1.caption="Nr. minim:"
				.label2.caption="Nr. maxim:"
				.text1.controlsource="pnrinv1"
				.text2.controlsource="pnrinv2"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check5.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check6.Click
		STORE DATE() TO pdata7, pdata8
		if this.Value = 1 
			Ointre=CREATEOBJECT("CAUTintre")
			WITH Ointre
				.CAPTION="Data ultimei reevaluari"
				.label1.caption="Data minima:"
				.label2.caption="Data maxima:"
				.text1.controlsource="pdata7"
				.text2.controlsource="pdata8"
			endwith
			ointre.show(1)
		endif
	ENDPROC

	PROCEDURE Check6.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE Check7.Click
		if Bcasat==.t. then
			SELECT xmf
			SET FILTER TO casat
			*thisform.cgest.Caption="Intrare in gestiune"
			thisform.grid1.ForeColor=RGB(255,0,0)
			thisform.grid1.column1.Visible=.t.
			*thisform.grid1.column23.Visible=.t.
		ELSE 
			SELECT xmf
			SET FILTER TO !casat
			*thisform.cgest.Caption="Iesire din gestiune"
			thisform.grid1.ForeColor=RGB(0,0,0)
			thisform.grid1.column1.Visible=.f.
			*thisform.grid1.column23.Visible=.f.
		endif
		thisform.grid1.Refresh 
	ENDPROC

	PROCEDURE Check7.Valid
		thisform.afisactual
	ENDPROC

	PROCEDURE ckIstoric.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_acont.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_amortlun.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_cont.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_denumire.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_lucrare.Click
		PcNrord = ''
		if this.Value = 1
			do caut_alfa_cursor with 'lucrari','nrord','LUCRARE/CONTRACT','M.NRORD'
			pcNrord = m.nrord
		endif
		IF buton=2
			RETURN
		ENDIF 
		
	ENDPROC

	PROCEDURE Ck_lucrare.Valid
		THISFORM.AFIsactual 
	ENDPROC

	PROCEDURE Ck_majorare.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_respons.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_valin.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_valoare.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE Ck_valramasa.Valid
		thisform.afisactual 
	ENDPROC

	PROCEDURE COMMAND3.Click
		thisform.LockScreen = .t.
		lcFiltru = FILTER('xmf')
		
		Select xmf
		SET FILTER TO 
		Scan For UPPER(ALLTRIM(fel)) = UPPER(ALLTRIM(thisform.pcfel)) AND !casat
			Do Case
			Case Empty(normat)
				Do mesaj With 'Trebuie introdusa durata normala de serviciu','la '+Allt(denumire)
				LOOP 
		
			Case Empty(valoare)
				Do mesaj With "Trebuie introdusa valoarea de achizitie",'la '+Allt(denumire)
				LOOP 
		
			Case Empty(datapif)
				Do mesaj With 'Trebuie introdusa data punerii in functiune','la '+Allt(denumire)
				LOOP 
			ENDCASE
		
			SELECT xmf
			SCATTER NAME omf 
			lnUz = calcuzura(omf)
			RELEASE omf
			
			SELECT xmf
			SCATTER MEMVAR 
			IF TYPE('lnUz') = 'N'
				m.uzura = lnUz
			ENDIF 
			DO calcamortm.prg
			GATHER MEMVAR 
		ENDSCAN
		thisform.afisactual
		thisform.LockScreen = .f.
		
	ENDPROC

	PROCEDURE Command4.Click
		thisform.meniu_as
		
	ENDPROC

	PROCEDURE Command5.Click
		*!*	lcCaleProgram = ADDBS(gcAppPath) + 'prg_pt_acn'
		*!*	lcSetDefa = 'SET PROCEDURE TO ' + lcCaleProgram + ' additive ' 
		*!*	&lcSetDefa
		
		*!*	lcProc = 'prg_pt_acn'
		*!*	DO &lcProc
	ENDPROC

	PROCEDURE Command6.Click
		thisform.meniu_calcul
	ENDPROC

	PROCEDURE excel2.Command1.Click
		lcTabel = Thisform.grid1.RecordSource
		Select (lcTabel)
		lcFiltru = Filter()
		
		Select nract As Nr_doc_achiz, ;
			dataact As Data_achiz, ;
			datapif As Data_PIF, ;
			ALLTRIM(nrpif) As Nr_PIF, ;
			ALLTRIM(nrinv) As Nr_inventar, ;
			denumire As Denumire , ;
			valoare As Valoare_de_achizitie, ;
			valin As Valoare_de_intrare, ;
			valramasa As Valoare_de_calcul, ;
			valin-valoare As Val_majorare, ;
			valrez As Val_reziduala, ;
			normat/12 As DNS_ani, ;
			normat2 As DNS_calcul, ;
			cota As Cota, ;
			tipamort As Tip_amort, ;
			amortlun As Amortizment_lunar, ;
			uzura As Uzura_luni, ;
			GOMONTH(dataeval,Iif(!Empty(normat2lun),normat2lun,normat)) As Data_amort_complete, ;
			amortan As Amortizare_anuala, ;
			amorttot As Total_amortizat, ;
			valin-amorttot As Valoare_ramasa_de_amortizat, ;
			codmf As Cod_MF, ;
			gest As Nr_gest, ;
			respons As Responsabil, ;
			scd As Cont, ;
			ascd As Analitic, ;
			id_sectie As Id_sectie, ;
			dataeval As Data_ultimei_reevaluari, ;
			nrord As Lucrare_contract, ;
			IIF(casat=.F.,"NU","DA") As Iesit_din_gest, ;
			cauza As Cauza_iesirii, ;
			dataout As Data_iesirii, ;
			cod As Cod ;
			from (lcTabel) ;
			WHERE &lcFiltru ;
			INTO Cursor cSelect
		
		loc = STRTRAN(ALLTRIM(loc),'\\','\')
		nfscurt = STRTRAN(ALLTRIM(nfscurt),'\\','\')
		
		*lcExcel=Strtran(Allt(loc)+'\'+Allt(nfscurt)+'\tempo\lista_'+Sys(2)+".xls","\\","\")
		lcExcel=ADDBS(loc) + ADDBS(nfscurt)+ 'tempo\lista_'+Sys(2)+".xls"
		
		Select cSelect
		Copy To &lcExcel Type Xls
		oExcel = Createobject("Excel.Application")
		oExcel.Workbooks.Open(lcExcel)
		oExcel.Visible=1
		oExcel=''
		
		IF USED("cSelect")
			USE IN cSelect
		ENDIF 
		
	ENDPROC

	PROCEDURE GRID1.AfterRowColChange
		LPARAMETERS nColIndex
		
	ENDPROC

	PROCEDURE GRID1.Init
		LOCAL lnLuniExp,lnLuniCrt
		
		sele xmf
		this.setall("dynamicForeColor",'IIF(inactiv,RGB(0,128,0),IIF(casat,RGB(255,0,0),IIF(ROUND(12*VAL(m.an)+VAL(m.nl),0)>12*YEAR(dataeval)+MONTH(dataeval)+normat2lun,RGB(0,0,255),RGB(0,0,0))))','Column')
		GO top
	ENDPROC

	PROCEDURE LIST1.COMMAND1.Click
		lcSel = thisform.grid1.RecordSource 
		thisform.AlwaysOnTop=.f.
		DO list_amort_tot_nou WITH lcSel
		thisform.AlwaysOnTop=.t.
	ENDPROC

	PROCEDURE List2.Command1.Click
		PRIVATE plGestiune, plCategorie
		STORE .f. to plGestiune, plCategorie
		
		pcTitluA = 'EVIDENTA MIJLOACE FIXE - RAPORT LA DATA ' + ALLTRIM(M.NL) + '.' + ALLTRIM(M.AN)
		DO FORM frm_introd_titlu
		
		thisform.AlwaysOnTop = .F.
		
		lcsel = thisform.grid1.RecordSource 
		lcFiltru = FILTER(lcSel)
		
		SELECT (lcsel)
		SELECT *, 00000000000000 as ist_amortlp, 00000000000000 as ist_amorttp from (lcsel) WHERE &lcFiltru INTO CURSOR camortizare readwrite
		
		&& ist_amortlp, ist_amorttp - p vine de la provizoriu
		
		SELECT camortizare 
		SCAN FOR datapif!=dataeval AND !EMPTY(dataeval)
			lnamortlun = 0
			lnamorttot = 0
			lcdenumire = UPPER(ALLTRIM(denumire))
			lddatapif = datapif
			lcnrpif = ALLTRIM(nrpif)
			lnValoare = valoare
			
			lnlunaeval = MONTH(dataeval)
			lnanuleval = YEAR(dataeval)
			
			lccalemf = ADDBS(calefirma) + 'an' + STR(lnanuleval,4,0) + '\date' + PADL(lnlunaeval,2,'0') 
			lcfismf = ADDBS(lccalemf) + 'mf.dbf' 
			IF FILE(lcfismf)
				USE (lcfismf) IN 0 ALIAS rmf
				SELECT rmf
				LOCATE FOR UPPER(ALLTRIM(denumire)) = lcdenumire AND datapif = lddatapif AND ALLTRIM(nrpif) = lcnrpif AND !inactiv
				IF FOUND()
					lnamortlun = amortlun
					lnamorttot = amorttot
					lnnrluni = ABS((lnanuleval * 12 + lnlunaeval) - (VAL(m.an) * 12 + VAL(m.nl))) 
					SELECT camortizare 
					lnAmortTot = lnAmorttot + lnNrluni * lnAmortlun
					IF lnAmortTot > lnValoare
						lnAmortTot = lnValoare
					ENDIF 
					REPLACE ist_amortlp WITH lnAmortlun, ist_amorttp WITH lnAmortTot
				ENDIF 
				USE IN rmf 
			ENDIF 
		SELECT camortizare
		ENDSCAN 
		
		IF bgest
			plGestiune = .t.
		ENDIF 
		
		IF bscd
			plCategorie = .t.
		ENDIF 
		
		buton=1
		od=Create('danu')
		od.label1.Caption=[Alegeti destinatia raportului: ('DA' pentru imprimanta, 'NU' pentru Excel)]
		od.Show(1)
		If buton = 2
			tlexcel = .T.
		Else
			tlexcel = .F.
		Endif
		
		If tlexcel
		*** excel
			lcFile=Addbs(Allt(loc))+Addbs(Allt(nfscurt))+'tempo\EvidentaMf_'+Sys(2)+'.XLS'
			
			Select nrinv as nr_inventar, denumire, codmf as cod_mf, datapif as data_pif,valoare as val_istorica, ;
			valin as val_inventar, ist_amortlp as amort_lunara_ist, amortlun as amort_lunara, ;
			ist_amorttp as amort_totala_ist, amorttot as amort_totala, ;
			valoare-ist_amorttp as val_ramasa_ist, valin-amorttot as val_ramasa, ;
			gomonth(dataeval,iif(!empty(normat2lun),normat2lun,normat)) as data_expirarii ;
			FROM camortizare INTO CURSOR crs_raport
			SELECT crs_raport
			Copy To (lcFile) Type Xls
			USE IN crs_raport
		
			oExcel = Createobject("Excel.Application")
			oExcel.Workbooks.Open(lcFile)
			oExcel.Visible=1
			oExcel=''
		ELSE
			SELECT camortizare
			REPORT FORM amortizare TO PRINTER PROMPT PREVIEW
		ENDIF 
		
		IF USED('camortizare') 
			USE IN camortizare 
		ENDIF 
		
		thisform.AlwaysOnTop = .T.
	ENDPROC

	PROCEDURE List3.Command1.Click
		*THISFORM.CMDlist1.Click 
		Titlu = 'Lista imobilizarilor corporale in luna'
		
		thisform.alwaysontop=.f.
		report form listmfcota to printer prompt preview
		thisform.alwaysontop=.t.
		
	ENDPROC

	PROCEDURE Modifica1.Command1.Click
		thisform.alwaysontop=.f.
		thisform.modificare
		thisform.alwaysontop=.t.
	ENDPROC

	PROCEDURE Sterge1.Command1.Click
		THISFORM.COMMAND2.CLICK 
	ENDPROC

	PROCEDURE Verif1.Command1.Click
		DO verific_cu_balanta WITH thisform.pcfel 
	ENDPROC

ENDDEFINE

DEFINE CLASS vizsit AS viz OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "vizsit"
		Label10.Caption = "Situatie analitica"
		Label10.Left = 7
		Label10.Name = "Label10"
		Label10.Top = 2
		Label10.ZOrderSet = 5
		Shape1.Name = "Shape1"
		Shape1.ZOrderSet = 7
		Shape5.Height = 45
		Shape5.Left = 12
		Shape5.Name = "Shape5"
		Shape5.Top = 459
		Shape5.Width = 672
		Shape5.ZOrderSet = 8
		Shape2.Name = "Shape2"
		Shape2.ZOrderSet = 9
		Shape3.Height = 137
		Shape3.Left = 685
		Shape3.Name = "Shape3"
		Shape3.Top = 312
		Shape3.Width = 108
		Shape3.ZOrderSet = 10
		Grid1.BackColor = 255,255,255
		Grid1.Column1.BackColor = 255,255,255
		Grid1.Column1.ControlSource = ""
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.BackColor = 255,255,255
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column1.Text1.Visible = .F.
		Grid1.Column1.Visible = .F.
		Grid1.Column1.Width = 31
		Grid1.Column10.Alignment = 1
		Grid1.Column10.BackColor = 255,255,255
		Grid1.Column10.ControlSource = "t_2123"
		Grid1.Column10.Format = "r"
		Grid1.Column10.Header1.Caption = "Cont 2813"
		Grid1.Column10.Header1.Name = "Header1"
		Grid1.Column10.InputMask = (get_mask(14,gnZ))
		Grid1.Column10.Name = "Column10"
		Grid1.Column10.Text1.Alignment = 1
		Grid1.Column10.Text1.BackColor = 255,255,255
		Grid1.Column10.Text1.Name = "Text1"
		Grid1.Column10.Width = 84
		Grid1.Column11.Alignment = 1
		Grid1.Column11.BackColor = 255,255,255
		Grid1.Column11.ControlSource = "t_2124"
		Grid1.Column11.Format = "r"
		Grid1.Column11.Header1.Caption = "Cont 2814"
		Grid1.Column11.Header1.Name = "Header1"
		Grid1.Column11.InputMask = (get_mask(14,gnZ))
		Grid1.Column11.Name = "Column11"
		Grid1.Column11.Text1.Alignment = 1
		Grid1.Column11.Text1.BackColor = 255,255,255
		Grid1.Column11.Text1.Name = "Text1"
		Grid1.Column11.Width = 84
		Grid1.Column12.BackColor = 255,255,255
		Grid1.Column12.Header1.Name = "Header1"
		Grid1.Column12.InputMask = (get_mask(14,gnZ))
		Grid1.Column12.Name = "Column12"
		Grid1.Column12.Text1.BackColor = 255,255,255
		Grid1.Column12.Text1.Name = "Text1"
		Grid1.Column12.Text1.Visible = .F.
		Grid1.Column12.Visible = .F.
		Grid1.Column13.BackColor = 255,255,255
		Grid1.Column13.ControlSource = ""
		Grid1.Column13.Header1.Name = "Header1"
		Grid1.Column13.Name = "Column13"
		Grid1.Column13.Text1.BackColor = 255,255,255
		Grid1.Column13.Text1.Name = "Text1"
		Grid1.Column13.Text1.Visible = .F.
		Grid1.Column13.Visible = .F.
		Grid1.Column13.Width = 37
		Grid1.Column14.BackColor = 255,255,255
		Grid1.Column14.ControlSource = ""
		Grid1.Column14.Header1.Name = "Header1"
		Grid1.Column14.Name = "Column14"
		Grid1.Column14.Text1.BackColor = 255,255,255
		Grid1.Column14.Text1.Name = "Text1"
		Grid1.Column14.Text1.Visible = .F.
		Grid1.Column14.Visible = .F.
		Grid1.Column14.Width = 39
		Grid1.Column15.BackColor = 255,255,255
		Grid1.Column15.ControlSource = ""
		Grid1.Column15.Header1.Name = "Header1"
		Grid1.Column15.Name = "Column15"
		Grid1.Column15.Text1.BackColor = 255,255,255
		Grid1.Column15.Text1.Name = "Text1"
		Grid1.Column15.Text1.Visible = .F.
		Grid1.Column15.Visible = .F.
		Grid1.Column15.Width = 37
		Grid1.Column16.BackColor = 255,255,255
		Grid1.Column16.ControlSource = ""
		Grid1.Column16.Header1.Name = "Header1"
		Grid1.Column16.Name = "Column16"
		Grid1.Column16.Text1.BackColor = 255,255,255
		Grid1.Column16.Text1.Name = "Text1"
		Grid1.Column16.Text1.Visible = .F.
		Grid1.Column16.Visible = .F.
		Grid1.Column16.Width = 33
		Grid1.Column17.BackColor = 255,255,255
		Grid1.Column17.ControlSource = ""
		Grid1.Column17.Header1.Name = "Header1"
		Grid1.Column17.Name = "Column17"
		Grid1.Column17.Text1.BackColor = 255,255,255
		Grid1.Column17.Text1.Name = "Text1"
		Grid1.Column17.Text1.Visible = .F.
		Grid1.Column17.Visible = .F.
		Grid1.Column18.BackColor = 255,255,255
		Grid1.Column18.ControlSource = ""
		Grid1.Column18.Header1.Name = "Header1"
		Grid1.Column18.InputMask = (get_mask(14,gnZ))
		Grid1.Column18.Name = "Column18"
		Grid1.Column18.Text1.BackColor = 255,255,255
		Grid1.Column18.Text1.Name = "Text1"
		Grid1.Column18.Text1.Visible = .F.
		Grid1.Column18.Visible = .F.
		Grid1.Column18.Width = 35
		Grid1.Column19.BackColor = 255,255,255
		Grid1.Column19.ControlSource = ""
		Grid1.Column19.Header1.Name = "Header1"
		Grid1.Column19.InputMask = (get_mask(14,gnZ))
		Grid1.Column19.Name = "Column19"
		Grid1.Column19.Text1.BackColor = 255,255,255
		Grid1.Column19.Text1.Name = "Text1"
		Grid1.Column19.Text1.Visible = .F.
		Grid1.Column19.Visible = .F.
		Grid1.Column19.Width = 41
		Grid1.Column2.Alignment = 0
		Grid1.Column2.BackColor = 255,255,255
		Grid1.Column2.ColumnOrder = 2
		Grid1.Column2.ControlSource = "nl"
		Grid1.Column2.Header2.Caption = "Luna"
		Grid1.Column2.Header2.Name = "Header2"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.Alignment = 0
		Grid1.Column2.Text1.BackColor = 255,255,255
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Column2.Width = 27
		Grid1.Column20.BackColor = 255,255,255
		Grid1.Column20.ControlSource = ""
		Grid1.Column20.Header1.Name = "Header1"
		Grid1.Column20.Name = "Column20"
		Grid1.Column20.Text1.BackColor = 255,255,255
		Grid1.Column20.Text1.Name = "Text1"
		Grid1.Column20.Text1.Visible = .F.
		Grid1.Column20.Visible = .F.
		Grid1.Column21.BackColor = 255,255,255
		Grid1.Column21.Header1.Name = "Header1"
		Grid1.Column21.Name = "Column21"
		Grid1.Column21.Text1.BackColor = 255,255,255
		Grid1.Column21.Text1.Name = "Text1"
		Grid1.Column21.Text1.Visible = .F.
		Grid1.Column21.Visible = .F.
		Grid1.Column22.BackColor = 255,255,255
		Grid1.Column22.Header1.Name = "Header1"
		Grid1.Column22.InputMask = (get_mask(14,gnZ))
		Grid1.Column22.Name = "Column22"
		Grid1.Column22.Text1.BackColor = 255,255,255
		Grid1.Column22.Text1.Name = "Text1"
		Grid1.Column22.Text1.Visible = .F.
		Grid1.Column22.Visible = .F.
		Grid1.Column3.BackColor = 255,255,255
		Grid1.Column3.ControlSource = ""
		Grid1.Column3.Header3.Name = "Header3"
		Grid1.Column3.Name = "Column3"
		Grid1.Column3.Text1.BackColor = 255,255,255
		Grid1.Column3.Text1.Name = "Text1"
		Grid1.Column3.Text1.Visible = .F.
		Grid1.Column3.Visible = .F.
		Grid1.Column3.Width = 38
		Grid1.Column4.Alignment = 0
		Grid1.Column4.BackColor = 255,255,255
		Grid1.Column4.ColumnOrder = 1
		Grid1.Column4.ControlSource = "an"
		Grid1.Column4.Header4.Caption = "Anul"
		Grid1.Column4.Header4.Name = "Header4"
		Grid1.Column4.Name = "Column4"
		Grid1.Column4.Text1.Alignment = 0
		Grid1.Column4.Text1.BackColor = 255,255,255
		Grid1.Column4.Text1.Name = "Text1"
		Grid1.Column4.Width = 36
		Grid1.Column5.Alignment = 1
		Grid1.Column5.BackColor = 255,255,255
		Grid1.Column5.ControlSource = "t_2121"
		Grid1.Column5.Format = "r"
		Grid1.Column5.Header5.Caption = "Cont 2811"
		Grid1.Column5.Header5.Name = "Header5"
		Grid1.Column5.InputMask = (get_mask(14,gnZ))
		Grid1.Column5.Name = "Column5"
		Grid1.Column5.Text1.Alignment = 1
		Grid1.Column5.Text1.BackColor = 255,255,255
		Grid1.Column5.Text1.Name = "Text1"
		Grid1.Column5.Width = 81
		Grid1.Column6.BackColor = 255,255,255
		Grid1.Column6.ControlSource = "t_2122"
		Grid1.Column6.Header6.Caption = "Cont 2812"
		Grid1.Column6.Header6.Name = "Header6"
		Grid1.Column6.InputMask = (get_mask(14,gnZ))
		Grid1.Column6.Name = "Column6"
		Grid1.Column6.Text1.BackColor = 255,255,255
		Grid1.Column6.Text1.Name = "Text1"
		Grid1.Column6.Width = 84
		Grid1.Column7.BackColor = 255,255,255
		Grid1.Column7.ControlSource = "t_2125"
		Grid1.Column7.Format = "r"
		Grid1.Column7.Header7.Caption = "Cont 2815"
		Grid1.Column7.Header7.Name = "Header7"
		Grid1.Column7.InputMask = (get_mask(14,gnZ))
		Grid1.Column7.Name = "Column7"
		Grid1.Column7.Text1.BackColor = 255,255,255
		Grid1.Column7.Text1.Name = "Text1"
		Grid1.Column7.Width = 76
		Grid1.Column8.BackColor = 255,255,255
		Grid1.Column8.ControlSource = "t_2126"
		Grid1.Column8.Format = "r"
		Grid1.Column8.Header8.Caption = "Cont 2816"
		Grid1.Column8.Header8.Name = "Header8"
		Grid1.Column8.InputMask = (get_mask(14,gnZ))
		Grid1.Column8.Name = "Column8"
		Grid1.Column8.Text1.BackColor = 255,255,255
		Grid1.Column8.Text1.Name = "Text1"
		Grid1.Column8.Width = 88
		Grid1.Column9.BackColor = 255,255,255
		Grid1.Column9.ControlSource = "t_2121+t_2122+t_2123+t_2124+t_2125+t_2126"
		Grid1.Column9.DynamicForeColor = ""
		Grid1.Column9.Header9.Caption = "Total Lunar"
		Grid1.Column9.Header9.Name = "Header9"
		Grid1.Column9.InputMask = (get_mask(14,gnZ))
		Grid1.Column9.Name = "Column9"
		Grid1.Column9.Text1.BackColor = 255,255,255
		Grid1.Column9.Text1.Name = "Text1"
		Grid1.Column9.Text1.Visible = .F.
		Grid1.Column9.Visible = .F.
		Grid1.Column9.Width = 74
		Grid1.Name = "Grid1"
		Grid1.Panel = 1
		Grid1.RecordSource = "sitmf"
		Grid1.ZOrderSet = 11
		Text1.ControlSource = "s1"
		Text1.Height = 23
		Text1.InputMask = (get_mask(14,gnZ))
		Text1.Left = 20
		Text1.Name = "Text1"
		Text1.Top = 472
		Text1.Width = 93
		Text1.ZOrderSet = 13
		Label3.Caption = "Amortizmente"
		Label3.Left = 204
		Label3.Name = "Label3"
		Label3.Top = 372
		Label3.Visible = .F.
		Label3.ZOrderSet = 0
		Shape6.Name = "Shape6"
		Shape6.Visible = .F.
		Shape6.ZOrderSet = 14
		Label7.Name = "Label7"
		Label7.Visible = .F.
		Label7.ZOrderSet = 15
		Check1.Name = "Check1"
		Check1.Visible = .F.
		Check1.ZOrderSet = 16
		Check4.Name = "Check4"
		Check4.Visible = .F.
		Check4.ZOrderSet = 17
		Check9.Name = "Check9"
		Check9.Visible = .F.
		Check9.ZOrderSet = 18
		Command1.Name = "Command1"
		Command1.Visible = .F.
		Command1.ZOrderSet = 20
		Text16.Left = 670
		Text16.Name = "Text16"
		Text16.Top = 4
		Text16.Visible = .F.
		Text16.ZOrderSet = 21
		Text17.Left = 712
		Text17.Name = "Text17"
		Text17.Top = 4
		Text17.Visible = .F.
		Text17.ZOrderSet = 22
		oMenuShortcut.Name = "oMenuShortcut"
		oMenuShortcut.ZOrderSet = 23
		Label19.Name = "Label19"
		Label19.ZOrderSet = 4
		Check2.Name = "Check2"
		Check2.Visible = .F.
		Check2.ZOrderSet = 24
		Check3.Name = "Check3"
		Check3.Visible = .F.
		Check3.ZOrderSet = 25
		Label1.Left = 23
		Label1.Name = "Label1"
		Label1.Top = 437
		Label1.ZOrderSet = 26
		Text2.Left = 228
		Text2.Name = "Text2"
		Text2.Top = 336
		Text2.Visible = .F.
		Text2.ZOrderSet = 1
		Label2.Left = 312
		Label2.Name = "Label2"
		Label2.Top = 372
		Label2.Visible = .F.
		Label2.ZOrderSet = 2
		COMMAND2.Name = "COMMAND2"
		COMMAND2.Visible = .F.
		Command3.Name = "Command3"
		Command3.Visible = .F.
		t3.Left = 84
		t3.Name = "t3"
		t3.Top = 564
		t3.Visible = .F.
		Label4.Left = 34
		Label4.Name = "Label4"
		Label4.Top = 527
		Label4.Visible = .F.
		Excel1.Command1.Name = "Command1"
		Excel1.Imbuton1.Height = 27
		Excel1.Imbuton1.Name = "Imbuton1"
		Excel1.Imbuton1.Width = 30
		Excel1.Name = "Excel1"
		LIST1.Command1.Name = "Command1"
		LIST1.Imbuton1.Height = 27
		LIST1.Imbuton1.Name = "Imbuton1"
		LIST1.Imbuton1.Width = 30
		LIST1.Name = "LIST1"
		TERMINAT1.Command1.Name = "Command1"
		TERMINAT1.Imbuton1.Height = 27
		TERMINAT1.Imbuton1.Name = "Imbuton1"
		TERMINAT1.Imbuton1.Width = 30
		TERMINAT1.Name = "TERMINAT1"
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2811", ;
		Height = 17, ;
		Left = 22, ;
		Name = "Label1", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = " - Amortizmente ", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 22, ;
		Left = 156, ;
		Name = "Label11", ;
		TabIndex = 10, ;
		Top = 4, ;
		Width = 125, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2812", ;
		Height = 17, ;
		Left = 115, ;
		Name = "Label2", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2813", ;
		Height = 17, ;
		Left = 210, ;
		Name = "Label4", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 35
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2814", ;
		Height = 17, ;
		Left = 302, ;
		Name = "Label5", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 36
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2815", ;
		Height = 17, ;
		Left = 396, ;
		Name = "Label6", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 37
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		Caption = "2816", ;
		Height = 17, ;
		Left = 491, ;
		Name = "Label8", ;
		Top = 456, ;
		Width = 30, ;
		ZOrderSet = 38
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Total", ;
		Height = 17, ;
		Left = 583, ;
		Name = "Label9", ;
		Top = 456, ;
		Width = 29, ;
		ZOrderSet = 39
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "s2", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 114, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "s3", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 208, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		ControlSource = "s4", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 302, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		ControlSource = "s5", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 396, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 30
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		ControlSource = "s6", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 490, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 31
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		ControlSource = "s", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 583, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		sele sitmf
		set filter to val(an)<val(m.an) or (val(an)=val(m.an) and val(nl)<=val(m.nl))
		
		sum t_2121 to s1
		sum t_2122 to s2
		sum t_2123 to s3
		sum t_2124 to s4
		sum t_2125 to s5
		sum t_2126 to s6
		sum t_2121+t_2122+t_2123+t_2124+t_2125+t_2126 to s
		
		thisform.text1.refresh
		thisform.text2.refresh
		thisform.text3.refresh
		thisform.text4.refresh
		thisform.text5.refresh
		thisform.text6.refresh
		thisform.text7.refresh
	ENDPROC

	PROCEDURE Init
		
		*do sitan
		thisform.afisactual
	ENDPROC

	PROCEDURE Shape2.RightClick
		*
		
	ENDPROC

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

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

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

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

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

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

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

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

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

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

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

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

	PROCEDURE Text7.Refresh
		THIS.FORECOLOR=IIF(s>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

ENDDEFINE

DEFINE CLASS vizsitrul AS vizsit OF "mfix2000.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "vizsitrul"
		Label3.Caption = "Rulaje:"
		Label3.Left = 48
		Label3.Name = "Label3"
		Label3.Top = 276
		Label3.Visible = .F.
		Label3.ZOrderSet = 0
		TEXT2.Name = "TEXT2"
		Text2.Name = "Text2"
		Text2.ZOrderSet = 27
		Label2.Caption = "2812"
		Label2.Left = 117
		LABEL2.Name = "LABEL2"
		Label2.Name = "Label2"
		Label2.Top = 456
		Label2.Visible = .T.
		Label2.ZOrderSet = 35
		Label11.Caption = " - Rulaje in luna curenta"
		Label11.Left = 159
		Label11.Name = "Label11"
		Label11.Top = 2
		Label11.ZOrderSet = 3
		Label10.Left = 12
		Label10.Name = "Label10"
		Label10.Top = 0
		Label10.ZOrderSet = 5
		Line1.Name = "Line1"
		Line1.ZOrderSet = 6
		Shape1.Name = "Shape1"
		Shape1.ZOrderSet = 25
		Label19.Name = "Label19"
		Label19.ZOrderSet = 4
		Shape5.Name = "Shape5"
		Shape5.ZOrderSet = 7
		Shape2.Name = "Shape2"
		Shape2.ZOrderSet = 8
		Shape3.Name = "Shape3"
		Shape3.ZOrderSet = 9
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column10.ControlSource = "r_2123"
		Grid1.Column10.Header1.Caption = "Cont 2813"
		Grid1.Column10.Header1.Name = "Header1"
		Grid1.Column10.Name = "Column10"
		Grid1.Column10.Text1.Name = "Text1"
		Grid1.Column11.ControlSource = "r_2124"
		Grid1.Column11.Header1.Caption = "Cont 2814"
		Grid1.Column11.Header1.Name = "Header1"
		Grid1.Column11.Name = "Column11"
		Grid1.Column11.Text1.Name = "Text1"
		Grid1.Column12.HEADER1.Name = "HEADER1"
		Grid1.Column12.Name = "Column12"
		Grid1.Column12.TEXT1.Name = "TEXT1"
		Grid1.Column13.Header1.Name = "Header1"
		Grid1.Column13.Name = "Column13"
		Grid1.Column13.Text1.Name = "Text1"
		Grid1.Column14.Header1.Name = "Header1"
		Grid1.Column14.Name = "Column14"
		Grid1.Column14.Text1.Name = "Text1"
		Grid1.Column15.Header1.Name = "Header1"
		Grid1.Column15.Name = "Column15"
		Grid1.Column15.Text1.Name = "Text1"
		Grid1.Column16.Header1.Name = "Header1"
		Grid1.Column16.Name = "Column16"
		Grid1.Column16.Text1.Name = "Text1"
		Grid1.Column17.Header1.Name = "Header1"
		Grid1.Column17.Name = "Column17"
		Grid1.Column17.Text1.Name = "Text1"
		Grid1.Column18.Header1.Name = "Header1"
		Grid1.Column18.Name = "Column18"
		Grid1.Column18.Text1.Name = "Text1"
		Grid1.Column19.Header1.Name = "Header1"
		Grid1.Column19.Name = "Column19"
		Grid1.Column19.Text1.Name = "Text1"
		Grid1.Column2.Header2.Name = "Header2"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Column20.Header1.Name = "Header1"
		Grid1.Column20.Name = "Column20"
		Grid1.Column20.Text1.Name = "Text1"
		Grid1.COLUMN21.HEADER1.Name = "HEADER1"
		Grid1.COLUMN21.Name = "COLUMN21"
		Grid1.COLUMN21.TEXT1.Name = "TEXT1"
		Grid1.COLUMN22.HEADER1.Name = "HEADER1"
		Grid1.COLUMN22.Name = "COLUMN22"
		Grid1.COLUMN22.TEXT1.Name = "TEXT1"
		Grid1.Column3.Header3.Name = "Header3"
		Grid1.Column3.Name = "Column3"
		Grid1.Column3.Text1.Name = "Text1"
		Grid1.Column4.Header4.Name = "Header4"
		Grid1.Column4.Name = "Column4"
		Grid1.Column4.Text1.Name = "Text1"
		Grid1.Column5.ControlSource = "r_2121"
		Grid1.Column5.Header5.Caption = "Cont 2811"
		Grid1.Column5.Header5.Name = "Header5"
		Grid1.Column5.Name = "Column5"
		Grid1.Column5.Text1.Name = "Text1"
		Grid1.Column6.ControlSource = "r_2122"
		Grid1.Column6.Header6.Caption = "Cont 2812"
		Grid1.Column6.Header6.Name = "Header6"
		Grid1.Column6.Name = "Column6"
		Grid1.Column6.Text1.Name = "Text1"
		Grid1.Column7.ControlSource = "r_2125"
		Grid1.Column7.Header7.Caption = "Cont 2815"
		Grid1.Column7.Header7.Name = "Header7"
		Grid1.Column7.Name = "Column7"
		Grid1.Column7.Text1.Name = "Text1"
		Grid1.Column8.ControlSource = "r_2126"
		Grid1.Column8.Header8.Caption = "Cont 2816"
		Grid1.Column8.Header8.Name = "Header8"
		Grid1.Column8.Name = "Column8"
		Grid1.Column8.Text1.Name = "Text1"
		Grid1.Column9.ControlSource = "r_2121+r_2122+r_2123+r_2124+r_2125+r_2126"
		Grid1.Column9.Header9.Name = "Header9"
		Grid1.Column9.Name = "Column9"
		Grid1.Column9.Text1.Name = "Text1"
		Grid1.Height = 405
		Grid1.Left = 12
		Grid1.Name = "Grid1"
		Grid1.Top = 27
		Grid1.Width = 672
		Grid1.ZOrderSet = 10
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.ZOrderSet = 11
		Text1.Name = "Text1"
		Text1.ZOrderSet = 12
		Shape6.Name = "Shape6"
		Shape6.ZOrderSet = 13
		Label7.Name = "Label7"
		Label7.ZOrderSet = 14
		Check1.Name = "Check1"
		Check1.ZOrderSet = 15
		Check4.Name = "Check4"
		Check4.ZOrderSet = 16
		Check9.Name = "Check9"
		Check9.ZOrderSet = 17
		Cmdlist1.Name = "Cmdlist1"
		Cmdlist1.ZOrderSet = 18
		Command1.Name = "Command1"
		Command1.ZOrderSet = 19
		Text16.Left = 666
		Text16.Name = "Text16"
		Text16.Top = 4
		Text16.ZOrderSet = 20
		Text17.Left = 708
		Text17.Name = "Text17"
		Text17.Top = 4
		Text17.ZOrderSet = 21
		oMenuShortcut.Name = "oMenuShortcut"
		oMenuShortcut.ZOrderSet = 22
		Check2.Name = "Check2"
		Check2.ZOrderSet = 23
		Check3.Name = "Check3"
		Check3.ZOrderSet = 24
		COMMAND2.Name = "COMMAND2"
		COMMAND2.Visible = .F.
		Text3.Name = "Text3"
		Text3.ZOrderSet = 28
		Text4.Name = "Text4"
		Text4.ZOrderSet = 29
		Text5.Name = "Text5"
		Text5.ZOrderSet = 30
		Text6.Name = "Text6"
		Text6.ZOrderSet = 31
		Text7.Name = "Text7"
		Text7.ZOrderSet = 33
		Label1.Caption = "2811"
		Label1.Left = 24
		LABEL1.Name = "LABEL1"
		Label1.Name = "Label1"
		Label1.Top = 434
		Label1.Visible = .F.
		Label1.ZOrderSet = 34
		Label4.Caption = "2813"
		LABEL4.Name = "LABEL4"
		Label4.Name = "Label4"
		Label4.ZOrderSet = 36
		Label5.Caption = "2814"
		Label5.Name = "Label5"
		Label5.ZOrderSet = 37
		Label6.Caption = "2815"
		Label6.Name = "Label6"
		Label6.ZOrderSet = 38
		Label8.Caption = "2816"
		Label8.Name = "Label8"
		Label8.ZOrderSet = 39
		Label9.Name = "Label9"
		Label9.ZOrderSet = 40
		COMMAND3.Name = "COMMAND3"
		T3.Name = "T3"
		Cmdlist4.Name = "Cmdlist4"
	*</PropValue>

	ADD OBJECT 'Text8' AS textbox WITH ;
		ControlSource = "s1", ;
		Enabled = .T., ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 21, ;
		Name = "Text8", ;
		ReadOnly = .T., ;
		TabIndex = 11, ;
		Top = 472, ;
		Width = 93, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE afisactual
		sele sitmf
		set filter to val(an)<val(m.an) or (val(an)=val(m.an) and val(nl)<=val(m.nl))
		
		sum r_2121 to s1
		sum r_2122 to s2
		sum r_2123 to s3
		sum r_2124 to s4
		sum r_2125 to s5
		sum r_2126 to s6
		sum r_2121+r_2122+r_2123+r_2124+r_2125+r_2126 to s
		
		thisform.text8.refresh
		thisform.text2.refresh
		thisform.text3.refresh
		thisform.text4.refresh
		thisform.text5.refresh
		thisform.text6.refresh
		thisform.text7.refresh
	ENDPROC

	PROCEDURE Cmdlist1.Click
		thisform.windowstate=1
		report form sitmf1 to printer prompt preview
		thisform.windowstate=0
	ENDPROC

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

	PROCEDURE Text8.Refresh
		THIS.FORECOLOR=IIF(s>=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

ENDDEFINE