*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul_reevaluare.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="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: avertizare
		*m: calcul_dr
		*p: normat2lun
		*p: uzura
		*p: valoare
		*p: valram
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DataSession = 1
		DoCreate = .T.
		Height = 339
		Name = "FORMTERMIN12"
		normat2lun = 0
		uzura = 0
		valoare = 0
		valram = 0
		Width = 355
		SHAPE1.Height = 35
		SHAPE1.Left = 0
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 0
		SHAPE1.Width = 291
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 27
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 30
		TERMINAT1.Left = 323
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.TabIndex = 9
		TERMINAT1.Top = 3
		TITLUFRUMOS1.Caption = "Calcul reevaluare"
		TITLUFRUMOS1.Height = 32
		TITLUFRUMOS1.Left = 7
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.TabIndex = 15
		TITLUFRUMOS1.Top = 5
		TITLUFRUMOS1.Width = 184
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Uzura precedenta MF", ;
		Height = 17, ;
		Left = 20, ;
		Name = "Label1", ;
		TabIndex = 27, ;
		Top = 129, ;
		Visible = .F., ;
		Width = 118
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "luni", ;
		Height = 17, ;
		Left = 323, ;
		Name = "Label10", ;
		TabIndex = 22, ;
		Top = 276, ;
		Visible = .T., ;
		Width = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "DNS de calcul actual", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label11", ;
		TabIndex = 23, ;
		Top = 185, ;
		Visible = .T., ;
		Width = 116
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "ani=", ;
		Height = 17, ;
		Left = 251, ;
		Name = "Label12", ;
		TabIndex = 19, ;
		Top = 183, ;
		Visible = .T., ;
		Width = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "luni", ;
		Height = 17, ;
		Left = 323, ;
		Name = "Label13", ;
		TabIndex = 16, ;
		Top = 184, ;
		Visible = .T., ;
		Width = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Uzura la data reevaluarii", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label14", ;
		TabIndex = 24, ;
		Top = 211, ;
		Visible = .T., ;
		Width = 134
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "luni", ;
		Height = 17, ;
		Left = 323, ;
		Name = "Label15", ;
		TabIndex = 20, ;
		Top = 210, ;
		Visible = .T., ;
		Width = 22
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea adaugata (majorare)", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label2", ;
		TabIndex = 29, ;
		Top = 237, ;
		Visible = .F., ;
		Width = 167
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Noua valuare de calcul", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label3", ;
		TabIndex = 30, ;
		Top = 302, ;
		Visible = .T., ;
		Width = 127
		*< END OBJECT: BaseClass="label" />

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

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

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea de intrare", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label6", ;
		TabIndex = 26, ;
		Top = 48, ;
		Width = 106
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Valoarea ramasa reevaluata", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label7", ;
		TabIndex = 25, ;
		Top = 101, ;
		Width = 155, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Noul DNS de calcul", ;
		Height = 17, ;
		Left = 19, ;
		Name = "Label8", ;
		TabIndex = 17, ;
		Top = 277, ;
		Visible = .T., ;
		Width = 109
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "ani=", ;
		Height = 17, ;
		Left = 251, ;
		Name = "Label9", ;
		TabIndex = 21, ;
		Top = 275, ;
		Visible = .T., ;
		Width = 26
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Line1' AS line WITH ;
		Height = 0, ;
		Left = 15, ;
		Name = "Line1", ;
		Top = 264, ;
		Width = 328
		*< END OBJECT: BaseClass="line" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 292, ;
		Name = "RENUNT1", ;
		TabIndex = 10, ;
		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 = "pnUzuraprec", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 210, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 3, ;
		Top = 126, ;
		Visible = .F., ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text10' AS textbox WITH ;
		ControlSource = "omf.normat2", ;
		Height = 23, ;
		InputMask = "999.999", ;
		Left = 210, ;
		Name = "Text10", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 13, ;
		Top = 180, ;
		Visible = .T., ;
		Width = 40
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text11' AS textbox WITH ;
		ControlSource = "omf.normat2lun", ;
		Height = 23, ;
		InputMask = "99999", ;
		Left = 280, ;
		Name = "Text11", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 11, ;
		Top = 180, ;
		Visible = .T., ;
		Width = 40
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text12' AS textbox WITH ;
		ControlSource = "thisform.uzura", ;
		Height = 23, ;
		InputMask = "99999", ;
		Left = 280, ;
		Name = "Text12", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 12, ;
		Top = 206, ;
		Visible = .T., ;
		Width = 40
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "pnAmortprec", ;
		FontShadow = .F., ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 210, ;
		Name = "Text2", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 1, ;
		Top = 72, ;
		Visible = .T., ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "thisform.valoare", ;
		Format = "k", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 210, ;
		Name = "Text3", ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 234, ;
		Visible = .F., ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		ControlSource = "pnValramasa", ;
		Format = "", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 210, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 8, ;
		Top = 302, ;
		Visible = .T., ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text5' AS textbox WITH ;
		ControlSource = "pnDataeval", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 210, ;
		Name = "Text5", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 4, ;
		Top = 153, ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text6' AS textbox WITH ;
		ControlSource = "omf.valin", ;
		Format = "", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 210, ;
		Name = "Text6", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 14, ;
		Top = 45, ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text7' AS textbox WITH ;
		ControlSource = "pnValramasa", ;
		FontShadow = .F., ;
		Format = "", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 210, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 2, ;
		Top = 99, ;
		Visible = .T., ;
		Width = 117
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text8' AS textbox WITH ;
		ControlSource = "pnNormat2", ;
		Height = 23, ;
		InputMask = "999.999", ;
		Left = 210, ;
		Name = "Text8", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 5, ;
		Top = 272, ;
		Visible = .T., ;
		Width = 40
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text9' AS textbox WITH ;
		ControlSource = "pnNormat2lun", ;
		Height = 23, ;
		InputMask = "99999", ;
		Left = 280, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 272, ;
		Visible = .T., ;
		Width = 40
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE avertizare
		otext=CREATEOBJECT('textr')
		otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(TRANSFORM(pnValramasa,get_mask(12,gnZ)))+' !'
		otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(pnNormat2lun))+' luni !'
		otext.show(1)
		
		IF buton=2
			RETURN
		ELSE 
			thisform.Release 
		ENDIF 
		
		
	ENDPROC

	PROCEDURE calcul_dr
		*!*	nrLuniDif = VAL(m.an)*12 + VAL(m.nl) - (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) && dif dintre luna curenta si data reevaluarii
		*!*	lnUzura = omf.uzura - nrLuniDif          && uzura la data reevaluarii 
		*!*	thisform.uzura = lnUzura
		*!*	pnNormat2Lun = omf.normat - lnUzura  && Durata ramasa (in luni)
		*!*	pnNormat2=ROUND(pnNormat2lun/12,3)
		
		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)
		
		thisform.text4.refresh
		thisform.text8.refresh
		thisform.text9.refresh
		thisform.text12.refresh
	ENDPROC

	PROCEDURE Load
		IF VAL(m.an)>= 2004
			lnValRez = 0
		ELSE 
			lnValRez = omf.valrez
		ENDIF 
		
		*thisform.valram = omf.valin - omf.amortprec - lnValRez
		pnValramasa = omf.valin - pnAmortprec - lnValRez
		thisform.normat2lun = pnNormat2lun
		
		*thisform.Height=thisform.line1.Top 
		
		
	ENDPROC

	PROCEDURE TERMINAT1.COMMAND1.Click
		thisform.avertizare
	ENDPROC

	PROCEDURE Text1.Valid
		thisform.calcul_dr
		
	ENDPROC

	PROCEDURE Text2.LostFocus
		IF VAL(m.an)>= 2004
			lnValRez = 0
		ELSE 
			lnValRez = omf.valrez
		ENDIF 
		
		pnValramasa = omf.valin - pnAmortprec - lnValRez
	ENDPROC

	PROCEDURE Text3.Valid
		*m.valramasa=THISFORM.VALRAM + thisform.valoare
		*m.valin=omf.valin+thisform.valoare
		*m.valramasa= m.valin - omf.amortprec - omf.valrez
		
		
		*!*	thisform.label3.Visible=.t.
		*!*	thisform.label4.Visible=.t.
		*!*	thisform.text2.Visible=.t.
		*!*	thisform.text4.Visible=.t.
		
		m.valramasa=THISFORM.VALRAM
		
		thisform.Height=thisform.text4.Top+30
		thisform.text2.refresh
		thisform.text4.refresh
		
		
	ENDPROC

	PROCEDURE Text5.Valid
		*!*	IF !EMPTY(omf.dataeval)
		*!*		thisform.uzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
		*!*		m.normat2lun= thisform.normat2lun-thisform.Uzura
		*!*		m.normat2=ROUND(m.normat2lun/12,3)
		*!*	ENDIF 
		*!*	m.valramasa=THISFORM.VALRAM
		
		thisform.calcul_dr
		
	ENDPROC

	PROCEDURE Text7.Valid
		*!*	m.valramasa=THISFORM.VALRAM
		
		*!*	thisform.Height=thisform.text4.Top+30
		*!*	thisform.text4.refresh
	ENDPROC

	PROCEDURE Text9.LostFocus
		pnNormat2=ROUND(pnNormat2lun/12,3)
		thisform.text8.Refresh 
	ENDPROC

ENDDEFINE