*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_dns_o.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="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" 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="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="RENUNT1" 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="" />

	*<DefinedPropArrayMethod>
		*p: ddataeval
		*p: ndns
		*p: ndnsani
		*p: ndr
		*p: ndrani
		*p: nlim_max
		*p: nlim_min
		*p: nuzuraprec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ddataeval = 01/01/2005
		DoCreate = .T.
		Height = 292
		Name = "FORMTERMIN12"
		ndns = 0
		ndnsani = 0.00
		ndr = 0
		ndrani = 0.00
		nlim_max = 0
		nlim_min = 0
		nuzuraprec = 0
		Width = 414
		SHAPE1.Height = 35
		SHAPE1.Left = 0
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 0
		SHAPE1.Width = 351
		SHAPE1.ZOrderSet = 2
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 27
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 30
		TERMINAT1.Left = 382
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.TabIndex = 11
		TERMINAT1.Top = 3
		TERMINAT1.ZOrderSet = 3
		TITLUFRUMOS1.Caption = "Schimbare DNS de calcul"
		TITLUFRUMOS1.Height = 30
		TITLUFRUMOS1.Left = 7
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.TabIndex = 15
		TITLUFRUMOS1.Top = 6
		TITLUFRUMOS1.Width = 332
		TITLUFRUMOS1.ZOrderSet = 4
	*</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 = 8, ;
		Name = "Label1", ;
		TabIndex = 16, ;
		Top = 75, ;
		Width = 207, ;
		ZOrderSet = 12
		*< 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 = 151, ;
		Name = "Label10", ;
		TabIndex = 17, ;
		Top = 134, ;
		Width = 65, ;
		ZOrderSet = 8
		*< 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 = 8, ;
		Name = "Label11", ;
		TabIndex = 17, ;
		Top = 159, ;
		Width = 212, ;
		ZOrderSet = 8
		*< 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 = 264, ;
		Name = "Label12", ;
		TabIndex = 25, ;
		Top = 214, ;
		Width = 106, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		BackStyle = 0, ;
		Caption = "ani", ;
		Height = 17, ;
		Left = 300, ;
		Name = "Label14", ;
		TabIndex = 25, ;
		Top = 135, ;
		Width = 19, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

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

	ADD OBJECT 'Label25' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "ani =                   luni", ;
		Height = 17, ;
		Left = 264, ;
		Name = "Label25", ;
		TabIndex = 25, ;
		Top = 160, ;
		Width = 106, ;
		ZOrderSet = 9
		*< 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 = 8, ;
		Name = "Label3", ;
		TabIndex = 19, ;
		Top = 50, ;
		Width = 58, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Durata ramasa la ianuarie 2005", ;
		FontBold = .T., ;
		ForeColor = 0,0,187, ;
		Height = 17, ;
		Left = 8, ;
		Name = "Label4", ;
		TabIndex = 23, ;
		Top = 214, ;
		Width = 180
		*< 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 = 8, ;
		Name = "Label5", ;
		TabIndex = 21, ;
		Top = 189, ;
		Width = 176
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Uzura precedenta", ;
		Height = 17, ;
		Left = 8, ;
		Name = "Label6", ;
		TabIndex = 22, ;
		Top = 239, ;
		Width = 99
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Amortizarea precedenta", ;
		Height = 17, ;
		Left = 8, ;
		Name = "Label7", ;
		TabIndex = 24, ;
		Top = 264, ;
		Width = 132
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "-", ;
		Height = 17, ;
		Left = 257, ;
		Name = "Label8", ;
		Top = 135, ;
		Width = 6
		*< 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 = 8, ;
		Name = "Label9", ;
		TabIndex = 18, ;
		Top = 111, ;
		Width = 50, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'RENUNT1' AS renunt WITH ;
		Left = 352, ;
		Name = "RENUNT1", ;
		TabIndex = 12, ;
		Top = 3, ;
		ZOrderSet = 16, ;
		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 = 5, ;
		Name = "Shape2", ;
		Top = 41, ;
		Width = 405, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

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

	ADD OBJECT 't21' AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "thisform.nDNS", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Format = "rk", ;
		Height = 22, ;
		InputMask = "9999", ;
		Left = 300, ;
		Name = "t21", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 6, ;
		Top = 155, ;
		Width = 39, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

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

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

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "omf.codmf", ;
		FontName = "Arial Narrow", ;
		Height = 22, ;
		Left = 222, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 180, ;
		ZOrderSet = 17
		*< 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 = 222, ;
		Name = "Text7", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 4, ;
		Top = 109, ;
		Width = 180, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'Text9' AS textbox WITH ;
		ControlSource = "omf.amortprec", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = (GET_MASK(14,gnZ)), ;
		Left = 222, ;
		Name = "Text9", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 10, ;
		Top = 261, ;
		Width = 102
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDataEval' AS textbox WITH ;
		ControlSource = "thisform.dDataEval", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		Left = 222, ;
		Name = "txtDataEval", ;
		ReadOnly = .F., ;
		SpecialEffect = 1, ;
		TabIndex = 7, ;
		Top = 186, ;
		Width = 66
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDR' AS textbox WITH ;
		ControlSource = "thisform.nDR", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "999 999", ;
		Left = 300, ;
		Name = "txtDR", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 8, ;
		Top = 211, ;
		Width = 38
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDRani' AS textbox WITH ;
		ControlSource = "thisform.nDRani", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "99.99", ;
		Left = 222, ;
		Name = "txtDRani", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 8, ;
		Top = 211, ;
		Width = 38
		*< 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 = 265, ;
		Name = "txtNorma_max", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 14, ;
		TabStop = .F., ;
		Top = 133, ;
		Width = 32, ;
		ZOrderSet = 7
		*< 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 = 222, ;
		Name = "txtNorma_min", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		TabIndex = 13, ;
		TabStop = .F., ;
		Top = 133, ;
		Width = 32, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtUzuraPrec' AS textbox WITH ;
		ControlSource = "thisform.nUzuraPrec", ;
		FontName = "Arial Narrow", ;
		Format = "", ;
		Height = 23, ;
		InputMask = "999 999", ;
		Left = 222, ;
		Name = "txtUzuraPrec", ;
		SpecialEffect = 1, ;
		TabIndex = 9, ;
		Top = 236, ;
		Width = 66
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE inainte_de_do_termin
		IF (m.norma_min <= thisform.nDNSani AND thisform.nDNSani <= m.norma_max)
		ELSE
			DO mesaj WITH "Durata normala de serviciu schimbata (DNS)","nu este din interval"
			RETURN .F.
		ENDIF 
	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
		
		THISFORM.txtNorma_min.REFRESH
		THISFORM.txtNorma_max.REFRESH
		
		
		
	ENDPROC

	PROCEDURE Text8.LostFocus
		LOCAL lnUzura 
		lnUzura = 0
		thisform.nDNS = 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(dataeval)*12+MONTH(dataeval))
		ENDCASE 
		
		thisform.nDR = (1-lnUzura/omf.normat2lun) * this.Value * 12
		thisform.nDRani = thisform.nDR/12
		
		thisform.nUzuraPrec = (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
		
		thisform.dDataeval = ldUltimaZi 
		this.Refresh 
		
	ENDPROC

	PROCEDURE txtDataEval.LostFocus
		thisform.nUzuraPrec = (YEAR(thisform.dDataEval)*12+MONTH(thisform.dDataEval)-(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