Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
437
Programe/onom_devize.prg
Normal file
437
Programe/onom_devize.prg
Normal file
@@ -0,0 +1,437 @@
|
||||
*******************************************
|
||||
* PROCEDURE viz_mecanici( )
|
||||
* Data/ora : 12/14/04, 14:16:18
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_mecanici( )
|
||||
|
||||
Private pomecanici,pcschema1,pcselect1
|
||||
Store '' To pomecanici
|
||||
If Used('v_mecanici')
|
||||
Use In v_mecanici
|
||||
Endif
|
||||
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vmecanici where 1=2']
|
||||
pcorder1=[nume,prenume]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pomecanici','v_mecanici',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
pomecanici.ca_baza1.afisare()
|
||||
ofrmmecanici=Createobject('frm_mecanici')
|
||||
ofrmmecanici.Show(1)
|
||||
Release pomecanici
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_mecanici*******************
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE viz_asiguratori( )
|
||||
* Data/ora : 12/15/04, 15:57:12
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_asiguratori( )
|
||||
&&code goes here
|
||||
Local lnIdAsigurator
|
||||
Private poasiguratori,pcschema1,pcselect1
|
||||
Store '' To poasiguratori
|
||||
If Used('v_asiguratori')
|
||||
Use In v_asiguratori
|
||||
Endif
|
||||
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vasiguratori where 1=2']
|
||||
pcorder1=[asigurator]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('poasiguratori','v_asiguratori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
poasiguratori.ca_baza1.afisare()
|
||||
|
||||
Select v_asiguratori
|
||||
Go Top
|
||||
lnIdAsigurator=id_asigurator
|
||||
|
||||
Private poinspector,pcschema2,pcselect2
|
||||
Store '' To poinspector
|
||||
If Used('v_inspectori')
|
||||
Use In v_inspectori
|
||||
Endif
|
||||
|
||||
pcschema2=['']
|
||||
pcselect2=['select * from ] + gcS + [.auto_vinspectori where 1=2']
|
||||
pcorder2=[inspector]
|
||||
pcfiltru2 = [id_asigurator=]+Alltrim(Str(lnIdAsigurator))
|
||||
llAfiseaza = .F.
|
||||
gencursor('poinspector','v_inspectori',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
|
||||
poinspector.ca_baza1.afisare()
|
||||
|
||||
ofrmasig=Createobject('frm_asiguratori')
|
||||
ofrmasig.Show(1)
|
||||
Release poasiguratori
|
||||
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_asiguratori*******************
|
||||
*******************************************
|
||||
* PROCEDURE viz_masini_marci( )
|
||||
* Data/ora : 12/16/04, 09:15:00
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_masini_marci()
|
||||
Lparameters tlReturn
|
||||
Local llReturn
|
||||
Private pomarci,pcschema1,pcselect1
|
||||
Store '' To pomarci
|
||||
If !Empty(tlReturn)
|
||||
llReturn=tlReturn
|
||||
Else
|
||||
llReturn=.F.
|
||||
Endif
|
||||
|
||||
If Used('v_marci')
|
||||
Use In v_marci
|
||||
Endif
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vmarci where 1=2']
|
||||
pcorder1=[marca]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pomarci','v_marci',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
pomarci.ca_baza1.afisare()
|
||||
|
||||
|
||||
Private pomasini,pcschema2,pcselect2
|
||||
Store '' To pomasini
|
||||
If Used('v_masini')
|
||||
Use In v_masini
|
||||
Endif
|
||||
pcschema2=['']
|
||||
pcselect2=['select * from ] + gcS + [.auto_vmasini where 1=2']
|
||||
pcorder2=[masina]
|
||||
pcfiltru2 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pomasini','v_masini',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
|
||||
pomasini.ca_baza1.afisare()
|
||||
SELECT v_masini
|
||||
SET FILTER TO id_marca=v_marci.id_marca
|
||||
|
||||
ofrmmarcimasini=Createobject('frm_marci_masini')
|
||||
ofrmmarcimasini.lreturnval=llReturn
|
||||
ofrmmarcimasini.Show(1)
|
||||
Release pomasini,pomarci
|
||||
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_masini_marci*******************
|
||||
*******************************************
|
||||
* PROCEDURE viz_delegati( )
|
||||
* Data/ora : 12/16/04, 09:40:39
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
*!* Procedure viz_delegati
|
||||
*!* Lparameters tnidpartener,tcpartener
|
||||
*!* Private podelegati,pcschema1,pcselect1,odetalii
|
||||
*!* LOCAL llAfiseaza
|
||||
*!* Store '' To podelegati
|
||||
*!* If Used('v_delegati')
|
||||
*!* Use In v_delegati
|
||||
*!* Endif
|
||||
*!* pcschema1=['']
|
||||
*!* pcselect1=['select * from ] + gcS + [.dev_vdelegati where 1=2']
|
||||
*!* pcorder1=[delegat]
|
||||
*!* *!* pcfiltru1=[sters=0]
|
||||
*!* pcfiltru1=[1=2]
|
||||
*!* llAfiseaza=.F.
|
||||
*!* gencursor('podelegati','v_delegati',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
*!* podelegati.ca_baza1.afisare()
|
||||
*!* ofrmdelegati=Createobject('frm_delegati',tnidpartener,tcpartener)
|
||||
*!* ofrmdelegati.Show(1)
|
||||
|
||||
*!* Select v_delegati
|
||||
*!* Scatter Name odetalii
|
||||
*!* Use In v_delegati
|
||||
*!* Release podelegati
|
||||
*!* Return odetalii
|
||||
*!* Endproc
|
||||
|
||||
**********************sfarsit procedura viz_delegati*******************
|
||||
*******************************************
|
||||
* PROCEDURE viz_norme( )
|
||||
* Data/ora : 12/16/04, 10:39:24
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_norme( )
|
||||
Private ponorme,pcschema1,pcselect1
|
||||
Store '' To ponorme
|
||||
If Used('v_norme')
|
||||
Use In v_norme
|
||||
Endif
|
||||
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vnorme where 1=2']
|
||||
pcorder1=[masina,denop]
|
||||
pcfiltru1 = [1=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('ponorme','v_norme',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
ponorme.ca_baza1.afisare()
|
||||
ofrmnorme=Createobject('frm_norme')
|
||||
ofrmnorme.Show(1)
|
||||
Release ponorme
|
||||
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_norme*******************
|
||||
*******************************************
|
||||
* PROCEDURE viz_ansamble( )
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_ansamble( )
|
||||
Private ponorme,pcschema1,pcselect1
|
||||
Store '' To poansamble
|
||||
If Used('v_ansamble')
|
||||
Use In v_ansamble
|
||||
Endif
|
||||
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vansamble where 1=2']
|
||||
pcorder1=[denumire]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('poansamble','v_ansamble',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
poansamble.ca_baza1.afisare()
|
||||
ofrmansamble=Createobject('frm_ansamble')
|
||||
ofrmansamble.Show(1)
|
||||
Release poansamble,ofrmansamble
|
||||
Endproc
|
||||
**********************sfarsit procedura viz_norme*******************
|
||||
*******************************************
|
||||
* PROCEDURE viz_preturi( )
|
||||
* Data/ora : 12/16/04, 11:15:21
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_preturi( )
|
||||
Private popreturi,pcschema1,pcselect1
|
||||
Store '' To popreturi
|
||||
If Used('v_preturi')
|
||||
Use In v_preturi
|
||||
Endif
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vpreturi where 1=2']
|
||||
pcorder1=[marca]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('popreturi','v_preturi',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
popreturi.ca_baza1.afisare()
|
||||
ofrmpreturi=Createobject('frm_preturi')
|
||||
ofrmpreturi.Show(1)
|
||||
Release popreturi
|
||||
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_preturi*******************
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE viz_clienti( )
|
||||
* Data/ora : 12/27/04, 10:07:39
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parametri : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure viz_clienti( )
|
||||
lparameters tlDoarMasiniActive && modificare v 2.1.1
|
||||
|
||||
Private poclie,pcschema1,pcselect1
|
||||
Local llAfiseaza
|
||||
Store .F. To llAfiseaza
|
||||
Store '' To poclie
|
||||
If Used('v_clie')
|
||||
Use In v_clie
|
||||
Endif
|
||||
|
||||
pcschema1=['id_part N(20),denumire C(254),nume C(254),prenume C(254),cod_fiscal C(254),reg_comert C(254),id_loc_inreg N(20),id_categorie_entitate N(20),'+] + ;
|
||||
['localitate_inreg C(254),prefix C(254),sufix C(254),tip_persoana N(20),banca C(254),cont_banca C(254),motiv_inactiv C(254),inactiv N(1),'+] + ;
|
||||
['eliberatde C(254),dataeliberat d,id_adresa N(20),adresa C(254),telefon C(254),telefon2 C(254),id_loc N(20),localitate C(254),'+] + ;
|
||||
['judet C(254),id_judet N(20),sector N(4),apart C(254),etaj C(254),scara C(254),bloc C(254),strada C(254),numar C(254),codpostal C(254),'+] + ;
|
||||
['categorie_entitate C(254)']
|
||||
pcselect1=[select b.id_part,b.denumire,b.nume,b.prenume,b.cod_fiscal,b.reg_comert,b.id_loc_inreg,b.id_categorie_entitate,b.localitate_inreg,b.prefix,] + ;
|
||||
[b.sufix,b.tip_persoana,b.banca,b.cont_banca,b.motiv_inactiv,b.inactiv,b.eliberatde,b.dataeliberat,b.id_adresa,b.adresa,b.telefon,b.telefon2,b.id_loc,] + ;
|
||||
[b.localitate,b.judet,b.id_judet,b.sector,b.apart,b.etaj,b.scara,b.bloc,b.strada,b.numar,b.codpostal,b.categorie_entitate ] + ;
|
||||
[from ]+gcS+[.coresp_tip_part a left join ]+gcS+[.vnom_parteneri b ]+;
|
||||
[on a.id_part=b.id_part where a.id_tip_part in ] + ;
|
||||
[(select id_tip_part from coresp_tip_cont where cont = ?gcCont411) and b.inactiv=0]
|
||||
pcorder1=[b.nume]
|
||||
pcfiltru1 = [1 = 2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('poclie','v_clie',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
poclie.ca_baza1.afisare()
|
||||
|
||||
Private pomasini,pcschema2,pcselect2
|
||||
Store '' To pomasini
|
||||
If Used('v_masiniclie')
|
||||
Use In v_masiniclie
|
||||
Endif
|
||||
|
||||
pcschema2=['']
|
||||
*!* modificare v 2.1.1
|
||||
If tlDoarMasiniActive
|
||||
pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
|
||||
['(select id_part from nom_parteneri where sters = 1 or inactiv = 1) and inactiv=0']
|
||||
Else
|
||||
*!* modificare v 2.1.1 ^
|
||||
pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
|
||||
['(select id_part from nom_parteneri where sters = 1 or inactiv = 1)']
|
||||
*!* modificare v 2.1.1
|
||||
Endif
|
||||
*!* modificare v 2.1.1 ^
|
||||
pcorder2=[masina]
|
||||
pcfiltru2 = [1 = 2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('pomasini','v_masiniclie',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
|
||||
pomasini.ca_baza1.afisare()
|
||||
|
||||
Select v_clie
|
||||
ofrmclienti=Createobject('frm_dev_clienti',tlDoarMasiniActive) && modificare v 2.1.1
|
||||
*!* IF gnNivelUtilizator=0
|
||||
*!* ofrmclienti.cmd_modifica1.visible=.T.
|
||||
*!* ENDIF
|
||||
ofrmclienti.Show(1)
|
||||
|
||||
Release popreturi
|
||||
Select v_masiniclie
|
||||
Scatter Name omclie
|
||||
Return omclie
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_clienti*******************
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE viz_dealeri( )
|
||||
* Data/ora : 01/03/05, 16:51:46
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
Procedure viz_dealeri( )
|
||||
Private podealeri,pcschema1,pcselect1
|
||||
Store '' To podealeri
|
||||
If Used('v_furnizori')
|
||||
Use In v_furnizori
|
||||
Endif
|
||||
|
||||
pcschema1=['']
|
||||
pcselect1=['select * from ] + gcS + [.auto_vfurnizori where 1=2']
|
||||
pcorder1=[denumire]
|
||||
pcfiltru1 = [2=2]
|
||||
llAfiseaza = .F.
|
||||
gencursor('podealeri','v_furnizori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
podealeri.ca_baza1.afisare()
|
||||
ofrmdealeri=Createobject('frm_dealeri')
|
||||
ofrmdealeri.Show(1)
|
||||
Release podealeri
|
||||
|
||||
|
||||
Endproc
|
||||
|
||||
**********************sfarsit procedura viz_dealeri*******************
|
||||
*------------------------------inceput procedura viz_responsabili-----------------------------------------
|
||||
* PROCEDURE viz_responsabili( )
|
||||
* Data : 03/29/05, 10:05:19
|
||||
* autor : liana.macinic
|
||||
* descriere:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
*!* PROCEDURE viz_resp( )
|
||||
*!* Local lnIdResp
|
||||
*!* Private poResp,pcschema1,pcselect1
|
||||
*!* Store '' To poResp
|
||||
*!* If Used('v_Resp')
|
||||
*!* Use In v_Resp
|
||||
*!* Endif
|
||||
|
||||
*!* pcschema1=['']
|
||||
*!* pcselect1=['select * from ] + gcS + [.dev_vnom_resp where 1=2']
|
||||
*!* pcorder1=[ales]
|
||||
*!* pcfiltru1 = [2=2]
|
||||
*!* llAfiseaza = .F.
|
||||
*!* gencursor('poResp','v_Resp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
||||
*!* poResp.ca_baza1.afisare()
|
||||
|
||||
*!* Select v_Resp
|
||||
*!* Go Top
|
||||
*!* lnIdResp=id_Resp
|
||||
|
||||
|
||||
*!* ofrmResp=Createobject('frm_Resp')
|
||||
*!* ofrmResp.Show(1)
|
||||
*!* Release poResp
|
||||
|
||||
*!* ENDPROC
|
||||
*------------------------------sfarsit procedura viz_responsabili-----------------------------------------
|
||||
***********************************************************************
|
||||
Procedure caut_marci_masini
|
||||
Parameters tnPornire, tlDesktop,tlToateIreg
|
||||
|
||||
Local lcCont, loCauta, lnPornire, llDesktop
|
||||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||||
llDesktop = tlDesktop
|
||||
|
||||
Store "" To loCauta
|
||||
|
||||
lcSelect = [select id_marca, marca FROM ] + gcS + [.auto_vmarci ]
|
||||
lcFiltru = [1=2]
|
||||
lcSchema = []
|
||||
lcOrder = [marca]
|
||||
lccoloane = [marca]
|
||||
lcTitlu = [Alegeti marca]
|
||||
lcTitluColoane = [Marca]
|
||||
lcFiltruOriginal = [inactiv = 0]
|
||||
lcNumeProc = []
|
||||
If Empty(tlToateIreg)
|
||||
llToateIreg = .F.
|
||||
Else
|
||||
llToateIreg = tlToateIreg
|
||||
Endif
|
||||
loCauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal,,lnPornire,,,llDesktop)
|
||||
|
||||
Return loCauta
|
||||
Endproc && caut_marci_masini
|
||||
***********************************************************************
|
||||
Reference in New Issue
Block a user