romfast/roaimob
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
5d60d96d501ea42cdbd8d261f994d405b6bb5039
roaimob/Ferestre/Vechi/frm_calcul.sc2

329 lines
8.6 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul.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="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: valoare
*p: valram
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 192,192,192
BorderStyle = 1
DataSession = 1
DoCreate = .T.
Height = 279
Name = "FORMTERMIN12"
valoare = 0
valram = 0
Width = 411
SHAPE1.Height = 35
SHAPE1.Left = 0
SHAPE1.Name = "SHAPE1"
SHAPE1.Top = 0
SHAPE1.Width = 360
TERMINAT1.COMMAND1.Name = "COMMAND1"
TERMINAT1.IMBUTON1.Height = 27
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
TERMINAT1.IMBUTON1.Width = 30
TERMINAT1.Left = 368
TERMINAT1.Name = "TERMINAT1"
TERMINAT1.TabIndex = 5
TERMINAT1.Top = 3
TITLUFRUMOS1.Caption = "Calculul amortizarii"
TITLUFRUMOS1.Height = 32
TITLUFRUMOS1.Left = 7
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
TITLUFRUMOS1.TabIndex = 8
TITLUFRUMOS1.Top = 5
TITLUFRUMOS1.Width = 184
*</PropValue>
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoarea de calcul Vc =", ;
Height = 17, ;
Left = 146, ;
Name = "Label1", ;
TabIndex = 10, ;
Top = 98, ;
Width = 129
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label10' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoarea reziduala Vrez =", ;
Height = 17, ;
Left = 135, ;
Name = "Label10", ;
TabIndex = 10, ;
Top = 73, ;
Width = 140
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cota c = 100 / DNSc =", ;
Height = 17, ;
Left = 153, ;
Name = "Label2", ;
TabIndex = 10, ;
Top = 175, ;
Width = 122
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Amortizment lunar A = c x Vc =", ;
Height = 17, ;
Left = 111, ;
Name = "Label3", ;
TabIndex = 10, ;
Top = 201, ;
Width = 164
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Durata de calcul DNSc =", ;
Height = 17, ;
Left = 139, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 148, ;
Width = 136
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "%", ;
Height = 17, ;
Left = 397, ;
Name = "Label5", ;
TabIndex = 10, ;
Top = 173, ;
Width = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoarea de intrare Vi =", ;
Height = 17, ;
Left = 146, ;
Name = "Label6", ;
TabIndex = 10, ;
Top = 48, ;
Width = 129
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label7' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total amortizare precedenta Ap =", ;
Height = 17, ;
Left = 93, ;
Name = "Label7", ;
TabIndex = 10, ;
Top = 123, ;
Width = 182
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label8' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valoarea ramasa de amortizat Vr = Vi - Vrez - At =", ;
Height = 17, ;
Left = 7, ;
Name = "Label8", ;
TabIndex = 10, ;
Top = 248, ;
Width = 267
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total amortizare At = Ap + A =", ;
Height = 17, ;
Left = 114, ;
Name = "Label9", ;
TabIndex = 10, ;
Top = 226, ;
Width = 160
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
ControlSource = "m.valramasa", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text1", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 95, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
ControlSource = "m.normat2", ;
Format = "", ;
Height = 23, ;
InputMask = "99 999 999 999 999", ;
Left = 280, ;
Name = "Text2", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 145, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
ControlSource = "m.cota", ;
Format = "r", ;
Height = 23, ;
InputMask = "9999.99", ;
Left = 280, ;
Name = "Text3", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 170, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
ControlSource = "m.amortlun", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text4", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 195, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
ControlSource = "thisform.valram", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text5", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 245, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
ControlSource = "m.valin", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text6", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 45, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
ControlSource = "m.amortprec", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text7", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 120, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text8' AS textbox WITH ;
ControlSource = "m.amorttot", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text8", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 220, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text9' AS textbox WITH ;
ControlSource = "m.valrez", ;
Format = "", ;
Height = 23, ;
InputMask = (GET_MASK(14,gnZ)), ;
Left = 280, ;
Name = "Text9", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 70, ;
Width = 117
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Load
thisform.valram=m.valin-m.amorttot-m.valrez
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink