224 lines
7.2 KiB
Plaintext
224 lines
7.2 KiB
Plaintext
*****************************************************************************
|
|
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
|
|
***************************************************************************** |