3523 lines
96 KiB
Plaintext
3523 lines
96 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="caut_ora.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS caut_anluna 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="cboan" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cboluna" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: caut_ani
|
||
*m: caut_luni
|
||
*m: initializare_anluna
|
||
*p: ccursorluni && Numele cursorului pentru luni. Daca sunt mai multe obiecte caut_anluna, trebuie nume diferite.
|
||
*p: nan
|
||
*p: nluna
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
ccursorluni = cursor_luni
|
||
Height = 22
|
||
Name = "caut_anluna"
|
||
nan = 0
|
||
nluna = 0
|
||
Width = 153
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'cboan' AS _cbbase WITH ;
|
||
BoundTo = .T., ;
|
||
Height = 22, ;
|
||
Left = 0, ;
|
||
Name = "cboan", ;
|
||
Top = 0, ;
|
||
Width = 60
|
||
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'cboluna' AS _cbbase WITH ;
|
||
BoundColumn = 2, ;
|
||
Height = 22, ;
|
||
Left = 60, ;
|
||
Name = "cboluna", ;
|
||
Top = 0, ;
|
||
Width = 93
|
||
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
|
||
|
||
PROCEDURE caut_ani
|
||
LOCAL lcSchema
|
||
lcSchema = gcS
|
||
|
||
lcSelect = [select * from lunilean ]
|
||
lcCursor = [luni]
|
||
|
||
IF USED(lcCursor)
|
||
USE IN (lcCursor)
|
||
ENDIF
|
||
|
||
lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||
IF lnSucces < 0
|
||
aMESSAGEBOX('Eroare la selectie ' + goExecutor.cEroare)
|
||
RETURN
|
||
ENDIF
|
||
|
||
lcSelect1 = [select to_number(TRIM(nl),'99') as nrluna,an from ] +;
|
||
lcSchema + [.calendar order by to_number(an,'9999') * 12 + nrluna]
|
||
lcCursor1 = [ocalendar]
|
||
|
||
IF USED(lcCursor1)
|
||
USE IN (lcCursor1)
|
||
ENDIF
|
||
|
||
lnSucces1 = goExecutor.oExecute(lcSelect1,lcCursor1)
|
||
IF lnSucces1 < 0
|
||
aMESSAGEBOX('Eroare la selectie ' + goExecutor.cEroare)
|
||
RETURN
|
||
ENDIF
|
||
|
||
SELECT DISTINCT an FROM ocalendar ORDER BY an INTO CURSOR cursor_ani
|
||
|
||
this.cboan.RowSource = 'cursor_ani.an'
|
||
this.cboAn.RowSourceType = 2
|
||
this.cboan.Value = str(gnAn)
|
||
this.nan = gnAn
|
||
this.cboan.refresh
|
||
|
||
this.caut_luni(.t.)
|
||
ENDPROC
|
||
|
||
PROCEDURE caut_luni
|
||
LPARAMETERS llinit, tnLuna
|
||
LOCAL lnluna, lcCursor, lcLuna
|
||
lnLuna = IIF(!EMPTY(m.tnLuna), m.tnLuna, m.gnLuna)
|
||
|
||
SELECT ocalendar
|
||
|
||
this.cboluna.RowSource = ''
|
||
lcCursor = this.cCursorluni
|
||
IF EMPTY(m.lcCursor)
|
||
lcCursor = 'cursor_luni'
|
||
ENDIF
|
||
|
||
SELECT l.numeluna,l.nrluna FROM luni l;
|
||
JOIN ocalendar c ON c.nrluna = l.nrluna AND ALLTRIM(c.an) = ALLTRIM(this.cboan.value) ;
|
||
INTO CURSOR (m.lcCursor);
|
||
ORDER BY l.nrluna
|
||
|
||
lcLuna = this.cboluna.DisplayValue
|
||
|
||
this.cboluna.RowSource = m.lcCursor
|
||
this.cboluna.RowSourceType = 2
|
||
|
||
SELECT (m.lcCursor)
|
||
IF llinit
|
||
LOCATE FOR nrluna = m.lnLuna
|
||
this.cboluna.DisplayValue = &lcCursor..numeluna
|
||
ELSE
|
||
LOCATE FOR numeluna = m.lcLuna
|
||
IF FOUND()
|
||
this.cboluna.DisplayValue = m.lcLuna
|
||
ELSE
|
||
this.cboluna.DisplayValue = ''
|
||
ENDIF
|
||
ENDIF
|
||
|
||
this.nluna = VAL(ALLTRIM(this.cboluna.value))
|
||
|
||
this.cboluna.refresh
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
this.caut_ani
|
||
ENDPROC
|
||
|
||
PROCEDURE initializare_anluna
|
||
LPARAMETERS tnAn, tnLuna
|
||
|
||
LOCAL lnAn, lnLuna
|
||
|
||
lnAn = IIF(EMPTY(m.tnAn), INT(m.gnAn), INT(m.tnAn))
|
||
lnLuna = IIF(EMPTY(m.tnLuna), INT(m.gnLuna), INT(m.tnLuna))
|
||
|
||
this.cboan.Value = str(m.lnAn)
|
||
this.nan = m.lnAn
|
||
|
||
this.caut_luni(.T., m.lnLuna)
|
||
|
||
this.refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE cboan.InteractiveChange
|
||
this.Parent.nan = val(ALLTRIM(this.value))
|
||
this.Parent.caut_luni
|
||
ENDPROC
|
||
|
||
PROCEDURE cboluna.InteractiveChange
|
||
this.Parent.nluna = VAL(ALLTRIM(this.value))
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cb_filtru_text AS _combobox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: ctraducere
|
||
*p: filtru
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
ctraducere =
|
||
filtru =
|
||
Name = "cb_filtru_text"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_filtru_luna AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: camp_nume
|
||
*p: ctraducere
|
||
*p: cvaloare1
|
||
*p: cvaloare2
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*p: luna
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
camp_nume =
|
||
ctraducere =
|
||
cvaloare1 =
|
||
cvaloare2 =
|
||
filtru =
|
||
filtru_vfp =
|
||
luna =
|
||
Name = "ck_filtru_luna"
|
||
_memberdata = <VFPData>
|
||
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
PROCEDURE InteractiveChange
|
||
WITH this
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
IF .Value = 0
|
||
RETURN
|
||
ENDIF
|
||
|
||
PRIVATE pcValoare1, pcValoare2, pcFiltru, pcFiltruVFP && variabile pe care le completeaza forma frm_filtru_text
|
||
pcValoare1 = .cValoare1
|
||
pcValoare2 = .cValoare2
|
||
pcFiltruVFP = ""
|
||
pcFiltru = ""
|
||
|
||
DO FORM frm_filtru_luna WITH .camp_nume, .caption, .luna TO .filtru
|
||
|
||
IF .filtru == ""
|
||
.Value = 0
|
||
.cValoare1 = ""
|
||
.cValoare2 = ""
|
||
.filtru_vfp = ""
|
||
ELSE
|
||
.cValoare1 = pcValoare1
|
||
.cValoare2 = pcValoare2
|
||
.filtru_vfp = pcFiltruVFP
|
||
ENDIF
|
||
.cTraducere = "perioada intre "+pcValoare1+" si "+pcValoare2
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_filtru_nom AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: camp_nume
|
||
*p: camp_tabela
|
||
*p: ctraducere
|
||
*p: cvaloare1
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*p: tabela
|
||
*p: titlu
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
camp_nume =
|
||
camp_tabela =
|
||
ctraducere =
|
||
cvaloare1 =
|
||
filtru =
|
||
filtru_vfp =
|
||
Name = "ck_filtru_nom"
|
||
tabela =
|
||
titlu =
|
||
*</PropValue>
|
||
|
||
PROCEDURE InteractiveChange
|
||
WITH this
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
IF .Value = 0
|
||
RETURN
|
||
ENDIF
|
||
PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj
|
||
STORE "" TO oRetObj
|
||
pnbuton=1
|
||
pcselect=['select distinct ]+.camp_tabela+[ from ]+gcS+[.]+.tabela+[ where 2=2']
|
||
pcfiltru=[2=2]
|
||
oRetObj=cauta_alfa(pcselect,pcfiltru,[''],[],.camp_tabela,.titlu,.caption)
|
||
IF pnbuton=1
|
||
pcval = "oRetObj."+.camp_tabela
|
||
.cvaloare1 = ALLTRIM(&pcval)
|
||
.filtru = [ AND UPPER(SUBSTR(]+ALLTRIM(.camp_nume)+[,1,]+ALLTRIM(STR(LEN(.cvaloare1)))+[))=']+.cvaloare1+[']
|
||
.filtru_vfp = [ AND UPPER(LEFT(]+ALLTRIM(.camp_nume)+[,]+ALLTRIM(STR(LEN(.cvaloare1)))+[))==']+.cvaloare1+[']
|
||
.cTraducere = ALLTRIM(.camp_nume) + " incepe cu " + ALLTRIM(NVL(.cvaloare1,""))
|
||
ELSE
|
||
.Value = 0
|
||
.cValoare1 = ""
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
.cTraducere = ""
|
||
ENDIF
|
||
|
||
RELEASE oRetObj
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_filtru_nomgeneral AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: campuri_afisate
|
||
*p: campuri_headere
|
||
*p: campuri_selectate
|
||
*p: camp_filtru
|
||
*p: camp_tabela
|
||
*p: ctraducere
|
||
*p: filtru_nom
|
||
*p: filtru_ora
|
||
*p: filtru_vfp
|
||
*p: nvaloare
|
||
*p: ordine_nom
|
||
*p: tabela
|
||
*p: titlu
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
campuri_afisate =
|
||
campuri_headere =
|
||
campuri_selectate =
|
||
camp_filtru =
|
||
camp_tabela =
|
||
ctraducere =
|
||
filtru_nom =
|
||
filtru_ora =
|
||
filtru_vfp =
|
||
Name = "ck_filtru_nomgeneral"
|
||
nvaloare =
|
||
ordine_nom =
|
||
tabela =
|
||
titlu =
|
||
*</PropValue>
|
||
|
||
PROCEDURE InteractiveChange
|
||
LOCAL lcSelect, lcFiltru, lcOrdine, lcNumeProc, llAllInlist,lcFiltruOriginal, lcPrimaColoana, lcSchema
|
||
LOCAL lcVal
|
||
LOCAL ocautare
|
||
|
||
lcNumeProc = ""
|
||
llAllInlist = .F.
|
||
lcPrimaColoana = ""
|
||
lcSchema = ""
|
||
|
||
|
||
WITH this
|
||
.filtru_ora = ""
|
||
.filtru_vfp = ""
|
||
IF .Value = 0
|
||
RETURN
|
||
ENDIF
|
||
PRIVATE pnbuton,pcselect,pcfiltru,pcordine,oCautare
|
||
STORE "" TO oCautare
|
||
pnbuton=1
|
||
lcselect=[select ]+.campuri_selectate+[ from ]+gcS+[.]+.tabela
|
||
lcFiltruNom = .filtru_nom
|
||
|
||
lnPos1 = AT('&',lcFiltruNom)
|
||
lnPos2 = AT('&',lcFiltruNom,2)
|
||
IF lnPos1 * lnPos2 > 0
|
||
lcItem = SUBSTR(lcFiltruNom, lnPos1, lnPos2 - lnPos1 + 1)
|
||
lcFiltruOriginal = STRTRAN(lcFiltruNom, lcItem, '***')
|
||
lcItem = STRTRAN(lcItem, '&', '')
|
||
lcFiltruTemp = [(] + &lcItem+ [)]
|
||
lcFiltruOriginal = STRTRAN(lcFiltruOriginal, '***', lcFiltruTemp)
|
||
ELSE
|
||
lcFiltruOriginal = .filtru_nom
|
||
ENDIF
|
||
|
||
lcfiltru = "1=2"
|
||
lcordine = .ordine_nom
|
||
oCautare = cauta_alfa(lcselect, lcfiltru, lcSchema,lcordine, .campuri_afisate, .titlu, .campuri_headere, lcNumeProc, llAllInList,lcFiltruOriginal, lcPrimaColoana)
|
||
IF pnbuton=1
|
||
lcval = "oCautare."+.camp_tabela
|
||
.nvaloare = &lcval
|
||
.filtru_ora = [ AND ]+ALLTRIM(.camp_filtru)+[=]+ALLTRIM(STR(.nvaloare))
|
||
.filtru_vfp = .filtru_ora
|
||
.cTraducere = " SI " + ALLTRIM(.camp_filtru)+[=]+ALLTRIM(STR(.nvaloare))
|
||
ELSE
|
||
.Value = 0
|
||
.nvaloare = 0
|
||
.filtru_ora = ""
|
||
.filtru_vfp = ""
|
||
.cTraducere = ""
|
||
ENDIF
|
||
RELEASE oCautare
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_filtru_numar AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: camp_nume
|
||
*p: cintre
|
||
*p: criteriu1
|
||
*p: criteriu2
|
||
*p: ctraducere
|
||
*p: cvaloare1
|
||
*p: cvaloare2
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*p: mask
|
||
*p: nrzec
|
||
*p: tip
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
camp_nume =
|
||
cintre =
|
||
criteriu1 = 1
|
||
criteriu2 = 2
|
||
ctraducere =
|
||
cvaloare1 =
|
||
cvaloare2 =
|
||
filtru =
|
||
filtru_vfp =
|
||
mask =
|
||
Name = "ck_filtru_numar"
|
||
nrzec = 0
|
||
tip = N
|
||
_memberdata = <VFPData>
|
||
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
PROCEDURE InteractiveChange
|
||
WITH THIS
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
IF .VALUE = 0
|
||
RETURN
|
||
ENDIF
|
||
PRIVATE pcValoare1, pcValoare2, pcIntre, pnCriteriu, pnCriteriu2, pcFiltru, pcFiltruVFP && variabile pe care le completeaza forma frm_filtru_text
|
||
pnCriteriu = .criteriu1
|
||
pnCriteriu2 = .criteriu2
|
||
pcValoare1 = .cvaloare1
|
||
pcValoare2 = .cvaloare2
|
||
pcFiltruVFP = ""
|
||
pcFiltru = ""
|
||
pcIntre = .cIntre
|
||
|
||
IF TYPE('.mask') == 'N'
|
||
.mask = ALLTRIM(STR(.mask))
|
||
ENDIF
|
||
|
||
DO FORM frm_filtru_numar WITH .camp_nume, .CAPTION, .criteriu1, .criteriu2, .tip, .mask, .nrzec TO .filtru
|
||
IF .filtru == ""
|
||
.VALUE = 0
|
||
.criteriu1 = 1
|
||
.criteriu2 = 1
|
||
.cvaloare1 = ""
|
||
.cvaloare2 = ""
|
||
.filtru_vfp = ""
|
||
.cIntre = ""
|
||
ELSE
|
||
.cvaloare1 = pcValoare1
|
||
.cvaloare2 = pcValoare2
|
||
.criteriu1 = pnCriteriu
|
||
.criteriu2 = pnCriteriu2
|
||
.filtru_vfp = pcFiltruVFP
|
||
.cIntre = pcIntre
|
||
ENDIF
|
||
|
||
IF .filtru == ""
|
||
lcTraducere = ""
|
||
ELSE
|
||
IF INLIST(.tip, "D", "T")
|
||
lcSemn1 = IIF(.criteriu1 = 1, [>=], [>])
|
||
lcSemn2 = IIF(.criteriu2 = 1, [<=], [<])
|
||
ELSE
|
||
DO CASE
|
||
CASE .criteriu1 = 1
|
||
lcSemn1 = [>=]
|
||
CASE .criteriu1 = 2
|
||
lcSemn1 = [<=]
|
||
CASE .criteriu1 = 3
|
||
lcSemn1 = [=]
|
||
CASE .criteriu1 = 4
|
||
lcSemn1 = [<>]
|
||
CASE .criteriu1 = 5
|
||
lcSemn1 = [>]
|
||
CASE .criteriu1 = 6
|
||
lcSemn1 = [<]
|
||
ENDCASE
|
||
DO CASE
|
||
CASE .criteriu2 = 1
|
||
lcSemn2 = [>=]
|
||
CASE .criteriu2 = 2
|
||
lcSemn2 = [<=]
|
||
CASE .criteriu2 = 3
|
||
lcSemn2 = [=]
|
||
CASE .criteriu2 = 4
|
||
lcSemn2 = [<>]
|
||
CASE .criteriu2 = 5
|
||
lcSemn2 = [>]
|
||
CASE .criteriu2 = 6
|
||
lcSemn2 = [<]
|
||
ENDCASE
|
||
ENDIF
|
||
|
||
lcTraducere = STRTRAN(.CAPTION, "\<", "") + " " +lcSemn1 + ALLTRIM(TRANSFORM(.cvaloare1)) + [ ] + pcIntre + [ ] + STRTRAN(.CAPTION, "\<", "") + " " + lcSemn2 + ALLTRIM(TRANSFORM(.cvaloare2))
|
||
|
||
lcTraducere = STRTRAN(STRTRAN(lcTraducere, 'OR', 'SAU'), 'AND', 'SI')
|
||
ENDIF
|
||
.cTraducere = lcTraducere
|
||
ENDWITH
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_filtru_text AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: camp_nume
|
||
*p: cintre
|
||
*p: criteriu
|
||
*p: criteriu2
|
||
*p: ctraducere
|
||
*p: cvaloare1
|
||
*p: cvaloare2
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
camp_nume =
|
||
cintre =
|
||
criteriu = 1
|
||
criteriu2 = 1
|
||
ctraducere =
|
||
cvaloare1 =
|
||
cvaloare2 =
|
||
filtru =
|
||
filtru_vfp =
|
||
Name = "ck_filtru_text"
|
||
_memberdata = <VFPData>
|
||
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
PROCEDURE InteractiveChange
|
||
WITH THIS
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
IF .VALUE = 0
|
||
RETURN
|
||
ENDIF
|
||
|
||
PRIVATE pcValoare1, pcValoare2, pcIntre, pnCriteriu, pnCriteriu2, pcFiltru, pcFiltruVFP && variabile pe care le completeaza forma frm_filtru_text
|
||
pcValoare1 = .cValoare1
|
||
pcValoare2 = .cValoare2
|
||
pnCriteriu = .criteriu
|
||
pnCriteriu2 = .criteriu2
|
||
pcIntre = .cIntre
|
||
pcFiltruVFP = ""
|
||
pcFiltru = ""
|
||
|
||
|
||
DO FORM frm_filtru_text WITH .camp_nume,.CAPTION,.criteriu,.criteriu2 TO .filtru
|
||
|
||
IF .filtru == ""
|
||
.VALUE = 0
|
||
.cValoare1 = ""
|
||
.cValoare2 = ""
|
||
.criteriu = 1
|
||
.criteriu2 = 1
|
||
.cIntre = ""
|
||
.filtru_vfp = ""
|
||
ELSE
|
||
.cValoare1 = pcValoare1
|
||
.cValoare2 = pcValoare2
|
||
.criteriu = pnCriteriu
|
||
.criteriu2 = pnCriteriu2
|
||
.cIntre = pcIntre
|
||
.filtru_vfp = pcFiltruVFP
|
||
ENDIF
|
||
|
||
&& TRADUCERE
|
||
lcTraducere = ""
|
||
IF !EMPTY(.filtru)
|
||
lcCriteriu = ' '
|
||
lcCriteriu2 = ' '
|
||
lcCIntre = ""
|
||
DO CASE
|
||
CASE .criteriu= 1
|
||
lcCriteriu = 'incepe cu... '
|
||
CASE .criteriu= 2
|
||
lcCriteriu = 'este... '
|
||
CASE .criteriu= 3
|
||
lcCriteriu = 'nu este... '
|
||
CASE .criteriu= 4
|
||
lcCriteriu = 'contine... '
|
||
CASE .criteriu= 5
|
||
lcCriteriu = 'nu contine... '
|
||
CASE .criteriu= 6
|
||
lcCriteriu = 'nu are valori '
|
||
CASE .criteriu= 7
|
||
lcCriteriu = 'are valori '
|
||
ENDCASE
|
||
|
||
DO CASE
|
||
CASE .criteriu2= 1
|
||
lcCriteriu2 = 'incepe cu... '
|
||
CASE .criteriu2= 2
|
||
lcCriteriu2 = 'este... '
|
||
CASE .criteriu2= 3
|
||
lcCriteriu2 = 'nu este... '
|
||
CASE .criteriu2= 4
|
||
lcCriteriu2 = 'contine... '
|
||
CASE .criteriu2= 5
|
||
lcCriteriu2 = 'nu contine... '
|
||
CASE lnCriteriu2 = 6
|
||
lcCriteriu2 = 'nu are valori '
|
||
CASE .criteriu2= 7
|
||
lcCriteriu2 = 'are valori '
|
||
ENDCASE
|
||
|
||
DO CASE
|
||
CASE ALLTRIM(UPPER(.cIntre)) = 'OR'
|
||
lcCIntre = 'SAU'
|
||
CASE ALLTRIM(UPPER(.cIntre)) = 'AND'
|
||
lcCIntre = 'SI'
|
||
ENDCASE
|
||
|
||
IF !EMPTY(.cIntre)
|
||
lcTraducere = STRTRAN(.CAPTION, "\<", "") + " " + lcCriteriu + ['] + .cValoare1+ [' ] + lcCIntre + " " + lcCriteriu2 + ['] + .cValoare2 + [']
|
||
ELSE
|
||
lcTraducere = STRTRAN(.CAPTION, "\<", "") + " " + lcCriteriu + ['] + .cValoare1+ [']
|
||
ENDIF
|
||
ENDIF && !EMPTY(.filtru)
|
||
|
||
.cTraducere = lcTraducere
|
||
|
||
ENDWITH
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ck_simplu AS _checkbox OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
Alignment = 0
|
||
filtru =
|
||
filtru_vfp =
|
||
Name = "ck_simplu"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS criteriu_numar AS _cbbase OF "_cb_base.vcx"
|
||
*< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 0
|
||
BoundColumn = 2
|
||
BoundTo = .T.
|
||
ColumnCount = 2
|
||
ColumnLines = .F.
|
||
ColumnWidths = "72,0"
|
||
FontItalic = .T.
|
||
FontSize = 10
|
||
Name = "criteriu_numar"
|
||
RowSource = "> = ,1,< = ,2, = ,3, # ,4, > ,5, < ,6"
|
||
RowSourceType = 1
|
||
SpecialEffect = 2
|
||
ToolTipText = "Selectati criteriul de comparare"
|
||
Width = 55
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS criteriu_text AS _cbbase OF "_cb_base.vcx"
|
||
*< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 0
|
||
BoundColumn = 2
|
||
BoundTo = .T.
|
||
ColumnCount = 2
|
||
ColumnLines = .F.
|
||
ColumnWidths = "72,0"
|
||
FontItalic = .T.
|
||
Name = "criteriu"
|
||
RowSource = "incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,nu are valori,6,are valori,7"
|
||
RowSourceType = 1
|
||
SpecialEffect = 2
|
||
ToolTipText = "Selectati criteriul de comparare"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_clb_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="img_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="clb_tx_cautare" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_activeaza
|
||
*m: do_apeleaza
|
||
*m: do_dezactiveaza
|
||
*m: do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
*p: cconditie && Conditia pentru care se apeleaza procedura din cprocedura.
|
||
*p: clista_parametri && Lista parametri pentru procedura din cparametri ( separati prin virgula ).
|
||
*p: cprocedura && Numele procedurii care se apeleaza.
|
||
*p: ctooltip
|
||
*p: cvaloare_intoarsa && Numele variabilei/obiectului in care se va intoarce rezultatul in cazul in care cprocedura este o functie.
|
||
*p: cvar_afisata && Control source-ul pentru textfield.
|
||
*p: lactiv && .T. daca se pot face modificari.
|
||
*p: _memberdata && XML Metadata for customizable properties
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderWidth = 0
|
||
cconditie = 2=2
|
||
clista_parametri =
|
||
cprocedura =
|
||
ctooltip =
|
||
cvaloare_intoarsa =
|
||
cvar_afisata =
|
||
Height = 31
|
||
lactiv = .T.
|
||
Name = "ct_clb_cautare"
|
||
Width = 351
|
||
_memberdata = <VFPData>
|
||
<memberdata name="cconditie" 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="cvaloare_intoarsa" type="Property" favorites="True"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'clb_tx_cautare' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 1, ;
|
||
Name = "clb_tx_cautare", ;
|
||
TabIndex = 2, ;
|
||
Top = 1, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.Left = 126, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
TEXT_SIMPLU1.ToolTipText = "Pentru modificare apasati DEL sau butonul din dreapta ", ;
|
||
TEXT_SIMPLU1.Top = 3, ;
|
||
LB_SIMPLU1.Left = 6, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'img_cautare' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 326, ;
|
||
Name = "img_cautare", ;
|
||
Picture = ..\grafice\alege.bmp, ;
|
||
Stretch = 1, ;
|
||
Top = 5, ;
|
||
Width = 20
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
PROCEDURE do_activeaza
|
||
This.lactiv = .T.
|
||
This.img_cautare.Visible = .T.
|
||
This.clb_tx_cautare.text_simplu1.ToolTipText = This.ctooltip
|
||
This.clb_tx_cautare.text_simplu1.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_apeleaza
|
||
Local loObject
|
||
lcListaParametri = Iif(Type('This.clista_parametri')='N',Alltrim(Str(This.clista_parametri)),Alltrim(This.clista_parametri))
|
||
lcApelProcedura = This.cprocedura + Iif(!Empty(lcListaParametri),[(]+lcListaParametri+[)],[])
|
||
lcValoareIntoarsa = This.cvaloare_intoarsa
|
||
If Empty(lcValoareIntoarsa)
|
||
&lcApelProcedura
|
||
Else
|
||
&lcValoareIntoarsa = &lcApelProcedura
|
||
Endif
|
||
This.clb_tx_cautare.text_simplu1.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_dezactiveaza
|
||
This.lactiv = .F.
|
||
This.img_cautare.Visible = .F.
|
||
This.ctooltip = This.clb_tx_cautare.text_simplu1.ToolTipText
|
||
This.clb_tx_cautare.text_simplu1.ToolTipText = []
|
||
This.clb_tx_cautare.text_simplu1.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
Lparameters tcExplicatie
|
||
This.clb_tx_cautare.lb_SIMPLU1.Caption = Alltrim(tcExplicatie)
|
||
This.img_cautare.ToolTipText=[Alegeti ]+Alltrim(Lower(tcExplicatie))
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
This.clb_tx_cautare.text_simplu1.ControlSource=This.cvar_afisata
|
||
This.img_cautare.ToolTipText=[Alegeti ]+Alltrim(Lower(This.clb_tx_cautare.lb_SIMPLU1.Caption))
|
||
ENDPROC
|
||
|
||
PROCEDURE clb_tx_cautare.TEXT_SIMPLU1.DblClick
|
||
*!* modificare migrare v 1.0 > v 2.0
|
||
*!* lcConditie = This.Parent.Parent.cconditie
|
||
*!* If (&lcConditie) And This.Parent.Parent.lactiv
|
||
If This.Parent.Parent.lactiv
|
||
*!* modificare migrare v 1.0 > v 2.0 ^
|
||
This.Parent.Parent.do_apeleaza()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE clb_tx_cautare.TEXT_SIMPLU1.KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
lcConditie = This.Parent.Parent.cconditie
|
||
If ((Inlist(nKeyCode,9,13) And nShiftAltCtrl=0 And &lcConditie) Or (nKeyCode = 7 And nShiftAltCtrl = 0)) ;
|
||
And This.Parent.Parent.lactiv
|
||
Nodefault
|
||
This.Parent.Parent.do_apeleaza()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.Click
|
||
If This.Parent.lactiv
|
||
This.Parent.do_apeleaza()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.MouseEnter
|
||
Lparameters nButton, nShift, nXCoord, nYCoord
|
||
This.MousePointer = 15
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
This.MousePointer = 0
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_clb_cautare_var 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="shape_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="img_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="tx_cautare" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_activeaza
|
||
*m: do_apeleaza
|
||
*m: do_dezactiveaza
|
||
*m: do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
*p: cconditie && Conditia pentru care se apeleaza procedura din cprocedura.
|
||
*p: clista_parametri && Lista parametri pentru procedura din cparametri ( separati prin virgula ).
|
||
*p: cprocedura && Numele procedurii care se apeleaza.
|
||
*p: ctooltip
|
||
*p: cvaloare_intoarsa && Numele variabilei/obiectului in care se va intoarce rezultatul in cazul in care cprocedura este o functie.
|
||
*p: cvar_afisata && Control source-ul pentru textfield.
|
||
*p: lactiv && .T. daca se pot face modificari.
|
||
*p: _memberdata && XML Metadata for customizable properties
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderWidth = 0
|
||
cconditie = 2=2
|
||
clista_parametri =
|
||
cprocedura =
|
||
ctooltip =
|
||
cvaloare_intoarsa =
|
||
cvar_afisata =
|
||
Height = 31
|
||
lactiv = .T.
|
||
Name = "ct_clb_cautare_var"
|
||
Width = 354
|
||
_memberdata = <VFPData>
|
||
<memberdata name="cconditie" 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="cvaloare_intoarsa" type="Property" favorites="True"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'img_cautare' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 326, ;
|
||
Name = "img_cautare", ;
|
||
Picture = ..\grafice\alege.bmp, ;
|
||
Stretch = 1, ;
|
||
Top = 5, ;
|
||
Width = 20, ;
|
||
ZOrderSet = 1
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'lb_cautare' AS _lbbase WITH ;
|
||
Left = 6, ;
|
||
Name = "lb_cautare", ;
|
||
Top = 8, ;
|
||
ZOrderSet = 4
|
||
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'shape_cautare' AS _shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 29, ;
|
||
Left = 1, ;
|
||
Name = "shape_cautare", ;
|
||
Top = 1, ;
|
||
Width = 312, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
|
||
|
||
ADD OBJECT 'tx_cautare' AS _txbase WITH ;
|
||
Format = "!K", ;
|
||
Height = 23, ;
|
||
Left = 125, ;
|
||
Name = "tx_cautare", ;
|
||
ReadOnly = .T., ;
|
||
ToolTipText = "Pentru modificare apasati DEL sau butonul din dreapta", ;
|
||
Top = 4, ;
|
||
Width = 184, ;
|
||
ZOrderSet = 3
|
||
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE do_activeaza
|
||
This.lactiv = .T.
|
||
This.img_cautare.Visible = .T.
|
||
This.tx_cautare.ToolTipText = This.ctooltip
|
||
ENDPROC
|
||
|
||
PROCEDURE do_apeleaza
|
||
Local loObject
|
||
lcListaParametri = Iif(Type('This.clista_parametri')='N',Alltrim(Str(This.clista_parametri)),Alltrim(This.clista_parametri))
|
||
lcApelProcedura = This.cprocedura + Iif(!Empty(lcListaParametri),[(]+lcListaParametri+[)],[])
|
||
lcValoareIntoarsa = This.cvaloare_intoarsa
|
||
If Empty(lcValoareIntoarsa)
|
||
&lcApelProcedura
|
||
Else
|
||
&lcValoareIntoarsa = &lcApelProcedura
|
||
Endif
|
||
This.tx_cautare.Refresh()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_dezactiveaza
|
||
This.lactiv = .F.
|
||
This.img_cautare.Visible = .F.
|
||
This.ctooltip = This.tx_cautare.ToolTipText
|
||
This.tx_cautare.ToolTipText = []
|
||
ENDPROC
|
||
|
||
PROCEDURE do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
Lparameters tcExplicatie
|
||
This.lb_cautare.Caption = Alltrim(tcExplicatie)
|
||
This.img_cautare.ToolTipText=[Alegeti ]+Alltrim(Lower(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.shape_cautare.Width = 284
|
||
This.tx_caUTARE.Width = 96
|
||
This.img_cautare.Left = 296
|
||
This.Width = 324
|
||
Case lnMarime = 1
|
||
This.shape_cautare.Width = 314
|
||
This.tx_caUTARE.Left = 126
|
||
This.img_cautare.Left = 326
|
||
This.Width = 354
|
||
Endcase
|
||
This.tx_caUTARE.ControlSource=This.cvar_afisata
|
||
This.img_cautare.ToolTipText=[Alegeti ]+Alltrim(Lower(This.lb_cautare.Caption))
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.Click
|
||
If This.Parent.lactiv
|
||
This.Parent.do_apeleaza()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.MouseEnter
|
||
Lparameters nButton, nShift, nXCoord, nYCoord
|
||
This.MousePointer = 15
|
||
ENDPROC
|
||
|
||
PROCEDURE img_cautare.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
This.MousePointer = 0
|
||
ENDPROC
|
||
|
||
PROCEDURE tx_cautare.DblClick
|
||
*!* modificare migrare v 1.0 > v 2.0
|
||
*!* lcConditie = This.Parent.Parent.cconditie
|
||
*!* If (&lcConditie) And This.Parent.Parent.lactiv
|
||
If This.Parent.lactiv
|
||
*!* modificare migrare v 1.0 > v 2.0 ^
|
||
This.Parent.do_apeleaza()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE tx_cautare.KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
lcConditie = This.Parent.cconditie
|
||
If ((Inlist(nKeyCode,9,13) And nShiftAltCtrl=0 And &lcConditie) Or (nKeyCode = 7 And nShiftAltCtrl = 0)) ;
|
||
And This.Parent.lactiv
|
||
Nodefault
|
||
This.Parent.do_apeleaza()
|
||
Endif
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_opt_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="opt_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="tx_cautare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_explicatie" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Criteriu" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_apeleaza
|
||
*m: do_reset
|
||
*m: do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
*p: cconditie && Conditia pentru care se apeleaza procedura din cprocedura.
|
||
*p: clista_parametri && Lista parametri pentru procedura din cparametri ( separati prin virgula ).
|
||
*p: cprocedura && Numele procedurii care se apeleaza.
|
||
*p: cvaloare_intoarsa && Numele variabilei/obiectului in care se va intoarce rezultatul in cazul in care cprocedura este o functie.
|
||
*p: cvarfiltru && Numele variabilei care va fi folosita in filtru.
|
||
*p: cvar_afisata && Control source-ul pentru textfield.
|
||
*p: ntip && 1 - fara criteriu; 2 - poate alege criteriul
|
||
*p: nvaloarecriteriu
|
||
*p: value && Specifies the current state of a control.
|
||
*p: _memberdata && XML Metadata for customizable properties
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cconditie =
|
||
clista_parametri =
|
||
cprocedura =
|
||
cvaloare_intoarsa =
|
||
cvarfiltru =
|
||
cvar_afisata =
|
||
Height = 71
|
||
Name = "ct_opt_cautare"
|
||
ntip = 1
|
||
nvaloarecriteriu = 1
|
||
value = 1
|
||
Width = 290
|
||
_memberdata = <VFPData>
|
||
<memberdata name="cconditie" 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="cvaloare_intoarsa" type="Property" favorites="True"/>
|
||
<memberdata name="value" type="Property" favorites="True"/>
|
||
<memberdata name="cvarfiltru" type="Property" favorites="True"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Criteriu' AS criteriu_text WITH ;
|
||
ControlSource = "", ;
|
||
Enabled = .F., ;
|
||
Left = 19, ;
|
||
Name = "Criteriu", ;
|
||
ReadOnly = .F., ;
|
||
RowSource = "este...,1,nu este...,2", ;
|
||
Top = 42, ;
|
||
Value = 1
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'lb_explicatie' AS lb_simplu WITH ;
|
||
AutoSize = .F., ;
|
||
Caption = "Explicatie cautare", ;
|
||
Height = 17, ;
|
||
Left = 6, ;
|
||
Name = "lb_explicatie", ;
|
||
Top = 5, ;
|
||
Width = 282, ;
|
||
ZOrderSet = 2
|
||
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'opt_cautare' AS _optiongrup WITH ;
|
||
AutoSize = .F., ;
|
||
BorderStyle = 0, ;
|
||
Height = 46, ;
|
||
Left = 0, ;
|
||
Name = "opt_cautare", ;
|
||
Top = 21, ;
|
||
Width = 285, ;
|
||
ZOrderSet = 0, ;
|
||
OPTION1.AutoSize = .T., ;
|
||
OPTION1.Caption = "Toate inregistrarile", ;
|
||
OPTION1.Left = 5, ;
|
||
OPTION1.Name = "OPTION1", ;
|
||
OPTION1.Top = 5, ;
|
||
OPTION2.AutoSize = .T., ;
|
||
OPTION2.Caption = "", ;
|
||
OPTION2.Height = 17, ;
|
||
OPTION2.Left = 5, ;
|
||
OPTION2.Name = "OPTION2", ;
|
||
OPTION2.Top = 24, ;
|
||
OPTION2.Width = 18
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'tx_cautare' AS _textbox WITH ;
|
||
Enabled = .F., ;
|
||
Height = 23, ;
|
||
Left = 121, ;
|
||
Name = "tx_cautare", ;
|
||
TabIndex = 3, ;
|
||
TabStop = .F., ;
|
||
Top = 42, ;
|
||
Width = 162, ;
|
||
ZOrderSet = 1
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE do_apeleaza
|
||
Local loObject
|
||
This.tx_CAUTARE.Enabled = .T.
|
||
This.tx_CAUTARE.ReadOnly = .T.
|
||
This.crITERIU.Enabled = .T.
|
||
lcListaParametri = Iif(Type('This.clista_parametri')='N',Alltrim(Str(This.clista_parametri)),Alltrim(This.clista_parametri))
|
||
lcApelProcedura = This.cprocedura + Iif(!Empty(lcListaParametri),[(]+lcListaParametri+[)],[])
|
||
lcValoareIntoarsa = This.cvaloare_intoarsa
|
||
If Empty(lcValoareIntoarsa)
|
||
&lcApelProcedura
|
||
Else
|
||
&lcValoareIntoarsa = &lcApelProcedura
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_reset
|
||
This.tx_CAUTARE.ReadOnly = .F.
|
||
This.tx_CAUTARE.Enabled = .F.
|
||
This.crITERIU.Enabled = .F.
|
||
This.crITERIU.Value = 1
|
||
lcValoareAfisata = This.cvar_afisata
|
||
&lcValoareAfisata = Null
|
||
lcValoareFiltru = This.cvarfiltru
|
||
&lcValoareFiltru = Null
|
||
This.Refresh()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_schimba_explicatia && Schimba caption-ul de la label1.
|
||
Lparameters tcExplicatie
|
||
This.lb_EXPLICATIE.Caption= Alltrim(tcExplicatie)
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
This.tx_cautare.ControlSource=This.cvar_afisata
|
||
If This.ntip = 1
|
||
This.tx_cautare.Width = This.tx_cautare.Width + This.criteriu.Width
|
||
This.tx_cautare.Left = This.criteriu.Left
|
||
This.criteriu.Visible = .F.
|
||
Endif
|
||
If Empty(This.cvarfiltru)
|
||
This.cvarfiltru = This.cvar_afisata
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Criteriu.InteractiveChange
|
||
This.Parent.nvaloarecriteriu = This.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE opt_cautare.Click
|
||
This.Parent.Value=This.Value
|
||
If This.Value = 2
|
||
This.Parent.do_apeleaza()
|
||
Else
|
||
This.Parent.do_reset()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE opt_cautare.ProgrammaticChange
|
||
This.Parent.Value=This.Value
|
||
If This.Value = 2
|
||
This.Parent.do_apeleaza()
|
||
Else
|
||
This.Parent.do_reset()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE tx_cautare.DblClick
|
||
If This.Parent.opT_CAUTARE.Value = 2
|
||
This.Parent.do_apeleaza()
|
||
Endif
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS ct_perioada 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="_optiongrup1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
Height = 50
|
||
Name = "ct_perioada"
|
||
Width = 266
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
|
||
AutoSize = .T., ;
|
||
BorderStyle = 0, ;
|
||
Height = 49, ;
|
||
Left = 0, ;
|
||
Name = "_optiongrup1", ;
|
||
TabIndex = 3, ;
|
||
Top = 0, ;
|
||
Width = 109, ;
|
||
ZOrderSet = 7, ;
|
||
Option1.AutoSize = .T., ;
|
||
Option1.Caption = "O singura luna", ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option2.AutoSize = .T., ;
|
||
Option2.Caption = "O perioada", ;
|
||
Option2.Left = 5, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 27
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT '_textbox1' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "RK", ;
|
||
Height = 23, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 108, ;
|
||
Name = "_textbox1", ;
|
||
TabIndex = 14, ;
|
||
Top = 23, ;
|
||
Visible = .F., ;
|
||
Width = 78, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT '_textbox2' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "RK", ;
|
||
Height = 23, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 191, ;
|
||
Name = "_textbox2", ;
|
||
TabIndex = 15, ;
|
||
Top = 23, ;
|
||
Visible = .F., ;
|
||
Width = 68, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
|
||
Left = 108, ;
|
||
Name = "Caut_anluna1", ;
|
||
TabIndex = 13, ;
|
||
Top = 2, ;
|
||
ZOrderSet = 10, ;
|
||
cboan.Name = "cboan", ;
|
||
cboluna.Name = "cboluna"
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE _optiongrup1.Valid
|
||
This.caut_anluna1.Visible = Iif(This.Value=1,.T.,.F.)
|
||
|
||
This._textbox1.Visible = Iif(This.Value=2,.T.,.F.)
|
||
This._textbox2.Visible = Iif(This.Value=2,.T.,.F.)
|
||
If This.Value=1
|
||
This.caut_anluna1.SetFocus
|
||
Else
|
||
This._textbox1.SetFocus
|
||
If Empty(This._textbox1.Value)
|
||
This._textbox1.Value = Padl(gnLuna,2,'0') + Padl(gnAn,4,'0')
|
||
Endif
|
||
If Empty(This._textbox2.Value)
|
||
This._textbox2.Value = This._textbox1.Value
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox1.LostFocus
|
||
If Empty(Thisform._textbox2.Value)
|
||
Thisform._textbox2.Value=This.Value
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox1.Valid
|
||
If !Empty(This.Value)
|
||
lcLuna=Substr(Alltrim(This.Value),1,2)
|
||
lcAn=Substr(Alltrim(This.Value),3)
|
||
If Empty(lcAn) Or Len(lcAn)<4
|
||
lcAn=Alltrim(Str(Year(Date())))
|
||
This.Value=Padl(lcLuna,2,'0')+lcAn
|
||
Endif
|
||
If Type("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
Return 0
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox2.LostFocus
|
||
If Empty(Thisform._textbox1.Value)
|
||
Thisform._textbox1.Value=This.Value
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox2.Valid
|
||
If !Empty(This.Value)
|
||
lcLuna=Substr(Alltrim(This.Value),1,2)
|
||
lcAn=Substr(Alltrim(This.Value),3)
|
||
If Empty(lcAn) Or Len(lcAn)<4
|
||
lcAn=Alltrim(Str(Year(Date())))
|
||
This.Value=Padl(lcLuna,2,'0')+lcAn
|
||
Endif
|
||
If Type("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
Return 0
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_caut_luna AS _frmbase OF "..\..\..\roagest\comun\clase\_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="Clb_an_luna1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 63
|
||
Name = "frm_caut_luna"
|
||
Width = 360
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Left = 360
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 330
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 0
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ;
|
||
Height = 29, ;
|
||
Left = 4, ;
|
||
Name = "Clb_an_luna1", ;
|
||
Top = 32, ;
|
||
Width = 351, ;
|
||
LB_SIMPLU1.AutoSize = .F., ;
|
||
LB_SIMPLU1.Height = 17, ;
|
||
LB_SIMPLU1.Left = 8, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 7, ;
|
||
LB_SIMPLU1.Width = 192, ;
|
||
cb1.Left = 211, ;
|
||
cb1.Name = "cb1", ;
|
||
cb1.Top = 2, ;
|
||
cb2.Left = 273, ;
|
||
cb2.Name = "cb2", ;
|
||
cb2.Top = 2
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS tcTitlu, tcLabelText
|
||
|
||
IF !EMPTY(tcTitlu) AND TYPE('tcTitlu') = 'C'
|
||
this.lb_TITLU_ALB_B121.Caption = tcTitlu
|
||
ENDIF
|
||
|
||
IF !EMPTY(tcLabelText) AND TYPE('tcLabelText') = 'C'
|
||
this.clb_an_luna1.lb_SIMPLU1.Caption = tcLabelText
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Clb_an_luna1.cb1.Valid
|
||
IF TYPE('poLuna') = 'O'
|
||
poLuna.nLuna = INT(VAL(this.Value))
|
||
poLuna.nAn = INT(VAL(this.Parent.cb2.Value))
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Clb_an_luna1.cb2.Valid
|
||
IF TYPE('poLuna') = 'O'
|
||
poLuna.nAn = INT(VAL(this.Value))
|
||
poLuna.nLuna = INT(VAL(this.Parent.cb1.Value))
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_data 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="txt_data" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 71
|
||
Name = "frm_data"
|
||
Width = 247
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 241
|
||
_shape2.Height = 29
|
||
_shape2.Left = 184
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 66
|
||
Lb_titlu_alb_b121.Caption = "Data"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 4
|
||
BUT_TERMIN1.Left = 217
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 2
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 132
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 5
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 186, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 3, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'txt_data' AS textbox WITH ;
|
||
Alignment = 3, ;
|
||
ControlSource = "pdData", ;
|
||
Height = 23, ;
|
||
Left = 59, ;
|
||
Name = "txt_data", ;
|
||
TabIndex = 1, ;
|
||
Top = 39, ;
|
||
Width = 132
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_filtru_luna AS formtermin 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="Text2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: makef_ora
|
||
*m: makef_vfp
|
||
*p: camp_nume
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
DoCreate = .T.
|
||
filtru =
|
||
filtru_vfp =
|
||
Height = 131
|
||
Name = "frm_filtru_luna"
|
||
ScrollBars = 0
|
||
Width = 263
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Left = 228
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 232
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
Format = "RK", ;
|
||
Height = 25, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 62, ;
|
||
Name = "Text1", ;
|
||
TabIndex = 1, ;
|
||
ToolTipText = "", ;
|
||
Top = 47, ;
|
||
Value = , ;
|
||
Width = 191
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||
Alignment = 1, ;
|
||
Format = "RK", ;
|
||
Height = 25, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 62, ;
|
||
Name = "Text2", ;
|
||
TabIndex = 2, ;
|
||
ToolTipText = "", ;
|
||
Top = 96, ;
|
||
Value = , ;
|
||
Width = 191
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE Destroy
|
||
With This
|
||
Local lcLuna1, lcLuna2, lcSemn1, lcSemn2, lcFiltru, lcListaCampuri, lcCamp
|
||
lcListaCampuri = ""
|
||
lcCamp = ""
|
||
lcLuna1 = .text1.Value
|
||
lcLuna2 = .text2.Value
|
||
If Empty(lcLuna1) AND EMPTY(lcLuna2)
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
Return
|
||
Endif
|
||
pcValoare1 = SUBSTR(lcLuna1,1,2)+"/"+SUBSTR(lcLuna1,3)
|
||
pcValoare2 = SUBSTR(lcLuna2,1,2)+"/"+SUBSTR(lcLuna2,3)
|
||
|
||
thisform.makef_ora(lcLuna1,lcLuna2)
|
||
thisform.makef_vfp(lcLuna1,lcLuna2)
|
||
pcFiltru = .filtru
|
||
pcFiltruVFP = .filtru_vfp
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS lcCampNume,lcTitlu,lnCriteriu,lnCriteriu2
|
||
|
||
DODEFAULT()
|
||
lctitlu=STRTRAN(lcTitlu,'\<','')
|
||
WITH this
|
||
.camp_nume = lcCampNume
|
||
.Lb_titlu_alb_b121.Caption = UPPER(lcTitlu)
|
||
.text1.ToolTipText='Introduceti expresia cu care se compara ' + lower(lcTitlu)
|
||
.text2.ToolTipText='Introduceti expresia cu care se compara ' + lower(lcTitlu)
|
||
IF EMPTY(lccampnume)
|
||
.text1.Enabled = .F.
|
||
.criteriu.Enabled = .F.
|
||
.text2.Enabled = .F.
|
||
.criteriu2.Enabled = .F.
|
||
ENDIF
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_ora
|
||
Lparameters lcLuna1,lcLuna2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
With Thisform
|
||
lcFiltru = [nume_camp_cautat between ]+Alltrim(Str(Val(Substr(lcLuna1,1,2))+Val(Substr(lcLuna1,3))*12))+[ and ]+;
|
||
ALLTRIM(Str(Val(Substr(lcLuna2,1,2))+Val(Substr(lcLuna2,3))*12))+[ ]
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru = .filtru + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
If llCampuri
|
||
.filtru = Strtran([ AND (] + Strtran(.filtru,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru = Strtran(.filtru,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_vfp
|
||
Lparameters lcLuna1,lcLuna2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
With Thisform
|
||
lcFiltru = [nume_camp_cautat>=]+Alltrim(Str(Val(Substr(lcLuna1,1,2))+Val(Substr(lcLuna1,3))*12))+[ and nume_camp_cautat<=]+;
|
||
ALLTRIM(Str(Val(Substr(lcLuna2,1,2))+Val(Substr(lcLuna2,3))*12))+[ ]
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru_vfp = .filtru_vfp + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
If llCampuri
|
||
.filtru_vfp = Strtran([ AND (] + Strtran(.filtru_vfp,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru_vfp = Strtran(.filtru_vfp,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
RETURN this.filtru
|
||
ENDPROC
|
||
|
||
PROCEDURE Text1.LostFocus
|
||
thisform.text2.Value=this.Value
|
||
ENDPROC
|
||
|
||
PROCEDURE Text1.Valid
|
||
IF !empty(this.value)
|
||
lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
|
||
lcAn=SUBSTR(ALLTRIM(this.Value),3)
|
||
IF EMPTY(lcAn) OR LEN(lcAn)<4
|
||
lcAn=ALLTRIM(STR(YEAR(DATE())))
|
||
this.value=PADL(lcLuna,2,'0')+lcAn
|
||
ENDIF
|
||
IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
RETURN 0
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Text2.Valid
|
||
IF !empty(this.value)
|
||
lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
|
||
lcAn=SUBSTR(ALLTRIM(this.Value),3)
|
||
IF EMPTY(lcAn) OR LEN(lcAn)<4
|
||
lcAn=ALLTRIM(STR(YEAR(DATE())))
|
||
this.value=PADL(lcLuna,2,'0')+lcAn
|
||
ENDIF
|
||
IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
RETURN 0
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_filtru_numar AS formtermin 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="Criteriu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Criteriu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grup_optiuni_filtru_numar1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: makef_ora
|
||
*m: makef_vfp
|
||
*p: camp_nume
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*p: nrzec
|
||
*p: tip
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
filtru =
|
||
filtru_vfp =
|
||
Height = 131
|
||
Name = "frm_filtru_numar"
|
||
nrzec = 0
|
||
ScrollBars = 0
|
||
tip =
|
||
Width = 298
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Left = 265
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 267
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Criteriu1' AS criteriu_numar WITH ;
|
||
Left = 26, ;
|
||
Name = "Criteriu1", ;
|
||
TabIndex = 5, ;
|
||
Top = 42
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Criteriu2' AS criteriu_numar WITH ;
|
||
Left = 26, ;
|
||
Name = "Criteriu2", ;
|
||
Top = 96
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grup_optiuni_filtru_numar1' AS grup_optiuni_filtru_numar WITH ;
|
||
Left = 91, ;
|
||
Name = "Grup_optiuni_filtru_numar1", ;
|
||
Top = 69, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option2.Left = 66, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 5
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'Text1' AS _textbox WITH ;
|
||
Alignment = 1, ;
|
||
Format = "K", ;
|
||
InputMask = "999 999 999 999", ;
|
||
Left = 82, ;
|
||
Name = "Text1", ;
|
||
TabIndex = 1, ;
|
||
Top = 43, ;
|
||
Value = 0, ;
|
||
Width = 191
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Text2' AS _textbox WITH ;
|
||
Alignment = 1, ;
|
||
Format = "K", ;
|
||
InputMask = "999 999 999 999", ;
|
||
Left = 82, ;
|
||
Name = "Text2", ;
|
||
TabIndex = 2, ;
|
||
Top = 97, ;
|
||
Value = 0, ;
|
||
Width = 191
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE Destroy
|
||
Local lcNumar1, lcNumar2, lnCriteriu1, lnCriteriu2, lcIntre, lnNrZec, lcNumarVFP1, lcNumarVFP2
|
||
|
||
With Thisform
|
||
|
||
Do Case
|
||
Case .Grup_optiuni_filtru_numar1.Value = 1
|
||
lcIntre = [ AND ]
|
||
Case .Grup_optiuni_filtru_numar1.Value = 2
|
||
lcIntre = [ OR ]
|
||
Endcase
|
||
lnCriteriu1 = .criteriu1.Value
|
||
lnCriteriu2 = .criteriu2.Value
|
||
DO case
|
||
CASE .tip='N'
|
||
lnNrZec=Val(Alltrim(.nrZec))
|
||
lcNumar1 = Alltrim(Str(.Text1.Value,MAX(20,Len(Str(.Text1.Value))),lnNrZec))
|
||
lcNumar2 = Alltrim(Str(.Text2.Value,MAX(20,Len(Str(.Text2.Value))),lnNrZec))
|
||
lcNumarVFP1 =lcNumar1
|
||
lcNumarVFP2 = lcNumar2
|
||
CASE LEFT(.tip,1)='D'
|
||
lcNumar1=Alltrim(Dtos(.Text1.Value))
|
||
lcNumar2=Alltrim(Dtos(.Text2.Value))
|
||
lcNumarVFP1=Alltrim(Dtoc(.Text1.Value))
|
||
lcNumarVFP2=Alltrim(Dtoc(.Text2.Value))
|
||
CASE .tip='T'
|
||
IF !EMPTY(.Text1.Value)
|
||
lcNumar1=Alltrim(TTOC(.Text1.Value,1))
|
||
lcNumarVFP1=Alltrim(TTOC(.Text1.Value,1))
|
||
ENDIF
|
||
IF !EMPTY(.Text2.Value)
|
||
lcNumar2=Alltrim(TTOC(.Text2.Value,1))
|
||
lcNumarVFP2=Alltrim(TTOC(.Text2.Value,1))
|
||
ENDIF
|
||
ENDCASE
|
||
If Empty(lcNumar1) And Empty(lcNumar2)
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
Return
|
||
ENDIF
|
||
|
||
Thisform.makef_ora(lcNumar1,lcNumar2,lnCriteriu1,lnCriteriu2)
|
||
Thisform.makef_vfp(lcNumarVFP1,lcNumarVFP2,lnCriteriu1,lnCriteriu2)
|
||
pcFiltru = .filtru
|
||
pcFiltruVFP = .filtru_vfp
|
||
|
||
If Type("pcValoare1") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cValoare1
|
||
pcValoare1 = lcNumarVFP1
|
||
Endif
|
||
If Type("pcValoare2") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cValoare2
|
||
pcValoare2 = lcNumarVFP2
|
||
Endif
|
||
If Type("pcIntre") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cIntre
|
||
pcIntre = lcIntre
|
||
Endif
|
||
If Type("pnCriteriu")="N"
|
||
pnCriteriu = lnCriteriu1
|
||
ENDIF
|
||
|
||
If Type("pnCriteriu2")="N"
|
||
pnCriteriu2 = lnCriteriu2
|
||
Endif
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS lcCampNume,lcTitlu,lnCriteriu1,lnCriteriu2,lcTip,lcMask,lnNrZec
|
||
|
||
DODEFAULT()
|
||
|
||
lctitlu=STRTRAN(lcTitlu,'\<','')
|
||
WITH this
|
||
.tip = lcTip
|
||
IF EMPTY(lcTip)
|
||
.tip='N'
|
||
ENDIF
|
||
.criteriu1.value = lnCriteriu1
|
||
.criteriu2.value = lnCriteriu2
|
||
.camp_nume = lcCampNume
|
||
.Lb_titlu_alb_b121.Caption = UPPER(lcTitlu)
|
||
.nrZec = ALLTRIM(STR(lnNrZec))
|
||
* .text1.ToolTipText='Introduceti expresia cu care se compara ' + lower(lcTitlu)
|
||
IF EMPTY(lccampnume)
|
||
.text1.Enabled = .F.
|
||
.text2.Enabled = .F.
|
||
.criteriu1.Enabled = .F.
|
||
.criteriu2.Enabled = .F.
|
||
ENDIF
|
||
IF !EMPTY(lcMask)
|
||
.text1.inputmask=lcMask
|
||
.text2.inputmask=lcMask
|
||
ENDIF
|
||
IF LEFT(.tip,1)='D' && D, D1 (fara nvl())
|
||
.Grup_optiuni_filtru_numar1.Visible=.F.
|
||
.text1.inputmask=""
|
||
.text1.value={}
|
||
.criteriu1.RowSource="> = ,1, > ,2"
|
||
.criteriu1.value=1
|
||
.text2.inputmask=""
|
||
.text2.value={}
|
||
.criteriu2.RowSource="< = ,1, < ,2"
|
||
.criteriu2.value=1
|
||
ENDIF
|
||
IF .tip='T'
|
||
.Grup_optiuni_filtru_numar1.Visible=.F.
|
||
.text1.inputmask=""
|
||
.text1.value={// : :}
|
||
.criteriu1.RowSource="> = ,1, > ,2"
|
||
.criteriu1.value=1
|
||
.text2.inputmask=""
|
||
.text2.value={// : :}
|
||
.criteriu2.RowSource="< = ,1, < ,2"
|
||
.criteriu2.value=1
|
||
ENDIF
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_ora
|
||
Lparameters lcNumar1,lcNumar2,lnCriteriu1,lnCriteriu2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
lcFiltru=""
|
||
|
||
With Thisform
|
||
If .tip=='N'
|
||
*!* lcNumar1=Alltrim(.text1.Value)
|
||
*!* lcNumar2=Alltrim(.text2.Value)
|
||
*!* If lcNumar1="0" And lcNumar2="0"
|
||
*!* .filtru = ""
|
||
*!* Return
|
||
*!* Endif
|
||
Do Case
|
||
Case lnCriteriu1 = 1
|
||
lcSemn1 = [>=]
|
||
Case lnCriteriu1 = 2
|
||
lcSemn1 = [<=]
|
||
Case lnCriteriu1 = 3
|
||
lcSemn1 = [=]
|
||
Case lnCriteriu1 = 4
|
||
lcSemn1 = [<>]
|
||
Case lnCriteriu1 = 5
|
||
lcSemn1 = [>]
|
||
Case lnCriteriu1 = 6
|
||
lcSemn1 = [<]
|
||
Endcase
|
||
Do Case
|
||
Case lnCriteriu2 = 1
|
||
lcSemn2 = [>=]
|
||
Case lnCriteriu2 = 2
|
||
lcSemn2 = [<=]
|
||
Case lnCriteriu2 = 3
|
||
lcSemn2 = [=]
|
||
Case lnCriteriu2 = 4
|
||
lcSemn2 = [<>]
|
||
Case lnCriteriu2 = 5
|
||
lcSemn2 = [>]
|
||
Case lnCriteriu2 = 6
|
||
lcSemn2 = [<]
|
||
Endcase
|
||
If This.Grup_optiuni_filtru_numar1.Value = 1
|
||
lcFiltru = [nume_camp_cautat] + lcSemn1 + lcNumar1 + [ AND nume_camp_cautat ] + lcSemn2 + lcNumar2
|
||
Else
|
||
lcFiltru = [nume_camp_cautat ] + lcSemn1 + lcNumar1 + [ OR nume_camp_cautat ] + lcSemn2 + lcNumar2
|
||
Endif
|
||
Else
|
||
*!* lcNumar1 = Dtos(.text1.Value)
|
||
*!* lcNumar2 = Dtos(.text2.Value)
|
||
*!* If Empty(lcNumar1) And Empty(lcNumar2)
|
||
*!* .filtru = ""
|
||
*!* Return
|
||
*!* Endif
|
||
If .tip = 'T'
|
||
pcDataEmpty = [1900-01-01 00:00:00]
|
||
Else
|
||
pcDataEmpty = [1900-01-01]
|
||
Endif
|
||
If Empty(lcNumar1)
|
||
lcNumar1 = pcDataEmpty
|
||
Endif
|
||
If Empty(lcNumar2)
|
||
lcNumar2 = pcDataEmpty
|
||
Endif
|
||
|
||
Do Case
|
||
Case lnCriteriu1 = 1
|
||
If .tip = 'T'
|
||
lcNumar1 = ['] + lcNumar1 + [','YYYYMMDDHH24:MI:SS'] && >=
|
||
Else
|
||
lcNumar1 = ['] + lcNumar1 + [ 00:00:00','YYYY-MM-DD HH24:MI:SS'] && >=
|
||
Endif
|
||
Case lnCriteriu1 = 2
|
||
If .tip = 'T'
|
||
lcNumar1 = ['] + lcNumar1 + [','YYYYMMDDHH24:MI:SS'] && >=
|
||
Else
|
||
lcNumar1 = ['] + lcNumar1 + [','YYYY-MM-DD'] && >
|
||
Endif
|
||
Endcase
|
||
|
||
Do Case
|
||
Case lnCriteriu2 = 1
|
||
If .tip = 'T'
|
||
lcNumar2 = ['] + lcNumar2 + [','YYYYMMDDHH24:MI:SS'] && <=
|
||
Else
|
||
lcNumar2 = ['] + lcNumar2 + [ 23:59:59','YYYY-MM-DD HH24:MI:SS'] && <=
|
||
Endif
|
||
Case lnCriteriu2 = 2
|
||
If .tip = 'T'
|
||
lcNumar2 = ['] + lcNumar2 + [','YYYYMMDDHH24:MI:SS'] && <=
|
||
Else
|
||
lcNumar2 = ['] + lcNumar2 + [','YYYY-MM-DD'] && <
|
||
Endif
|
||
Endcase
|
||
If .Grup_optiuni_filtru_numar1.Value = 1
|
||
If .tip = 'T'
|
||
lcFiltru = [NVL(nume_camp_cautat,to_date('] + pcDataEmpty + [','YYYY-MM-DD HH24:MI:SS')) between to_date(] + lcNumar1 + [) AND to_date(] + lcNumar2 + [)]
|
||
ELSE
|
||
IF .tip = 'D1'
|
||
lcFiltru = [nume_camp_cautat between to_date(] + lcNumar1 + [) AND to_date(] + lcNumar2 + [)]
|
||
ELSE
|
||
lcFiltru = [NVL(nume_camp_cautat,to_date('] + pcDataEmpty + [','YYYY-MM-DD')) between to_date(] + lcNumar1 + [) AND to_date(] + lcNumar2 + [)]
|
||
ENDIF
|
||
Endif
|
||
Else
|
||
If .tip = 'T'
|
||
lcFiltru = [NVL(nume_camp_cautat,to_date('] + pcDataEmpty + [','YYYY-MM-DD HH24:MI:SS')) between to_date(] + lcNumar1 + [) OR to_date(] + lcNumar2 + [)]
|
||
ELSE
|
||
IF .tip = 'D1'
|
||
lcFiltru = [nume_camp_cautat between to_date(] + lcNumar1 + [) OR to_date(] + lcNumar2 + [)]
|
||
ELSE
|
||
lcFiltru = [NVL(nume_camp_cautat,to_date('] + pcDataEmpty + [','YYYY-MM-DD')) between to_date(] + lcNumar1 + [) OR to_date(] + lcNumar2 + [)]
|
||
ENDIF
|
||
Endif
|
||
|
||
Endif
|
||
Endif
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru = .filtru + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
If llCampuri
|
||
.filtru = Strtran([ AND (] + Strtran(.filtru,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru = Strtran(.filtru,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_vfp
|
||
Lparameters lcNumar1,lcNumar2,lnCriteriu1,lnCriteriu2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
lcFiltru=""
|
||
With Thisform
|
||
If .tip='N'
|
||
*!* lcNumar1=Alltrim(.text1.Value)
|
||
*!* lcNumar2=Alltrim(.text2.Value)
|
||
*!* If (lcNumar1="0" And lcNumar2="0")
|
||
*!* .filtru_vfp = ""
|
||
*!* Return
|
||
*!* Endif
|
||
Do Case
|
||
Case lnCriteriu1 = 1
|
||
lcSemn1 = [>=]
|
||
Case lnCriteriu1 = 2
|
||
lcSemn1 = [<=]
|
||
Case lnCriteriu1 = 3
|
||
lcSemn1 = [=]
|
||
Case lnCriteriu1 = 4
|
||
lcSemn1 = [<>]
|
||
Case lnCriteriu1 = 5
|
||
lcSemn1 = [>]
|
||
Case lnCriteriu1 = 6
|
||
lcSemn1 = [<]
|
||
Endcase
|
||
Do Case
|
||
Case lnCriteriu2 = 1
|
||
lcSemn2 = [>=]
|
||
Case lnCriteriu2 = 2
|
||
lcSemn2 = [<=]
|
||
Case lnCriteriu2 = 3
|
||
lcSemn2 = [=]
|
||
Case lnCriteriu2 = 4
|
||
lcSemn2 = [<>]
|
||
Case lnCriteriu2 = 5
|
||
lcSemn2 = [>]
|
||
Case lnCriteriu2 = 6
|
||
lcSemn2 = [<]
|
||
Endcase
|
||
If .Grup_optiuni_filtru_numar1.Value = 1
|
||
lcFiltru = [nume_camp_cautat] + lcSemn1 + lcNumar1 + [ AND nume_camp_cautat ] + lcSemn2 + lcNumar2
|
||
Else
|
||
lcFiltru = [nume_camp_cautat ] + lcSemn1 + lcNumar1 + [ OR nume_camp_cautat ] + lcSemn2 + lcNumar2
|
||
Endif
|
||
Else
|
||
*!* lcNumar1 = Dtos(.text1.Value)
|
||
*!* lcNumar2 = Dtos(.text2.Value)
|
||
*!* If Empty(lcNumar1) And Empty(lcNumar2)
|
||
*!* .filtru_vfp = ""
|
||
*!* Return
|
||
*!* Endif
|
||
Do Case
|
||
Case lnCriteriu1 = 1
|
||
lcSemn1=[>=]
|
||
Case lnCriteriu1 = 2
|
||
lcSemn1=[>]
|
||
Endcase
|
||
Do Case
|
||
Case lnCriteriu2 = 1
|
||
lcSemn2=[<=]
|
||
Case lnCriteriu2 = 2
|
||
lcSemn2=[<]
|
||
Endcase
|
||
If .Grup_optiuni_filtru_numar1.Value = 1
|
||
lcFiltru = [nume_camp_cautat] + lcSemn1 +[CTOD('] +lcNumar1 + [') AND nume_camp_cautat ] + lcSemn2 +[CTOD(']+lcNumar2+[')]
|
||
Else
|
||
lcFiltru = [nume_camp_cautat ] + lcSemn1 +[CTOD(']+lcNumar1 + [') OR nume_camp_cautat ] + lcSemn2 + [CTOD(']+lcNumar2+[')]
|
||
Endif
|
||
Endif
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru_vfp = .filtru_vfp + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
If llCampuri
|
||
.filtru_vfp = Strtran([ AND (] + Strtran(.filtru_vfp,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru_vfp = Strtran(.filtru_vfp,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
RETURN this.filtru
|
||
ENDPROC
|
||
|
||
PROCEDURE Criteriu1.InteractiveChange
|
||
thisform.text1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE Criteriu2.InteractiveChange
|
||
thisform.text2.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE Text1.LostFocus
|
||
thisform.text2.Value=this.Value
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_filtru_text AS formtermin 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="Criteriu" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Criteriu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Grup_optiuni_filtru" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: makef_ora
|
||
*m: makef_vfp
|
||
*p: camp_nume
|
||
*p: filtru
|
||
*p: filtru_vfp
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
DoCreate = .T.
|
||
filtru =
|
||
filtru_vfp =
|
||
Height = 115
|
||
Name = "frm_filtru_text"
|
||
ScrollBars = 0
|
||
Width = 320
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Left = 286
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 290
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Criteriu' AS criteriu_text WITH ;
|
||
Left = 10, ;
|
||
Name = "Criteriu", ;
|
||
Top = 62
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Criteriu2' AS criteriu_text WITH ;
|
||
Left = 10, ;
|
||
Name = "Criteriu2", ;
|
||
TabIndex = 6, ;
|
||
Top = 120
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Grup_optiuni_filtru' AS grup_optiuni_filtru WITH ;
|
||
Left = 94, ;
|
||
Name = "Grup_optiuni_filtru", ;
|
||
TabIndex = 7, ;
|
||
Top = 90, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option2.Left = 66, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 5, ;
|
||
Option3.Left = 134, ;
|
||
Option3.Name = "Option3", ;
|
||
Option3.Top = 5
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'Text' AS _textbox WITH ;
|
||
Format = "!KT", ;
|
||
Height = 25, ;
|
||
Left = 110, ;
|
||
Name = "Text", ;
|
||
TabIndex = 1, ;
|
||
ToolTipText = "", ;
|
||
Top = 62, ;
|
||
Width = 198
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Text2' AS _textbox WITH ;
|
||
Format = "!KT", ;
|
||
Height = 25, ;
|
||
Left = 110, ;
|
||
Name = "Text2", ;
|
||
TabIndex = 2, ;
|
||
Top = 120, ;
|
||
Width = 198
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
PROCEDURE Destroy
|
||
Do Case
|
||
Case Thisform.grup_optiuni_filtru.Value = 1
|
||
lcIntre = ''
|
||
Case Thisform.grup_optiuni_filtru.Value = 2
|
||
lcIntre = [ AND ]
|
||
Otherwise
|
||
lcIntre = [ OR ]
|
||
Endcase
|
||
|
||
If Type("pcIntre") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cIntre
|
||
pcIntre = lcIntre
|
||
Endif
|
||
|
||
With This
|
||
Local lnCriteriu,lnCriteriu2, lcNume, lcNume2
|
||
lnCriteriu = .criteriu.Value
|
||
lnCriteriu2 = .criteriu2.Value
|
||
|
||
lcNume = Alltrim(STRTRAN(.Text.Value,['],['']))
|
||
lcNume2 = Alltrim(STRTRAN(.text2.Value,['],['']))
|
||
|
||
If Type("pcValoare1") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cValoare1
|
||
pcValoare1 = lcNume
|
||
Endif
|
||
If Type("pcValoare2") = "C" && variabila privata folosita in ck_filtru_text pt a initializa proprietatea cValoare2
|
||
pcValoare2 = lcNume2
|
||
Endif
|
||
If Type("pnCriteriu") = "N"
|
||
pnCriteriu = lnCriteriu
|
||
Endif
|
||
If Type("pnCriteriu2") = "N"
|
||
pnCriteriu2 = lnCriteriu2
|
||
Endif
|
||
|
||
If Empty(lcNume) And Empty(lcNume2) AND lnCriteriu<=5
|
||
.filtru = ""
|
||
.filtru_vfp = ""
|
||
Return
|
||
Endif
|
||
|
||
Thisform.makef_ora(lcNume,lcNume2,lcIntre,lnCriteriu,lnCriteriu2)
|
||
Thisform.makef_vfp(lcNume,lcNume2,lcIntre,lnCriteriu,lnCriteriu2)
|
||
pcFiltru = .filtru
|
||
pcFiltruVFP = .filtru_vfp
|
||
Endwith
|
||
*!* Do Case
|
||
*!* Case lnCriteriu=1
|
||
*!* lcFiltru = [nume_camp_cautat LIKE '] + Upper(Alltrim(lcNume)) + [%']
|
||
*!* Case lnCriteriu=2
|
||
*!* lcFiltru = [nume_camp_cautat ='] + Upper(Alltrim(lcNume)) + [']
|
||
*!* Case lnCriteriu=3
|
||
*!* lcFiltru = [nume_camp_cautat !='] + Upper(Alltrim(lcNume)) + [']
|
||
*!* Case lnCriteriu=4
|
||
*!* lcFiltru = [nume_camp_cautat LIKE '%] + Upper(Alltrim(lcNume)) + [%']
|
||
*!* Case lnCriteriu=5
|
||
*!* lcFiltru = [nume_camp_cautat NOT LIKE '%] + Upper(Alltrim(lcNume)) + [%']
|
||
*!* Endcase
|
||
*!* If !Empty(lcIntre)
|
||
*!* Do Case
|
||
*!* Case lnCriteriu2=1
|
||
*!* lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat LIKE '] + Upper(Alltrim(lcNume2)) + [%']
|
||
*!* Case lnCriteriu2=2
|
||
*!* lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat ='] + Upper(Alltrim(lcNume2)) + [']
|
||
*!* Case lnCriteriu2=3
|
||
*!* lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat !='] + Upper(Alltrim(lcNume2)) + [']
|
||
*!* Case lnCriteriu2=4
|
||
*!* lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat LIKE '%] + Upper(Alltrim(lcNume2)) + [%']
|
||
*!* Case lnCriteriu2=5
|
||
*!* lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat NOT LIKE '%] + Upper(Alltrim(lcNume2)) + [%']
|
||
*!* Endcase
|
||
*!* Endif
|
||
|
||
*!* llCampuri=.F.
|
||
*!* lcListaCampuri=.camp_nume
|
||
*!* DO WHILE !EMPTY(lcListaCampuri)
|
||
*!* IF OCCURS(',',lcListaCampuri)>0
|
||
*!* lcCamp=SUBSTR(lcListaCampuri,1,AT(',',lcListaCampuri,1)-1)
|
||
*!* lcListaCampuri=SUBSTR(lcListaCampuri,AT(',',lcListaCampuri,1)+1)
|
||
*!* llCampuri=.T.
|
||
*!* ELSE
|
||
*!* lcCamp=lcListaCampuri
|
||
*!* lcListaCampuri=""
|
||
*!* ENDIF
|
||
*!* .filtru = .filtru + [conditie_logica(] + STRTRAN(lcFiltru,"nume_camp_cautat",UPPER(lcCamp)) + [)]
|
||
*!* ENDDO
|
||
|
||
*!* IF llCampuri
|
||
*!* .filtru = STRTRAN([ AND (] + STRTRAN(.filtru,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
*!* ELSE
|
||
*!* .filtru = STRTRAN(.filtru,"conditie_logica"," AND ")
|
||
*!* ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
Lparameters lcCampNume,lcTitlu,lnCriteriu,lnCriteriu2
|
||
|
||
DoDefault()
|
||
lcTitlu=Strtran(lcTitlu,'\<','')
|
||
With Thisform
|
||
.criteriu.Value = lnCriteriu
|
||
If lnCriteriu>5
|
||
.Text.ReadOnly=.T.
|
||
Endif
|
||
.criteriu2.Value = lnCriteriu2
|
||
If lnCriteriu2>5
|
||
.Text2.ReadOnly=.T.
|
||
Endif
|
||
.camp_nume = lcCampNume
|
||
.Lb_titlu_alb_b121.Caption = UPPER(lcTitlu)
|
||
.Text.ToolTipText='Introduceti expresia cu care se compara ' + Lower(lcTitlu)
|
||
.text2.ToolTipText='Introduceti expresia cu care se compara ' + Lower(lcTitlu)
|
||
If Empty(lcCampNume)
|
||
.Text.Enabled = .F.
|
||
.criteriu.Enabled = .F.
|
||
.text2.Enabled = .F.
|
||
.criteriu2.Enabled = .F.
|
||
Endif
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_ora
|
||
Lparameters lcNume,lcNume2,lcIntre,lnCriteriu,lnCriteriu2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
lcFiltru=""
|
||
With This
|
||
Do Case
|
||
Case lnCriteriu=1
|
||
lcFiltru = [nume_camp_cautat LIKE '] + Upper(Alltrim(lcNume)) + [%']
|
||
Case lnCriteriu=2
|
||
lcFiltru = [nume_camp_cautat ='] + Upper(Alltrim(lcNume)) + [']
|
||
Case lnCriteriu=3
|
||
lcFiltru = [nume_camp_cautat !='] + Upper(Alltrim(lcNume)) + [']
|
||
Case lnCriteriu=4
|
||
lcFiltru = [nume_camp_cautat LIKE '%] + Upper(Alltrim(lcNume)) + [%']
|
||
Case lnCriteriu=5
|
||
lcFiltru = [nume_camp_cautat NOT LIKE '%] + Upper(Alltrim(lcNume)) + [%']
|
||
Case lnCriteriu=6
|
||
lcFiltru = [nume_camp_cautat is null]
|
||
Case lnCriteriu=7
|
||
lcFiltru = [nume_camp_cautat is not null]
|
||
Endcase
|
||
If !Empty(lcIntre)
|
||
Do Case
|
||
Case lnCriteriu2=1
|
||
lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat LIKE '] + Upper(Alltrim(lcNume2)) + [%']
|
||
Case lnCriteriu2=2
|
||
lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat ='] + Upper(Alltrim(lcNume2)) + [']
|
||
Case lnCriteriu2=3
|
||
lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat !='] + Upper(Alltrim(lcNume2)) + [']
|
||
Case lnCriteriu2=4
|
||
lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat LIKE '%] + Upper(Alltrim(lcNume2)) + [%']
|
||
Case lnCriteriu2=5
|
||
lcFiltru = lcFiltru + [ ] + Upper(Alltrim(lcIntre)) + [ nume_camp_cautat NOT LIKE '%] + Upper(Alltrim(lcNume2)) + [%']
|
||
Case lnCriteriu=6
|
||
lcFiltru = [nume_camp_cautat is null]
|
||
Case lnCriteriu=7
|
||
lcFiltru = [nume_camp_cautat is not null]
|
||
Endcase
|
||
Endif
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru = .filtru + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
If llCampuri
|
||
.filtru = Strtran([ AND (] + Strtran(.filtru,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru = Strtran(.filtru,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE makef_vfp
|
||
Lparameters lcNume,lcNume2,lcIntre,lnCriteriu,lnCriteriu2
|
||
Local llCampuri,lcListaCampuri,lcFiltru
|
||
lcFiltru=""
|
||
With This
|
||
Do Case
|
||
Case lnCriteriu = 1
|
||
lcFiltru = "LIKE([" + Upper(lcNume) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu = 2
|
||
lcFiltru = "UPPER(nume_camp_cautat)=[" + Upper(lcNume) + "]"
|
||
Case lnCriteriu = 3
|
||
lcFiltru = "UPPER(nume_camp_cautat)<>[" + Upper(lcNume) + "]"
|
||
Case lnCriteriu = 4
|
||
lcFiltru = "LIKE([*" + Upper(lcNume) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu = 5
|
||
*.filtru = "upper(" + .camp_nume + ") NOT LIKE %" + UPPER(lcNume) + "%"
|
||
lcFiltru = "!LIKE([*" + Upper(lcNume) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu=6
|
||
lcFiltru = [EMPTY(nume_camp_cautat)]
|
||
Case lnCriteriu=7
|
||
lcFiltru = [!EMPTY(nume_camp_cautat)]
|
||
Endcase
|
||
If !Empty(lcIntre)
|
||
Do Case
|
||
Case lnCriteriu2 = 1
|
||
lcFiltru = lcFiltru + " " + Upper(Alltrim(lcIntre)) + " LIKE([" + Upper(lcNume2) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu2 = 2
|
||
lcFiltru = lcFiltru + " " + Upper(Alltrim(lcIntre)) + " UPPER(nume_camp_cautat)=[" + Upper(lcNume2) + "]"
|
||
Case lnCriteriu2 = 3
|
||
lcFiltru = lcFiltru + " " + Upper(Alltrim(lcIntre)) + " UPPER(nume_camp_cautat)<>[" + Upper(lcNume2) + "]"
|
||
Case lnCriteriu2 = 4
|
||
lcFiltru = lcFiltru + " " + Upper(Alltrim(lcIntre)) + " LIKE([*" + Upper(lcNume2) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu2 = 5
|
||
lcFiltru = lcFiltru + " " + Upper(Alltrim(lcIntre)) + " !LIKE([*" + Upper(lcNume2) + "*],UPPER(nume_camp_cautat))"
|
||
Case lnCriteriu=6
|
||
lcFiltru = [EMPTY(nume_camp_cautat)]
|
||
Case lnCriteriu=7
|
||
lcFiltru = [!EMPTY(nume_camp_cautat)]
|
||
Endcase
|
||
Endif
|
||
llCampuri=.F.
|
||
lcListaCampuri=.camp_nume
|
||
Do While !Empty(lcListaCampuri)
|
||
If Occurs(',',lcListaCampuri)>0
|
||
lcCamp=Substr(lcListaCampuri,1,At(',',lcListaCampuri,1)-1)
|
||
lcListaCampuri=Substr(lcListaCampuri,At(',',lcListaCampuri,1)+1)
|
||
llCampuri=.T.
|
||
Else
|
||
lcCamp=lcListaCampuri
|
||
lcListaCampuri=""
|
||
Endif
|
||
.filtru_vfp = .filtru_vfp + [conditie_logica(] + Strtran(lcFiltru,"nume_camp_cautat",Upper(lcCamp)) + [)]
|
||
Enddo
|
||
|
||
If llCampuri
|
||
.filtru_vfp = Strtran([ AND (] + Strtran(.filtru_vfp,"conditie_logica"," OR ",2) + [)],"conditie_logica","")
|
||
Else
|
||
.filtru_vfp = Strtran(.filtru_vfp,"conditie_logica"," AND ")
|
||
Endif
|
||
Endwith
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
RETURN this.filtru
|
||
ENDPROC
|
||
|
||
PROCEDURE Criteriu.InteractiveChange
|
||
If This.Value>5
|
||
Thisform.Text.Value=""
|
||
Thisform.Text.ReadOnly=.T.
|
||
Else
|
||
Thisform.Text.ReadOnly=.F.
|
||
Thisform.Text.SetFocus
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Criteriu2.InteractiveChange
|
||
If This.Value>5
|
||
Thisform.Text2.Value=""
|
||
Thisform.Text2.ReadOnly=.T.
|
||
Else
|
||
Thisform.Text2.ReadOnly=.F.
|
||
Thisform.Text2.SetFocus
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE Grup_optiuni_filtru.InteractiveChange
|
||
IF this.Value # 1
|
||
thisform.Height = 155
|
||
ELSE
|
||
thisform.Height = 115
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_perioada 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="_optiongrup1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_image2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 106
|
||
Name = "frm_perioada"
|
||
Width = 375
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Left = 340
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 6
|
||
BUT_TERMIN1.Left = 343
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 5
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_image1' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 112, ;
|
||
Name = "_image1", ;
|
||
Picture = ..\..\gestiuni\grafice\sg.ico, ;
|
||
Top = 49, ;
|
||
Width = 30
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT '_image2' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 112, ;
|
||
Name = "_image2", ;
|
||
Picture = ..\..\gestiuni\grafice\sg.ico, ;
|
||
Top = 72, ;
|
||
Visible = .F., ;
|
||
Width = 30
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
|
||
AutoSize = .T., ;
|
||
Height = 46, ;
|
||
Left = 3, ;
|
||
Name = "_optiongrup1", ;
|
||
TabIndex = 1, ;
|
||
Top = 48, ;
|
||
Width = 109, ;
|
||
Option1.AutoSize = .T., ;
|
||
Option1.Caption = "O singur<75> lun<75>", ;
|
||
Option1.FontCharSet = 238, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option2.AutoSize = .T., ;
|
||
Option2.Caption = "O perioad<61>", ;
|
||
Option2.FontCharSet = 238, ;
|
||
Option2.Left = 5, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 24
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT '_textbox1' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "k", ;
|
||
Left = 144, ;
|
||
Name = "_textbox1", ;
|
||
TabIndex = 3, ;
|
||
Top = 72, ;
|
||
Value = {}, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT '_textbox2' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "k", ;
|
||
Left = 264, ;
|
||
Name = "_textbox2", ;
|
||
TabIndex = 4, ;
|
||
Top = 72, ;
|
||
Value = {}, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
|
||
Left = 144, ;
|
||
Name = "Caut_anluna1", ;
|
||
Top = 48, ;
|
||
cboan.Name = "cboan", ;
|
||
cboluna.Name = "cboluna"
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
|
||
|
||
pcondper = IIF(thisform._optiongrup1.Value=1,ALLTRIM(STR(thisform.caut_anluna1.nan))+;
|
||
PADL(ALLTRIM(STR(thisform.caut_anluna1.nluna)),2,'0'),DTOS(thisform._textbox1.Value)+'_'+DTOS(thisform._textbox2.Value))
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _optiongrup1.Valid
|
||
thisform.caut_anluna1.Visible = IIF(this.Value=1,.t.,.f.)
|
||
thisform._image1.Visible = IIF(this.Value=1,.t.,.f.)
|
||
thisform._image2.Visible = IIF(this.Value=2,.t.,.f.)
|
||
thisform._textbox1.Visible = IIF(this.Value=2,.t.,.f.)
|
||
thisform._textbox2.Visible = IIF(this.Value=2,.t.,.f.)
|
||
IF this.Value=1
|
||
thisform.caut_anluna1.SetFocus
|
||
ELSE
|
||
thisform._textbox1.SetFocus
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_perioada_luni 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="_optiongrup1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_textbox2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_image2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: lmodificaluna
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
DoCreate = .T.
|
||
Height = 106
|
||
lmodificaluna = .T.
|
||
Name = "frm_perioada_luni"
|
||
Width = 375
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 338
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 38
|
||
Lb_titlu_alb_b121.Caption = "Alege<67>i luna"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 6
|
||
BUT_TERMIN1.Left = 343
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 5
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 34
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 42
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_image1' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 143, ;
|
||
Name = "_image1", ;
|
||
Picture = ..\grafice\sg.ico, ;
|
||
Stretch = 1, ;
|
||
Top = 44, ;
|
||
Width = 30
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT '_image2' AS _image WITH ;
|
||
Height = 20, ;
|
||
Left = 143, ;
|
||
Name = "_image2", ;
|
||
Picture = ..\grafice\sg.ico, ;
|
||
Stretch = 1, ;
|
||
Top = 68, ;
|
||
Visible = .F., ;
|
||
Width = 30
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
|
||
AutoSize = .T., ;
|
||
Height = 46, ;
|
||
Left = 33, ;
|
||
Name = "_optiongrup1", ;
|
||
TabIndex = 1, ;
|
||
Top = 43, ;
|
||
Width = 109, ;
|
||
Option1.AutoSize = .T., ;
|
||
Option1.Caption = "O singur<75> lun<75>", ;
|
||
Option1.FontCharSet = 238, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.Top = 5, ;
|
||
Option2.AutoSize = .T., ;
|
||
Option2.Caption = "O perioad<61>", ;
|
||
Option2.FontCharSet = 238, ;
|
||
Option2.Left = 5, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.Top = 24
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT '_textbox1' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "RK", ;
|
||
Height = 23, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 175, ;
|
||
Name = "_textbox1", ;
|
||
TabIndex = 3, ;
|
||
Top = 67, ;
|
||
Visible = .F., ;
|
||
Width = 78
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT '_textbox2' AS _textbox WITH ;
|
||
Alignment = 3, ;
|
||
Format = "RK", ;
|
||
Height = 23, ;
|
||
InputMask = "99/9999", ;
|
||
Left = 269, ;
|
||
Name = "_textbox2", ;
|
||
TabIndex = 4, ;
|
||
Top = 67, ;
|
||
Visible = .F., ;
|
||
Width = 68
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
|
||
Left = 175, ;
|
||
Name = "Caut_anluna1", ;
|
||
TabIndex = 2, ;
|
||
Top = 43, ;
|
||
cboan.Name = "cboan", ;
|
||
cboluna.Name = "cboluna"
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
If Thisform._optiongrup1.Value=1
|
||
pcondper=Padl(Alltrim(Str(Thisform.caut_anluna1.nluna)),2,'0')+Alltrim(Str(Thisform.caut_anluna1.nan))
|
||
Else
|
||
If Empty(Thisform._textbox1.Value)
|
||
aMessagebox("Nu ati completat luna initiala!",0+48,"Atentie")
|
||
Thisform._textbox1.SetFocus
|
||
Return .F.
|
||
Endif
|
||
If Empty(Thisform._textbox2.Value)
|
||
aMessagebox("Nu ati completat luna initiala!",0+48,"Atentie")
|
||
Thisform._textbox2.SetFocus
|
||
Return .F.
|
||
Endif
|
||
pcondper=Thisform._textbox1.Value+'_'+Thisform._textbox2.Value
|
||
Endif
|
||
DoDefault()
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
Lparameters tlModificaLuna,tlTip
|
||
Local lcLuna,lcAn
|
||
This.lmodificaluna = tlModificaLuna
|
||
If !This.lmodificaluna
|
||
Thisform._image1.Visible=.F.
|
||
Thisform.caut_anluna1.Enabled=.F.
|
||
Endif
|
||
lcLuna=Padl(Alltrim(Str(gnLuna)),2,'0')
|
||
lcAn=Alltrim(Str(gnAn))
|
||
Thisform._textbox1.Value=lcLuna+lcAn
|
||
Thisform._textbox2.Value=lcLuna+lcAn
|
||
Thisform._optiongrup1.Value = Iif(Empty(tlTip),1,Iif(tlTip=1,2,1))
|
||
ENDPROC
|
||
|
||
PROCEDURE _optiongrup1.InteractiveChange
|
||
Thisform.caut_anluna1.Visible = Iif(This.Value=1,.T.,.F.)
|
||
If Thisform.lmodificaluna
|
||
Thisform._image1.Visible = Iif(This.Value=1,.T.,.F.)
|
||
Endif
|
||
Thisform._image2.Visible = Iif(This.Value=2,.T.,.F.)
|
||
Thisform._textbox1.Visible = Iif(This.Value=2,.T.,.F.)
|
||
Thisform._textbox2.Visible = Iif(This.Value=2,.T.,.F.)
|
||
ENDPROC
|
||
|
||
PROCEDURE _optiongrup1.ProgrammaticChange
|
||
This.InteractiveChange()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE _optiongrup1.Valid
|
||
If This.Value=1
|
||
Thisform.caut_anluna1.SetFocus
|
||
Else
|
||
Thisform._textbox1.SetFocus
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox1.LostFocus
|
||
If Empty(Thisform._textbox2.Value)
|
||
Thisform._textbox2.Value=This.Value
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox1.Valid
|
||
IF !empty(this.value)
|
||
lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
|
||
lcAn=SUBSTR(ALLTRIM(this.Value),3)
|
||
IF EMPTY(lcAn) OR LEN(lcAn)<4
|
||
lcAn=ALLTRIM(STR(YEAR(DATE())))
|
||
this.value=PADL(lcLuna,2,'0')+lcAn
|
||
ENDIF
|
||
IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
RETURN 0
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox2.LostFocus
|
||
If Empty(Thisform._textbox1.Value)
|
||
Thisform._textbox1.Value=This.Value
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE _textbox2.Valid
|
||
IF !empty(this.value)
|
||
lcLuna=SUBSTR(ALLTRIM(this.Value),1,2)
|
||
lcAn=SUBSTR(ALLTRIM(this.Value),3)
|
||
IF EMPTY(lcAn) OR LEN(lcAn)<4
|
||
lcAn=ALLTRIM(STR(YEAR(DATE())))
|
||
this.value=PADL(lcLuna,2,'0')+lcAn
|
||
ENDIF
|
||
IF TYPE("DATE(VAL(lcAn),VAL(lcLuna),1)")!="D"
|
||
aMESSAGEBOX("Data invalida!",0+16,"Eroare")
|
||
RETURN 0
|
||
ENDIF
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_perioada_zzllaaaa 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="lbPerioada" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_txDataf" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_txDatai" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: pddataf
|
||
*p: pddatai
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 94
|
||
Name = "frm_perioada_zzllaaaa"
|
||
pddataf = {}
|
||
pddatai = {}
|
||
Width = 205
|
||
_shape1.Left = -59
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape2.Height = 29
|
||
_shape2.Left = 144
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 61
|
||
Lb_titlu_alb_b121.Caption = "Alege<67>i perioada"
|
||
Lb_titlu_alb_b121.Left = 6
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 5
|
||
BUT_TERMIN1.Left = 174
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 3
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 144
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 7
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_txDataf' AS _textbox WITH ;
|
||
ControlSource = "thisform.pddataf", ;
|
||
DisabledForeColor = 0,0,0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Format = "k", ;
|
||
Height = 22, ;
|
||
Left = 97, ;
|
||
Name = "_txDataf", ;
|
||
TabIndex = 2, ;
|
||
Top = 58, ;
|
||
Width = 80, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT '_txDatai' AS _textbox WITH ;
|
||
ControlSource = "thisform.pddatai", ;
|
||
DisabledForeColor = 0,0,0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Format = "k", ;
|
||
Height = 22, ;
|
||
Left = 13, ;
|
||
Name = "_txDatai", ;
|
||
TabIndex = 1, ;
|
||
Top = 58, ;
|
||
Width = 80, ;
|
||
ZOrderSet = 8
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 145, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 4, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'lbPerioada' AS label WITH ;
|
||
Alignment = 2, ;
|
||
BackColor = 255,255,255, ;
|
||
Caption = "Perioada", ;
|
||
Comment = "*:OnResize=LT", ;
|
||
Height = 17, ;
|
||
Left = 13, ;
|
||
Name = "lbPerioada", ;
|
||
TabIndex = 6, ;
|
||
Top = 36, ;
|
||
Width = 63, ;
|
||
ZOrderSet = 16
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
pdDataI = THISFORM.pdDataI
|
||
pdDataF = THISFORM.pdDataF
|
||
|
||
|
||
DO CASE
|
||
CASE EMPTY(THISFORM.pdDataI)
|
||
AMESSAGEBOX("Nu ati completat data initiala!",0+48,"Atentie")
|
||
THISFORM._txDatai.SETFOCUS()
|
||
RETURN .F.
|
||
CASE EMPTY(THISFORM.pdDataF)
|
||
AMESSAGEBOX("Nu ati completat data finala!",0+48,"Atentie")
|
||
THISFORM._txDataf.SETFOCUS()
|
||
RETURN .F.
|
||
CASE THISFORM.pdDataI > THISFORM.pdDataF
|
||
AMESSAGEBOX("Data finala trebuie sa fie mai mare decat data initiala !",0+48,"Atentie")
|
||
THISFORM._txDataf.SETFOCUS()
|
||
RETURN .F.
|
||
ENDCASE
|
||
|
||
RETURN .T.
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
|
||
LOCAL lcData1
|
||
lcData1 = '01/'+ALLTRIM(STR(gnLuna))+'/'+ALLTRIM(STR(gnAn))
|
||
thisform.pddatai = CTOD(lcData1)
|
||
thisform.pddataf = ULTIMAZI(STR(gnAn), STR(gnLuna))
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_sel_cont AS formtermin 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="Shape3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: go
|
||
*p: calias
|
||
*p: nfel_cont
|
||
*p: ocont
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
calias =
|
||
DoCreate = .T.
|
||
Height = 122
|
||
Name = "frm_sel_cont"
|
||
nfel_cont = 0
|
||
ocont = .NULL.
|
||
ScrollBars = 0
|
||
Width = 205
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 142
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 67
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 174
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
BUT_TERMIN1.Visible = .F.
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'cboCont' AS combobox WITH ;
|
||
ColumnCount = 2, ;
|
||
ColumnLines = .F., ;
|
||
ColumnWidths = "40,40", ;
|
||
Height = 24, ;
|
||
Left = 12, ;
|
||
Name = "cboCont", ;
|
||
RowSourceType = 6, ;
|
||
Style = 2, ;
|
||
TabIndex = 1, ;
|
||
Top = 60, ;
|
||
Width = 84, ;
|
||
ZOrderSet = 4
|
||
*< END OBJECT: BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Label9' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Contul este considerat de:", ;
|
||
FontBold = .F., ;
|
||
Height = 17, ;
|
||
Left = 10, ;
|
||
Name = "Label9", ;
|
||
TabIndex = 14, ;
|
||
Top = 129, ;
|
||
Width = 146, ;
|
||
ZOrderSet = 10
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblAcont' AS label WITH ;
|
||
BackStyle = 0, ;
|
||
Caption = " ", ;
|
||
FontItalic = .T., ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 18, ;
|
||
Left = 146, ;
|
||
Name = "lblAcont", ;
|
||
TabIndex = 5, ;
|
||
Top = 65, ;
|
||
Width = 40, ;
|
||
ZOrderSet = 6
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblCont' AS label WITH ;
|
||
BackStyle = 0, ;
|
||
Caption = " ", ;
|
||
FontItalic = .T., ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 18, ;
|
||
Left = 111, ;
|
||
Name = "lblCont", ;
|
||
TabIndex = 4, ;
|
||
Top = 65, ;
|
||
Width = 30, ;
|
||
ZOrderSet = 5
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
|
||
BackStyle = 0, ;
|
||
ButtonCount = 2, ;
|
||
ControlSource = "pnTipCont", ;
|
||
Height = 26, ;
|
||
Left = 35, ;
|
||
Name = "Optiongroup1", ;
|
||
TabIndex = 8, ;
|
||
Top = 152, ;
|
||
Value = 1, ;
|
||
Width = 120, ;
|
||
ZOrderSet = 8, ;
|
||
Option1.AutoSize = .T., ;
|
||
Option1.BackStyle = 0, ;
|
||
Option1.Caption = "Activ", ;
|
||
Option1.ControlSource = "", ;
|
||
Option1.Height = 17, ;
|
||
Option1.Left = 5, ;
|
||
Option1.Name = "Option1", ;
|
||
Option1.TabStop = .F., ;
|
||
Option1.Top = 5, ;
|
||
Option1.Value = 1, ;
|
||
Option1.Width = 42, ;
|
||
Option2.AutoSize = .T., ;
|
||
Option2.BackStyle = 0, ;
|
||
Option2.Caption = "Pasiv", ;
|
||
Option2.ControlSource = "", ;
|
||
Option2.Height = 17, ;
|
||
Option2.Left = 60, ;
|
||
Option2.Name = "Option2", ;
|
||
Option2.TabStop = .F., ;
|
||
Option2.Top = 5, ;
|
||
Option2.Value = 0, ;
|
||
Option2.Width = 48
|
||
*< END OBJECT: BaseClass="optiongroup" />
|
||
|
||
ADD OBJECT 'Renunt1' AS but_renunt WITH ;
|
||
Left = 144, ;
|
||
Name = "Renunt1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||
BackColor = 236,233,216, ;
|
||
BackStyle = 0, ;
|
||
BorderColor = 181,210,225, ;
|
||
Height = 80, ;
|
||
Left = 6, ;
|
||
Name = "Shape2", ;
|
||
Top = 36, ;
|
||
Width = 191, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||
BackColor = 236,233,216, ;
|
||
BackStyle = 0, ;
|
||
BorderColor = 181,210,225, ;
|
||
Height = 60, ;
|
||
Left = 6, ;
|
||
Name = "Shape3", ;
|
||
Top = 124, ;
|
||
Width = 191, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: BaseClass="shape" />
|
||
|
||
PROCEDURE go
|
||
lcAlias = (Thisform.calias)
|
||
IF !EMPTY(lcAlias)
|
||
SELECT (lcAlias)
|
||
With Thisform.ocont
|
||
.cont = cont
|
||
IF ISNULL(acont)
|
||
.acont = ''
|
||
ELSE
|
||
.acont=acont
|
||
ENDIF
|
||
ENDWITH
|
||
IF TYPE(lcAlias + '.fel_cont') # 'U'
|
||
this.opTIONGROUP1.value = &lcAlias..fel_cont + 1
|
||
this.nfel_cont = &lcAlias..fel_cont
|
||
ENDIF
|
||
ENDIF
|
||
|
||
With Thisform.ocont
|
||
Thisform.lblCont.Caption=.cont
|
||
Thisform.lblAcont.Caption=.acont
|
||
If !Empty(.cont)
|
||
Thisform.but_termin1.visible = .T.
|
||
ELSE
|
||
Thisform.but_termin1.visible =.F.
|
||
ENDIF
|
||
ENDWITH
|
||
ENDPROC
|
||
|
||
PROCEDURE cboCont.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
thisform.go()
|
||
ENDPROC
|
||
|
||
PROCEDURE cboCont.Valid
|
||
thisform.Go()
|
||
ENDPROC
|
||
|
||
PROCEDURE Optiongroup1.Valid
|
||
IF TYPE('eactiv') # 'U'
|
||
IF this.Value = 2
|
||
eActiv = .f.
|
||
ELSE
|
||
eActiv = .t.
|
||
ENDIF
|
||
ENDIF
|
||
thisform.nfel_cont = this.Value - 1
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_sel_curs AS frm_termin_renunt OF "_frm_child.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Clb_curs1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_curs2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_valuta" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: lnorelease
|
||
*p: ncurs1
|
||
*p: ncurs2
|
||
*p: nid_valuta
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 2
|
||
DoCreate = .T.
|
||
Height = 159
|
||
lnorelease = .F.
|
||
Name = "frm_sel_curs"
|
||
ncurs1 = 0
|
||
ncurs2 = 0
|
||
nid_valuta = 0
|
||
Width = 306
|
||
_SHAPE1.Name = "_SHAPE1"
|
||
_SHAPE2.Left = 232
|
||
_SHAPE2.Name = "_SHAPE2"
|
||
_SHAPE2.Top = 0
|
||
LB_TITLU_ALB_B121.Caption = "Cursul valutar"
|
||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||
LB_TITLU_ALB_B121.TabIndex = 6
|
||
BUT_TERMIN1.Left = 273
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 4
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
But_renunt1.Left = 244
|
||
But_renunt1.Name = "But_renunt1"
|
||
But_renunt1.TabIndex = 5
|
||
But_renunt1.Top = 1
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Clb_curs1' AS clb_tx_simplu WITH ;
|
||
Left = 7, ;
|
||
Name = "Clb_curs1", ;
|
||
TabIndex = 1, ;
|
||
Top = 47, ;
|
||
Text_simplu1.Alignment = 3, ;
|
||
Text_simplu1.ControlSource = "thisform.ncurs1", ;
|
||
Text_simplu1.InputMask = (get_mask(6,gnPcurs)), ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Value = 0, ;
|
||
Lb_simplu1.Caption = "Curs B.N.R.", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_curs2' AS clb_tx_simplu WITH ;
|
||
Left = 7, ;
|
||
Name = "Clb_curs2", ;
|
||
TabIndex = 2, ;
|
||
Top = 79, ;
|
||
Text_simplu1.Alignment = 3, ;
|
||
Text_simplu1.ControlSource = "thisform.ncurs2", ;
|
||
Text_simplu1.InputMask = (get_mask(6,gnPcurs)), ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Value = 0, ;
|
||
Lb_simplu1.Caption = "Cursul vamii", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_valuta' AS clb_tx_simplu WITH ;
|
||
Left = 7, ;
|
||
Name = "Clb_valuta", ;
|
||
TabIndex = 3, ;
|
||
Top = 111, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Lb_simplu1.Caption = "Valuta", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE do_termin
|
||
IF this.lnorelease
|
||
this.Hide
|
||
ELSE
|
||
DODEFAULT()
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
IF EMPTY(this.clb_valuta.text_simplu1.Value)
|
||
aMESSAGEBOX('Completati numele valutei', 0, 'Atentie')
|
||
llRet = .f.
|
||
ELSE
|
||
llRet = .t.
|
||
ENDIF
|
||
|
||
RETURN llRet
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
PARAMETERS tlRelease
|
||
thisform.lNoRelease = tlRelease
|
||
ENDPROC
|
||
|
||
PROCEDURE Clb_curs1.Text_simplu1.Valid
|
||
IF thisform.ncurs2 = 0
|
||
thisform.ncurs2 = thisform.ncurs1
|
||
thisform.clb_curs2.Refresh
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
PROCEDURE Clb_valuta.Text_simplu1.GotFocus
|
||
pcselect = ['select nume_val,id_valuta from ] + gcs + [.nom_valute where 2=2']
|
||
pcfiltru = [1=2]
|
||
pcschema = ['']
|
||
pcorder = [nume_val]
|
||
pccoloane = [nume_val]
|
||
pcTitlu = [Alegeti Valuta]
|
||
pcTitluColoane = [Valuta]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'')
|
||
this.Value = locauta.nume_val
|
||
thisform.nid_valuta = locauta.id_valuta
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_sel_luna AS ffergen 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="Seip1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblTitlu" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cboLuna" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblLuna" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lblAn" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_termin
|
||
*m: go
|
||
*p: calias
|
||
*p: oluna
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
AutoCenter = .T.
|
||
BackColor = 255,255,255
|
||
calias =
|
||
DoCreate = .T.
|
||
Height = 129
|
||
Name = "frm_sel_luna"
|
||
oluna = .NULL.
|
||
TitleBar = 0
|
||
Width = 240
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'cboLuna' AS combobox WITH ;
|
||
ColumnCount = 2, ;
|
||
Height = 24, ;
|
||
Left = 24, ;
|
||
Name = "cboLuna", ;
|
||
RowSourceType = 6, ;
|
||
Style = 2, ;
|
||
TabIndex = 1, ;
|
||
Top = 67, ;
|
||
Width = 72, ;
|
||
ZOrderSet = 3
|
||
*< END OBJECT: BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'CMDTERMIN1' AS but_termin WITH ;
|
||
Enabled = .F., ;
|
||
Left = 209, ;
|
||
Name = "CMDTERMIN1", ;
|
||
TabIndex = 2, ;
|
||
Top = 1, ;
|
||
ZOrderSet = 5
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'lblAn' AS label WITH ;
|
||
BackStyle = 0, ;
|
||
Caption = " ", ;
|
||
FontItalic = .T., ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 17, ;
|
||
Left = 160, ;
|
||
Name = "lblAn", ;
|
||
TabIndex = 5, ;
|
||
Top = 71, ;
|
||
Width = 40
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblLuna' AS label WITH ;
|
||
BackStyle = 0, ;
|
||
Caption = " ", ;
|
||
FontItalic = .T., ;
|
||
FontSize = 10, ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 17, ;
|
||
Left = 125, ;
|
||
Name = "lblLuna", ;
|
||
TabIndex = 4, ;
|
||
Top = 71, ;
|
||
Width = 27
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lblTitlu' AS label WITH ;
|
||
BackStyle = 0, ;
|
||
Caption = "Selectati anul si luna de inceput:", ;
|
||
Height = 13, ;
|
||
Left = 24, ;
|
||
Name = "lblTitlu", ;
|
||
TabIndex = 3, ;
|
||
Top = 38, ;
|
||
Width = 192, ;
|
||
ZOrderSet = 2
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Seip1' AS _shape WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 90, ;
|
||
Left = 12, ;
|
||
Name = "Seip1", ;
|
||
Top = 33, ;
|
||
Width = 216, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
|
||
|
||
PROCEDURE Destroy
|
||
*luna_an=thisform.oluna
|
||
loluna=thisform.oluna
|
||
ENDPROC
|
||
|
||
PROCEDURE do_termin
|
||
ENDPROC
|
||
|
||
PROCEDURE go
|
||
Select(Thisform.calias)
|
||
With Thisform.oluna
|
||
.nl=nl
|
||
.an=an
|
||
|
||
Thisform.lblLuna.Caption=.nl
|
||
Thisform.lblAn.Caption=.an
|
||
If !Empty(.nl) And !Empty(.an)
|
||
Thisform.cmdtermin1.Enabled=.T.
|
||
ELSE
|
||
Thisform.cmdtermin1.Enabled=.F.
|
||
Endif
|
||
Endwith
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE cboLuna.MouseLeave
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
thisform.go()
|
||
ENDPROC
|
||
|
||
PROCEDURE cboLuna.Valid
|
||
thisform.Go()
|
||
ENDPROC
|
||
|
||
PROCEDURE CMDTERMIN1.Click
|
||
thisform.Release()
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS grup_optiuni_filtru AS _optiongrup OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
BorderStyle = 0
|
||
ButtonCount = 3
|
||
Height = 27
|
||
Name = "grup_optiuni_filtru"
|
||
Width = 193
|
||
Option1.Caption = ""
|
||
Option1.ForeColor = 128,128,128
|
||
Option1.Left = 5
|
||
Option1.Name = "Option1"
|
||
Option1.Top = 5
|
||
Option1.Width = 43
|
||
Option2.Caption = "si"
|
||
Option2.FontItalic = .T.
|
||
Option2.Left = 66
|
||
Option2.Name = "Option2"
|
||
Option2.Top = 5
|
||
Option2.Width = 58
|
||
Option3.BackStyle = 0
|
||
Option3.Caption = "sau"
|
||
Option3.FontItalic = .T.
|
||
Option3.Height = 17
|
||
Option3.Left = 134
|
||
Option3.Name = "Option3"
|
||
Option3.Top = 5
|
||
Option3.Width = 54
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS grup_optiuni_filtru_numar AS _optiongrup OF "_baza.vcx"
|
||
*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
AutoSize = .F.
|
||
BorderStyle = 0
|
||
ButtonCount = 2
|
||
Height = 27
|
||
Name = "grup_optiuni_filtru_numar"
|
||
Width = 125
|
||
Option1.Caption = "si"
|
||
Option1.FontItalic = .T.
|
||
Option1.Left = 5
|
||
Option1.Name = "Option1"
|
||
Option1.Top = 5
|
||
Option1.Width = 61
|
||
Option2.Caption = "sau"
|
||
Option2.FontItalic = .T.
|
||
Option2.Left = 66
|
||
Option2.Name = "Option2"
|
||
Option2.Top = 5
|
||
Option2.Width = 54
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|