Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/onomenclatoare2.prg

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