Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
This commit is contained in:
139
Programe/oproceduri_roaregistratura.prg
Normal file
139
Programe/oproceduri_roaregistratura.prg
Normal file
@@ -0,0 +1,139 @@
|
||||
Procedure viz_registratura
|
||||
|
||||
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
|
||||
lcSchema = [id_reg n(8), id_part n(10), denumire c(70), id_pers n(10), pers_contact c(70), data d, numar c(20), numar_intern c(20), data_intern d, ]+;
|
||||
[descriere c(100), ie N(1), observatii M, ]+;
|
||||
[id_fdoc n(5), fel_document c(30), id_mediu n(5), mediu_transmisie c(30), avizat n(1), ]+;
|
||||
[util c(30), dataora t , ]+;
|
||||
[utils c(30), dataoras t , ]+;
|
||||
[util_avizat c(30), dataora_avizat t, are_obs N(1), are_link n(1), ]+;
|
||||
[id_responsabil n(10), nresp c(70), nr_pag N(4), sters n(1),id_proiect n(10),proiect v(200)]
|
||||
|
||||
lcSelect = [select id_reg, id_part, denumire, id_pers, pers_contact, data, numar, numar_intern, data_intern, ]+;
|
||||
[ descriere, ie, observatii, id_fdoc, fel_document, id_mediu, mediu_transmisie, avizat, ]+;
|
||||
[ util, dataora, utils, dataoras, util_avizat, dataora_avizat, are_obs, are_link, id_responsabil, nresp, nr_pag, sters,id_proiect,proiect ]+;
|
||||
[from vregistratura]
|
||||
|
||||
lcOrder = []
|
||||
lcgroup = []
|
||||
lcFiltru = [sters=0]
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poReg','cRegistratura', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poReg.ca_baza1.afisare()
|
||||
|
||||
Endproc && viz_registratura
|
||||
*!* ***-----------------------------------------------------------------------------------------------------------------------------
|
||||
Procedure make_cursoare_reg
|
||||
Parameters tlToate
|
||||
&& imi creeaza cursoarele pt. modificare date generale contract
|
||||
|
||||
Local llToate && pt. toate contractele (folosesc la listare fisa contractului)
|
||||
llToate = tlToate
|
||||
|
||||
DO make_crsAtasamente IN oproceduri_atasamente.prg
|
||||
Do make_cRegReferinte
|
||||
|
||||
Endproc && make_cursoare_reg
|
||||
*!* ***-----------------------------------------------------------------------------------------------------------------------------
|
||||
*!* Procedure make_cRegLink
|
||||
*!* Parameters tlToate
|
||||
|
||||
*!* Private poLink
|
||||
*!* Store '' To poLink
|
||||
|
||||
*!* Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
|
||||
*!* lcSchema = [id_link N(5), id_reg n(5), denumire_link c(50), link c(200), nume_fisier c(200), fisier w, dataora t, utilizator c(100) ]
|
||||
|
||||
*!* lcSelect = [select l.id_link, l.id_reg, l.denumire as denumire_link, l.link, l.nume_fisier , '' as fisier, ]+;
|
||||
*!* [ l.dataora, u.utilizator ]+;
|
||||
*!* [ from reg_linkuri l ]+;
|
||||
*!* [ left join syn_vutilizatori u on l.id_util = u.id_util ]
|
||||
|
||||
*!* lcOrder = [l.nume_fisier, l.denumire]
|
||||
*!* lcgroup = []
|
||||
*!* lcFiltru = []
|
||||
*!* lcFiltruOriginal = [l.sters=0 and l.nume_fisier is not null and l.id_reg =]+Alltrim(Str(goRegistratura.id_reg))
|
||||
*!* llModParam = .T.
|
||||
*!* llAfiseaza = .F.
|
||||
|
||||
*!* gencursor('poLink','cRegLink', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
*!* poLink.ca_baza1.afisare()
|
||||
|
||||
*!* Endproc && cRegLink
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
Procedure make_cRegReferinte
|
||||
|
||||
lcSel = [{call pack_registratura.caut_referinte(?goRegistratura.numar,?goRegistratura.Data,?goRegistratura.id_part)}]
|
||||
lcCursor = 'cRegReferinte'
|
||||
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
|
||||
If lnSucces < 0
|
||||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||||
Return
|
||||
Endif
|
||||
|
||||
Endproc && make_cRegReferinte
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
Procedure adauga_registratura
|
||||
Parameters tcAlias, tnNumarIntern
|
||||
|
||||
Local lcAlias
|
||||
lcAlias = tcAlias
|
||||
|
||||
Private pnId_reg, pnNumarIntern
|
||||
Store 0 To pnId_reg
|
||||
pnNumarIntern = tnNumarIntern
|
||||
|
||||
lcSql = [begin pack_registratura.adauga_registratura(?@pnId_reg, ?pnNumarIntern); end;]
|
||||
lnSucces = goExecutor.oExecute(lcSql)
|
||||
|
||||
If lnSucces < 0
|
||||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||||
Return
|
||||
Endif
|
||||
|
||||
Return pnId_reg
|
||||
Endproc && adauga_registratura
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
Procedure modifica_reg_dg
|
||||
Parameters toRegistratura
|
||||
|
||||
Local loRegistratura
|
||||
loRegistratura = toRegistratura
|
||||
|
||||
Local lcId_reg, lcId_part, lcId_pers, lcData, lcNumar, lcData_intern, lcNumar_intern, lcDescriere, lcObservatii, lcIdUtil
|
||||
Local lnSucces
|
||||
lnSucces = -1
|
||||
|
||||
lcId_reg = Alltrim(Str(loRegistratura.id_reg))
|
||||
lcId_part = Alltrim(Str(loRegistratura.id_part))
|
||||
lcId_pers = Nvl(Alltrim(Str(loRegistratura.id_pers)),'NULL')
|
||||
lcId_responsabil = Nvl(Alltrim(Str(loRegistratura.id_responsabil)),'NULL')
|
||||
lcData = Dtos(loRegistratura.Data)
|
||||
lcNumar = Nvl(Alltrim(loRegistratura.numar),"")
|
||||
lcData_intern = Dtos(loRegistratura.Data_intern)
|
||||
lcNumar_intern = Nvl(Alltrim(loRegistratura.numar_intern),"")
|
||||
lcIE = Nvl(Alltrim(Str(loRegistratura.ie)),'0')
|
||||
lcDescriere = Nvl(Alltrim(loRegistratura.descriere),"")
|
||||
lcObservatii = Nvl(Alltrim(loRegistratura.observatii)," ")
|
||||
lcId_fdoc = Nvl(Alltrim(Str(loRegistratura.id_fdoc)),'NULL')
|
||||
lcId_mediu = Nvl(Alltrim(Str(loRegistratura.id_mediu)),'NULL')
|
||||
lcNr_pag = Alltrim(Str(loRegistratura.nr_pag))
|
||||
lcIdUtil = Alltrim(Str(gnIdUtil))
|
||||
|
||||
lcSql = [begin pack_registratura.modifica_registratura(] + lcId_reg + [,] + lcId_part + [,] + lcId_pers + [,] + lcId_responsabil + ;
|
||||
[, TO_DATE(]+Iif(!Empty(lcData) And !Isnull(lcData),[']+lcData+['],[NULL])+[,'YYYY-MM-DD'),']+lcNumar + ;
|
||||
[', TO_DATE(]+Iif(!Empty(lcData_intern) And !Isnull(lcData_intern),[']+lcData_intern+['],[NULL])+[,'YYYY-MM-DD'),']+lcNumar_intern + [',]+;
|
||||
lcIE + [,'] + lcDescriere + [','] + lcObservatii + [',] + lcId_fdoc + [,] + lcId_mediu + [,] + lcNr_pag + [,] + lcIdUtil + [); end;]
|
||||
|
||||
lnSucces = goExecutor.oExecute(lcSql)
|
||||
|
||||
If lnSucces < 0
|
||||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||||
Endif
|
||||
|
||||
Endproc && modifica_reg_dg
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user