438 lines
12 KiB
Plaintext
438 lines
12 KiB
Plaintext
*******************************************
|
|
* 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
|
|
***********************************************************************
|