97 lines
2.7 KiB
Plaintext
97 lines
2.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="optiuni.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="LABEL_ITEM1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: amo
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
DataSession = 1
|
|
DoCreate = .T.
|
|
Height = 129
|
|
Name = "Formtermin12"
|
|
Width = 327
|
|
SHAPE1.Name = "SHAPE1"
|
|
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
|
TERMINAT1.IMBUTON1.Height = 27
|
|
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
|
TERMINAT1.IMBUTON1.Width = 30
|
|
TERMINAT1.Left = 295
|
|
TERMINAT1.Name = "TERMINAT1"
|
|
TERMINAT1.Top = 3
|
|
TITLUFRUMOS1.Caption = "OPTIUNI"
|
|
TITLUFRUMOS1.Height = 37
|
|
TITLUFRUMOS1.Left = 7
|
|
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
|
TITLUFRUMOS1.Top = 6
|
|
TITLUFRUMOS1.Width = 271
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Da", ;
|
|
Height = 17, ;
|
|
Left = 252, ;
|
|
Name = "Check1", ;
|
|
Top = 60, ;
|
|
Value = 0, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'LABEL_ITEM1' AS label_item WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Height = 60, ;
|
|
Left = 12, ;
|
|
Name = "LABEL_ITEM1", ;
|
|
Top = 48, ;
|
|
Width = 180
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
sele optiuniS
|
|
loca for optiune='AMORTISMENT'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'AMORTISMENT'
|
|
REPL DA WITH .F.
|
|
ENDIF
|
|
THISFORM.CHECK1.Value=IIF(DA,1,0)
|
|
thisform.amo=optiunis.da
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.amo=IIF(THIS.Value=1,.t.,.f.)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE TERMINAT1.COMMAND1.Click
|
|
sele optiuniS
|
|
loca for optiune='AMORTISMENT'
|
|
REPL DA WITH THISFORM.AMO
|
|
thisform.Release
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|