130 lines
3.7 KiB
Plaintext
130 lines
3.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="valori.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 ffergen12 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DataSession = 1
|
|
DoCreate = .T.
|
|
Height = 145
|
|
Name = "Ffergen12"
|
|
Width = 315
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Caption = "\<CONTINUARE", ;
|
|
Height = 25, ;
|
|
Left = 206, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 2, ;
|
|
Top = 113, ;
|
|
Width = 89, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Introduceti valoarea care se transforma in mijloc fix pentru imobilizarea:", ;
|
|
Height = 41, ;
|
|
Left = 12, ;
|
|
Name = "Label1", ;
|
|
Top = 7, ;
|
|
Width = 287, ;
|
|
WordWrap = .T., ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Valoarea initiala", ;
|
|
Height = 17, ;
|
|
Left = 15, ;
|
|
Name = "Label2", ;
|
|
Top = 58, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 139, ;
|
|
Left = 2, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 3, ;
|
|
Width = 309, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.valoare", ;
|
|
Height = 23, ;
|
|
InputMask = "99 999 999 999 999", ;
|
|
Left = 15, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 3, ;
|
|
Top = 78, ;
|
|
Width = 136, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
ControlSource = "valtrans", ;
|
|
Format = "rk", ;
|
|
Height = 23, ;
|
|
InputMask = "99 999 999 999 999", ;
|
|
Left = 159, ;
|
|
Name = "Text2", ;
|
|
TabIndex = 1, ;
|
|
Top = 79, ;
|
|
Width = 136, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.denumire", ;
|
|
FontBold = .T., ;
|
|
Height = 18, ;
|
|
Left = 124, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
Top = 21, ;
|
|
Width = 181, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Text2.Valid
|
|
IF valtrans>m.valoare
|
|
DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala'
|
|
RETURN
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|