Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
202
COMUN/programe/update_comenzi.prg
Normal file
202
COMUN/programe/update_comenzi.prg
Normal file
@@ -0,0 +1,202 @@
|
||||
*!* 20.01.2026
|
||||
*!* update_articole_politica, update_articole_politica_comenzi + codbare
|
||||
|
||||
***************************************************************************************************************
|
||||
**** Proceduri
|
||||
**** update_articole_politica ( tnIdPol )
|
||||
**** update_articole_politica_utilizator - veche 26.01
|
||||
**** update_articole_politica_comenzi
|
||||
**** caut_politici_curente - veche 26.01
|
||||
**** caut_politici_curente_utilizator
|
||||
**** caut_lucrari_curente - veche 26.01
|
||||
**** caut_lucrari_curente_gs
|
||||
**** Functii
|
||||
**** caut_nume_politica - mutata in proceduri_comune.prg ( v 2.0.11 )
|
||||
***************************************************************************************************************
|
||||
PROCEDURE extrage_optiuni_firma && adaugata v 2.0.15
|
||||
gnIdGrupaArtSectie = Val(extrage_optiuni(gcGrupaArtSectie, gnId_sectie))
|
||||
gnTipUzualComanda = Val(extrage_optiuni(gcTipUzualComanda, gnId_sectie))
|
||||
gnComenziInitial = Val(extrage_optiuni(gcComenziInitial, gnId_sectie))
|
||||
gnOre_inchidere = Val(extrage_optiuni(gcOre_inchidere, gnId_sectie))
|
||||
gnOre_livrare = Val(extrage_optiuni(gcOre_livrare, gnId_sectie))
|
||||
gnOre_executie = Val(extrage_optiuni(gcOre_executie, gnId_sectie))
|
||||
gnCopiereCantitate = Val(extrage_optiuni(gcCopiereCantitate, gnId_sectie))
|
||||
gnIdPoliticaPretC = Val(extrage_optiuni(gcIdPoliticaPretC, gnId_sectie))
|
||||
gnIdPoliticaPret = Val(extrage_optiuni(gcIdPoliticaPret, gnId_sectie))
|
||||
gnId_lista_preturi_PV = Val(extrage_optiuni(gcId_lista_preturi_PV, gnId_sectie))
|
||||
gnSuprascriePretComanda = Val(extrage_optiuni(gcSuprascriePretComanda, gnId_sectie))
|
||||
gnRF_ORDONARECOMENZI = Val(extrage_optiuni(gcRF_ORDONARECOMENZI, gnId_sectie))
|
||||
ENDPROC
|
||||
***************************************************************************************************************
|
||||
Procedure update_articole_politica
|
||||
Lparameters tnIdPol
|
||||
If Used('v_articole')
|
||||
Use In v_articole
|
||||
Endif
|
||||
|
||||
TEXT TO lcSql TEXTMERGE NOSHOW
|
||||
select p.id_articol,p.id_pol,p.pret,p.um,p.nume_articol,p.codmat,p.codbare,p.preturi_cu_tva as pret_cu_tva, s.stoc
|
||||
from com_vpreturi_utilizator p
|
||||
left join (select id_articol,
|
||||
sum(cants + cant - cante) as stoc
|
||||
from stoc
|
||||
where an = <<m.gnAn>>
|
||||
and luna = <<m.gnLuna>>
|
||||
and id_gestiune in
|
||||
(SELECT X
|
||||
FROM table(charn2collection((select pack_comenzi.extrage_optiuni(varvalue, <<gnId_sectie>>) as id_pol from optiuni where varname = 'LISTA_GESTIUNI_STOC'),
|
||||
',')))
|
||||
group by id_articol) s
|
||||
on p.id_articol = s.id_articol
|
||||
where p.id_util = <<m.gnIdUtil>> and p.id_pol= <<m.tnIdPol>>
|
||||
ENDTEXT
|
||||
|
||||
|
||||
lcCursor = [v_articole]
|
||||
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||||
goExecutor.oReset()
|
||||
|
||||
Return lnSucces
|
||||
Endproc && update_articole_politica
|
||||
***************************************************************************************************************
|
||||
*!* Procedure update_articole_politica_utilizator
|
||||
*!* If Used('v_articole')
|
||||
*!* Use In v_articole
|
||||
*!* Endif
|
||||
*!* lcSql = [select id_articol,id_pol,pret,um,nume_articol,codmat ] + ;
|
||||
*!* [from ] + gcS + [.com_vpreturi_utilizator where id_util = ?gnIdUtil order by nume_articol]
|
||||
*!* lcCursor = [v_articole]
|
||||
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||||
*!* goExecutor.oReset()
|
||||
|
||||
*!* Return lnSucces
|
||||
*!* Endproc && update_articole_politica_utilizator
|
||||
***************************************************************************************************************
|
||||
Procedure update_articole_politica_comenzi
|
||||
Lparameters tcOptiune
|
||||
|
||||
PRIVATE pcOptiune
|
||||
If Used('v_articole')
|
||||
Use In v_articole
|
||||
Endif
|
||||
pcOptiune = NVL(tcOptiune,[])
|
||||
|
||||
TEXT TO lcSql TEXTMERGE NOSHOW
|
||||
select p.id_articol,p.id_pol,p.pret,p.um,p.nume_articol,p.codmat,p.codbare,p.preturi_cu_tva as pret_cu_tva, s.stoc
|
||||
from com_vpreturi_utilizator p
|
||||
left join (select id_articol,
|
||||
sum(cants + cant - cante) as stoc
|
||||
from stoc
|
||||
where an = <<m.gnAn>>
|
||||
and luna = <<m.gnLuna>>
|
||||
and id_gestiune in
|
||||
(SELECT X
|
||||
FROM table(charn2collection((select pack_comenzi.extrage_optiuni(varvalue, <<gnId_sectie>>) as id_pol from optiuni where varname = 'LISTA_GESTIUNI_STOC'),
|
||||
',')))
|
||||
group by id_articol) s
|
||||
on p.id_articol = s.id_articol
|
||||
where p.id_util = ?gnIdUtil and p.id_pol in
|
||||
(select to_number(pack_comenzi.extrage_optiuni(varvalue,<<m.gnId_sectie>>)) as id_pol from optiuni where varname = '<<pcOptiune>>')
|
||||
order by p.nume_articol
|
||||
ENDTEXT
|
||||
lcCursor = [v_articole]
|
||||
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||||
goExecutor.oReset()
|
||||
RELEASE pcOptiune
|
||||
Return lnSucces
|
||||
Endproc && update_articole_politica_comenzi
|
||||
***************************************************************************************************************
|
||||
*!* Procedure caut_politici_curente
|
||||
*!* Local locauta,llReturn
|
||||
*!* Store "" To locauta
|
||||
*!* Store .F. To llReturn
|
||||
*!* lcSelect = ["select id_pol,nume,datai,datas from ] + gcS + [.crm_vpolitici_pret_curente"]
|
||||
*!* lcFiltru = [1=2]
|
||||
*!* lcSchema = ['']
|
||||
*!* lcOrder = [2]
|
||||
*!* lcColoane = [nume,datai,datas]
|
||||
*!* lcTitlu = [ALEGETI POLITICA DE PRETURI]
|
||||
*!* lcTitluColoane = [Nume,Data inceput,Data sfarsit]
|
||||
*!* locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu,lcTitluColoane,"")
|
||||
*!* Return locauta
|
||||
*!* Endproc && caut_politici_curente
|
||||
***************************************************************************************************************
|
||||
PROCEDURE caut_politici_curente_utilizator
|
||||
Local locauta,llReturn
|
||||
Store "" To locauta
|
||||
Store .F. To llReturn
|
||||
lcSelect = [select id_pol,nume,datai,datas from ] + gcS + [.crm_vpolpretcurutil]
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = [id_util = ?gnIdUtil]
|
||||
lcSchema = []
|
||||
lcOrder = [2]
|
||||
lcColoane = [nume,datai,datas]
|
||||
lcTitlu = [ALEGETI POLITICA DE PRETURI]
|
||||
lcTitluColoane = [Nume,Data inceput,Data sfarsit]
|
||||
locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu,lcTitluColoane,"",.F.,lcFiltruOriginal)
|
||||
Return locauta
|
||||
Endproc && caut_politici_curente_utilizator
|
||||
***************************************************************************************************************
|
||||
*!* Procedure caut_lucrari_curente
|
||||
*!* Local locauta,llReturn
|
||||
*!* Store "" To locauta
|
||||
*!* Store .F. To llReturn
|
||||
*!* lcSelect = ["select id_lucrare,nrord,data_lucrare,termen_executie from ] + gcS + [.vlucrari_curente"]
|
||||
*!* lcFiltru = [1=2]
|
||||
*!* lcSchema = ['']
|
||||
*!* lcOrder = [2]
|
||||
*!* lcColoane = [nrord,data_lucrare,termen_executie]
|
||||
*!* lcTitlu = [ALEGETI LUCRAREA]
|
||||
*!* lcTitluColoane = [Numar lucrare,Data lucrare,Termen]
|
||||
*!* locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu,lcTitluColoane,"")
|
||||
*!* Return locauta
|
||||
*!* Endproc
|
||||
***************************************************************************************************************
|
||||
Function caut_lucrari_curente_gs
|
||||
Lparameters tlToateIreg, tlMaiMulteLucrari
|
||||
Store "" To locauta
|
||||
|
||||
lcFiltru = [1=2]
|
||||
lcSchema = [id_lucrare n(20),nrord c(30),data_lucrare t,termen_executie t]
|
||||
lcOrder = [termen_executie]
|
||||
lcColoane = [nrord,data_lucrare,termen_executie]
|
||||
lcTitlu = [ALEGETI LUCRAREA]
|
||||
lcTitluColoane = [Numar lucrare,Data lucrare,Termen]
|
||||
llMaiMulteLucrari = tlMaiMulteLucrari
|
||||
lcSelect = [select id_lucrare,nrord,data_lucrare,termen_executie from vlucrari_curente where]
|
||||
lcFiltruOriginal = [2=2]
|
||||
lcNumeProc = [nom_lucrari_detalii]
|
||||
llToateIreg = tlToateIreg
|
||||
lcPrimaColoana = [termen_executie]
|
||||
lnPornire = 1
|
||||
lnTipReturn = Iif(tlMaiMulteLucrari, 1, 0)
|
||||
lcIdColumn = "id_lucrare"
|
||||
locauta = cauta_alfa_gs(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn, .F. , get_ora())
|
||||
|
||||
Return locauta
|
||||
Endfunc && caut_lucrari_curente_gs
|
||||
*****************************************************************************************************************
|
||||
*!* Function caut_nume_politica
|
||||
*!* Lparameters tnIdPol
|
||||
*!* Local lcNume
|
||||
*!* Store "" To lcNume
|
||||
*!* If !Empty(Nvl(tnIdPol,0))
|
||||
*!* If Used('crstemppol')
|
||||
*!* Use In crstemppol
|
||||
*!* Endif
|
||||
*!* lcSql = [select nume from ] + gcS + [.crm_vpolitici_pret_curente where id_pol = ] + Alltrim(Str(tnIdPol))
|
||||
*!* lnSucces = goExecutor.oExecute(lcSql,[crstemppol])
|
||||
*!* If lnSucces < 0
|
||||
*!* amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
||||
*!* Else
|
||||
*!* Select crstemppol
|
||||
*!* lcNume = Alltrim(Upper(nume))
|
||||
*!* Endif
|
||||
*!* If Used('crstemppol')
|
||||
*!* Use In crstemppol
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
|
||||
*!* Return lcNume
|
||||
*!* Endfunc && caut_nume_politica
|
||||
***************************************************************************************************************
|
||||
Reference in New Issue
Block a user