Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/oproceduri_manager.prg

@@ -0,0 +1,115 @@
+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
+***---------------------------------------------------------------------------------------------
+