romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
75d8ded892af4fe9605d620a242e6b5f9b1ecde9
comun/clase/cauta_alfa_forms.vc2

1887 lines
56 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="cauta_alfa_forms.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cauta_alfa_form AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmd_select" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_activeaza_selectare
*m: do_alege
*m: do_schimba_explicatia
*p: cales
*p: cfiltru_original
*p: cidcolumn
*p: cnume_proc
*p: cpornire
*p: cproceduracopiaza
*p: cproceduraverifica
*p: crs_cursor
*p: crs_cursort
*p: lales
*p: ll_allinlist
*p: primacoloana
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
cales =
cfiltru_original = 2=2
cgridsortlist = _grid1
cidcolumn =
cnume_proc =
cpornire = 0
cproceduracopiaza =
cproceduraverifica =
crs_cursor =
crs_cursort =
Desktop = .F.
DoCreate = .T.
Height = 331
lales = .F.
Name = "cauta_alfa_form"
primacoloana =
Width = 507
WindowType = 1
_memberdata = <VFPData>
<memberdata name="cproceduracopiaza" display="cProceduraCopiaza"/>
<memberdata name="cproceduraverifica" display="cProceduraVerifica"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 508
_shape2.Height = 29
_shape2.Left = 371
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
Lb_titlu_alb_b121.FontName = "Arial Narrow"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 476
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
Anchor = 15, ;
ColumnCount = 4, ;
DeleteMark = .F., ;
FontName = "Segoe UI", ;
FontSize = 10, ;
Height = 217, ;
Left = 5, ;
Name = "_GRID1", ;
Panel = 1, ;
ReadOnly = .F., ;
RecordMark = .T., ;
RecordSource = "cursor_curent", ;
RowHeight = 20, ;
TabIndex = 3, ;
Top = 76, ;
Width = 499, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "", ;
Column1.FontName = "Segoe UI", ;
Column1.FontSize = 10, ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .F., ;
Column1.Width = 300, ;
Column2.BackColor = 255,255,255, ;
Column2.FontName = "Segoe UI", ;
Column2.FontSize = 10, ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .F., ;
Column2.Width = 100, ;
Column3.BackColor = 255,255,255, ;
Column3.FontName = "Segoe UI", ;
Column3.FontSize = 10, ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .F., ;
Column4.BackColor = 255,255,255, ;
Column4.FontName = "Segoe UI", ;
Column4.FontSize = 10, ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .F.
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
FontName = "Segoe UI", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Segoe UI", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
FontName = "Segoe UI", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Segoe UI", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
FontName = "Segoe UI", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Segoe UI", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
FontName = "Segoe UI", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Segoe UI", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
Anchor = 8, ;
Left = 385, ;
Name = "But_copiaza1", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 8, ;
Left = 355, ;
Name = "But_nou1", ;
TabIndex = 8, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 8, ;
Left = 446, ;
Name = "But_renunt1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Anchor = 8, ;
Left = 415, ;
Name = "But_verifica1", ;
TabIndex = 14, ;
ToolTipText = "Validare cod", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ;
Anchor = 10, ;
Height = 27, ;
Left = 25, ;
Name = "Cb_tx_cautare1", ;
TabIndex = 1, ;
Top = 45, ;
Width = 383, ;
Text.Format = "!", ;
Text.Height = 25, ;
Text.Left = 103, ;
Text.Name = "Text", ;
Text.TabIndex = 2, ;
Text.Top = 1, ;
Text.Width = 275, ;
Criteriu.Name = "Criteriu", ;
Criteriu.TabIndex = 1
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 8, ;
Left = 419, ;
Name = "Cmd_cauta1", ;
TabIndex = 2, ;
Top = 45
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmd_select' AS _commandbutton WITH ;
Anchor = 6, ;
Caption = "\<Selecteaz<61> tot", ;
FontBold = .T., ;
Height = 27, ;
Left = 8, ;
Name = "cmd_select", ;
TabIndex = 6, ;
Top = 300, ;
Visible = .F., ;
Width = 133
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcToolTip
LOCAL lcFiltru, lcCamp
LOCAL lcCursor, lcCursort
lcCursor = this.crs_cursor
lcCursort = this.crs_cursort
goLog.Log('1',program())
lcCamp = ' '
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=deca_baza1.ca_baza1.cfiltru
ENDIF
lcListaId = ""
IF this.lAles
lcIdColumn = this.cIdcolumn
SELECT &lcIdColumn FROM (lcCursor) WITH (BUFFERING = .T.) WHERE SUBSTR(this.cAles,RECNO(),1) = 'X' INTO CURSOR crsListaId
lcListaId = cursor2lista("crsListaId",lcIdColumn,",")
USE IN crsListaId
IF !EMPTY(lcListaId)
lcFiltru = "((" + lcFiltru + ") OR (" + lcIdColumn + " IN (" + lcListaId + ")))"
ENDIF
ENDIF
lcToolTip = this._grid1.ToolTipText
goLog.Log('2',program())
save_grid(This._grid1)
goLog.Log('3',program())
deca_baza1.ca_baza1.cfiltru=lcfiltru
goLog.Log('4',program())
deca_baza1.ca_baza1.afisare()
goLog.Log('5',program())
IF this.lAles
IF !EMPTY(lcListaId)
this.cAles = ""
SELECT (lcCursor)
SCAN
lcValue = TRANSFORM(&lcIdColumn)
IF lcValue$lcListaId
this.cAles = this.cAles + "X"
ELSE
this.cAles = this.cAles + " "
ENDIF
ENDSCAN
GO TOP
ELSE
this.cAles = REPLICATE(" ",Reccount(lcCursor))
ENDIF
ENDIF
IF (this.ll_allinlist)
*SELECT * from cursor_temp INTO CURSOR cursor_curent WHERE .F. readwrite
SELECT * FROM &lccursort INTO CURSOR &lccursor WHERE .F. READWRITE
*SELECT cursor_curent
SELECT (lccursor)
IF OCCURS([,],tccoloana) > 0
lcField = LEFT(tccoloana,AT([,],tccoloana)-1)
lcCamp = lccursort + '.' + lcfield
*IF TYPE('cursor_temp.&lcField')# 'C'
IF TYPE(lcCamp) # 'C'
lcfield = FIELD(1)
ENDIF
ELSE
lcField = tccoloana
lcCamp = lccursort + '.' + lcfield
ENDIF
*IF TYPE('cursor_temp.&lcField')= 'C'
IF TYPE(lcCamp) = 'C'
INSERT INTO (lcCursor) (&lcfield) values("<TOATE INREGISTRARILE>")
ENDIF
*SELECT cursor_curent
SELECT (lccursor)
*APPEND FROM DBF("cursor_temp")
APPEND FROM DBF(lccursort)
*USE IN cursor_temp
USE IN (lccursort)
ENDIF
goLog.Log('6',program())
restore_grid(This._grid1)
this._grid1.ToolTipText = lcToolTip
*!* modificare 16.08.2010 - M.A.
If Thisform.lAles
Thisform.do_schimba_explicatia()
Endif
*!* modificare 16.08.2010 - M.A. ^
goLog.Log('7',program())
ENDPROC
PROCEDURE Destroy
*!* modificare 16.08.2010 - M.A.
Unbindevents(Thisform,"lAles",Thisform,"do_activeaza_selectare")
If Thisform.lAles
Unbindevents(Thisform,"cales",Thisform,"do_schimba_explicatia")
Endif
*!* modificare 16.08.2010 - M.A. ^
ENDPROC
PROCEDURE do_activeaza_selectare
*!* modificare 16.08.2010 - M.A.
If Thisform.lAles
Thisform.cmd_select.Visible = .T.
Bindevent(Thisform,"cales",Thisform,"do_schimba_explicatia",1)
Endif
*!* modificare 16.08.2010 - M.A. ^
ENDPROC
PROCEDURE do_adauga
If Thisform.but_nou1.Visible
Select (This._GRID1.RecordSource)
Scatter Name poRec Blank
lcname = Thisform.cnume_proc
* Do &lcname In onomenclatoare.prg
IF !EMPTY(lcName)
lcRun = [do ] + lcName + [ in onomenclatoare.prg]
&lcRun
ENDIF
Thisform.do_cauta
Endif
ENDPROC
PROCEDURE do_alege
If Thisform.lAles
lcCursor = Thisform._GRID1.RecordSource
lnRecno = Recno(lcCursor)
If Substr(Thisform.cAles, lnRecno,1) = ' '
lcReplacement = 'X'
Else
lcReplacement = ' '
Endif
Thisform.cAles = Left(Thisform.cAles,lnRecno - 1) + lcReplacement + Substr(Thisform.cAles, lnRecno + 1)
pcAles = Thisform.cAles
Thisform._GRID1.Refresh()
Endif
ENDPROC
PROCEDURE do_cauta
*!* 19.11.2011
*!* marius.mutu
*!* lcvar = field(1) in loc de thisform.primacoloana
goLog.Log('1',Program())
Private lcfiltru,lcval1
lcfiltru=''
Local lcCursor, lcCursort
lcCursor = This.crs_cursor
lcCursort = This.crs_cursort
&& pot sa fac cautarea dupa mai multe coloane (ex: nr contract, denumire client)
lnCount = GETWORDCOUNT(Alltrim(This.primacoloana), [,])
FOR lnColoana = 1 TO m.lnCount
lcColoana = GETWORDNUM(Alltrim(This.primacoloana), m.lnColoana, [,])
With Thisform.cb_tx_cautare1
lcval1=Strtran(Alltrim(Upper(.Text.Value)),['],[''])
Do Case
Case .criteriu.Value = "1" And !Empty(.Text.Value)
lcfiltru = m.lcFiltru + [ OR ] + Alltrim(Upper(lcColoana)) + [ LIKE '] + lcval1 + [%']
Case .criteriu.Value = "2" And !Empty(.Text.Value)
lcfiltru = m.lcFiltru + [ OR ] + Alltrim(Upper(lcColoana)) + [ ='] + lcval1 + [']
Case .criteriu.Value = "3" And !Empty(.Text.Value)
lcfiltru = m.lcFiltru + [ OR ] + Alltrim(Upper(lcColoana)) + [ !='] + lcval1 + [']
Case .criteriu.Value = "4" And !Empty(.Text.Value)
lcfiltru = m.lcFiltru + [ OR ] + Alltrim(Upper(lcColoana)) + [ LIKE '%] + lcval1 + [%']
Case .criteriu.Value = "5" And !Empty(.Text.Value)
lcfiltru = m.lcFiltru + [ OR ] + Alltrim(Upper(lcColoana)) + [ NOT LIKE '%] + lcval1 + [%']
Case .criteriu.Value = "6"
lcfiltru = [2=2]
Endcase
Endwith
ENDFOR
lcFiltru = ALLTRIM(m.lcfiltru)
IF LEFT(m.lcfiltru, 3) = [OR ]
lcFiltru = SUBSTR(m.lcfiltru, 4)
ENDIF
If Alltrim(lcval1) = [%]
lcfiltru = [2=2]
Endif
If Empty(lcfiltru)
aMessagebox("Alegeti un criteriu!",0+48,"Atentie")
Thisform.cb_tx_cautare1.criteriu.SetFocus()
Return
Endif
lcfiltru = This.cfiltru_original + [ and ] + [(] + m.lcFiltru + [)]
goLog.Log('2',Program())
Thisform.actualizeaza_grid1(lcfiltru)
goLog.Log('3',Program())
Select (lcCursor)
*Select cursor_curent
Go Top
*If (Reccount('cursor_curent')=0)
If (Reccount(lcCursor)=0)
aMessagebox("Nu exista rezultate!",0+48,"Atentie")
Thisform.cb_tx_cautare1.criteriu.SetFocus()
Else
Go Top
*!* 19.12.2011
*!* lcvar = ALLTRIM(IIF(AT('.',lcColoana)=0,lcColoana, SUBSTR(lcColoana,AT('.',lcColoana)+1)))
lcVar = Field(1)
*!* 19.12.2011 ^
lcFirstInList = &lcVar
If Type([lcFirstInList]) = 'C' And (Reccount(lcCursor)>1 And Alltrim(lcFirstInList)=='<TOATE INREGISTRARILE>')
*IF (Reccount('cursor_curent')>1 AND ALLTRIM(lcFirstInList)=='<TOATE INREGISTRARILE>')
Goto 2
ENDIF
* 06.06.2022
thisform._griD1.AutoFit()
FOR lnColumn = 1 TO this._GRID1.ColumnCount
lcColumn = 'this._gRID1.column' + ALLTRIM(STR(m.lnColumn))
loColumn = EVALUATE(m.lcColumn)
lnColumnw = loColumn.Width
lnMinW = IIF(m.lnColumn = 1, 300, IIF(m.lnColumn = 2, 100, 75))
loColumn.Width = MAX(m.lnColumnw, m.lnMinW)
ENDFOR
* 06.06.2022 ^
Thisform._GRID1.SetFocus()
Endif
goLog.Log('4',Program())
ENDPROC
PROCEDURE do_copiaza
Local lcName, lcRun, loRec
If Thisform.but_copiaza1.Visible
Select (This._GRID1.RecordSource)
Scatter Name loRec
lcName = Thisform.cProceduraCopiaza
If !Empty(m.lcName)
lcRun = [do ] + lcName + [ with m.loRec in onomenclatoare.prg]
&lcRun
Endif
Endif
ENDPROC
PROCEDURE do_schimba_explicatia
*!* modificare 16.08.2010 - M.A.
Local lcCursor
lcCursor = Thisform._GRID1.RecordSource
If Used(lcCursor)
If Between(Occurs('X',Thisform.cAles),0,Reccount(lcCursor)-1) OR RECCOUNT(lcCursor) = 0
Thisform.cmd_select.Caption = "\<Selecteaz<61> tot"
Else
Thisform.cmd_select.Caption = "De\<selecteaz<61> tot"
Endif
Endif
Release lcCursor
*!* modificare 16.08.2010 - M.A. ^
ENDPROC
PROCEDURE do_selectall
*!* modificare 16.08.2010 - M.A.
Local lcCursor,lcCaracter
lcCursor = Thisform._GRID1.RecordSource
If Occurs('X',Thisform.cAles) < Reccount(lcCursor)
lcCaracter = 'X'
Else
lcCaracter = ' '
Endif
Thisform.cAles = Replicate(lcCaracter,Reccount(lcCursor))
pcAles = Thisform.cAles
Thisform._GRID1.Refresh()
RELEASE lcCursor,lcCaracter
*!* modificare 16.08.2010 - M.A. ^
ENDPROC
PROCEDURE do_verifica
Local lcName, lcRun, loRec
If Thisform.but_verifica1.Visible
Select (This._GRID1.RecordSource)
Scatter Name loRec
lcName = Thisform.cProceduraVerifica
If !Empty(m.lcName)
lcRun = [do ] + lcName + [ with m.loRec in onomenclatoare.prg]
&lcRun
Endif
Endif
ENDPROC
PROCEDURE Init
Lparameters tcCursor, tcNume_Proc, tcTitluColoana, tccoloana, tl_AllInList, ;
tcPrimaColoana, tnPornire, tcGridDynamicBackColor, tcGridToolTip, ;
tcProceduraVerifica, tcProceduraCopiaza
*!* modificare 16.08.2010 - M.A.
BINDEVENT(Thisform,"lAles",Thisform,"do_activeaza_selectare",1)
*!* modificare 16.08.2010 - M.A. ^
This._GRID1.RecordSource = tcCursor
This.cnume_proc = tcNume_Proc
This.ll_allinlist = tl_AllInList
If Empty(tcNume_Proc)
Thisform.But_nou1.Enabled=.F.
Thisform.But_nou1.Visible=.F.
Endif
If Empty(tcProceduraCopiaza)
Thisform.but_copiaza1.Enabled=.F.
Thisform.but_copiaza1.Visible=.F.
this.but_nou1.Left = this.but_copiaza1.Left
ENDIF
If Empty(tcProceduraVerifica)
Thisform.but_verifica1.Enabled=.F.
Thisform.but_verifica1.Visible=.F.
this.but_nou1.Left = this.but_verifica1.Left
ENDIF
**miscarefereastra:
DoDefault()
lnNrCols = Occurs(",",tcTitluColoana) + 1
**ajustare width coloana grid:
This.cnume_proc = tcNume_Proc
this.cProceduraCopiaza = m.tcProceduraCopiaza
this.cProceduraVerifica = m.tcProceduraVerifica
This._GRID1.ColumnCount = lnNrCols
* ajustez latimea coloanelor in do_cauta
*!* If lnNrCols > 1
*!* This._GRID1.coLUMN1.Width = This._GRID1.coLUMN1.Width - (This._GRID1.coLUMN1.Width/2)
*!* Endif
tcTitluColoana = "," + tcTitluColoana + ","
For i=1 To lnNrCols
lcheader = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.hEADER1.Caption = PROPER(LEFT( SUBSTR(tcTitluColoana,AT(",",tcTitluColoana,i)+1),AT(",",tcTitluColoana,i+1)-AT(",",tcTitluColoana,i)-1))]
&lcheader
Endfor
tccoloana = "," + tccoloana + ","
For i=1 To lnNrCols
lcControlSource = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.ControlSource = PROPER(LEFT( SUBSTR(tcColoana,AT(",",tcColoana,i)+1),AT(",",tcColoana,i+1)-AT(",",tcColoana,i)-1))]
&lcControlSource
Endfor
&& dupa care se face filtru:
If Empty(tcPrimaColoana)
This.primacoloana = Proper(Left( Substr(tccoloana,At(",",tccoloana,1)+1),At(",",tccoloana,1+1)-At(",",tccoloana,1)-1))
Else
This.primacoloana = tcPrimaColoana
Endif
If !Empty(tnPornire)
This.cPornire = Alltrim(Str(tnPornire))
Else
This.cPornire = "1"
Endif
*!* modificare 06.12.2006
Thisform.cb_tx_cautare1.do_initializeaza_ct(Thisform.cPornire)
*!* modificare 06.12.2006 ^
&& setez DynamicBackColor
If Type('tcGridDynamicBackColor') = 'C' And !Empty(tcGridDynamicBackColor)
This._GRID1.SetAll("DynamicBackColor", tcGridDynamicBackColor, "Column")
Endif
If Type('tcGridToolTip') = 'C' And !Empty(tcGridToolTip)
This._GRID1.ToolTipText = tcGridToolTip
Endif
*!* adaugat 08.05.2009
*!* alex.lepadatu
Local loGrid, loColumnTexti
loGrid = Thisform._GRID1
For i = 1 To loGrid.ColumnCount
loColumnTexti= loGrid.Columns(i).text1
If !Thisform.lales
Bindevent(loColumnTexti,"dblClick",This,"do_termin")
Endif
Endfor
*!* 08.05.2009
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
lcControl = UPPER(ALLTRIM(THIS.ACTIVECONTROL.NAME))
LOCAL lcCursor, lcCursort
lcCursor = THIS.crs_cursor
lcCursort = THIS.crs_cursort
**verificare:
**MESSAGEBOX("control:"+lcControl+" "+STR(nKeyCode))
DO CASE
CASE nKeyCode = 32 AND lcControl = '_GRID1' && space
thisform.do_alege()
CASE nKeyCode = 13 AND lcControl = '_GRID1' && enter
NODEFAULT
THIS.buT_TERMIN1.SETFOCUS
*!* DACA APAS SAGEATA JOS SAU SUS SA SE DESCHIDA LISTA
*!* CASE INLIST(nKeyCode,5, 24) AND lcControl = 'CRITERIU'&& UPARROW, DNARROW
*!* KEYBOARD '{ALT+DNARROW}'
CASE nKeyCode = 13 AND lcControl = 'TEXT' && enter
NODEFAULT
*If Reccount('cursor_curent')==0 Or This.cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(This.cb_tx_cautare1.Text.Value)
*!* If Reccount(lcCursor)==0 Or This.cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(This.cb_tx_cautare1.Text.Value)
IF RECCOUNT(lcCursor)<> 0 OR THIS.cb_tx_cautare1.TEXT.READONLY OR !EMPTY(THIS.cb_tx_cautare1.TEXT.VALUE)
&& daca exista inregistrari sau vreau toate inregistrarile sau este completat textul de cautare
THIS.do_cauta()
THIS._GRID1.SETFOCUS
ELSE
&& sare pe terminat daca dau enter in textbox si nu am scris nimic
NODEFAULT
THIS.buT_TERMIN1.SETFOCUS
ENDIF
CASE nKeyCode = 9 AND lcControl = 'TEXT' && tab
NODEFAULT
THIS._GRID1.SETFOCUS
CASE (nKeyCode >=33 AND nKeyCode <=122) AND (lcControl <> 'TEXT')
NODEFAULT
THIS.cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
THIS.cb_tx_cautare1.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode = 127) AND (lcControl <> 'TEXT') && backspace
NODEFAULT
THIS.cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE))-1)
THIS.cb_tx_cautare1.SETFOCUS
KEYBOARD '{END}'
OTHERWISE
DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE
ENDPROC
PROCEDURE Unload
RETURN this.cAles
ENDPROC
PROCEDURE Cb_tx_cautare1.Criteriu.Init
ENDPROC
PROCEDURE cmd_select.Click
Thisform.do_selectall()
ENDPROC
PROCEDURE _GRID1.Column1.Text1.Click
Thisform.do_alege()
ENDPROC
PROCEDURE _GRID1.Init
DoDefault()
This.SetAll("dynamicbackcolor","iif(SUBSTR(thisform.cAles,RECNO(),1)='X',RGB(106,181,255), RGB(255,255,255))","Column")
ENDPROC
ENDDEFINE
DEFINE CLASS cauta_alfa_form_desktop AS cauta_alfa_form OF "cauta_alfa_forms.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Desktop = .T.
DoCreate = .T.
Name = "cauta_alfa_form_desktop"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
_GRID1.COLUMN1.Header1.Name = "Header1"
_GRID1.COLUMN1.Name = "COLUMN1"
_GRID1.COLUMN1.Text1.Name = "Text1"
_GRID1.COLUMN2.Header1.Name = "Header1"
_GRID1.COLUMN2.Name = "COLUMN2"
_GRID1.COLUMN2.Text1.Name = "Text1"
_GRID1.COLUMN3.Header1.Name = "Header1"
_GRID1.COLUMN3.Name = "COLUMN3"
_GRID1.COLUMN3.Text1.Name = "Text1"
_GRID1.COLUMN4.Header1.Name = "Header1"
_GRID1.COLUMN4.Name = "COLUMN4"
_GRID1.COLUMN4.Text1.Name = "Text1"
_GRID1.Name = "_GRID1"
But_renunt1.Name = "But_renunt1"
_commandbutton2.Name = "_commandbutton2"
Cmd_cauta1.Name = "Cmd_cauta1"
Cb_tx_cautare1.Criteriu.Name = "Criteriu"
Cb_tx_cautare1.Name = "Cb_tx_cautare1"
Cb_tx_cautare1.Text.Name = "Text"
But_nou1.Name = "But_nou1"
*</PropValue>
ENDDEFINE
DEFINE CLASS cauta_alfa_form_gs AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Ct_grid_search1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_commandbutton2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cales
*p: cfiltru_original
*p: cidcolumn
*p: cnume_proc
*p: cpornire
*p: crs_cursor
*p: crs_cursort
*p: lales
*p: ll_allinlist
*p: primacoloana
*</DefinedPropArrayMethod>
*<PropValue>
cales =
cfiltru_original = 2=2
cgridsortlist = ct_grid_search1._grid1
cidcolumn =
cnume_proc =
cpornire = 0
crs_cursor =
crs_cursort =
Desktop = .F.
DoCreate = .T.
Height = 493
lales = .F.
Name = "cauta_alfa_form_gs"
primacoloana =
Width = 348
WindowType = 1
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 348
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 285
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.FontName = "Arial Narrow"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Left = 318
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_commandbutton2' AS _commandbutton WITH ;
Caption = "\<Nou", ;
Comment = "*:OnResize=LT", ;
Left = 132, ;
Name = "_commandbutton2", ;
TabIndex = 6, ;
Top = 456, ;
Visible = .F., ;
ZOrderSet = 7
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 300, ;
Name = "But_nou1", ;
Top = 456, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 287, ;
Name = "But_renunt1", ;
TabIndex = 5, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_grid_search1' AS ct_grid_search WITH ;
Left = 11, ;
Name = "Ct_grid_search1", ;
Top = 36, ;
ZOrderSet = 0, ;
_GRID1.Name = "_GRID1", ;
Titlu.Name = "Titlu", ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.Text.Name = "Text"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
PROCEDURE do_adauga
If Thisform.but_nou1.Visible
Select (Thisform.ct_grid_search1.cnumecursor)
Scatter Name poRec Blank
lcname = Thisform.cnume_proc
Do &lcname In onomenclatoare.prg
Thisform.do_cauta
Endif
ENDPROC
PROCEDURE Init
Lparameters tcCursor, tcNume_Proc, tcTitlu , tcTitluColoane, tcNumeColoane, tcSelect, tcSchema, tcFiltru, tcFiltruOriginal, tcOrder, tl_AllInList, tnPornire, toValoarePropusa
Thisform.lb_titlu_alb_b121.Caption=tcTitlu
Thisform.cnume_proc = tcNume_Proc
Thisform.ll_allinlist = tl_AllInList
If Empty(tcNume_Proc)
Thisform.But_nou1.Enabled=.F.
Thisform.But_nou1.Visible=.F.
Endif
**miscarefereastra:
DoDefault()
lnNrCols = Occurs(",",tcTitluColoana) + 1
This.cnume_proc = tcNume_Proc
If !Empty(tnPornire)
This.cPornire = Alltrim(Str(tnPornire))
Else
This.cPornire = "1"
Endif
With Thisform.ct_grid_search1
.cnumecursor = tcCursor
.cSelect = tcSelect
.cSchema = tcSchema
.cFiltru = tcFiltru
.cFiltruOriginal = tcFiltruOriginal
.cTitlu = tcTitlu
.corder = tcOrder
.cnume_coloane = tcNumeColoane
.ctitlu_coloane = tcTitluColoane
Endwith
Thisform.ct_grid_search1.initializare(.T.)
Thisform.ct_grid_search1.Cb_tx_cautare1.criteriu.Init
If !Empty(toValoarePropusa)
Thisform.ct_grid_search1.cb_tx_cautare1.Text.Value = toValoarePropusa
Endif
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
lcControl = Upper(Alltrim(This.ActiveControl.Name))
lcCursor = This.ct_grid_search1._GRID1.RecordSource
Do Case
Case nKeyCode = 13 And lcControl = '_GRID1' && enter
Nodefault
This.buT_TERMIN1.SetFocus()
Case nKeyCode = 13 And lcControl = 'TEXT' && enter
Nodefault
With This.ct_grid_search1
If Reccount(lcCursor)==0 Or .cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(.cb_tx_cautare1.Text.Value)
.do_cauta()
Endif
._GRID1.SetFocus()
Endwith
Case nKeyCode = 9 And lcControl = 'TEXT' && tab
Nodefault
This.ct_grid_search1._GRID1.SetFocus()
Case (nKeyCode >=33 And nKeyCode <=122) And (lcControl <> 'TEXT')
Nodefault
With This.ct_grid_search1.cb_tx_cautare1
.Text.Value = Alltrim(.Text.Value) + Chr(nKeyCode)
.SetFocus()
Endwith
Keyboard '{END}'
Case (nKeyCode = 127) And (lcControl <> 'TEXT') && backspace
Nodefault
With This.ct_grid_search1.cb_tx_cautare1
.Text.Value = Left(Alltrim(.Text.Value),Len(Alltrim(.Text.Value))-1)
.SetFocus()
Endwith
Keyboard '{END}'
Otherwise
DoDefault(nKeyCode, nShiftAltCtrl)
Endcase
ENDPROC
PROCEDURE Unload
RETURN this.cAles
ENDPROC
PROCEDURE _commandbutton2.Click
lcname = thisform.cnume_proc
DO &lcname IN onomenclatoare.prg
thisform.do_cauta
ENDPROC
ENDDEFINE
DEFINE CLASS cauta_alfa_form_plus AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbSelecteaza" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege
*p: cales
*p: cfiltru_original
*p: cidcolumn
*p: cnume_proc
*p: cpornire
*p: cproceduracopiaza
*p: cproceduraverifica
*p: crs_cursor
*p: crs_cursort
*p: cstringcriterii && string criterii pentru butonul de cautare
*p: lales
*p: ll_allinlist
*p: primacoloana
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
cales =
cfiltru_original = 2=2
cgridsortlist = _grid1
cidcolumn =
cnume_proc =
cpornire = 0
cproceduracopiaza =
cproceduraverifica =
crs_cursor =
crs_cursort =
cstringcriterii =
Desktop = .F.
DoCreate = .T.
Height = 331
lales = .F.
Name = "cauta_alfa_form_plus"
primacoloana =
Width = 707
WindowType = 1
_memberdata = <VFPData>
<memberdata name="cstringcriterii" type="property" display="cStringCriterii"/>
<memberdata name="cproceduracopiaza" display="cProceduraCopiaza"/>
<memberdata name="cproceduraverifica" display="cProceduraVerifica"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 708
_shape2.Height = 29
_shape2.Left = 660
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
Lb_titlu_alb_b121.FontName = "Arial Narrow"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 676
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 0
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
Anchor = 15, ;
ColumnCount = -1, ;
DeleteMark = .F., ;
Height = 273, ;
Left = 5, ;
Name = "_GRID1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .T., ;
RecordSource = "cursor_curent", ;
TabIndex = 3, ;
Top = 51, ;
Width = 691
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
Anchor = 8, ;
Left = 552, ;
Name = "But_copiaza1", ;
Top = 0
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 8, ;
Left = 520, ;
Name = "But_nou1", ;
Top = 0
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 646, ;
Name = "But_renunt1", ;
TabIndex = 5, ;
Top = 0
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Comment = "*:OnResize=RT", ;
Left = 614, ;
Name = "But_start_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Anchor = 8, ;
Left = 582, ;
Name = "But_verifica1", ;
TabIndex = 14, ;
ToolTipText = "Validare cod", ;
Top = 0
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lbSelecteaza' AS _lbbase WITH ;
AutoSize = .T., ;
Caption = "Selecteaza tot", ;
FontBold = .T., ;
FontUnderline = .T., ;
ForeColor = 0,64,128, ;
Left = 7, ;
Name = "lbSelecteaza", ;
Top = 33
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcToolTip
LOCAL lcFiltru, lcCamp
LOCAL lcCursor, lcCursort
lcCursor = this.crs_cursor
lcCursort = this.crs_cursort
lcCamp = ' '
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=deca_baza1.ca_baza1.cfiltru
ENDIF
lcListaId = ""
IF this.lAles
lcIdColumn = this.cIdcolumn
SELECT &lcIdColumn FROM (lcCursor) WITH (BUFFERING = .T.) WHERE SUBSTR(this.cAles,RECNO(),1) = 'X' INTO CURSOR crsListaId
lcListaId = cursor2lista("crsListaId",lcIdColumn,",")
USE IN crsListaId
IF !EMPTY(lcListaId)
lcFiltru = "((" + lcFiltru + ") OR (" + lcIdColumn + " IN (" + lcListaId + ")))"
ENDIF
ENDIF
lcToolTip = this._grid1.ToolTipText
save_grid(This._grid1)
deca_baza1.ca_baza1.cfiltru=lcfiltru
deca_baza1.ca_baza1.afisare()
IF this.lAles
IF !EMPTY(lcListaId)
this.cAles = ""
SELECT (lcCursor)
SCAN
lcValue = TRANSFORM(&lcIdColumn)
IF lcValue$lcListaId
this.cAles = this.cAles + "X"
ELSE
this.cAles = this.cAles + " "
ENDIF
ENDSCAN
GO TOP
ELSE
this.cAles = REPLICATE(" ",Reccount(lcCursor))
ENDIF
ENDIF
IF (this.ll_allinlist)
*SELECT * from cursor_temp INTO CURSOR cursor_curent WHERE .F. readwrite
SELECT * FROM &lccursort INTO CURSOR &lccursor WHERE .F. READWRITE
*SELECT cursor_curent
SELECT (lccursor)
IF OCCURS([,],tccoloana) > 0
lcField = LEFT(tccoloana,AT([,],tccoloana)-1)
lcCamp = lccursort + '.' + lcfield
*IF TYPE('cursor_temp.&lcField')# 'C'
IF TYPE(lcCamp) # 'C'
lcfield = FIELD(1)
ENDIF
ELSE
lcField = tccoloana
lcCamp = lccursort + '.' + lcfield
ENDIF
*IF TYPE('cursor_temp.&lcField')= 'C'
IF TYPE(lcCamp) = 'C'
INSERT INTO (lcCursor) (&lcfield) values("<TOATE INREGISTRARILE>")
ENDIF
*SELECT cursor_curent
SELECT (lccursor)
*APPEND FROM DBF("cursor_temp")
APPEND FROM DBF(lccursort)
*USE IN cursor_temp
USE IN (lccursort)
ENDIF
restore_grid(This._grid1)
this._grid1.ToolTipText = lcToolTip
ENDPROC
PROCEDURE do_adauga
If Thisform.but_nou1.Visible
Select (This._GRID1.RecordSource)
Scatter Name poRec Blank
lcname = Thisform.cnume_proc
* Do &lcname In onomenclatoare.prg
IF !EMPTY(lcName)
lcRun = [do ] + lcName + [ in onomenclatoare.prg]
&lcRun
ENDIF
Thisform.do_cauta
Endif
ENDPROC
PROCEDURE do_alege
Lparameters tnSelecteazaToate && 0/.F. DEFAULT O INREGISTRARE, 1 = SELECTEAZA TOT, 2 = DESELECTEAZA TOT
Local lnSelecteazaToate
If Pcount() = 0 Or Type('tnSelecteazaToate') <> 'N'
lnSelecteazaToate = 0
Else
lnSelecteazaToate = tnSelecteazaToate
Endif
If Thisform.lAles
lcCursor = Thisform._GRID1.RecordSource
lnRecno = Recno(lcCursor)
Do Case
Case lnSelecteazaToate = 0 && selectez/deselectez inregistrarea curenta
If Substr(Thisform.cAles, lnRecno,1) = ' '
lcReplacement = 'X'
Else
lcReplacement = ' '
Endif
Thisform.cAles = Left(Thisform.cAles,lnRecno - 1) + lcReplacement + Substr(Thisform.cAles, lnRecno + 1)
Case lnSelecteazaToate = 1 && selecteaza tot
Thisform.cAles = REPLICATE('X', LEN(thisform.cAles))
Otherwise && deselecteaza tot
Thisform.cAles = REPLICATE(' ', LEN(thisform.cAles))
Endcase
pcAles = Thisform.cAles
Thisform._GRID1.Refresh()
Endif
ENDPROC
PROCEDURE do_cauta
*!* 19.12.2011
*!* marius.mutu
*!* lcvar = field(1) in loc de thisform.primacoloana
Private lcfiltru,lcval1
lcfiltru = ''
LOCAL lcCursor, lcCursort
lcCursor = this.crs_cursor
lcCursort = this.crs_cursort
lcColoana = ALLTRIM(this.primacoloana)
*!* With Thisform.cb_tx_cautare1
*!* lcval1=Strtran(Alltrim(Upper(.Text.Value)),['],[''])
*!* Do Case
*!* Case .criteriu.Value = "1" And !Empty(.Text.Value)
*!* lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '] + lcval1 + [%']
*!* Case .criteriu.Value = "2" And !Empty(.Text.Value)
*!* lcfiltru = Alltrim(Upper(lcColoana)) + [ ='] + lcval1 + [']
*!* Case .criteriu.Value = "3" And !Empty(.Text.Value)
*!* lcfiltru = Alltrim(Upper(lcColoana)) + [ !='] + lcval1 + [']
*!* Case .criteriu.Value = "4" And !Empty(.Text.Value)
*!* lcfiltru = Alltrim(Upper(lcColoana)) + [ LIKE '%] + lcval1 + [%']
*!* Case .criteriu.Value = "5" And !Empty(.Text.Value)
*!* lcfiltru = Alltrim(Upper(lcColoana)) + [ NOT LIKE '%] + lcval1 + [%']
*!* Case .criteriu.Value = "6"
*!* lcfiltru = [2=2]
*!* Endcase
*!* Endwith
*!* IF ALLTRIM(lcval1) = [%]
*!* lcfiltru = [2=2]
*!* ENDIF
*!* If Empty(lcfiltru)
*!* aMessagebox("Alegeti un criteriu!",0+48,"Atentie")
*!* Thisform.cb_tx_cautare1.criteriu.SetFocus()
*!* Return
*!* Endif
lcfiltru = This.cfiltru_original
&& filtru pretty
If Len(Thisform.filtru_pretty)>0
filtrutext = Thisform.filtru_pretty
lcfiltru = lcfiltru+" and ("+Alltrim(filtrutext)+")"
Endif
If This.filtru_pretty#"none"
Thisform.actualizeaza_grid1(lcfiltru)
Select (lccursor)
*Select cursor_curent
Go Top
*If (Reccount('cursor_curent')=0)
If (Reccount(lccursor)=0)
aMessagebox("Nu exista rezultate!",0+48,"Atentie")
Thisform.cb_tx_cautare1.critERIU.SetFocus()
Else
Go Top
*!* 19.12.2011
*!* lcvar = ALLTRIM(IIF(AT('.',lcColoana)=0,lcColoana, SUBSTR(lcColoana,AT('.',lcColoana)+1)))
lcVar = FIELD(1)
*!* 19.12.2011 ^
lcFirstInList = &lcvar
If Type([lcFirstInList]) = 'C' And (Reccount(lccursor)>1 And Alltrim(lcFirstInList)=='<TOATE INREGISTRARILE>')
*IF (Reccount('cursor_curent')>1 AND ALLTRIM(lcFirstInList)=='<TOATE INREGISTRARILE>')
Goto 2
ENDIF
this._grID1.AutoFit()
Thisform._GRID1.SetFocus()
Endif
Endif
ENDPROC
PROCEDURE do_copiaza
Local lcName, lcRun, loRec
If Thisform.but_copiaza1.Visible
Select (This._GRID1.RecordSource)
Scatter Name loRec
lcName = Thisform.cProceduraCopiaza
If !Empty(m.lcName)
lcRun = [do ] + lcName + [ with m.loRec in onomenclatoare.prg]
&lcRun
Endif
Endif
ENDPROC
PROCEDURE do_verifica
Local lcName, lcRun, loRec
If Thisform.but_verifica1.Visible
Select (This._GRID1.RecordSource)
Scatter Name loRec
lcName = Thisform.cProceduraVerifica
If !Empty(m.lcName)
lcRun = [do ] + lcName + [ with m.loRec in onomenclatoare.prg]
&lcRun
Endif
Endif
ENDPROC
PROCEDURE Init
Lparameters tcCursor, tcNume_Proc, tcTitluColoana, tccoloana, tl_AllInList, tcPrimaColoana, tnPornire, ;
tcGridDynamicBackColor, tcGridToolTip, tcStringCriterii, ;
tcProceduraVerifica, tcProceduraCopiaza
DoDefault()
This._GRID1.RecordSource = tcCursor
This.cnume_proc = tcNume_Proc
This.ll_allinlist = tl_AllInList
this.cStringCriterii = IIF(TYPE('tcStringCriterii') = 'C', tcStringCriterii, "")
If Empty(tcNume_Proc)
Thisform.But_nou1.Enabled=.F.
Thisform.But_nou1.Visible=.F.
Endif
If Empty(tcProceduraVerifica)
Thisform.but_verifica1.Enabled=.F.
Thisform.but_verifica1.Visible=.F.
ENDIF
If Empty(tcProceduraCopiaza)
Thisform.but_copiaza1.Enabled=.F.
Thisform.but_copiaza1.Visible=.F.
ENDIF
lnNrCols = Occurs(",",tcTitluColoana) + 1
**ajustare width coloana grid:
This.cnume_proc = tcNume_Proc
this.cProceduraCopiaza = m.tcProceduraCopiaza
this.cProceduraVerifica = m.tcProceduraVerifica
This._GRID1.ColumnCount = lnNrCols
If lnNrCols > 1
This._GRID1.coLUMN1.Width = This._GRID1.coLUMN1.Width - (This._GRID1.coLUMN1.Width/2)
Endif
tcTitluColoana = "," + tcTitluColoana + ","
For i=1 To lnNrCols
lcheader = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.hEADER1.Caption = PROPER(LEFT( SUBSTR(tcTitluColoana,AT(",",tcTitluColoana,i)+1),AT(",",tcTitluColoana,i+1)-AT(",",tcTitluColoana,i)-1))]
&lcheader
Endfor
tccoloana = "," + tccoloana + ","
For i=1 To lnNrCols
lcControlSource = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.ControlSource = PROPER(LEFT( SUBSTR(tcColoana,AT(",",tcColoana,i)+1),AT(",",tcColoana,i+1)-AT(",",tcColoana,i)-1))]
&lcControlSource
Endfor
&& dupa care se face filtru:
If Empty(tcPrimaColoana)
This.primacoloana = Proper(Left( Substr(tccoloana,At(",",tccoloana,1)+1),At(",",tccoloana,1+1)-At(",",tccoloana,1)-1))
Else
This.primacoloana = tcPrimaColoana
Endif
*!* If !Empty(tnPornire)
*!* This.cPornire = Alltrim(Str(tnPornire))
*!* Else
*!* This.cPornire = "1"
*!* Endif
*!* modificare 06.12.2006
*!* Thisform.cb_tx_cautare1.do_initializeaza_ct(Thisform.cPornire)
*!* modificare 06.12.2006 ^
&& setez DynamicBackColor
This._GRID1.SetAll("dynamicbackcolor","iif(SUBSTR(thisform.cAles,RECNO(),1)='X',RGB(106,181,255), RGB(255,255,255))","Column")
If Type('tcGridDynamicBackColor') = 'C' And !Empty(tcGridDynamicBackColor)
This._GRID1.SetAll("DynamicBackColor", tcGridDynamicBackColor, "Column")
Endif
If Type('tcGridToolTip') = 'C' And !Empty(tcGridToolTip)
This._GRID1.ToolTipText = tcGridToolTip
Endif
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
lcControl = UPPER(ALLTRIM(THIS.ACTIVECONTROL.NAME))
LOCAL lcCursor, lcCursort
lcCursor = THIS.crs_cursor
lcCursort = THIS.crs_cursort
**verificare:
*!* MESSAGEBOX("control:"+lcControl+" "+STR(nKeyCode))
DO CASE
CASE nKeyCode = 32 AND lcControl = '_GRID1' && space
thisform.do_alege()
CASE nKeyCode = 13 AND lcControl = '_GRID1' && enter
NODEFAULT
THIS.buT_TERMIN1.SETFOCUS
*!* DACA APAS SAGEATA JOS SAU SUS SA SE DESCHIDA LISTA
*!* CASE INLIST(nKeyCode,5, 24) AND lcControl = 'CRITERIU'&& UPARROW, DNARROW
*!* KEYBOARD '{ALT+DNARROW}'
CASE nKeyCode = 13 AND lcControl = 'TEXT' && enter
NODEFAULT
*If Reccount('cursor_curent')==0 Or This.cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(This.cb_tx_cautare1.Text.Value)
*!* If Reccount(lcCursor)==0 Or This.cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(This.cb_tx_cautare1.Text.Value)
*!* IF RECCOUNT(lcCursor)<> 0 OR THIS.cb_tx_cautare1.TEXT.READONLY OR !EMPTY(THIS.cb_tx_cautare1.TEXT.VALUE)
*!* && daca exista inregistrari sau vreau toate inregistrarile sau este completat textul de cautare
*!* THIS.do_cauta()
*!* THIS._GRID1.SETFOCUS
*!* ELSE
&& sare pe terminat daca dau enter in textbox si nu am scris nimic
NODEFAULT
THIS.buT_TERMIN1.SETFOCUS
*!* ENDIF
CASE nKeyCode = 9 AND lcControl = 'TEXT' && tab
NODEFAULT
THIS._GRID1.SETFOCUS
*!* CASE (nKeyCode >=33 AND nKeyCode <=122) AND (lcControl <> 'TEXT')
*!* NODEFAULT
*!* THIS.cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
*!* THIS.cb_tx_cautare1.SETFOCUS
*!* KEYBOARD '{END}'
*!* CASE (nKeyCode = 127) AND (lcControl <> 'TEXT') && backspace
*!* NODEFAULT
*!* THIS.cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.cb_tx_cautare1.TEXT.VALUE))-1)
*!* THIS.cb_tx_cautare1.SETFOCUS
*!* KEYBOARD '{END}'
OTHERWISE
DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
DODEFAULT(nStyle)
*!* 24.07.2009
Local loGrid, loColumnTexti
loGrid = Thisform._GRID1
For i = 1 To loGrid.ColumnCount
loColumnTexti= loGrid.Columns(i).text1
If !Thisform.lales
Bindevent(loColumnTexti,"dblClick",This,"do_termin")
ELSE
Bindevent(loColumnTexti,"Click",This,"do_alege")
Endif
Endfor
*!* 24.07.2009
ENDPROC
PROCEDURE Unload
RETURN this.cAles
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
PRIVATE lcStringCriterii
lcStringCriterii = thisform.cStringCriterii
*!* lcStringCriterii="Cod material\codmat\T\none\" + crlf + ;
*!* "Denumire articol\denumire\T\id_articol\nom_articol"+ crlf + ;
*!* "Subgrupa articol\none\I\id_subgrupa\nom_subgrupa_articol"+ crlf
DODEFAULT()
ENDPROC
PROCEDURE lbSelecteaza.Click
Local lnSelecteazaToate
lnSelecteazaToate = Iif(This.Caption = 'Selecteaza tot', 1, 2)
thisform.do_alege(lnSelecteazaToate)
If This.Caption = 'Selecteaza tot'
This.Caption = 'Deselecteaza tot'
Else
This.Caption = 'Selecteaza tot'
Endif
This.Refresh()
ENDPROC
ENDDEFINE
DEFINE CLASS cauta_alfa_form_vfp AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_GRID1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_tx_cautare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cfiltru_original
*p: cnume_proc
*p: cpornire
*p: ll_allinlist
*p: primacoloana
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cfiltru_original = 2=2
cnume_proc =
cpornire =
DoCreate = .T.
Height = 331
Name = "cauta_alfa_form_vfp"
primacoloana =
Width = 435
WindowType = 1
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 432
_shape2.Height = 29
_shape2.Left = 371
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
Lb_titlu_alb_b121.FontName = "Arial Narrow"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 405
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
ColumnCount = 4, ;
DeleteMark = .F., ;
Height = 217, ;
Left = 5, ;
Name = "_GRID1", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "cursor_curent", ;
TabIndex = 3, ;
Top = 76, ;
Width = 427, ;
Column1.ControlSource = "", ;
Column1.Name = "Column1", ;
Column1.Width = 403, ;
Column2.Name = "Column2", ;
Column3.Name = "Column3", ;
Column4.Name = "Column4"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 375, ;
Name = "But_renunt1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cb_tx_cautare1' AS cb_tx_cautare WITH ;
Left = 25, ;
Name = "Cb_tx_cautare1", ;
TabIndex = 1, ;
Top = 45, ;
Text.Format = "!", ;
Text.Name = "Text", ;
Text.TabIndex = 2, ;
Criteriu.Name = "Criteriu", ;
Criteriu.TabIndex = 1
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 332, ;
Name = "Cmd_cauta1", ;
TabIndex = 2, ;
Top = 45
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
Lparameters pcFiltru
Local lcFiltru
lcFiltru=pcFiltru
Select cursor_curent
Set Filter To &lcFiltru
ENDPROC
PROCEDURE do_cauta
Private lcfiltru,lcval1,lctip
lcfiltru=''
lcColoana = Alltrim(This.primacoloana)
lctip = Type(This._gRID1.RecordSource+[.]+This.primacoloana) && modificare 14.10.2011
With Thisform.cb_tx_cautare1
*!* modificare 14.10.2011
If Inlist(lctip,[D],[T],[N])
Do Case
Case lctip = [N]
lcval1 = Alltrim(Str(.Text.Value))
Case lctip = [T]
lcval1 = [CTOT(']+Ttoc(.Text.Value) + [')]
Otherwise
lcval1 = [CTOD(']+Dtoc(.Text.Value) + [')]
Endcase
Do Case
Case .criteriu.Value = "1" && egala
lcfiltru = Alltrim(Upper(lcColoana)) + [ =] + lcval1 + []
Case .criteriu.Value = "2" && diferita
lcfiltru = Alltrim(Upper(lcColoana)) + [ !=] + lcval1 + []
Case .criteriu.Value = "3" && mai mare
lcfiltru = Alltrim(Upper(lcColoana)) + [ >] + lcval1 + []
Case .criteriu.Value = "4" && mai mica
lcfiltru = Alltrim(Upper(lcColoana)) + [ <] + lcval1 + []
Case .criteriu.Value = "5" && mai mare sau egala
lcfiltru = Alltrim(Upper(lcColoana)) + [ >=] + lcval1 + []
Case .criteriu.Value = "6" && mai mica sau egala
lcfiltru = Alltrim(Upper(lcColoana)) + [ <=] + lcval1 + []
Endcase
Else
*!* modificare 14.10.2011 ^
lcval1=Strtran(Alltrim(Upper(.Text.Value)),['],[''])
Do Case
Case .criteriu.Value = "1" And !Empty(.Text.Value)
lcfiltru = [ LIKE('] + lcval1 + [*',]+Alltrim(Upper(lcColoana))+[)]
Case .criteriu.Value = "2" And !Empty(.Text.Value)
lcfiltru = Alltrim(Upper(lcColoana)) + [ ='] + lcval1 + [']
Case .criteriu.Value = "3" And !Empty(.Text.Value)
lcfiltru = Alltrim(Upper(lcColoana)) + [ !='] + lcval1 + [']
Case .criteriu.Value = "4" And !Empty(.Text.Value)
lcfiltru = [ LIKE('*] + lcval1 + [*',]+Alltrim(Upper(lcColoana))+[)]
Case .criteriu.Value = "5" And !Empty(.Text.Value)
lcfiltru = [ !LIKE('*] + lcval1 + [*',]+Alltrim(Upper(lcColoana))+[)]
Case .criteriu.Value = "6"
lcfiltru = [2=2]
Endcase
If Alltrim(lcval1) = [%]
lcfiltru = [2=2]
Endif
*!* modificare 14.10.2011
Endif
*!* modificare 14.10.2011 ^
Endwith
If Empty(lcfiltru)
aMessagebox("Alegeti un criteriu!",0+48,"Atentie")
Thisform.cb_tx_cautare1.criteriu.SetFocus()
Return
Endif
lcfiltru = This.cfiltru_original + [ and ] + lcfiltru
Thisform.actualizeaza_grid1(lcfiltru)
Select cursor_curent
Go Top
If (Reccount('cursor_curent')=0)
aMessagebox("Nu exista rezultate!",0+48,"Atentie")
Thisform.cb_tx_cautare1.criteriu.SetFocus()
Else
Go Top
If Type(lcColoana)='C'
lcFirstInList = &lcColoana
If (Reccount('cursor_curent')>1 And Alltrim(lcFirstInList)=='<TOATE INREGISTRARILE>')
Goto 2
Endif
Endif
Thisform._gRID1.SetFocus()
Endif
ENDPROC
PROCEDURE Init
Lparameters tcNume_Proc,tcTitluColoana,tccoloana,tl_AllInList,tnPornire,tcFiltruAfisat
This.cnume_proc = tcNume_Proc
This.ll_allinlist = tl_AllInList
**miscarefereastra:
DoDefault()
lnNrCols = Occurs(",",tcTitluColoana) + 1
**ajustare width coloana grid:
This.cnume_proc = tcNume_Proc
This._GRID1.ColumnCount = lnNrCols
If lnNrCols > 1
This._GRID1.coLUMN1.Width = This._GRID1.coLUMN1.Width - (This._GRID1.coLUMN1.Width/2)
Endif
*!* modificare 22.01.2007
If !Empty(tnPornire)
This.cPornire = Alltrim(Str(tnPornire))
Else
This.cPornire = "1"
Endif
*!* modificare 14.10.2011 : am mutat-o mai jos
*!* thisform.cb_tx_cautare1.do_initializeaza_ct(Thisform.cPornire)
*!* modificare 14.10.2011 ^
*!* modificare 22.01.2007 ^
tcTitluColoana = "," + tcTitluColoana + ","
For i=1 To lnNrCols
lcheader = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.hEADER1.Caption = PROPER(LEFT( SUBSTR(tcTitluColoana,AT(",",tcTitluColoana,i)+1),AT(",",tcTitluColoana,i+1)-AT(",",tcTitluColoana,i)-1))]
&lcheader
Endfor
tcColoana = "," + tcColoana + ","
For i=1 To lnNrCols
lcControlSource = [this._GRID1.coLUMN] + Alltrim(Str(i))+ [.ControlSource = PROPER(LEFT( SUBSTR(tcColoana,AT(",",tcColoana,i)+1),AT(",",tcColoana,i+1)-AT(",",tcColoana,i)-1))]
&lcControlSource
Endfor
&& dupa care se face filtru:
this.primacoloana = PROPER(LEFT( SUBSTR(tcColoana,AT(",",tcColoana,1)+1),AT(",",tcColoana,1+1)-AT(",",tcColoana,1)-1))
*!* modificare 14.10.2011
thisform.cb_tx_cautare1.do_initializeaza_ct(Thisform.cPornire,TYPE([cursor_curent.]+this.primacoloana))
*!* modificare 14.10.2011 ^
*!* modificare 04.08.2011
If !Empty(tcFiltruAfisat)
Thisform.cb_tx_cautare1.text.Value = tcFiltruAfisat
Thisform.cmd_CAUTA1.Click()
Endif
*!* modificare 04.08.2011 ^
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
lcControl = Upper(Alltrim(This.ActiveControl.Name))
**verificare:
**MESSAGEBOX("control:"+lcControl+" "+STR(nKeyCode))
DO case
case nKeyCode = 13 And lcControl = '_GRID1' && enter
Nodefault
This.buT_TERMIN1.SetFocus
case nKeyCode = 13 And lcControl = 'TEXT' && enter
Nodefault
If Reccount('cursor_curent')==0 Or This.cb_tx_cautare1.Text.ReadOnly=.F. Or !Empty(This.cb_tx_cautare1.Text.Value)
This.do_cauta
Endif
This._GRID1.SetFocus
case nKeyCode = 9 And lcControl = 'TEXT' && tab
Nodefault
This._GRID1.SetFocus
case (nKeyCode >=33 And nKeyCode <=122) And (lcControl <> 'TEXT')
Nodefault
This.cb_tx_cautare1.Text.Value = Alltrim(This.cb_tx_cautare1.Text.Value) + Chr(nKeyCode)
This.cb_tx_cautare1.SetFocus
Keyboard '{END}'
case (nKeyCode = 127) And (lcControl <> 'TEXT') && backspace
Nodefault
This.cb_tx_cautare1.Text.Value = Left(Alltrim(This.cb_tx_cautare1.Text.Value),Len(Alltrim(This.cb_tx_cautare1.Text.Value))-1)
This.cb_tx_cautare1.SetFocus
Keyboard '{END}'
otherwise
DoDefault(nKeyCode, nShiftAltCtrl)
Endcase
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink