*!* 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 = <> and luna = <> and id_gestiune in (SELECT X FROM table(charn2collection((select pack_comenzi.extrage_optiuni(varvalue, <>) 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 = <> and p.id_pol= <> 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 = <> and luna = <> and id_gestiune in (SELECT X FROM table(charn2collection((select pack_comenzi.extrage_optiuni(varvalue, <>) 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,<>)) as id_pol from optiuni where varname = '<>') 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 ***************************************************************************************************************