116 lines
3.2 KiB
Plaintext
116 lines
3.2 KiB
Plaintext
Procedure make_cFCentre
|
|
|
|
*!* Create Cursor cFCentre (id_centru I(4) Null, csectie C(2) Null, centru C(30) Null)
|
|
*!* Insert Into cFCentre Values (0, '00','<FIRMA>')
|
|
|
|
Create Cursor cFCentre (id_sectie I(4) Null, sectie C(30) Null)
|
|
Insert Into cFCentre Values (0, '<FIRMA>')
|
|
|
|
Private poCentre, pcschema1, pcselect1
|
|
Store '' To poCentre
|
|
pcschema1 = ['']
|
|
|
|
*!* If gnId_centre_sectie = 1 Then
|
|
*!* pcselect1 = ['select ce.id_centru, ce.csectie, ce.sectie as centru ]+;
|
|
*!* [from mg_nom_centre_sectie ce ]+;
|
|
*!* [where 1=2']
|
|
*!* pcorder1 = [ce.sectie]
|
|
*!* pcfiltru1 = [ce.sectie is not null and ce.societate = 0]
|
|
*!* Else
|
|
*!* pcselect1 = ['select ce.id_centru, ce.csectie, ce.centru ]+;
|
|
*!* [from mg_nom_centre_profit ce ]+;
|
|
*!* [where 1=2']
|
|
*!* pcorder1 = [ce.centru]
|
|
*!* pcfiltru1 = [ce.centru is not null and ce.societate = 0]
|
|
*!* Endif
|
|
|
|
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
|
|
|
lcSchema = [id_sectie N(5), sectie C(30)]
|
|
lcSelect = [select id_sectie, sectie from vnom_sectii]
|
|
lcOrder = [sectie]
|
|
lcgroup = []
|
|
lcFiltru = [2=2]
|
|
llModParam = .T.
|
|
llAfiseaza = .F.
|
|
|
|
gencursor('pocentre','cc', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
poCentre.ca_baza1.afisare()
|
|
|
|
Select cFCentre
|
|
Append From Dbf("cc")
|
|
If Used('cc')
|
|
Use In cc
|
|
Endif
|
|
|
|
Release poCentre
|
|
|
|
Select cFCentre
|
|
Go Top
|
|
|
|
Endproc && make_cFCentre
|
|
***---------------------------------------------------------------------------------------------
|
|
Procedure make_cTipuri_seturi
|
|
Create Cursor cTipuri_seturi (id_tip_set N(5), nume_tip_set C(30))
|
|
Insert Into cTipuri_seturi Values (0, '<Normal>')
|
|
|
|
Private poTipuri_seturi, pcschema1, pcselect1
|
|
Store '' To poTipuri_seturi
|
|
pcschema1 = ['']
|
|
pcselect1 = ['select ts.id_tip_set, ts.nume_tip_set ]+;
|
|
[from mg_tipuri_seturi ts ]+;
|
|
[where 1=2']
|
|
pcorder1 = [ts.nume_tip_set]
|
|
pcfiltru1 = [2=2]
|
|
llAfiseaza = .F.
|
|
gencursor('poTipuri_seturi','cc',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
|
poTipuri_seturi.ca_baza1.afisare()
|
|
|
|
Select cTipuri_seturi
|
|
Append From Dbf("cc")
|
|
|
|
Release poTipuri_seturi
|
|
|
|
Select cTipuri_seturi
|
|
Go Top
|
|
|
|
Endproc && make_cTipuri_seturi
|
|
***---------------------------------------------------------------------------------------------
|
|
Procedure make_venChelt
|
|
Create Cursor cVenChelt (id_venchelt I(4) Null, explicatie C(200) Null)
|
|
Insert Into cVenChelt Values (0, '<TOATE>')
|
|
Insert Into cVenChelt Values (99999, 'FARA TIP CHELTUIALA')
|
|
|
|
Private poVenChelt, pcschema1, pcselect1
|
|
Store '' To poVenChelt
|
|
|
|
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
|
|
|
|
|
lcSchema = [id_venchelt N(5), explicatie C(30)]
|
|
lcSelect = [select id_venchelt, explicatie from vnom_venchel]
|
|
lcOrder = [explicatie]
|
|
lcgroup = []
|
|
lcFiltru = [2=2]
|
|
llModParam = .T.
|
|
llAfiseaza = .F.
|
|
|
|
gencursor('poVenChelt','cc', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
poVenChelt.ca_baza1.afisare()
|
|
|
|
|
|
Select cVenChelt
|
|
Append From Dbf("cc")
|
|
If Used('cc')
|
|
Use In cc
|
|
Endif
|
|
|
|
Release poVenChelt
|
|
|
|
Select cVenChelt
|
|
Go Top
|
|
|
|
Endproc && make_venChelt
|
|
***---------------------------------------------------------------------------------------------
|
|
|