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

	*<PropValue>
		Name = "Dataenvironment"
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="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="Text7" 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="Text10" 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="Text13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 440
		Name = "Ffergen1"
		Width = 387
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
		Left = 49, ;
		Name = "Cmdlist1", ;
		Top = 403
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Left = 157, ;
		Name = "CMDRENUNT1", ;
		Top = 403
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Left = 253, ;
		Name = "CMDTERMIN1", ;
		Top = 403
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label11' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "Durata de amortizare", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 30, ;
		Name = "Label11", ;
		TabIndex = 4, ;
		Top = 236, ;
		Width = 123, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="label" />

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

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

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

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

	ADD OBJECT 'Label16' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "Caracteristici", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 31, ;
		Name = "Label16", ;
		TabIndex = 14, ;
		Top = 357, ;
		Width = 78, ;
		ZOrderSet = 32
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'Label2' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "Fisa mijlocului fix", ;
		FontBold = .F., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Height = 19, ;
		Left = 28, ;
		Name = "Label2", ;
		TabIndex = 5, ;
		Top = 11, ;
		Width = 167, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Text10' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.tipamort", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		TabIndex = 30, ;
		Top = 282, ;
		Width = 180, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.NUMEgest", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text11", ;
		ReadOnly = .F., ;
		TabIndex = 31, ;
		Top = 306, ;
		Width = 180, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.respons", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text12", ;
		ReadOnly = .F., ;
		TabIndex = 32, ;
		Top = 331, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.caract", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text13", ;
		ReadOnly = .F., ;
		TabIndex = 33, ;
		Top = 355, ;
		Width = 180, ;
		ZOrderSet = 31
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.nrinv", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text14", ;
		ReadOnly = .F., ;
		TabIndex = 27, ;
		Top = 210, ;
		Width = 180, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.dataact", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		TabIndex = 21, ;
		Top = 65, ;
		Width = 180, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.denumire", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text3", ;
		ReadOnly = .F., ;
		TabIndex = 22, ;
		Top = 89, ;
		Width = 180, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valoare", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text4", ;
		ReadOnly = .F., ;
		TabIndex = 23, ;
		Top = 114, ;
		Width = 180, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.datapif", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		TabIndex = 24, ;
		Top = 138, ;
		Width = 180, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.nrpif", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text6", ;
		ReadOnly = .F., ;
		TabIndex = 25, ;
		Top = 163, ;
		Width = 180, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.codmf", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text7", ;
		ReadOnly = .F., ;
		TabIndex = 26, ;
		Top = 187, ;
		Width = 180, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.normat", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text8", ;
		ReadOnly = .F., ;
		TabIndex = 28, ;
		Top = 234, ;
		Width = 180, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.uzura", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 172, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		TabIndex = 29, ;
		Top = 257, ;
		Width = 180, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Text11.GotFocus
		thisform.cmdtermin1.enabled=.f.
		thisform.cmdrenunt1.enabled=.f.
		thisform.cmdlist1.enabled=.f.
		DO CAUT_ALF 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_ALF 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

ENDDEFINE