59 lines
1.9 KiB
Plaintext
59 lines
1.9 KiB
Plaintext
***************************************************************************************************************
|
|
**** 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 |