*******************************************
* 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
***********************************************************************