94 lines
2.8 KiB
Plaintext
94 lines
2.8 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_cere_text.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>
|
|
DataSource = .NULL.
|
|
Height = 0
|
|
Left = 0
|
|
Name = "Dataenvironment"
|
|
Top = 0
|
|
Width = 0
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\clase\_frm_child.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 99
|
|
Name = "Frm_termin_renunt1"
|
|
Width = 332
|
|
WindowType = 1
|
|
_SHAPE1.Name = "_SHAPE1"
|
|
_SHAPE2.Height = 29
|
|
_SHAPE2.Left = 266
|
|
_SHAPE2.Name = "_SHAPE2"
|
|
_SHAPE2.Top = 0
|
|
_SHAPE2.Width = 67
|
|
LB_TITLU_ALB_B121.Caption = ""
|
|
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
|
LB_TITLU_ALB_B121.TabIndex = 4
|
|
BUT_TERMIN1.Left = 300
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 2
|
|
BUT_TERMIN1.Top = 1
|
|
BUT_RENUNT1.Left = 271
|
|
BUT_RENUNT1.Name = "BUT_RENUNT1"
|
|
BUT_RENUNT1.TabIndex = 3
|
|
BUT_RENUNT1.Top = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
|
Height = 29, ;
|
|
Left = 13, ;
|
|
Name = "Clb_tx_simplu1", ;
|
|
TabIndex = 1, ;
|
|
Top = 48, ;
|
|
Width = 306, ;
|
|
TEXT_SIMPLU1.Height = 23, ;
|
|
TEXT_SIMPLU1.Left = 144, ;
|
|
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
|
TEXT_SIMPLU1.TabIndex = 1, ;
|
|
TEXT_SIMPLU1.Top = 3, ;
|
|
TEXT_SIMPLU1.Width = 154, ;
|
|
LB_SIMPLU1.Caption = "Inroduceti numarul", ;
|
|
LB_SIMPLU1.FontSize = 10, ;
|
|
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
|
LB_SIMPLU1.TabIndex = 2
|
|
*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE Destroy
|
|
lReturn = this.clb_tx_simplu1.tEXT_SIMPLU1.Value
|
|
RETURN lReturn
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
PARAMETERS tcLabel, tControlSource,tcTitlu
|
|
|
|
IF !EMPTY(tcLabel)
|
|
this.clb_tx_simplu1.lB_SIMPLU1.Caption = ALLTRIM(tcLabel)
|
|
ENDIF
|
|
IF !EMPTY(tControlSource)
|
|
this.clb_tx_simplu1.tEXT_SIMPLU1.ControlSource = tControlSource
|
|
ENDIF
|
|
IF !EMPTY(tcTitlu)
|
|
this.lB_TITLU_ALB_B121.Caption = tcTitlu
|
|
ENDIF
|
|
DODEFAULT()
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|