*****************************************************************************
Procedure update_elemente_doc
Lparameters tnTipModelDoc,tnIdModelDoc
If Used('v_elemente_doc')
	Use In v_elemente_doc
Endif
lcFiltru=[where a.id_tip_model_doc=]+Alltrim(Str(tnTipModelDoc))+[ and ]+;
	[(b.id_model_doc=]+ALLTRIM(STR(tnIdModelDoc))+[ or b.id_model_doc is null)]
lcSql=[select a.id_coloana_doc,a.descriere,NVL(b.id_tip_tag_doc,0) as id_tip_tag_doc,]+;
      [b.tip_tag,b.pozitie ]+;
      [from ]+gcS+[.crm_vcoloane_documente a ]+;
      [left join ]+gcS+[.crm_velemente_document b ]+;
      [on a.id_coloana_doc = b.id_coloana_doc ] + ;
	lcFiltru
lnSucces=goExecutor.oExecute(lcSql,'v_elemente_doc')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Else
	If Used('crselementedoc')
		Use In crselementedoc
	Endif
	Create Cursor crselementedoc(id_coloana_doc N(10),descriere C(100),id_tip_tag_doc N(10),;
		tip_tag C(100),pozitie C(100))
	Insert Into crselementedoc (id_coloana_doc,descriere,id_tip_tag_doc,tip_tag,pozitie) ;
		SELECT id_coloana_doc,descriere,id_tip_tag_doc,NVL(tip_tag,[]) as tip_tag,;
		NVL(pozitie,[]) as pozitie From v_elemente_doc
	GO top
	Use In v_elemente_doc
Endif
goExecutor.oReset()
Return lnSucces
Endproc	&&	update_elemente_doc
*****************************************************************************
Procedure update_coloane_doc
Lparameters tnTipModelDoc
If Used('v_coloane_doc')
	Use In v_coloane_doc
Endif
If !Empty(tnTipModelDoc)
	lcFiltru=[where id_tip_model_doc=]+Alltrim(Str(tnTipModelDoc))
Else
	lcFiltru=[]
Endif
lcSql=[select id_coloana_doc,descriere from ] + gcS + [.crm_vcoloane_documente ]+;
	lcFiltru
lnSucces=goExecutor.oExecute(lcSql,'v_coloane_doc')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Else
	If Used('crselementedoc')
		Use In crselementedoc
	Endif
	Create Cursor crselementedoc(id_coloana_doc N(10),descriere C(100),id_tip_tag_doc N(10),;
		tip_tag C(100),pozitie C(100))
	Insert Into crselementedoc (id_coloana_doc,descriere,id_tip_tag_doc) ;
		SELECT id_coloana_doc,descriere,0 As id_tip_tag_doc From v_coloane_doc
	GO top
	Use In v_coloane_doc
Endif
goExecutor.oReset()
Return lnSucces
Endproc	&&	update_coloane_doc
*****************************************************************************
Procedure update_tip_tag_document
If Used('v_tip_tag')
	Use In v_tip_tag
Endif
lcSql=[select id_tip_tag_doc,tip_tag from ] + gcS + [.crm_vtip_tag_document where inactiv=0]
lnSucces=goExecutor.oExecute(lcSql,'v_tip_tag')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
goExecutor.oReset()
Return lnSucces
Endproc	&&	update_tip_tag_document
*****************************************************************************
Procedure update_articole
If Used('v_articole')
	Use In v_articole
Endif
lcSql=[select id_articol, codmat, denumire as nume_articol, um from ] + gcS + [.vnom_articole_crm order by denumire ]
lnSucces=goExecutor.oExecute(lcSql,'v_articole')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
goExecutor.oReset()
Return lnSucces

Endproc	&&	update_articole
*****************************************************************************
Procedure update_zone
If Used('v_zone')
	Use In v_zone
Endif
lcSql=[select id_zona,zona from ] + gcS + [.crm_vzone where inactiv=0]
lnSucces=goExecutor.oExecute(lcSql,'v_zone')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
goExecutor.oReset()
Return lnSucces

Endproc	&&	update_zone
*****************************************************************************
Procedure update_agenti
If Used('v_agenti')
	Use In v_agenti
Endif
lcSql=[select id_responsabil,nume_agent from ] + gcS + [.vnom_agenti ]+;
	[order by 2]
lnSucces=goExecutor.oExecute(lcSql,'v_agenti')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
goExecutor.oReset()
Return lnSucces

Endproc	&&	update_agenti
*****************************************************************************
Procedure update_articole_politica_pret
Lparameters tnIdPol
If Used('crsarticole')
	Use In crsarticole
Endif
lcSql=[select id_art as id_articol,nume_art as nume_articol,um,pret,nume_val,id_valuta from ] + gcS + [.vcrm_politici_pret_art ]+;
	[where id_pol=]+Alltrim(Str(tnIdPol))+[ order by 2]
lnSucces=goExecutor.oExecute(lcSql,'crsarticole')
If lnSucces < 0
	Messagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
goExecutor.oReset()
Return lnSucces

Endproc	&&	update_articole_politica_pret
*****************************************************************************
**	Functii cautare
*****************************************************************************
Function cauta_agent
Lparameters tcIdAgent,tcNumeAgent
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select id_responsabil,nume_agent,functie from ] + gcS + [.vnom_agenti "]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [nume_agent,functie]
pcTitlu = [Agent]
pcTitluColoane = [Nume,Functie]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.id_responsabil)
	tcIdAgent=locauta.id_responsabil
	tcNumeAgent=Alltrim(locauta.nume_agent)
	llReturn=.T.
Endif
Return llReturn
Endfunc	&&	cauta_agent
*****************************************************************************
Function cauta_valuta
Lparameters tnIdValuta,tcNumeValuta
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select id_valuta,nume_val from ] + gcS + [.vnom_valute "]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [Nume_val]
pcTitlu = [Valuta]
pcTitluColoane = [Valuta]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")

If !Empty(locauta.id_valuta)
	tnIdValuta=locauta.id_valuta
	tcNumeValuta=Alltrim(locauta.nume_val)
	llReturn=.T.
Endif
Return llReturn
Endfunc	&&	cauta_valuta
*****************************************************************************
Function cauta_zona
Lparameters tnIdZona,tcNumeZona
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select id_zona,zona from ] + gcS + [.crm_vzone where inactiv=0"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [Zona]
pcTitlu = [Zona]
pcTitluColoane = [Zona]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.id_zona)
	tnIdZona=locauta.id_zona
	tcNumeZona=Alltrim(locauta.zona)
	llReturn=.T.
Endif
Return llReturn
Endfunc	&&	cauta_zona
*****************************************************************************
Function cauta_politica_preturi
Lparameters tnIdPol,tcNumePolitica,tnIdValuta,tcNumeValuta
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select id_pol,nume,datai,datas,id_valuta,nume_val from ] + gcS + [.crm_vpolitici_pret_curente"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [nume,datai,datas,nume_val]
pcTitlu = [Politici de preturi actuale]
pcTitluColoane = [Nume,Data inceput,Data sfarsit,Valuta]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.id_pol)
	tnIdPol=locauta.id_pol
	tcNumePolitica=Alltrim(locauta.nume)
	tnIdValuta=locauta.id_valuta
	tcNumeValuta=Alltrim(locauta.nume_val)
	llReturn=.T.
Endif
Return llReturn
Endfunc	&&	cauta_politica_preturi
*****************************************************************************