*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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