Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
--- a/clase/lb_tx.vc2
+++ b/clase/lb_tx.vc2
@@ -0,0 +1,837 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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