romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
8df728cf8b7fdb2e06dff0dff7615091cd3f35fd
comun/clase/lb_tx.vc2

838 lines
23 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
Reference in New Issue View Git Blame Copy Permalink