sync SVN r18058
This commit is contained in:
224
Programe/update_preturi.prg
Normal file
224
Programe/update_preturi.prg
Normal file
@@ -0,0 +1,224 @@
|
||||
*****************************************************************************
|
||||
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
|
||||
*****************************************************************************
|
||||
Reference in New Issue
Block a user