***************************************************************************************************************
****	Proceduri:
****		vizualizare_masini
***************************************************************************************************************
******************************************* INCEPUT: vizualizare_masini *******************************************
Procedure vizualizare_masini
gcAcces=[1;2;3;4;]
Private pomasini
Local lcSchema,lcSelect,lcOrder,lcFiltru,llAfiseaza
Store '' To pomasini
lcSchema=['']
lcSelect=['select * from ] + gcS + [.vnom_masini where 1=2']
lcOrder=[nrinmat]
lcFiltru = [1=2]
llAfiseaza = .F.
gencursor('pomasini','crsmasini',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
pomasini.ca_baza1.afisare()
ofrmmasini=Createobject('frm_masini')
ofrmmasini.Show(1)
Release pomasini,ofrmmasini

Endproc
******************************************* SFARSIT: vizualizare_masini *******************************************


Procedure vizualizare_RUTE
Private pomasini
Local lcSchema,lcSelect,lcOrder,lcFiltru,llAfiseaza
Store '' To poRUTE
lcSchema=['']
lcSelect=['select * from FACT_VNOM_RUTEgest where 2=2']
lcOrder=[ruta,ORDINE]
lcFiltru = [2=2]
llAfiseaza = .F.
gencursor('poRUTE','crsRUTE',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
poRUTE.ca_baza1.afisare()
ofrmRUTE=Createobject('frm_RUTE')
ofrmRUTE.Show(1)
Release poRUTE,ofrmRUTE

EndProc
*---------------------------------------------------------------------

Procedure vizualizare_nomRUTE
Private ponomrute
Local lcSchema,lcSelect,lcOrder,lcFiltru,llAfiseaza
Store '' To ponomrute
lcSchema=['']
lcSelect=['select * from FACT_VNOM_RUTE where 2=2']
lcOrder=[ruta]
lcFiltru = [2=2]
llAfiseaza = .F.
gencursor('ponomrute','crsnomRUTE',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
ponomrute.ca_baza1.afisare()
ofrmRUTE=Createobject('frm_nomRUTE')
ofrmRUTE.Show(1)
Release ponomrute,ofrmRUTE

Endproc