roaimob/Clase/Vechi/imob_2005.vc2

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="imob_2005.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
*< LIBCOMMENT: Application Wizard framework class library. />
*
DEFINE CLASS frm_fisa 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="Label25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape6" 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="Shape8" 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="Label30" 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="Label29" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="T21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="T23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label27" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label31" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		fel_imob = 
		Height = 474
		Name = "frm_fisa"
		Width = 557
		Shape1.Height = 36
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 487
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 521
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 32
		Terminat1.Top = 3
		Titlufrumos1.Caption = "Fisa mijlocului fix"
		Titlufrumos1.Height = 28
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 34
		Titlufrumos1.Top = 5
		Titlufrumos1.Width = 364
	*</PropValue>

	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 = 409, ;
		Name = "Combo1", ;
		ReadOnly = .F., ;
		RowSource = "1.5,2,2.5", ;
		RowSourceType = 1, ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 20, ;
		Top = 89, ;
		Value = , ;
		Width = 130, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="combobox" />

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

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "Calculul cota", ;
		Height = 60, ;
		Left = 284, ;
		Name = "Command2", ;
		SpecialEffect = 2, ;
		TabIndex = 30, ;
		Top = 408, ;
		Width = 130, ;
		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 = 293, ;
		Name = "Label1", ;
		TabIndex = 37, ;
		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 = 293, ;
		Name = "Label10", ;
		TabIndex = 50, ;
		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 = 293, ;
		Name = "Label11", ;
		TabIndex = 39, ;
		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 = 322, ;
		Name = "Label12", ;
		TabIndex = 48, ;
		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 = 293, ;
		Name = "Label13", ;
		TabIndex = 53, ;
		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 = 25, ;
		Name = "Label14", ;
		TabIndex = 57, ;
		Top = 322, ;
		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 = 25, ;
		Name = "Label15", ;
		TabIndex = 59, ;
		Top = 346, ;
		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 = 26, ;
		Name = "Label16", ;
		TabIndex = 63, ;
		Top = 420, ;
		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 = 25, ;
		Name = "Label17", ;
		TabIndex = 66, ;
		Top = 272, ;
		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 = 334, ;
		Name = "Label18", ;
		TabIndex = 44, ;
		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 = 352, ;
		Name = "Label19", ;
		TabIndex = 45, ;
		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 = 434, ;
		Name = "Label2", ;
		TabIndex = 69, ;
		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 = 319, ;
		Name = "Label20", ;
		TabIndex = 46, ;
		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 = 346, ;
		Name = "Label21", ;
		TabIndex = 42, ;
		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 = 349, ;
		Name = "Label22", ;
		TabIndex = 38, ;
		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 = 353, ;
		Name = "Label23", ;
		TabIndex = 54, ;
		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 = 340, ;
		Name = "Label24", ;
		TabIndex = 52, ;
		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 = 434, ;
		Name = "Label25", ;
		TabIndex = 70, ;
		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 = 292, ;
		Name = "Label26", ;
		TabIndex = 47, ;
		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 = 320, ;
		Name = "Label27", ;
		TabIndex = 43, ;
		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 = 24, ;
		Name = "Label28", ;
		TabIndex = 41, ;
		Top = 174, ;
		Width = 109, ;
		WordWrap = .T., ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label29' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data ultimei evaluari", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 25, ;
		Name = "Label29", ;
		TabIndex = 55, ;
		Top = 90, ;
		Width = 118, ;
		ZOrderSet = 11
		*< 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 = 25, ;
		Name = "Label3", ;
		TabIndex = 51, ;
		Top = 45, ;
		Width = 83, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label30' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea reziduala", ;
		FontBold = .F., ;
		FontItalic = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 24, ;
		Name = "Label30", ;
		TabIndex = 40, ;
		Top = 197, ;
		Width = 107, ;
		WordWrap = .T., ;
		ZOrderSet = 34
		*< 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 = 320, ;
		Name = "Label31", ;
		TabIndex = 49, ;
		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 = 25, ;
		Name = "Label32", ;
		TabIndex = 61, ;
		Top = 371, ;
		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 = 25, ;
		Name = "Label33", ;
		TabIndex = 67, ;
		Top = 445, ;
		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 = 25, ;
		Name = "Label34", ;
		TabIndex = 60, ;
		Top = 396, ;
		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 = 25, ;
		Name = "Label4", ;
		TabIndex = 56, ;
		Top = 67, ;
		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 = 25, ;
		Name = "Label5", ;
		TabIndex = 58, ;
		Top = 120, ;
		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 = 24, ;
		Name = "Label6", ;
		TabIndex = 62, ;
		Top = 150, ;
		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 = 25, ;
		Name = "Label7", ;
		TabIndex = 64, ;
		Top = 224, ;
		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 = 25, ;
		Name = "Label8", ;
		TabIndex = 65, ;
		Top = 248, ;
		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 = 26, ;
		Name = "Label9", ;
		TabIndex = 68, ;
		Top = 297, ;
		Width = 25, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Renunt1' AS renunt WITH ;
		Left = 489, ;
		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 'Shape10' AS shape WITH ;
		Height = 2, ;
		Left = 7, ;
		Name = "Shape10", ;
		SpecialEffect = 0, ;
		Top = 112, ;
		Width = 266, ;
		ZOrderSet = 82
		*< END OBJECT: BaseClass="shape" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'T23' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valin", ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 145, ;
		Name = "T23", ;
		SpecialEffect = 0, ;
		TabIndex = 6, ;
		Top = 172, ;
		Width = 115, ;
		ZOrderSet = 76
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.nract", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 145, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 1, ;
		Top = 43, ;
		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 = 409, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		RowSource = "Liniara,Accelerata,Degresiva", ;
		RowSourceType = 1, ;
		SpecialEffect = 0, ;
		Style = 2, ;
		TabIndex = 18, ;
		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 = 145, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 320, ;
		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 = 145, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 13, ;
		Top = 345, ;
		Width = 115, ;
		ZOrderSet = 58
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.dataeval", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 145, ;
		Name = "Text13", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 3, ;
		Top = 88, ;
		Width = 115, ;
		ZOrderSet = 10
		*< 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 = 145, ;
		Name = "Text14", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 10, ;
		Top = 270, ;
		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 = 408, ;
		Name = "Text15", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 27, ;
		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 = 409, ;
		Name = "Text16", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 35, ;
		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 = 409, ;
		Name = "Text17", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 36, ;
		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 = 408, ;
		Name = "Text18", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 28, ;
		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 = 408, ;
		Name = "Text19", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 29, ;
		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 = 145, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 2, ;
		Top = 65, ;
		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 = 409, ;
		Name = "Text20", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 19, ;
		ToolTipText = "", ;
		Top = 68, ;
		Width = 130, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Text22' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.valrez", ;
		FontName = "Arial Narrow", ;
		Format = "kr", ;
		Height = 22, ;
		InputMask = (get_mask(14,gnZ)), ;
		Left = 145, ;
		Name = "Text22", ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		Top = 195, ;
		Width = 115, ;
		ZOrderSet = 76
		*< 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 = 393, ;
		Name = "Text23", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 25, ;
		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 = 477, ;
		Name = "Text24", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 26, ;
		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 = 408, ;
		Name = "Text25", ;
		SpecialEffect = 0, ;
		TabIndex = 21, ;
		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 = 145, ;
		Name = "Text26", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 14, ;
		Top = 370, ;
		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 = 145, ;
		Name = "Text27", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 17, ;
		Top = 443, ;
		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 = 145, ;
		Name = "Text28", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 15, ;
		Top = 395, ;
		Width = 115, ;
		ZOrderSet = 52
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		ControlSource = "m.denumire", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 90, ;
		Name = "Text3", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 4, ;
		Top = 118, ;
		Width = 173, ;
		ZOrderSet = 10
		*< 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 = 145, ;
		Name = "Text4", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 5, ;
		Top = 148, ;
		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 = 145, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 8, ;
		Top = 222, ;
		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 = 145, ;
		Name = "Text6", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 9, ;
		Top = 246, ;
		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 = 145, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		Top = 295, ;
		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 = 393, ;
		Name = "Text8", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 23, ;
		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 = "k", ;
		Height = 22, ;
		Left = 409, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 0, ;
		TabIndex = 22, ;
		ToolTipText = "Uzura la momentul achizitiei", ;
		Top = 172, ;
		Width = 132, ;
		ZOrderSet = 46
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Command1.Click
		do calcamortm.prg
		DO FORM frm_calcul
		thisform.text18.refresh
		thisform.text19.refresh
	ENDPROC

	PROCEDURE Command2.Click
		m.cota = calcul_cota(m.normat2lun)
	ENDPROC

	PROCEDURE T21.Valid
		IF EMPTY(m.normaan)
			m.normaan = ROUND(m.normat/12,3)
			thisform.text8.Refresh 
		ENDIF 
	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
		DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
		SELE NUMEGEST
		LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST)
		m.Gest = gest
	ENDPROC

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

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

	PROCEDURE Text2.LostFocus
		IF EMPTY(m.dataeval)
			m.dataeval = m.dataact
		ENDIF 
		IF EMPTY(m.datapif)
			m.datapif = m.dataact
		ENDIF 
	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 Text23.Valid
		IF EMPTY(m.normat2lun)
			m.normat2lun = ROUND(m.normat2*12,0)
			thisform.text24.Refresh 
		ENDIF 
	ENDPROC

	PROCEDURE Text24.Valid
		m.normat2 = ROUND(m.normat2lun/12,3)
		thisform.text23.Refresh 
	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
		DO CAUT_ALFa WITH "lucrari","nrord",'NUMELE LUCRARII','M.NRORD'
		
	ENDPROC

	PROCEDURE Text7.GotFocus
		LOCAL den
		*STORE 0 TO m.norma_min, m.norma_max
		
		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 Text8.Valid
		IF EMPTY(m.normat)
			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 frm_optiuni 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="Seip4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="OpIndependent" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Spinner1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: clunaron
		*p: independent
		*p: nanron
		*p: nzecimale
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		clunaron = 
		DoCreate = .T.
		Height = 191
		Name = "frm_optiuni"
		nanron = 2005
		nzecimale = 
		Width = 450
		Shape1.Height = 36
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 417
		TERMINAT1.Command1.Name = "Command1"
		TERMINAT1.Imbuton1.Height = 29
		TERMINAT1.Imbuton1.Name = "Imbuton1"
		TERMINAT1.Imbuton1.Width = 27
		TERMINAT1.Left = 419
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 3
		TITLUFRUMOS1.Caption = "OPIUNI PROGRAM"
		TITLUFRUMOS1.Height = 32
		TITLUFRUMOS1.Left = 7
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.Top = 6
		TITLUFRUMOS1.Width = 398
	*</PropValue>

	ADD OBJECT 'Container1' AS container WITH ;
		BackStyle = 0, ;
		BorderColor = 128,128,128, ;
		Height = 78, ;
		Left = 9, ;
		Name = "Container1", ;
		Top = 108, ;
		Width = 432
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'Container1.Combo1' AS combobox WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ControlSource = "thisform.clunaron", ;
		Height = 24, ;
		Left = 259, ;
		Name = "Combo1", ;
		RowSource = "lunilean.numeluna,nl", ;
		RowSourceType = 2, ;
		Top = 12, ;
		Width = 103
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Container1.Label1' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Numar zecimale afisare / calcul in luna curenta", ;
		Height = 20, ;
		Left = 18, ;
		Name = "Label1", ;
		Top = 53, ;
		Visible = .F., ;
		Width = 258, ;
		WordWrap = .F.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "(la deschiderea acestei luni se face impartirea la 10 000)", ;
		FontName = "Arial Narrow", ;
		Height = 18, ;
		Left = 18, ;
		Name = "Label2", ;
		Top = 21, ;
		Width = 234
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label5' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Trecerea de la ROL la RON se face in luna", ;
		Height = 20, ;
		Left = 18, ;
		Name = "Label5", ;
		Top = 7, ;
		Width = 243, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Spinner1' AS spinner WITH ;
		ControlSource = "thisform.nanron", ;
		Height = 24, ;
		KeyboardHighValue = 2050, ;
		KeyboardLowValue = 1990, ;
		Left = 364, ;
		Name = "Spinner1", ;
		ReadOnly = .F., ;
		SpinnerHighValue = 2050.00, ;
		SpinnerLowValue = 1990.00, ;
		Top = 13, ;
		Value = 2005, ;
		Width = 58
		*< END OBJECT: BaseClass="spinner" />

	ADD OBJECT 'Container1.Text3' AS textbox WITH ;
		ControlSource = "thisform.nzecimale", ;
		Height = 21, ;
		InputMask = "9", ;
		Left = 282, ;
		Name = "Text3", ;
		Top = 50, ;
		Visible = .F., ;
		Width = 49
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Programul Contafin Imobilizari ruleaza independent de programul de contabilitate?", ;
		Height = 33, ;
		Left = 26, ;
		Name = "Label4", ;
		Top = 60, ;
		Width = 357, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'OpIndependent' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "", ;
		Height = 48, ;
		Left = 390, ;
		Name = "OpIndependent", ;
		Top = 51, ;
		Value = 2, ;
		Width = 46, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "DA", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 0, ;
		Option1.Width = 34, ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "NU", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 29, ;
		Option2.Value = 1, ;
		Option2.Width = 61
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Seip4' AS seip WITH ;
		BorderColor = 128,128,128, ;
		Height = 49, ;
		Left = 9, ;
		Name = "Seip4", ;
		Top = 52, ;
		Width = 433
		*< END OBJECT: ClassLib="..\..\concont\clase\ferestrebaza.vcx" BaseClass="shape" />
	
	PROCEDURE inainte_de_do_termin
		glImobIndependent = thisform.independent
		IF glImobIndependent 
			lcImobIndep = [T]
		ELSE 
			lcImobIndep = [F]
		ENDIF 
		
		**** OPTIUNI FIRMA DATEAN
		SELECT optiuni_firma
		LOCATE FOR LOWER(ALLTRIM(varname))='imobindependent'
		If Found()
			Repl varvalue With lcImobIndep 
		ENDIF
		
		IF glImobIndependent
			lcLunaRon = thisform.clunaRON
			lcAnRON  = ALLTRIM(STR(thisform.nAnRON))
			gcDataRON = lcLunaRon + [-] + lcAnRON
		
			SELECT optiuni_firma	
			LOCATE FOR LOWER(ALLTRIM(varname))='dataron'
			If Found()
				Repl varvalue With gcDataRON
			ENDIF
		
			IF 12*VAL(SUBSTR(gcDataRon,4,4))+VAL(LEFT(gcDataRon,2))  <= 12*VAL(m.an)+VAL(m.nl)
				IF 12*VAL(SUBSTR(gcDataRon,4,4))+VAL(LEFT(gcDataRon,2))  = 12*VAL(m.an)+VAL(m.nl) AND !verific_rolronsnr(gcCalefirma)
					lnValue = 0
					gnPcurs = 0
				ELSE
					lnValue = 2
					gnPcurs = 4
				ENDIF 	
			ELSE 
				lnValue = 0
				gnPcurs = 0
			ENDIF 	
			gnPpret = 3
			gnZ=lnValue
		ENDIF 
			
		RETURN .t.
	ENDPROC

	PROCEDURE Init
		thisform.independent = glImobIndependent
		IF thisform.independent 
			this.opIndependent.Value = 1
		ELSE 
			this.opIndependent.Value = 2
		ENDIF 
		
		IF !glImobIndependent
			thisform.container1.Visible = .f.
		ENDIF  
		
		thisform.nzecimale = gnZ
		lcLunaRon = SUBSTR(gcDataRON,1,2)
		lnAnRON = VAL(SUBSTR(gcDataRON,4,4))
		thisform.clunaRON = lcLunaRon
		thisform.nAnRON = lnAnRON 
		
		
	ENDPROC

	PROCEDURE Container1.Combo1.Init
		THIS.Enabled = verific_rolronsnr(gcCalefirma)
	ENDPROC

	PROCEDURE Container1.Spinner1.Init
		THIS.Enabled = verific_rolronsnr(gcCalefirma)
	ENDPROC

	PROCEDURE OpIndependent.Valid
		IF this.Value = 1
			thisform.independent = .t.
			thisform.container1.Visible = .T.
		ELSE 
			thisform.independent = .f.
			thisform.container1.Visible = .F.
		ENDIF 
	ENDPROC

	PROCEDURE TERMINAT1.Command1.Click
		thisform.do_termin
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_preluare 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="Shape2" 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="Shape3" 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="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label24" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" 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="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lim_inf_sup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BorderStyle = 1
		cidsectie = 
		DoCreate = .T.
		fel_imob = ''
		Height = 462
		Name = "frm_preluare"
		nnorma_max = 
		nnorma_min = 
		Width = 708
		Shape1.Height = 35
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 609
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 674
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 18
		Terminat1.Top = 4
		Titlufrumos1.Caption = "Lista imobilizarilor"
		Titlufrumos1.FontSize = 11
		Titlufrumos1.Height = 30
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 21
		Titlufrumos1.Top = 5
		Titlufrumos1.Width = 405
	*</PropValue>

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 0, ;
		Height = 336, ;
		Left = 13, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcs", ;
		TabIndex = 1, ;
		Top = 70, ;
		View = 0, ;
		Width = 300, ;
		ZOrderSet = 4, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "nract", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 59, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "dataact", ;
		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.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 123, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "explicatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 148, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ControlSource = "SCD", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.BackColor = 255,255,255, ;
		Column6.ControlSource = "SUMA", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "r", ;
		Column6.InputMask = (get_mask(14,gnZ)), ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.BackColor = 255,255,255, ;
		Column7.ControlSource = "cod", ;
		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 = 16, ;
		Name = "Label1", ;
		TabIndex = 22, ;
		Top = 36, ;
		Width = 218, ;
		ZOrderSet = 3
		*< END OBJECT: 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 = 349, ;
		Name = "Label11", ;
		TabIndex = 23, ;
		Top = 249, ;
		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 = 349, ;
		Name = "Label12", ;
		TabIndex = 26, ;
		Top = 272, ;
		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 = 349, ;
		Name = "Label13", ;
		TabIndex = 28, ;
		Top = 296, ;
		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 = 349, ;
		Name = "Label14", ;
		TabIndex = 30, ;
		Top = 318, ;
		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 = 349, ;
		Name = "Label15", ;
		TabIndex = 33, ;
		Top = 342, ;
		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 = 349, ;
		Name = "Label16", ;
		TabIndex = 35, ;
		Top = 388, ;
		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 = 349, ;
		Name = "Label17", ;
		TabIndex = 39, ;
		Top = 177, ;
		Width = 67, ;
		ZOrderSet = 20
		*< 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 = 56, ;
		Name = "Label19", ;
		TabIndex = 41, ;
		Top = 160, ;
		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 = 356, ;
		Name = "Label2", ;
		TabIndex = 25, ;
		Top = 34, ;
		Width = 34, ;
		ZOrderSet = 6
		*< 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 = 69, ;
		Name = "Label21", ;
		TabIndex = 42, ;
		Top = 438, ;
		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 = 349, ;
		Name = "Label22", ;
		TabIndex = 32, ;
		Top = 366, ;
		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 = 349, ;
		Name = "Label23", ;
		TabIndex = 36, ;
		Top = 411, ;
		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 = 560, ;
		Name = "Label24", ;
		TabIndex = 24, ;
		Top = 249, ;
		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 = 349, ;
		Name = "Label3", ;
		TabIndex = 27, ;
		Top = 57, ;
		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 = 349, ;
		Name = "Label4", ;
		TabIndex = 29, ;
		Top = 81, ;
		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 = 349, ;
		Name = "Label5", ;
		TabIndex = 31, ;
		Top = 105, ;
		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 = 349, ;
		Name = "Label6", ;
		TabIndex = 34, ;
		Top = 129, ;
		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 = 349, ;
		Name = "Label7", ;
		TabIndex = 37, ;
		Top = 153, ;
		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 = 349, ;
		Name = "Label8", ;
		TabIndex = 38, ;
		Top = 201, ;
		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 = 349, ;
		Name = "Label9", ;
		TabIndex = 40, ;
		Top = 225, ;
		Width = 25, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lim_inf_sup1' AS lim_inf_sup WITH ;
		Left = 578, ;
		Name = "Lim_inf_sup1", ;
		TabIndex = 45, ;
		Top = 243, ;
		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 'List1' AS list WITH ;
		Left = 611, ;
		Name = "List1", ;
		TabIndex = 20, ;
		Top = 4, ;
		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 = 643, ;
		Name = "Renunt1", ;
		TabIndex = 19, ;
		Top = 4, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

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

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

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackStyle = 0, ;
		Height = 24, ;
		Left = 4, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 434, ;
		Width = 696, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="shape" />

	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 = 505, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 55, ;
		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 = 505, ;
		Name = "Text10", ;
		ReadOnly = .F., ;
		RowSource = "Liniara,Accelerata,Degresiva", ;
		RowSourceType = 1, ;
		SpecialEffect = 2, ;
		Style = 0, ;
		TabIndex = 12, ;
		Top = 294, ;
		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 = 505, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 13, ;
		Top = 316, ;
		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 = 505, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 14, ;
		Top = 340, ;
		Width = 180, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text13' AS textbox WITH ;
		Height = 23, ;
		Left = 564, ;
		Name = "Text13", ;
		TabIndex = 46, ;
		Top = 456, ;
		Visible = .F., ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text14' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.nrinv", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 505, ;
		Name = "Text14", ;
		SpecialEffect = 2, ;
		TabIndex = 7, ;
		Top = 175, ;
		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 = 505, ;
		Name = "Text15", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 16, ;
		Top = 388, ;
		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 = 416, ;
		Name = "Text16", ;
		TabIndex = 43, ;
		TabStop = .F., ;
		Top = 6, ;
		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 = 445, ;
		Name = "Text17", ;
		TabIndex = 44, ;
		TabStop = .F., ;
		Top = 6, ;
		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 = 505, ;
		Name = "Text18", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 15, ;
		Top = 364, ;
		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 = 505, ;
		Name = "Text19", ;
		SpecialEffect = 2, ;
		TabIndex = 17, ;
		Top = 411, ;
		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 = 505, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 3, ;
		Top = 79, ;
		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 = 505, ;
		Name = "Text3", ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 103, ;
		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 = 505, ;
		Name = "Text4", ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 127, ;
		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 = 505, ;
		Name = "Text5", ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 151, ;
		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 = 505, ;
		Name = "Text6", ;
		SpecialEffect = 2, ;
		TabIndex = 8, ;
		Top = 199, ;
		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 = 505, ;
		Name = "Text7", ;
		SpecialEffect = 2, ;
		TabIndex = 9, ;
		Top = 223, ;
		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 = 505, ;
		Name = "Text8", ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		Top = 247, ;
		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 = 505, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		Top = 270, ;
		Width = 180, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		SELECT actcs
		this.grid1.SetAll("DynamicForeColor","IIF(INTR = 0, RGB(255,0,0),IIF(intr = 1,RGB(0,0,0),RGB(0,0,255)))","Column")
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF ALLTRIM(UPPER(this.fel_imob)) = 'N'
			this.text7.TabStop = .f.
			this.text7.Enabled = .f.
			this.Lim_inf_sup1.Visible = .f.
		ENDIF 
		this.grid1.SetFocus 
	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 
		
		IF ALLTRIM(UPPER(thisform.fel_imob)) = 'N'
			thisform.text7.Enabled = .f.
			thisform.Lim_inf_sup1.Visible = .f.
		ENDIF 
		
	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
		
		If Empty(m.Normat2lun)
			Do mesaj With 'Introduceti Durata normala de funct.!!',''
			Return
		ENDIF
		
		Sele ACTCS
		If !INTRODUSTOT
			m.CASAT=.F.
			m.dataeval = m.datapif
			m.valin = m.valoare 
			m.valramasa = m.valoare
			m.cota = calcul_cota(m.Normat2lun)
			m.codop = 3
			m.id_sectie = thisform.cidsectie
			
			Sele mf
			Appe Blank
			If Flock()
				Gather Memvar
			Endif
			If thisform.fel_imob = 'N'
				Replace fel With 'N'
			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
		
		buton=1
		THISFORM.RELEASE
	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 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
		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 Text7.GotFocus
		local den
		den=m.denumire
		lcCont = m.scd
		
		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.normat = thisform.nnorma_min*12
			m.normaan = thisform.nnorma_min
			this.Parent.lim_inf_sup1.Refresh 
		
			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.text15.ReadOnly = .f.
					ENDIF 
				CASE LEFT(ALLTRIM(onorma.codmf),2) = [3.]
					m.scd = '214'
				OTHERWISE 
					*
			ENDCASE 
		
			IF !EMPTY(lcCont) AND ALLTRIM(lcCont)#ALLTRIM(m.scd) AND LEFT(ALLTRIM(onorma.codmf),3) # [2.5] && la acest cod nu pot determina contul
				do mesaj with 'Atentie! Contul nu corespunde cu codul ales!',' '
				m.scd = lcCont
			ENDIF 
			m.codmf = onorma.codmf
		ENDIF 
		
		m.normat2lun = m.normat
		m.notmat2 = m.normaan
		
		RELEASE onorma
		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 frm_preluare_in_curs 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="Shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" 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="Shape3" 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="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label23" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label30" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 360
		Name = "frm_preluare_in_curs"
		Width = 707
		Shape1.Height = 36
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 635
		Shape1.ZOrderSet = 2
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 670
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 13
		Terminat1.Top = 4
		Terminat1.ZOrderSet = 3
		Titlufrumos1.Height = 31
		Titlufrumos1.Left = 6
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 15
		Titlufrumos1.Top = 5
		Titlufrumos1.Width = 364
		Titlufrumos1.ZOrderSet = 16
	*</PropValue>

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 255,255,255, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLines = 0, ;
		Height = 251, ;
		Left = 14, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcs", ;
		TabIndex = 1, ;
		Top = 64, ;
		View = 0, ;
		Width = 300, ;
		ZOrderSet = 5, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "nract", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 59, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "dataact", ;
		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.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 123, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "explicatia", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 148, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ControlSource = "SCD", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.BackColor = 255,255,255, ;
		Column6.ControlSource = "SUMA", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "r", ;
		Column6.InputMask = (get_mask(14,gnZ)), ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.BackColor = 255,255,255, ;
		Column7.ControlSource = "cod", ;
		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 = 17, ;
		Name = "Label1", ;
		TabIndex = 17, ;
		Top = 38, ;
		Width = 218, ;
		ZOrderSet = 4
		*< 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 = 350, ;
		Name = "Label14", ;
		TabIndex = 21, ;
		Top = 203, ;
		Width = 61, ;
		ZOrderSet = 23
		*< 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 = 350, ;
		Name = "Label15", ;
		TabIndex = 24, ;
		Top = 227, ;
		Width = 73, ;
		ZOrderSet = 28
		*< 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 = 350, ;
		Name = "Label16", ;
		TabIndex = 26, ;
		Top = 273, ;
		Width = 60, ;
		ZOrderSet = 31
		*< 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 = 350, ;
		Name = "Label17", ;
		TabIndex = 28, ;
		Top = 179, ;
		Width = 67, ;
		ZOrderSet = 18
		*< 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 = 357, ;
		Name = "Label2", ;
		TabIndex = 18, ;
		Top = 36, ;
		Width = 34, ;
		ZOrderSet = 7
		*< 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 = 70, ;
		Name = "Label21", ;
		TabIndex = 29, ;
		Top = 332, ;
		Width = 178, ;
		ZOrderSet = 22
		*< 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 = 350, ;
		Name = "Label22", ;
		TabIndex = 23, ;
		Top = 251, ;
		Width = 39, ;
		ZOrderSet = 24
		*< 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 = 350, ;
		Name = "Label23", ;
		TabIndex = 27, ;
		Top = 296, ;
		Width = 76, ;
		ZOrderSet = 30
		*< 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 = 350, ;
		Name = "Label3", ;
		TabIndex = 19, ;
		Top = 59, ;
		Width = 132, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	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 = 350, ;
		Name = "Label30", ;
		TabIndex = 16, ;
		Top = 156, ;
		Width = 52, ;
		ZOrderSet = 35
		*< 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 = 350, ;
		Name = "Label4", ;
		TabIndex = 20, ;
		Top = 83, ;
		Width = 142, ;
		ZOrderSet = 11
		*< 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 = 350, ;
		Name = "Label5", ;
		TabIndex = 22, ;
		Top = 107, ;
		Width = 61, ;
		ZOrderSet = 13
		*< 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 = 350, ;
		Name = "Label6", ;
		TabIndex = 25, ;
		Top = 131, ;
		Width = 116, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

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

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

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

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackStyle = 0, ;
		Height = 24, ;
		Left = 5, ;
		Name = "Shape4", ;
		SpecialEffect = 0, ;
		Top = 328, ;
		Width = 696, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	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 = 506, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 57, ;
		Width = 180, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Text11' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.ascd", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 506, ;
		Name = "Text11", ;
		SpecialEffect = 2, ;
		TabIndex = 12, ;
		Top = 296, ;
		Width = 180, ;
		ZOrderSet = 19
		*< 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 = 369, ;
		Name = "Text16", ;
		TabIndex = 30, ;
		TabStop = .F., ;
		Top = 5, ;
		Width = 27, ;
		ZOrderSet = 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 = 400, ;
		Name = "Text17", ;
		TabIndex = 31, ;
		TabStop = .F., ;
		Top = 5, ;
		Width = 64, ;
		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 = 506, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 3, ;
		Top = 81, ;
		Width = 180, ;
		ZOrderSet = 10
		*< 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 = 506, ;
		Name = "Text3", ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 105, ;
		Width = 180, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Text5' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		ControlSource = "m.nrord", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 506, ;
		Name = "Text5", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 153, ;
		Width = 180, ;
		ZOrderSet = 34
		*< END OBJECT: BaseClass="textbox" />

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

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

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

	ADD OBJECT 'Text9' AS textbox WITH ;
		Alignment = 3, ;
		BackStyle = 0, ;
		ControlSource = "m.sectie", ;
		Enabled = .F., ;
		FontName = "Arial Narrow", ;
		Format = "K", ;
		Height = 22, ;
		Left = 506, ;
		Name = "Text9", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		Top = 249, ;
		Width = 180, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		SELECT actcs
		this.grid1.SetAll("DynamicForeColor","IIF(INTR = 0, RGB(255,0,0),IIF(intr = 1,RGB(0,0,0),RGB(0,0,255)))","Column")
	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 11
			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 11
			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 
		
		
		
	ENDPROC

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

	PROCEDURE Terminat1.Command1.Click
		m.nract=_nract
		m.dataact=_dataact
		m.cod=_cod
		
		Sele ACTCS
		If !INTRODUSTOT
			m.CASAT=.F.
		*	m.tipcalcul=1
			m.dataeval = m.datapif
			m.valin = m.valoare 
			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
		
		buton=1
		THISFORM.RELEASE
		
		*!*	od=Create('danu')
		*!*	od.Show(1)
		*!*	If buton==2
		*!*		Thisform.Release
		*!*	ELSE 
		*!*		SELECT mf
		*!*		SCATTER MEMVAR BLANK 
		*!*		thisform.Refresh 
		*!*	Endif
		
		
	ENDPROC

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

	PROCEDURE Text5.GotFocus
		this.Click
		
	ENDPROC

	PROCEDURE Text6.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 Text7.GotFocus
		DO CAUT_ALFa WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
		SELE NUMEGEST
		LOCATE FOR ALLTRIM(NUMEGEST)=ALLTRIM(M.NUMEGEST)
		SCATTER MEMVAR
	ENDPROC

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

	PROCEDURE Text9.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

ENDDEFINE

DEFINE CLASS frm_schimb_dns 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="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="t21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNorma_min" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNorma_max" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDataEval" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtUzuraPrec" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDRani" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: calcul_dr
		*p: nlim_max
		*p: nlim_min
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 261
		Name = "frm_schimb_dns"
		nlim_max = 0
		nlim_min = 0
		Width = 418
		Shape1.Height = 36
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 431
		Shape1.ZOrderSet = 1
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 386
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 7
		Terminat1.Top = 3
		Terminat1.ZOrderSet = 3
		Titlufrumos1.Caption = "Schimbare DNS de calcul"
		Titlufrumos1.Height = 18
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 9
		Titlufrumos1.Top = 9
		Titlufrumos1.Width = 364
		Titlufrumos1.ZOrderSet = 2
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Durata normala de serviciu (DNS de calcul)", ;
		FontBold = .F., ;
		FontItalic = .F., ;
		FontName = "Arial Narrow", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label1", ;
		TabIndex = 17, ;
		Top = 77, ;
		Width = 207, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Limitele DNS:", ;
		FontBold = .F., ;
		FontItalic = .F., ;
		FontName = "Arial Narrow", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 152, ;
		Name = "Label10", ;
		TabIndex = 19, ;
		Top = 136, ;
		Width = 65, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'Label12' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		FontBold = .T., ;
		ForeColor = 0,0,187, ;
		Height = 17, ;
		Left = 265, ;
		Name = "Label12", ;
		TabIndex = 29, ;
		Top = 216, ;
		Width = 106, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		BackStyle = 0, ;
		Caption = "ani", ;
		Height = 17, ;
		Left = 301, ;
		Name = "Label14", ;
		TabIndex = 27, ;
		Top = 137, ;
		Width = 19, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		Height = 17, ;
		Left = 265, ;
		Name = "Label2", ;
		TabIndex = 22, ;
		Top = 78, ;
		Width = 106, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		Height = 17, ;
		Left = 265, ;
		Name = "Label25", ;
		TabIndex = 28, ;
		Top = 162, ;
		Width = 106, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod vechi", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label3", ;
		TabIndex = 20, ;
		Top = 51, ;
		Width = 58, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Durata ramasa la data evaluarii", ;
		FontBold = .T., ;
		ForeColor = 0,0,187, ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label4", ;
		TabIndex = 25, ;
		Top = 216, ;
		Width = 179, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 0,0,187, ;
		BackStyle = 0, ;
		Caption = "Data schimbarii duratei ramase", ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label5", ;
		TabIndex = 23, ;
		Top = 191, ;
		Width = 176, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Uzura precedenta", ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label6", ;
		TabIndex = 24, ;
		Top = 241, ;
		Visible = .F., ;
		Width = 99, ;
		ZOrderSet = 24
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizarea precedenta", ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label7", ;
		TabIndex = 26, ;
		Top = 266, ;
		Visible = .F., ;
		Width = 132, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "-", ;
		Height = 17, ;
		Left = 258, ;
		Name = "Label8", ;
		TabIndex = 30, ;
		Top = 137, ;
		Width = 6, ;
		ZOrderSet = 28
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod nou", ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontShadow = .F., ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label9", ;
		TabIndex = 21, ;
		Top = 112, ;
		Width = 50, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 355, ;
		Name = "RENUNT1", ;
		TabIndex = 8, ;
		Top = 3, ;
		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 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 128,128,128, ;
		Height = 61, ;
		Left = 6, ;
		Name = "Shape2", ;
		Top = 43, ;
		Width = 405, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 128,128,128, ;
		Height = 76, ;
		Left = 6, ;
		Name = "Shape3", ;
		Top = 107, ;
		Width = 405, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 't21' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "pnDNS", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "rk", ;
		Height = 22, ;
		InputMask = "9999", ;
		Left = 301, ;
		Name = "t21", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 12, ;
		Top = 157, ;
		Width = 39, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "omf.normaan", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		InputMask = "999.999", ;
		Left = 223, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 75, ;
		Width = 37, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "omf.normat", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 301, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 11, ;
		TabStop = .F., ;
		Top = 75, ;
		Width = 36, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "omf.codmf", ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 223, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 1, ;
		Top = 49, ;
		Width = 180, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "pcCodmf", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		Left = 223, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 2, ;
		Top = 110, ;
		Width = 180, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "pnDNSani", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 22, ;
		InputMask = "99.99", ;
		Left = 223, ;
		Name = "Text8", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 3, ;
		Top = 157, ;
		Width = 40, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		ControlSource = "omf.amortprec", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 223, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 263, ;
		Visible = .F., ;
		Width = 102, ;
		ZOrderSet = 27
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDataEval' AS textbox WITH ;
		ControlSource = "pdDataEval", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		Left = 223, ;
		Name = "txtDataEval", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 4, ;
		Top = 188, ;
		Width = 66, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDR' AS textbox WITH ;
		ControlSource = "pnDR", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "999 999", ;
		Left = 301, ;
		Name = "txtDR", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 13, ;
		Top = 213, ;
		Width = 38, ;
		ZOrderSet = 23
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDRani' AS textbox WITH ;
		ControlSource = "pnDRani", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99.99", ;
		Left = 223, ;
		Name = "txtDRani", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 14, ;
		Top = 213, ;
		Width = 38, ;
		ZOrderSet = 29
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtNorma_max' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.norma_max", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 20, ;
		InputMask = "999", ;
		Left = 266, ;
		Name = "txtNorma_max", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 16, ;
		TabStop = .F., ;
		Top = 135, ;
		Width = 32, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtNorma_min' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "m.norma_min", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "k", ;
		Height = 20, ;
		InputMask = "999", ;
		Left = 223, ;
		Name = "txtNorma_min", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 15, ;
		TabStop = .F., ;
		Top = 135, ;
		Width = 32, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtUzuraPrec' AS textbox WITH ;
		ControlSource = "pnUzuraPrec", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "999 999", ;
		Left = 223, ;
		Name = "txtUzuraPrec", ;
		SpecialEffect = 1, ;
		TabIndex = 5, ;
		Top = 238, ;
		Visible = .F., ;
		Width = 66, ;
		ZOrderSet = 25
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE calcul_dr
		PARAMETERS tnValue
		
		IF PCOUNT() = 0
			tnValue = pnDNSani
		ENDIF 
		
		LOCAL lnUzura 
		lnUzura = 0
		pnDNS = tnValue*12  
		  
		*omf.dataeval = omf.datapif
		lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - YEAR(pdDataEval)*12 - MONTH(pdDataEval)) && uzura in luna trecuta
		pnDR = ROUND((1-lnUzura/omf.normat) * pnDNS,0)
		pnDRani = ROUND(pnDR/12,3)
		
		pnUzuraPrec = pnDNS - lnUzura - pnDR  && = noul DNS - uzura pana in momentul de fata (inclusiv luna crt)- noua durata ramasa
		thisform.Refresh 
	ENDPROC

	PROCEDURE Text7.GotFocus
		*!*	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
		*!*	SCAT MEMV
		*!*	pcCodMf = norma_2005.codmf
		
		*!*	THISFORM.txtNorma_min.REFRESH
		*!*	THISFORM.txtNorma_max.REFRESH
		
		
		LOCAL den
		*STORE 0 TO m.norma_min, m.norma_max
		
		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
				m.norma_min = onorma.norma_min
				m.norma_max = onorma.norma_max
				
			ELSE
				IF TYPE('onorma.NORMAT')='C'
					m.normat=VAL(onorma.normat)
				ENDIF
				IF TYPE('onorma.NORMAAN')='C'
					m.normaan=VAL(onorma.normaan)
				ENDIF
			ENDIF
			pcCodMf = onorma.codmf
		ENDIF
		THISFORM.txtNorma_min.REFRESH
		THISFORM.txtNorma_max.REFRESH
		RELEASE onorma 
		
		
	ENDPROC

	PROCEDURE Text8.LostFocus
		*thisform.calcul_dr(this.value)
		*!*	LOCAL lnUzura 
		*!*	lnUzura = 0
			pnDNS = this.Value*12  
		*!*	  
		*!*	DO CASE && aici calculez DR !!!
		*!*	CASE omf.dataeval = omf.datapif
		*!*		lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - 2005*12+1) - 1
		*!*	OTHERWISE  && uzura = datacrt - dataeval
		*!*		lnUzura = (VAL(m.an)*12+VAL(m.nl)) - (YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*	ENDCASE 
		
		*!*	pnDR = (1-lnUzura/omf.normat2lun) * this.Value * 12
		*!*	pnDRani = pnDR/12
		
		*!*	pnUzuraPrec = (VAL(m.an)*12+VAL(m.nl) - (2005*12+1))
		thisform.Refresh 
		
		
	ENDPROC

	PROCEDURE Text8.Valid
		IF (m.norma_min <= this.Value AND this.Value <= m.norma_max)
		ELSE
			DO mesaj WITH "Durata introdusa nu este din interval",""
			RETURN 0
		ENDIF 
	ENDPROC

	PROCEDURE Text9.Valid
		*!*	IF !EMPTY(omf.dataeval)
		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
		*!*	ENDIF 
		*!*	m.normat2=ROUND(m.normat2lun/12,2)
		
	ENDPROC

	PROCEDURE txtDataEval.Init
		LOCAL lcData, ldUltimaZi 
		
		*!*	lcData = "01/"+m.nl+"/"+m.an
		*!*	ldUltimaZi = GOMONTH(CTOD(lcData),1)-1
		
		*!*	pdDataeval = ldUltimaZi 
		*!*	this.Refresh 
		
	ENDPROC

	PROCEDURE txtDataEval.LostFocus
		lnDN = pnDNSani
		thisform.calcul_dr(lnDN)
		
		*pnUzuraPrec = (YEAR(pdDataEval)*12+MONTH(pdDataEval)-(2005*12+1))
		*thisform.txtUzuraPrec.Refresh 
	ENDPROC

	PROCEDURE txtDataEval.Valid
		*!*	IF !EMPTY(omf.dataeval)
		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
		*!*	ENDIF 
		*!*	m.normat2=ROUND(m.normat2lun/12,2)
		
	ENDPROC

	PROCEDURE txtDR.Valid
		*!*	IF !EMPTY(omf.dataeval)
		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
		*!*	ENDIF 
		*!*	m.normat2=ROUND(m.normat2lun/12,2)
		
	ENDPROC

	PROCEDURE txtDRani.Valid
		*!*	IF !EMPTY(omf.dataeval)
		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
		*!*	ENDIF 
		*!*	m.normat2=ROUND(m.normat2lun/12,2)
		
	ENDPROC

ENDDEFINE

DEFINE CLASS nom_sectii 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="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="NOU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="STERGE1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 390
		Name = "nom_sectii"
		Width = 314
		Shape1.Height = 34
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 215
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 281
		Terminat1.Name = "Terminat1"
		Terminat1.Top = 2
		Titlufrumos1.AutoSize = .T.
		Titlufrumos1.Caption = "Nomenclator sectii"
		Titlufrumos1.Height = 20
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.Top = 5
		Titlufrumos1.Width = 113
	*</PropValue>

	ADD OBJECT 'Grid1' AS grid WITH ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 336, ;
		Left = 10, ;
		Name = "Grid1", ;
		Panel = 1, ;
		RecordSource = "sectie", ;
		Top = 46, ;
		Width = 297, ;
		Column1.ControlSource = "sectie", ;
		Column1.Format = "!", ;
		Column1.Name = "Column1", ;
		Column1.Width = 203, ;
		Column2.ControlSource = "id_sectie", ;
		Column2.Name = "Column2", ;
		Column2.Width = 63
		*< END OBJECT: BaseClass="grid" />

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

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

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

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

	ADD OBJECT 'NOU1' AS nou WITH ;
		Left = 249, ;
		Name = "NOU1", ;
		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 'STERGE1' AS sterge WITH ;
		Left = 218, ;
		Name = "STERGE1", ;
		Top = 2, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
	
	PROCEDURE NOU1.Command1.Click
		SELECT SECTIE
		APPEND BLANK 
		REPLACE SECTIE WITH " Sectie Noua"
		thisform.grid1.SetFocus 
	ENDPROC

	PROCEDURE STERGE1.Command1.Click
		sele sectie
		scatter NAME osec
		
		buton=2
		do DaSauNu with 'Se elimina sectia '+allt(osec.sectie)+'?'
		
		if buton=1
			SELECT mf 
			LOCATE FOR UPPER(ALLTRIM(id_sectie)) = UPPER(ALLTRIM(osec.id_sectie))
			IF FOUND()
				do mesajrosu with 'In sectia '+alltrim(osec.id_sectie),'exista inregistrari! Nu se poate elimina!'
				buton = 2
			ENDIF 
		ENDIF 
		if buton=1
			sele sectie
			DELETE FOR UPPER(ALLTRIM(sectie)) = UPPER(ALLTRIM(osec.sectie)) AND UPPER(ALLTRIM(id_sectie)) = UPPER(ALLTRIM(osec.id_sectie))
		ENDIF
		
		RELEASE osec 
		go top
		thisform.grid1.refresh
	ENDPROC

ENDDEFINE