Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
342 lines
16 KiB
Plaintext
342 lines
16 KiB
Plaintext
create table REGISTRATURA
|
|
(
|
|
id_reg NUMBER(8) not null,
|
|
id_part NUMBER(10),
|
|
id_pers NUMBER(10),
|
|
numar VARCHAR2(20),
|
|
data DATE default SYSDATE,
|
|
numar_intern VARCHAR2(20),
|
|
data_intern DATE default SYSDATE,
|
|
ie NUMBER(1),
|
|
descriere VARCHAR2(100),
|
|
id_util NUMBER(8),
|
|
dataora DATE default SYSDATE,
|
|
avizat NUMBER(1) default 0,
|
|
id_util_avizat NUMBER(8),
|
|
dataora_avizat DATE,
|
|
id_utils NUMBER(8),
|
|
dataoras DATE,
|
|
sters NUMBER(1) default 0,
|
|
observatii CLOB,
|
|
id_fdoc NUMBER(5),
|
|
id_mediu NUMBER(5),
|
|
nr_pag NUMBER(4) default 1,
|
|
id_responsabil NUMBER(10),
|
|
id_proiect NUMBER(10)
|
|
);
|
|
|
|
comment on column REGISTRATURA.ie
|
|
is 'intrare/iesire';
|
|
comment on column REGISTRATURA.id_mediu
|
|
is 'mediu tr/rec';
|
|
comment on column REGISTRATURA.nr_pag
|
|
is 'cate pagini contine documentul';
|
|
alter table REGISTRATURA add constraint PK_REGISTRATURA primary key (ID_REG);
|
|
|
|
|
|
create or replace view vregistratura as
|
|
select r.ID_REG,
|
|
r.ID_PART,
|
|
p.DENUMIRE,
|
|
r.ID_PERS,
|
|
pc.DENUMIRE as pers_contact,
|
|
r.NUMAR,
|
|
r.DATA,
|
|
r.NUMAR_INTERN,
|
|
r.DATA_INTERN,
|
|
r.IE,
|
|
r.DESCRIERE,
|
|
r.ID_UTIL,
|
|
util2.utilizator AS util,
|
|
r.DATAORA,
|
|
r.AVIZAT,
|
|
r.ID_UTIL_AVIZAT,
|
|
UTIL3.UTILIZATOR as util_avizat,
|
|
r.DATAORA_AVIZAT,
|
|
r.ID_UTILS,
|
|
util1.utilizator AS utils,
|
|
r.DATAORAS,
|
|
r.observatii,
|
|
r.id_fdoc,
|
|
f.FEL_DOCUMENT,
|
|
r.id_mediu,
|
|
mt.MEDIU_TRANSMISIE,
|
|
nvl(l.are_link, 0) are_link,
|
|
(case
|
|
when r.observatii is not null then
|
|
1
|
|
else
|
|
0
|
|
end) are_obs,
|
|
r.id_responsabil,
|
|
resp.denumire AS nresp,
|
|
r.nr_pag,
|
|
r.sters,
|
|
r.id_proiect,
|
|
pr.denumire as proiect
|
|
from registratura r
|
|
left join vnom_parteneri p on p.ID_PART = r.id_part
|
|
left join vnom_fdoc f on f.ID_FDOC = r.id_fdoc
|
|
left join vpers_contact pc on pc.id_pers = r.id_pers
|
|
left join vnom_medii_transmisie mt on mt.ID_MEDIU = r.id_mediu
|
|
LEFT JOIN syn_vUTILIZATORI UTIL1 ON r.ID_UTILS = UTIL1.ID_UTIL
|
|
LEFT JOIN syn_vUTILIZATORI UTIL2 ON r.ID_UTIL = UTIL2.ID_UTIL
|
|
LEFT JOIN syn_vUTILIZATORI UTIL3 ON r.ID_UTIL_avizat = UTIL3.ID_UTIL
|
|
LEFT JOIN nom_parteneri resp ON r.id_responsabil = resp.id_part
|
|
left join con_proiecte pr on r.id_proiect = pr.id_proiect
|
|
left join (select distinct id_entitate,
|
|
id_program,
|
|
(case
|
|
when (count(id_entitate)
|
|
over(partition by id_entitate, id_program)) > 0 then
|
|
1
|
|
else
|
|
0
|
|
end) as are_link
|
|
from atas_referinte
|
|
where sters = 0
|
|
and id_program = 70) l on l.id_entitate = r.id_reg
|
|
order by to_number(r.numar_intern) desc;
|
|
|
|
begin pack_registratura.adauga_registratura(?@pnId_reg, ?pnNumarIntern); end;
|
|
|
|
select id_fdoc, fel_document FROM vnom_fdoc WHERE 2=2 and FEL_DOCUMENT LIKE 'CONTRAC%' AND (inactiv = 0) ORDER BY FEL_DOCUMENT;
|
|
|
|
SELECT 0 as TIP, B.ID_PART, B.DENUMIRE AS NUME, B.COD_FISCAL, B.DENUMIRE FROM NOM_PARTENERI B WHERE 2=2 and DENUMIRE LIKE 'MIDIA%' AND (B.STERS = 0 AND B.INACTIV = 0) ORDER BY 1,NUME;
|
|
|
|
begin pack_registratura.modifica_registratura(1470,4974,NULL,NULL, TO_DATE('20250509','YYYY-MM-DD'),'', TO_DATE('20250509','YYYY-MM-DD'),'3755',2,'contract',' ',683,NULL,1,8); end;
|
|
|
|
|
|
CREATE OR REPLACE PACKAGE BODY "PACK_REGISTRATURA" is
|
|
|
|
procedure adauga_reg_link(tnId_reg number,
|
|
tcDenumire varchar2,
|
|
tcLink varchar2,
|
|
tcObservatii varchar2,
|
|
tnId_Link out number,
|
|
tnId_proiect number) IS
|
|
|
|
begin
|
|
insert into reg_linkuri
|
|
(id_reg, denumire, link, observatii)
|
|
VALUES
|
|
(tnId_reg, tcDenumire, tcLink, tcObservatii)
|
|
returning id_link into tnId_Link;
|
|
|
|
update registratura set id_proiect = tnId_proiect where id_reg = tnId_reg;
|
|
if tnId_proiect is not null then
|
|
pack_contracte.adauga_link_proiect(tnId_proiect,
|
|
tcDenumire ,
|
|
tcLink ,
|
|
tcObservatii ,
|
|
tnId_Link);
|
|
end if;
|
|
end adauga_reg_link;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure sterge_reg_link(tnId_link number) IS
|
|
begin
|
|
update reg_linkuri
|
|
set sters = 1
|
|
where id_link = tnId_link
|
|
and sters = 0;
|
|
|
|
end sterge_reg_link;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure adauga_registratura(tnNext_id out number, tcNumarIntern IN REGISTRATURA.NUMAR_INTERN%TYPE) is
|
|
|
|
begin
|
|
|
|
insert into registratura
|
|
(id_reg, numar_intern)
|
|
values
|
|
(tnNext_id, tcNumarIntern)
|
|
returning id_reg into tnNext_id;
|
|
|
|
end adauga_registratura;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure modifica_registratura(tnId_reg number,
|
|
tnId_part number,
|
|
tnId_pers number,
|
|
tnId_responsabil number,
|
|
tdData date,
|
|
tcNumar varchar2,
|
|
tdData_intern date,
|
|
tcNumar_intern varchar2,
|
|
tnIE number,
|
|
tcDescriere varchar2,
|
|
tcObservatii clob,
|
|
tnId_fdoc number,
|
|
tnId_mediu number,
|
|
tnNr_pag number,
|
|
tnId_util number) is
|
|
begin
|
|
update registratura
|
|
set id_part = tnId_part,
|
|
id_pers = tnId_pers,
|
|
id_responsabil = tnId_responsabil,
|
|
data = tdData,
|
|
numar = tcNumar,
|
|
data_intern = tdData_intern,
|
|
numar_intern = tcNumar_intern,
|
|
ie = tnIE,
|
|
descriere = tcDescriere,
|
|
observatii = tcObservatii,
|
|
id_fdoc = tnId_fdoc,
|
|
id_mediu = tnId_mediu,
|
|
nr_pag = tnNr_pag,
|
|
id_util = tnId_util,
|
|
dataora = SYSDATE
|
|
where id_reg = tnId_reg;
|
|
|
|
end modifica_registratura;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure sterge_registratura(tnId_reg number, tnId_util number) is
|
|
begin
|
|
|
|
update registratura
|
|
set sters = 1, id_utils = tnId_util, dataoras = SYSDATE
|
|
where id_reg = tnId_reg;
|
|
|
|
update reg_linkuri
|
|
set sters = 1, id_utils = tnId_util, dataoras = SYSDATE
|
|
where id_reg = tnId_reg;
|
|
|
|
end sterge_registratura;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure caut_referinte(tcNumar varchar2,
|
|
tdData date,
|
|
tnId_part number,
|
|
p_cursor OUT pack_types.tip_cursor) IS
|
|
|
|
lcSelect varchar2(4000) := '';
|
|
|
|
begin
|
|
|
|
lcSelect := 'select * from (select count(*) as nr_aparitii,
|
|
''Registru jurnal'' as unde from
|
|
(select distinct cod from act
|
|
where sters = 0 and trim(to_char(nract)) = :1 and dataact = :2
|
|
and (id_partd=:3 or id_partc=:4))
|
|
union
|
|
select count(*) as nr_aparitii, ''Contracte'' as unde from
|
|
(select * from contracte
|
|
where sters = 0 and trim(numar) = :5
|
|
and data = :6
|
|
and id_part = :7)
|
|
union
|
|
select count(*) as nr_aparitii, ''Comenzi'' as unde from
|
|
(select * from comenzi
|
|
where sters = 0 and to_char(nr_comanda) = :8
|
|
and data_comanda = :9
|
|
and id_part = :10))
|
|
where nr_aparitii <> 0';
|
|
|
|
/*union
|
|
select count(*) as nr_aparitii, 'Oferte' as unde from
|
|
(select * from rof_oferte
|
|
where sters = 0 and nrof = 10
|
|
and data_oferta = to_date('20070331','YYYYMMDD')
|
|
and id_part = 36)*/
|
|
|
|
open p_cursor for lcSelect
|
|
using trim(tcNumar), tdData, tnId_part, tnId_part, trim(tcNumar), tdData, tnId_part, trim(tcNumar), tdData, tnId_part;
|
|
|
|
end caut_referinte;
|
|
-------------------------------------------------------------------------------------------
|
|
procedure avizeaza_document(tnId_reg number,
|
|
tnValue number,
|
|
tnId_util number) is
|
|
begin
|
|
|
|
update registratura
|
|
set avizat = tnValue,
|
|
id_util_avizat = tnId_util,
|
|
dataora_avizat = sysdate
|
|
where id_reg = tnId_reg;
|
|
|
|
end avizeaza_document;
|
|
-------------------------------------------------------------------------------------------
|
|
|
|
end PACK_REGISTRATURA;
|
|
|
|
|
|
--------------------------------------------------------------
|
|
AUTENTIFICARE si INTRARE IN APLICATIE
|
|
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
FRM_LOGIN1.DO_LOGIN Incercare de conectare:
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
OEXECUTOR.OEXECUTE ALTER SESSION SET NLS_NUMERIC_CHARACTERS = ".,"
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
OEXECUTOR.OEXECUTE SELECT pack_drepturi.verificaidutil(8) as utilizator from dual
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
FRM_LOGIN1.DO_LOGIN Connected: LENOVO-AIO-BIRO # mmari
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
OEXECUTOR.OEXECUTE {call syn_pack_drepturi.citeste_firme_program(?pnIdProgram,?pnIdUtil)}
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
OEXECUTOR.OEXECUTE select * from syn_lunilean
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
OEXECUTOR.OEXECUTE ALTER SESSION SET NLS_NUMERIC_CHARACTERS = ".,"
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari DEMO
|
|
SCHIMBA_FIRMA CONECTARE ROMFAST AHORA ID_FIRMA -1 HANDLE = 1
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari AHORA
|
|
OEXECUTOR.OEXECUTE select varvalue, col_an, col_luna, tip_col_an, tip_col_luna from syn_optiuni_programe WHERE id_prg_owner = 70 and UPPER(varname) = 'CALENDAR'
|
|
09/05/2025 11:20:05 AM LENOVO-AIO-BIRO # mmari AHORA
|
|
OEXECUTOR.OEXECUTE select an as an, to_char(luna) as nl from AHORA.CALENDAR order by an * 12 + luna
|
|
09/05/2025 11:20:06 AM LENOVO-AIO-BIRO # mmari AHORA
|
|
OEXECUTOR.OEXECUTE ALTER SESSION SET NLS_NUMERIC_CHARACTERS = ".,"
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari AHORA
|
|
SCHIMBA_FIRMA CONECTARE ROMFAST ROMFAST ID_FIRMA -1 HANDLE = 1
|
|
09/05/2025 11:20:06 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select varvalue, col_an, col_luna, tip_col_an, tip_col_luna from syn_optiuni_programe WHERE id_prg_owner = 70 and UPPER(varname) = 'CALENDAR'
|
|
09/05/2025 11:20:06 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select an as an, to_char(luna) as nl from ROMFAST.CALENDAR order by an * 12 + luna
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select varvalue, col_an, col_luna, tip_col_an, tip_col_luna from syn_optiuni_programe WHERE id_prg_owner = 70 and UPPER(varname) = 'CALENDAR'
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select * from ROMFAST.calendar order by anul, luna
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_def.citesteNumeEnt(?gnIdUtil,?@gcNumeUtilEnt); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin PACK_FIRMA.IS_LUNA_BLOCATA(?pcS, ?pnIdePrg, ?pnAn, ?pnLuna, ?@pnLunaBlocata); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select pack_migrare.VerificaVersiune('ROAREGISTRATURA', '2.0.4', '2014_02_04_05') as retvalue from dual
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select * from lunilean
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_sesiune.set_Id_Util(?gnIdUtil); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_sesiune.setluna(?gnLuna); pack_sesiune.setan(?gnAn); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_sesiune.setlunabal(?gnLuna); pack_sesiune.setanbal(?gnAn); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_contafin.SET_DATA_RON(?gcS); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_sesiune.set_data_ron(?gcS); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_contafin.set_id_sucursala(?gnIdSucursala); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin pack_contafin.set_id_firma(?gnIdFirma); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin SCRIE_OPTIUNI('CONTAFIN_ORACLE'); end;
|
|
09/05/2025 11:20:07 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select * from ROMFAST.optiuni order by varname
|
|
09/05/2025 11:20:08 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE begin SCRIE_CORESP_CONT_TIPGEST('ROMFAST'); end;
|
|
09/05/2025 11:20:08 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select * from optiuni_util where id_util = ?gnIdUtil order by varname
|
|
09/05/2025 11:20:08 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select * from contafin_oracle.lunilean
|
|
09/05/2025 11:20:08 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE select cheie,id_firma from contafin_oracle.vdef_util_obiecte where id_util = ?gnIdUtil and id_program=?gnIdProgram and id_firma=?gnIdFirma
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
DECA_BAZA.CA_BAZA1.AFISARE 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 WHERE STERS=0
|
|
09/05/2025 11:20:09 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE {call contafin_oracle.pack_drepturi.programe_utilizator(8)}
|
|
09/05/2025 11:20:09 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
OEXECUTOR.OEXECUTE {call contafin_oracle.pack_drepturi.programe_utilizator(8)}
|
|
09/05/2025 11:20 AM LENOVO-AIO-BIRO # mmari ROMFAST
|
|
DECA_BAZA.CA_BAZA1.AFISARE 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 WHERE STERS=0
|
|
|
|
--------------------------------------------------------------- |