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

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

ENDDEFINE

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

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

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

	*<PropValue>
		BorderStyle = 1
		DataSession = 1
		DoCreate = .T.
		Height = 217
		Name = "FORMTERMIN12"
		Width = 346
		SHAPE1.Height = 35
		SHAPE1.Left = 0
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 0
		SHAPE1.Width = 276
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 27
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 30
		TERMINAT1.Left = 313
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.TabIndex = 4
		TERMINAT1.Top = 3
		TITLUFRUMOS1.Caption = "Reevaluarea valorii de intrare"
		TITLUFRUMOS1.Height = 37
		TITLUFRUMOS1.Left = 6
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.TabIndex = 8
		TITLUFRUMOS1.Top = 4
		TITLUFRUMOS1.Width = 221
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea de intrare veche", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label1", ;
		TabIndex = 10, ;
		Top = 65, ;
		Width = 141
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizare veche", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label2", ;
		TabIndex = 9, ;
		Top = 128, ;
		Width = 95
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea de intrare reevaluata", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label3", ;
		TabIndex = 11, ;
		Top = 94, ;
		Width = 166
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizare reevaluata", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label4", ;
		TabIndex = 12, ;
		Top = 158, ;
		Width = 120
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Data reevaluare", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label5", ;
		TabIndex = 13, ;
		Top = 185, ;
		Visible = .T., ;
		Width = 89
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 281, ;
		Name = "RENUNT1", ;
		TabIndex = 5, ;
		Top = 3, ;
		IMBUTON1.Height = 27, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 30, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "omf.valIN", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 196, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 62, ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "omf.amorttot", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 196, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 126, ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "pnValIN", ;
		Format = "k", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 196, ;
		Name = "Text3", ;
		SpecialEffect = 1, ;
		TabIndex = 1, ;
		Top = 91, ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		ControlSource = "pnAmortTot", ;
		Format = "k", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 196, ;
		Name = "Text4", ;
		SpecialEffect = 1, ;
		TabIndex = 2, ;
		Top = 155, ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		ControlSource = "pnDataeval", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 196, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 3, ;
		Top = 184, ;
		Visible = .T., ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE calcul_dr
		lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
		pnNormat2Lun = omf.normat2lun - lnUzura  && Durata ramasa (in luni)
		pnNormat2=ROUND(pnNormat2lun/12,3)
	ENDPROC

	PROCEDURE Text5.Valid
		thisform.calcul_dr
		
	ENDPROC

ENDDEFINE