201 lines
5.5 KiB
Plaintext
201 lines
5.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_valoare2.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="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: calcul_dr
|
|
*p: valoare
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DataSession = 1
|
|
DoCreate = .T.
|
|
Height = 188
|
|
Name = "FORMTERMIN12"
|
|
valoare = 0
|
|
Width = 329
|
|
SHAPE1.Height = 35
|
|
SHAPE1.Left = 0
|
|
SHAPE1.Name = "SHAPE1"
|
|
SHAPE1.Top = 0
|
|
SHAPE1.Width = 261
|
|
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
|
TERMINAT1.IMBUTON1.Height = 27
|
|
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
|
TERMINAT1.IMBUTON1.Width = 30
|
|
TERMINAT1.Left = 295
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
TERMINAT1.TabIndex = 4
|
|
TERMINAT1.Top = 3
|
|
TITLUFRUMOS1.Caption = "Majorarea valorii de intrare"
|
|
TITLUFRUMOS1.Height = 37
|
|
TITLUFRUMOS1.Left = 6
|
|
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
|
TITLUFRUMOS1.TabIndex = 7
|
|
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 = 21, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 8, ;
|
|
Top = 65, ;
|
|
Width = 141
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Majorare", ;
|
|
Height = 17, ;
|
|
Left = 21, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 10, ;
|
|
Top = 96, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Valoarea de intrare noua", ;
|
|
Height = 17, ;
|
|
Left = 21, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 9, ;
|
|
Top = 125, ;
|
|
Width = 137
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data reevaluare", ;
|
|
Height = 17, ;
|
|
Left = 21, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 11, ;
|
|
Top = 153, ;
|
|
Visible = .T., ;
|
|
Width = 89
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'RENUNT1' AS renunt WITH ;
|
|
Left = 263, ;
|
|
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 = 184, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 6, ;
|
|
Top = 62, ;
|
|
Width = 129
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "thisform.valoare", ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
InputMask = (GET_MASK(14,gnZ)), ;
|
|
Left = 184, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 1, ;
|
|
Top = 93, ;
|
|
Width = 129
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
ControlSource = "pnValIN", ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
InputMask = (GET_MASK(14,gnZ)), ;
|
|
Left = 184, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 2, ;
|
|
Top = 122, ;
|
|
Width = 129
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
ControlSource = "pnDataeval", ;
|
|
Format = "", ;
|
|
Height = 23, ;
|
|
InputMask = "99 999 999 999 999", ;
|
|
Left = 184, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .F., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 3, ;
|
|
Top = 152, ;
|
|
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 Init
|
|
pnValin = omf.valin+thisform.valoare
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Valid
|
|
pnValin=omf.valin+thisform.valoare
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Valid
|
|
thisform.calcul_dr
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|