*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="lb_tx.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cb_tx_autofill AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_cbautofill1" UniqueID="" Timestamp="" />

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<PropValue>
		BackStyle = 0
		Height = 29
		Name = "cb_tx_autofill"
		Width = 290
	*</PropValue>

	ADD OBJECT '_cbautofill1' AS _cbautofill WITH ;
		Height = 23, ;
		Left = 101, ;
		Name = "_cbautofill1", ;
		Top = 3, ;
		Width = 184
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT '_lbbase1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "_lbbase1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

ENDDEFINE

DEFINE CLASS cb_tx_cautare AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Criteriu" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_actualizeaza_ct
		*m: do_initializeaza_ct
		*p: cpornire
		*p: ctip
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 255,255,255
		BorderWidth = 0
		cpornire = 
		ctip = C
		Height = 27
		Name = "cb_tx_cautare"
		Width = 303
		_memberdata = <VFPData>
			<memberdata name="ctip" display="cTip"/>
		</VFPData>
	*</PropValue>

	ADD OBJECT 'Criteriu' AS _cbbase WITH ;
		BorderStyle = 0, ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "72,0", ;
		FontCharSet = 238, ;
		FontItalic = .T., ;
		Left = 3, ;
		Name = "Criteriu", ;
		RowSource = "incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6", ;
		RowSourceType = 1, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		TabIndex = 1, ;
		ToolTipText = "Selectati criteriul de comparare", ;
		Top = 1
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'Text' AS _txbase WITH ;
		Format = "!KT", ;
		Height = 25, ;
		Left = 103, ;
		Name = "Text", ;
		TabIndex = 2, ;
		Top = 1, ;
		Width = 198
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE do_actualizeaza_ct
		Lparameters tcValoare
		Do Case
			Case This.cTip = [N]
				This.Text.Value = 0
			Case This.cTip = [D]
				This.Text.Value = Ctod([])
			Case This.cTip = [T]
				This.Text.Value = Ctot([])
			Otherwise
				If Val(tcValoare)>5
					This.Text.Value=""
					*This.Text.Enabled=.F.
					This.Text.Enabled=.T.
				Else
					This.Text.Enabled=.T.
				Endif
		Endcase
		
	ENDPROC

	PROCEDURE do_initializeaza_ct
		Lparameters tcValoare,tcTip
		*!*	modificare	14/10/2011	:	am adaugat tcTip
		If !Empty(tcTip)
			Do Case
				Case Inlist(tcTip,'T','N','D')
					This.criteriu.RowSource = [=,1,diferita,2,>,3,<,4,>=,5,<=,6]
				Otherwise
					This.criteriu.RowSource = [incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6]
			Endcase
			This.cTip = tcTip
		Else
			This.cTip = [C]
		Endif
		If Empty(tcValoare)
			lcValoare = [1]
		Else
			lcValoare = tcValoare
		Endif
		This.criteriu.Value = lcValoare
		This.do_actualizeaza_ct(lcValoare)
		
	ENDPROC

	PROCEDURE Criteriu.Valid
		This.Parent.do_actualizeaza_ct(This.Value)
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cb_tx_simplu AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_cbbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" />

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<PropValue>
		BackStyle = 0
		Height = 29
		Name = "cb_tx_simplu"
		Width = 290
	*</PropValue>

	ADD OBJECT '_cbbase1' AS _cbbase WITH ;
		Height = 23, ;
		Left = 101, ;
		Name = "_cbbase1", ;
		Top = 3, ;
		Width = 184
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT '_lbbase1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "_lbbase1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

ENDDEFINE

DEFINE CLASS clb_an_luna AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cb2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		Height = 29
		Name = "clb_an_luna"
		Width = 201
		_memberdata = <VFPData>

		</VFPData>
	*</PropValue>

	ADD OBJECT 'cb1' AS _combobox WITH ;
		Height = 24, ;
		Left = 49, ;
		Name = "cb1", ;
		RowSource = "1,2,3,4,5,6,7,8,9,10,11,12", ;
		RowSourceType = 1, ;
		TabIndex = 1, ;
		Top = 2, ;
		Width = 59
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cb2' AS _combobox WITH ;
		Height = 24, ;
		Left = 121, ;
		Name = "cb2", ;
		RowSource = "2000,2001,2003,2004,2005,2006,2007,2008,2009,20010", ;
		RowSourceType = 1, ;
		TabIndex = 2, ;
		Top = 2, ;
		Width = 74
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Caption = "Luna", ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		TabIndex = 3, ;
		Top = 7
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
	
	PROCEDURE Init
		this.cb2.rowsource = "1990"
		FOR i = 1991 TO gnAn + 10
			this.cb2.rowsource = this.cb2.rowsource + "," + ALLTRIM(STR(i))
		ENDFOR 	
		
		this.cb1.Value=ALLTRIM(STR(gnLuna))
		this.cb2.Value=ALLTRIM(STR(gnAn))
		this.cb1.SetFocus()
	ENDPROC

	PROCEDURE cb1.LostFocus
		IF !empty(this.value)
			lcLuna=ALLTRIM(this.Value)
			lcAn=ALLTRIM(this.Parent.cb2.Value)
			IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
				aMESSAGEBOX("Data invalida!",0+16,"Eroare")
				RETURN 0
			ENDIF
		ENDIF
	ENDPROC

	PROCEDURE cb2.LostFocus
		IF !empty(this.value)
			lcLuna=ALLTRIM(this.Parent.cb1.Value)
			lcAn=ALLTRIM(this.Value)
			IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
				aMESSAGEBOX("Data invalida!",0+16,"Eroare")
				RETURN 0
			ENDIF
		ENDIF
	ENDPROC

ENDDEFINE

DEFINE CLASS clb_luna_intre AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tx_n1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tx_n2" UniqueID="" Timestamp="" />

	*<PropValue>
		Height = 29
		Name = "clb_luna_intre"
		Width = 290
	*</PropValue>

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'tx_n1' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		InputMask = "99/9999", ;
		Left = 128, ;
		Name = "tx_n1", ;
		Top = 2, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'tx_n2' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		InputMask = "99/9999", ;
		Left = 208, ;
		Name = "tx_n2", ;
		Top = 2, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE tx_n1.Valid
		IF !empty(this.value)
			lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
			lcAn=SUBSTR(ALLTRIM(this.Value),3)
			IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
				aMESSAGEBOX("Data invalida!",0+16,"Eroare")
				RETURN 0
			ENDIF
			IF EMPTY(this.Parent.tx_n2.Value)
				this.Parent.tx_n2.Value=this.value
				this.Parent.tx_n2.Refresh
			ENDIF 	
		ENDIF
	ENDPROC

	PROCEDURE tx_n2.Valid
		IF !empty(this.value)
			lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
			lcAn=SUBSTR(ALLTRIM(this.Value),3)
			IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
				aMESSAGEBOX("Data invalida!",0+16,"Eroare")
				RETURN 0
			ENDIF
		ELSE
			IF !EMPTY(this.Parent.tx_n1.Value)
				this.Value=this.Parent.tx_n1.Value
				this.Refresh
			ENDIF
		ENDIF
	ENDPROC

ENDDEFINE

DEFINE CLASS clb_n1n2_simplu AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tx_n1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tx_n2" UniqueID="" Timestamp="" />

	*<PropValue>
		BackStyle = 0
		Height = 29
		Name = "clb_n1n2_simplu"
		Width = 290
	*</PropValue>

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'tx_n1' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		Left = 130, ;
		Name = "tx_n1", ;
		Top = 2, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'tx_n2' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		Left = 210, ;
		Name = "tx_n2", ;
		Top = 2, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE tx_n1.Valid
		this.Parent.tx_n2.value=this.value
		this.Parent.tx_n2.Refresh
	ENDPROC

	PROCEDURE tx_n2.Valid
		IF empty(this.value)
			IF !EMPTY(this.Parent.tx_n1.Value)
				this.Value=this.Parent.tx_n1.Value
				this.Refresh
			ENDIF
		ENDIF
	ENDPROC

ENDDEFINE

DEFINE CLASS clb_nr_intre AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tx_n1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tx_n2" UniqueID="" Timestamp="" />

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<PropValue>
		BorderWidth = 1
		Height = 29
		Name = "clb_nr_intre"
		Width = 290
	*</PropValue>

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'tx_n1' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		InputMask = "999 999 999", ;
		Left = 128, ;
		Name = "tx_n1", ;
		Top = 2, ;
		Value = 0, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

	ADD OBJECT 'tx_n2' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "RK", ;
		Height = 23, ;
		InputMask = "999 999 999", ;
		Left = 208, ;
		Name = "tx_n2", ;
		Top = 2, ;
		Value = 0, ;
		Width = 76
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE tx_n1.Valid
		IF EMPTY(this.Parent.tx_n2.value)
			this.Parent.tx_n2.value=this.value
		ENDIF 
		this.Parent.tx_n2.Refresh
	ENDPROC

	PROCEDURE tx_n2.Valid
		IF empty(this.value)
			IF !EMPTY(this.Parent.tx_n1.Value)
				this.Value=this.Parent.tx_n1.Value
				this.Refresh
			ENDIF
		ENDIF
	ENDPROC

ENDDEFINE

DEFINE CLASS clb_tx_data AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_buton1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: dezactiveaza
		*m: do_alege_data
		*m: reactiveaza
		*m: value_access
		*m: value_assign
		*p: opopup
		*p: pcobj
		*p: value		&& Specifies the current state of a control.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		Height = 29
		Name = "clb_tx_data"
		opopup = 
		pcobj = 
		value = 
		Width = 290
	*</PropValue>

	ADD OBJECT 'Cmd_buton1' AS cmd_buton WITH ;
		caction = do_alege_data, ;
		cpicturedown = calendar.png, ;
		cpictureup = calendar.png, ;
		Height = 25, ;
		Left = 256, ;
		Name = "Cmd_buton1", ;
		Picture = ..\grafice\calendar.png, ;
		PicturePosition = 14, ;
		TabStop = .F., ;
		Top = 2, ;
		Width = 31
		*< END OBJECT: ClassLib="_cmd_base.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'Text_simplu1' AS _txbase WITH ;
		Alignment = 3, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 168, ;
		Name = "Text_simplu1", ;
		Top = 3, ;
		Value = {}, ;
		Width = 84
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE dezactiveaza
		This.text_simplu1.ReadOnly = .T.
		This.text_simplu1.TabStop =.F.
		This.cmd_buton1.Enabled = .F.
	ENDPROC

	PROCEDURE do_alege_data
		This.oPopup = Createobject("_calpopup", This, Thisform)
		If !Isnull(This.oPopup)
			This.oPopup.ShowForm(Objtoclient(This.Text_simplu1, 2), Objtoclient(This.Text_simplu1,1) + This.Text_simplu1.Height - 1)
		Endif
	ENDPROC

	PROCEDURE reactiveaza
		This.text_simplu1.ReadOnly = .F.
		This.text_simplu1.TabStop =.T.
		This.cmd_buton1.Enabled = .T.
	ENDPROC

	PROCEDURE value_access
		RETURN This.text_simplu1.Value
	ENDPROC

	PROCEDURE value_assign
		LPARAMETERS tdDataNoua
		This.Text_simplu1.Value = m.tdDataNoua
	ENDPROC

ENDDEFINE

DEFINE CLASS clb_tx_simplu AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Text_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: pcobj
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		Height = 29
		Name = "clb_tx_simplu"
		pcobj = 
		Width = 290
	*</PropValue>

	ADD OBJECT 'Lb_simplu1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'Text_simplu1' AS _txbase WITH ;
		Format = "!K", ;
		Height = 23, ;
		Left = 101, ;
		Name = "Text_simplu1", ;
		Top = 3, ;
		Width = 184
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />

ENDDEFINE

DEFINE CLASS ct_cb_tx AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_cbbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_explicatie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text_simplu1" UniqueID="" Timestamp="" />

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<DefinedPropArrayMethod>
		*m: do_activeaza
		*m: do_actualizeaza_valori
		*m: do_apeleaza
		*m: do_dezactiveaza
		*m: do_schimba_explicatie
		*p: ccrs_col		&& Pentru RowSourceType = 6
		*p: ccrs_col_id		&& Coloana care contine id-ul ce va fi memorat in variabila de la cvar_id.
		*p: ccursor
		*p: clista_parametri
		*p: clista_valori		&& Pentru RowSourceType = 2
		*p: cprocedura		&& Procedura care se apeleaza pe InteractiveChange de la combo.
		*p: cvar_afisata		&& Control source-ul pentru textfield si combo.
		*p: cvar_id		&& Numele variabilei in care se va copia id-ul.
		*p: lactiv
		*p: ntip		&& 1 > Fields (ccursor) ; 2 > Value (clista_valori)
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		ccrs_col = 
		ccrs_col_id = 
		ccursor = 
		clista_parametri = 
		clista_valori = 
		cprocedura = 
		cvar_afisata = 
		cvar_id = 
		Height = 29
		lactiv = .T.
		Name = "ct_cb_tx"
		ntip = 1
		Width = 290
		_memberdata = <VFPData>
			<memberdata name="_memberdata" display="_MemberData"/>
			<memberdata name="ccursor_alegere" type="Property" favorites="True"/>
			<memberdata name="clista_parametri" type="Property" favorites="True"/>
			<memberdata name="cprocedura" type="Property" favorites="True"/>
			<memberdata name="cvar_afisata" type="Property" favorites="True"/>
			<memberdata name="ccrs_col" type="Property" favorites="True"/>
			<memberdata name="ccrs_col_id" type="Property" favorites="True"/>
			<memberdata name="cvar_id" type="Property" favorites="True"/>
			<memberdata name="clista_valori" type="Property" favorites="True"/>
			<memberdata name="ccursor" type="Property" favorites="True"/>
			<memberdata name="ntip" type="Property" favorites="True"/>
		</VFPData>
	*</PropValue>

	ADD OBJECT '_cbbase1' AS _cbbase WITH ;
		Anchor = 10, ;
		Height = 23, ;
		Left = 101, ;
		Name = "_cbbase1", ;
		Top = 3, ;
		Visible = .F., ;
		Width = 184
		*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />

	ADD OBJECT 'lb_explicatie' AS _lbbase WITH ;
		Left = 8, ;
		Name = "lb_explicatie", ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'Text_simplu1' AS _txbase WITH ;
		Anchor = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 101, ;
		Name = "Text_simplu1", ;
		ReadOnly = .T., ;
		Top = 3, ;
		Width = 184
		*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
	
	PROCEDURE do_activeaza
		This.lactiv = .T.
		This.teXT_SIMPLU1.Visible = .F.
		This._cbBASE1.Visible = .T.
	ENDPROC

	PROCEDURE do_actualizeaza_valori
		If This.ntip = 1
			Select (This.ccursor)
			If !Empty(This.ccrs_col) And !Empty(This.cvar_afisata)
				lcValoare = This.cvar_afisata + [ = ] + This.ccrs_col
				&lcValoare
			Endif
			If !Empty(This.ccrs_col_id) And !Empty(This.cvar_id)
				lcValoare = This.cvar_id + [ = ] + This.ccrs_col_id
				&lcValoare
			Endif
		Endif
		This.do_apeleaza()
	ENDPROC

	PROCEDURE do_apeleaza
		Local lcListaParametri, lcApelProcedura
		lcListaParametri = Iif(Type('This.clista_parametri')='N',Alltrim(Str(This.clista_parametri)),Alltrim(This.clista_parametri))
		lcApelProcedura = This.cprocedura + Iif(!Empty(lcListaParametri),[(]+lcListaParametri+[)],[])
		If !Empty(lcApelProcedura)
			&lcApelProcedura
		Endif
	ENDPROC

	PROCEDURE do_dezactiveaza
		This.lactiv = .F.
		This.teXT_SIMPLU1.Visible = .T.
		This._cbBASE1.Visible = .F.
	ENDPROC

	PROCEDURE do_schimba_explicatie
		Lparameters tcExplicatie
		This.lb_explicatie.Caption = Alltrim(tcExplicatie)
	ENDPROC

	PROCEDURE Init
		Lparameters tnMarime
		Local lnMarime
		*!*		-1	-	dimensiunile setate de utilizator
		*!*		0	-
		*!*		1	-
		If Empty(tnMarime)
			lnMarime = -1
		Else
			lnMarime = tnMarime
		Endif
		Do Case
			Case lnMarime = 0
				This.Width = 324
				This.Refresh()
			Case lnMarime = 1
				This.Width = 354
				This.Refresh()
		Endcase
		Do Case
			Case This.ntip = 1
				This._CBBASE1.RowSource = This.ccursor + [.] + This.ccrs_col + [,] + This.ccrs_col_id
				This._CBBASE1.RowSourceType = 6
				This._CBBASE1.ControlSource = This.cvar_afisata
				This.texT_SIMPLU1.ControlSource = This.cvar_afisata
			Case This.ntip = 2
				This._CBBASE1.RowSource = This.clista_valori
				This._CBBASE1.RowSourceType = 1
				This._CBBASE1.BoundColumn = 2
				This._CBBASE1.BoundTo = .T.
				This._CBBASE1.ColumnCount = 2
				This._CBBASE1.ColumnLines = .F.
				This._CBBASE1.ColumnWidths = ALLTRIM(STR(MAX(20,This._CBBASE1.Width)))+[,0]
				This._CBBASE1.ControlSource = This.cvar_afisata
				This.texT_SIMPLU1.ControlSource = [This.Parent._CBBASE1.DisplayValue]
		ENDCASE
		
	ENDPROC

	PROCEDURE Refresh
		This.texT_SIMPLU1.Refresh()
		This._cBBASE1.Refresh()
		DoDefault()
		
	ENDPROC

	PROCEDURE _cbbase1.InteractiveChange
		This.Parent.do_actualizeaza_valori()
	ENDPROC

ENDDEFINE

DEFINE CLASS ed_tx_simplu AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_edbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" />

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<PropValue>
		BackStyle = 0
		BorderWidth = 1
		Height = 58
		Name = "ed_tx_simplu"
		Width = 314
	*</PropValue>

	ADD OBJECT '_edbase1' AS _edbase WITH ;
		Left = 68, ;
		Name = "_edbase1", ;
		TabIndex = 1, ;
		Top = 2
		*< END OBJECT: ClassLib="_ed_base.vcx" BaseClass="editbox" />

	ADD OBJECT '_lbbase1' AS _lbbase WITH ;
		Left = 8, ;
		Name = "_lbbase1", ;
		TabIndex = 2, ;
		Top = 6
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
	
	PROCEDURE _edbase1.InteractiveChange
		Local lnSelStart
		If '!' $ This.Format
			lnSelStart = This.SelStart
			This.Value = Upper(This.Value)
			This.SelStart = lnSelStart
		Endif
	ENDPROC

ENDDEFINE

DEFINE CLASS op_tx_simplu AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />

	*<PropValue>
		Height = 51
		Name = "op_tx_simplu"
		Width = 207
	*</PropValue>

	ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
		Left = 132, ;
		Name = "_optiongrup1", ;
		Top = 4, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 16
		*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />

ENDDEFINE
