romfast/roapreturi
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18058

Browse Source
This commit is contained in:
Marius Mutu
2026-08-26 12:49:21 +03:00
commit f0d5151c24
46 changed files with 13195 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Scripturi_instalare/24_05_2006/ROAOFERTA_instalare.sql Normal file
View File

@@ -0,0 +1,17 @@
prompt Versiunea ROAPRETURI: 1.0.0 ( 12/05/2006 )
prompt Pana la scriptul .sql (inclusiv) din COMUN
prompt ================================================================
prompt
prompt
prompt Creare structura
prompt ================
prompt
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\curatare_schema.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\tabele.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\secvente.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\triggere.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\packages.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\viewuri.sql;

11
Scripturi_instalare/24_05_2006/curatare_schema.sql Normal file
View File

@@ -0,0 +1,11 @@
--------------------------------------------------------
-- Pregatire schema pentru ROAOFERTA --
-- drop by marius.atanasiu on 5/04/2006 --
--------------------------------------------------------
spool curatare_schema_roaoferta.log
spool off;

353
Scripturi_instalare/24_05_2006/packages.sql Normal file
View File

@@ -0,0 +1,353 @@
----------------------------------------------------
-- Export file for user MARIUSA_CRM --
-- Created by paula.rota on 5/12/2006, 9:54:14 AM --
----------------------------------------------------
spool pack_preturi.log
prompt
prompt Creating package PACK_PRETURI
prompt =============================
prompt
create or replace package PACK_PRETURI is
-- Author : PAULA.MUTU
-- Created : 5/12/2006 9:30:00 AM
-- Purpose :
procedure adauga_articol(V_SCHEMA IN VARCHAR2,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure modifica_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure sterge_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure adauga_politica(V_SCHEMA IN VARCHAR2,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER);
procedure modifica_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER);
procedure sterge_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure adauga_nota_vanzari(tcSchema varchar2,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number);
procedure modifica_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number);
procedure sterge_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tnId_utils number);
procedure adauga_categ_art(tcSchema varchar2,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number);
procedure modifica_categ_art(tcSchema varchar2,
tnId_categ number,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number);
procedure sterge_categ_art(tcSchema varchar2,
tnId_categ number,
tnId_utils number);
end PACK_PRETURI;
/
prompt
prompt Creating package body PACK_PRETURI
prompt ==================================
prompt
create or replace package body PACK_PRETURI is
procedure adauga_articol(V_SCHEMA IN VARCHAR2,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || V_SCHEMA ||
'.NOM_ARTICOLE ' ||
'WHERE STERS=:1 AND CODMAT=:2 AND IN_CRM=:3 AND IN_STOC=:4'
INTO V_INREGISTRARI
USING 0, V_CODMAT, 1, 0;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista un articol cu acest cod de material!');
ELSE
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.NOM_ARTICOLE (CODMAT,DENUMIRE,UM,ID_CATEG,INACTIV,IN_CRM,IN_STOC) ' ||
'VALUES (:1,:2,:3,:4,:5,:6,:7)'
USING V_CODMAT, V_DENUMIRE, V_UM, V_ID_CATEG, V_INACTIV, 1, 0;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure modifica_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || V_SCHEMA ||
'.NOM_ARTICOLE ' ||
'WHERE STERS=:1 AND CODMAT=:2 AND IN_CRM=:3 AND IN_STOC=:4 AND ID_ARTICOL<>:5'
INTO V_INREGISTRARI
USING 0, V_CODMAT, 1, 0, V_ID_ARTICOL;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista un articol cu acest cod de material!');
ELSE
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA ||
'.NOM_ARTICOLE SET CODMAT=:1,' ||
'DENUMIRE=:2,UM=:3,
ID_CATEG=:4,INACTIV=:5 WHERE ID_ARTICOL=:6'
USING V_CODMAT, V_DENUMIRE, V_UM, V_ID_CATEG, V_INACTIV, V_ID_ARTICOL;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure sterge_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA ||
'.NOM_ARTICOLE SET STERS=:1 WHERE ID_ARTICOL=:2'
USING 1, V_ID_ARTICOL;
end;
-------------------------------------------------------------------------------------------
procedure adauga_politica(V_SCHEMA IN VARCHAR2,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER) is
V_ID_POL NUMBER(10);
V_LUNGIME_SIR NUMBER(10);
V_ELEMENT VARCHAR2(100);
V_ID_ARTICOL NUMBER(10);
V_UM VARCHAR2(10);
V_PRET NUMBER(10);
begin
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.CRM_POLITICI_PRETURI ' ||
'(NUME,DATAI,DATAS,ID_VALUTA,ID_UTIL) VALUES(:1,:2,:3,:4,:5) ' ||
'RETURNING ID_POL INTO :6'
USING V_NUME, V_DATAI, V_DATAS, V_ID_VALUTA, V_ID_UTIL
RETURNING INTO V_ID_POL;
IF V_SIR IS NOT NULL THEN
V_LUNGIME_SIR := SIR_IN_SIR(V_SIR, ';');
FOR i IN 1 .. V_LUNGIME_SIR LOOP
V_ELEMENT := ELEMENT_DIN_SIR(V_SIR, ';', i) || ',';
V_ID_ARTICOL := TO_NUMBER(ELEMENT_DIN_SIR(V_ELEMENT, ',', 1));
V_UM := ELEMENT_DIN_SIR(V_ELEMENT, ',', 2);
V_PRET := TO_NUMBER(TRANSLATE(ELEMENT_DIN_SIR(V_ELEMENT,
',',
3),
',',
'.'));
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.CRM_POLITICI_PRET_ART (ID_POL,ID_ART,PRET,UM,ID_VALUTA,ID_UTIL) ' ||
'VALUES(:1,:2,:3,:4,:5,:6)'
USING V_ID_POL, V_ID_ARTICOL, V_PRET, V_UM, V_ID_VALUTA, V_ID_UTIL;
END LOOP;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure modifica_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER) is
begin
pack_oferta.sterge_politica(V_SCHEMA, V_ID_POL, V_ID_UTIL);
pack_oferta.adauga_politica(V_SCHEMA,
V_NUME,
V_DATAI,
V_DATAS,
V_ID_VALUTA,
V_SIR,
V_ID_UTIL);
end;
-------------------------------------------------------------------------------------------
procedure sterge_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.CRM_POLITICI_PRETURI ' ||
'SET STERS=:1,DATAORAS=:2,ID_UTILS=:3 WHERE ID_POL=:4'
USING 1, SYSDATE, V_ID_UTIL, V_ID_POL;
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.CRM_POLITICI_PRET_ART ' ||
'SET STERS=:1,DATAORAS=:2,ID_UTILS=:3 WHERE ID_POL=:4'
USING 1, SYSDATE, V_ID_UTIL, V_ID_POL;
end;
-------------------------------------------------------------------------------------------
procedure adauga_nota_vanzari(tcSchema varchar2,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number) is
begin
execute immediate 'insert into ' || tcSchema ||
'.crm_note_vanzari
(denumire, scd, ascd, scc, ascc, id_util, dataora)
values (:1, :2, :3, :4, :5, :6, :7)'
using tcDenumire, tcScd, tcAscd, tcScc, tcAscc, tnId_util, SYSDATE;
end adauga_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure modifica_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number) is
begin
execute immediate 'update ' || tcSchema || '.crm_note_vanzari
set denumire=:1, scd=:2, ascd=:3, scc=:4, ascc=:5, id_util=:6, dataora=:7
where id_nota=:8'
using tcDenumire, tcScd, tcAscd, tcScc, tcAscc, tnId_util, SYSDATE, tnId_nota;
end modifica_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure sterge_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tnId_utils number) is
begin
execute immediate 'update ' || tcSchema || '.crm_note_vanzari
set sters=:1, id_utils=:2, dataoras=:3
where id_nota=:4'
using 1, tnId_utils, SYSDATE, tnId_nota;
end sterge_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure adauga_categ_art(tcSchema varchar2,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || TCSCHEMA ||
'.CRM_CATEG_ARTICOLE ' ||
'WHERE STERS=:1 AND DENUMIRE=:2'
INTO V_INREGISTRARI
USING 0, TCDENUMIRE;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista o categorie cu aceeasi denumire!');
ELSE
execute immediate 'insert into ' || tcSchema ||
'.crm_categ_articole
(denumire, id_nota, id_tata, id_util, dataora)
values (:1, :2, :3, :4, :5)'
using tcDenumire, tnId_nota, tnId_tata, tnId_util, SYSDATE;
END IF;
end adauga_categ_art;
-------------------------------------------------------------------------------------------
procedure modifica_categ_art(tcSchema varchar2,
tnId_categ number,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || TCSCHEMA ||
'.CRM_CATEG_ARTICOLE ' ||
'WHERE STERS=:1 AND DENUMIRE=:2 AND ID_CATEG<>:3'
INTO V_INREGISTRARI
USING 0, TCDENUMIRE, tnId_categ;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista o categorie cu aceeasi denumire!');
ELSE
execute immediate 'update ' || tcSchema || '.crm_categ_articole ' ||
'set denumire=:1, id_nota=:2, id_tata=:3,
id_util=:4, dataora=:5 ' ||
'where id_categ=:6'
using tcDenumire, tnId_nota, tnId_tata, tnId_util, SYSDATE, tnId_categ;
END IF;
end modifica_categ_art;
-------------------------------------------------------------------------------------------
procedure sterge_categ_art(tcSchema varchar2,
tnId_categ number,
tnId_utils number) is
begin
execute immediate 'update ' || tcSchema || '.crm_categ_articole
set sters=:1, id_utils=:2, dataoras=:3
where id_categ=:4'
using 1, tnId_utils, SYSDATE, tnId_categ;
end sterge_categ_art;
-------------------------------------------------------------------------------------------
end PACK_PRETURI;
/
spool off

67
Scripturi_instalare/24_05_2006/secvente.sql Normal file
View File

@@ -0,0 +1,67 @@
---------------------------------------------------------
-- Secvente pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 9:03:00 AM --
---------------------------------------------------------
spool secvente.log
prompt
prompt Creating sequence SEQ_CRM_ARTICOLE
prompt ==================================
prompt
create sequence SEQ_CRM_ARTICOLE
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_CATEG_ARTICOLE
prompt ========================================
prompt
create sequence SEQ_CRM_CATEG_ARTICOLE
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_NOTE_VANZARI
prompt ======================================
prompt
create sequence SEQ_CRM_NOTE_VANZARI
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_POLITICI_PRETURI
prompt ==========================================
prompt
create sequence SEQ_CRM_POLITICI_PRETURI
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_POLITICI_PRET_ART
prompt ===========================================
prompt
create sequence SEQ_CRM_POLITICI_PRET_ART
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
spool off;

202
Scripturi_instalare/24_05_2006/tabele.sql Normal file
View File

@@ -0,0 +1,202 @@
---------------------------------------------------------
-- Tabele pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 9:07:00 AM --
---------------------------------------------------------
spool tabele.log
prompt
prompt Creating table CRM_NOTE_VANZARI
prompt ===============================
prompt
create table CRM_NOTE_VANZARI
(
ID_NOTA NUMBER(5) not null,
DENUMIRE VARCHAR2(30),
SCD VARCHAR2(4),
ASCD VARCHAR2(4),
SCC VARCHAR2(4),
ASCC VARCHAR2(4),
DATAORAS DATE default SYSDATE,
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(8),
DATAORA DATE,
ID_UTILS NUMBER(8)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_NOTE_VANZARI
add constraint PK_CRM_NOTE_VANZARI primary key (ID_NOTA)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table CRM_CATEG_ARTICOLE
prompt =================================
prompt
create table CRM_CATEG_ARTICOLE
(
ID_CATEG NUMBER(5) not null,
DENUMIRE VARCHAR2(30),
ID_NOTA NUMBER(5),
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(8),
DATAORA DATE default SYSDATE,
ID_UTILS NUMBER(8),
DATAORAS DATE,
TATA NUMBER(5)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_CATEG_ARTICOLE
add constraint PK_CRM_CATEG_ARTICOLE primary key (ID_CATEG)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_CATEG_ARTICOLE
add constraint FK_CRM_CATEG_ARTICOLE_001 foreign key (ID_NOTA)
references CRM_NOTE_VANZARI (ID_NOTA);
prompt
prompt Creating table CRM_POLITICI_PRETURI
prompt ===================================
prompt
create table CRM_POLITICI_PRETURI
(
ID_POL NUMBER(5) not null,
NUME VARCHAR2(100),
DATAI DATE,
DATAS DATE,
ID_VALUTA NUMBER(5),
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(10),
DATAORA DATE default sysdate not null,
ID_UTILS NUMBER(10),
DATAORAS DATE
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRETURI
add constraint PK_CRM_PP primary key (ID_POL)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_001 foreign key (ID_UTIL)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_002 foreign key (ID_UTILS)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_003 foreign key (ID_VALUTA)
references NOM_VALUTE (ID_VALUTA);
prompt
prompt Creating table CRM_POLITICI_PRET_ART
prompt ====================================
prompt
create table CRM_POLITICI_PRET_ART
(
ID_POL_ART NUMBER(5) not null,
ID_POL NUMBER(5) not null,
ID_ART NUMBER(5) not null,
PRET NUMBER(20,4),
UM VARCHAR2(10),
ID_VALUTA NUMBER(5) not null,
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(10),
DATAORA DATE default sysdate not null,
ID_UTILS NUMBER(10),
DATAORAS DATE
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRET_ART
add constraint PK_CRM_PPA primary key (ID_POL_ART)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_001 foreign key (ID_ART)
references NOM_ARTICOLE (ID_ARTICOL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_002 foreign key (ID_UTIL)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_003 foreign key (ID_UTILS)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_004 foreign key (ID_VALUTA)
references NOM_VALUTE (ID_VALUTA);
spool off;

70
Scripturi_instalare/24_05_2006/triggere.sql Normal file
View File

@@ -0,0 +1,70 @@
---------------------------------------------------------
-- Triggere pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 10:32:00 AM--
---------------------------------------------------------
spool triggere.log
prompt
prompt Creating trigger TRG_CRM_CATEG_ARTICOLE
prompt =======================================
prompt
create or replace trigger TRG_CRM_CATEG_ARTICOLE
before insert on CRM_CATEG_ARTICOLE
referencing old as old new as new
for each row
begin
if :new.ID_CATEG is null or :new.ID_CATEG = 0 then
select SEQ_CRM_CATEG_ARTICOLE.NEXTVAL into :new.ID_CATEG from dual;
end if;
end TRG_CRM_CATEG_ARTICOLE;
/
prompt
prompt Creating trigger TRG_CRM_NOTE_VANZARI
prompt =====================================
prompt
create or replace trigger TRG_CRM_NOTE_VANZARI
before insert on CRM_NOTE_VANZARI
referencing old as old new as new
for each row
begin
if :new.ID_NOTA is null or :new.ID_NOTA = 0 then
select SEQ_CRM_NOTE_VANZARI.NEXTVAL into :new.ID_NOTA from dual;
end if;
end TRG_CRM_NOTE_VANZARI;
/
prompt
prompt Creating trigger TRG_CRM_POLITICI_PRETURI
prompt =========================================
prompt
create or replace trigger TRG_CRM_POLITICI_PRETURI
before insert on CRM_POLITICI_PRETURI
referencing old as old new as new
for each row
begin
if :new.ID_POL is null or :new.ID_POL = 0 then
select SEQ_CRM_POLITICI_PRETURI.NEXTVAL into :new.ID_POL from dual;
end if;
end TRG_CRM_POLITICI_PRETURI;
/
prompt
prompt Creating trigger TRG_CRM_POLITICI_PRET_ART
prompt ==========================================
prompt
create or replace trigger TRG_CRM_POLITICI_PRET_ART
before insert on CRM_POLITICI_PRET_ART
referencing old as old new as new
for each row
begin
if :new.ID_POL_ART is null or :new.ID_POL_ART = 0 then
select SEQ_CRM_POLITICI_PRET_ART.NEXTVAL into :new.ID_POL_ART from dual;
end if;
end TRG_CRM_POLITICI_PRET_ART;
/
spool off

77
Scripturi_instalare/24_05_2006/viewuri.sql Normal file
View File

@@ -0,0 +1,77 @@
---------------------------------------------------------
-- Viewuri pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 4/05/2006, 9:15:00 AM --
---------------------------------------------------------
spool viewuri.log
prompt
prompt Creating view CRM_VPOLITICI_PRETURI
prompt ===================================
prompt
create or replace view crm_vpolitici_preturi as
select a.id_pol,
a.nume,
a.datai,
a.datas,
a.id_valuta,
a.id_util,
a.dataora,
b.nume_val,
c.utilizator
from crm_politici_preturi a
left join nom_valute b on a.id_valuta=b.ID_VALUTA
left join syn_utilizatori c on a.id_util=c.id_util
where a.sters=0
/
prompt
prompt Creating view CRM_VPOLITICI_PRET_ART
prompt ====================================
prompt
create or replace view crm_vpolitici_pret_art as
select a.id_pol_art,
a.id_pol,
a.id_art,
a.pret,
a.um,
a.id_valuta,
a.id_util,
a.dataora,
b.denumire as nume_articol,
b.codmat,
c.nume_val,
d.utilizator
from crm_politici_pret_art a
left join nom_articole b on a.id_art = b.id_articol
left join nom_valute c on a.id_valuta = c.id_valuta
left join syn_utilizatori d on a.id_util = d.id_util
where a.sters = 0
/
prompt
prompt Creating view VNOM_ARTICOLE_CRM
prompt ===============================
prompt
create or replace view vnom_articole_crm as
select A.ID_ARTICOL,
A.CODMAT,
A.DENUMIRE,
A.UM,
A.COMISION,
A.INACTIV,
A.CODBARE,
A.IN_STOC,
A.IN_CRM,
A.ID_CATEG,
C.DENUMIRE AS DEN_CATEG
from NOM_ARTICOLE A
JOIN VCRM_CATEG_ARTICOLE C ON C.ID_CATEG = A.ID_CATEG
where A.STERS = 0
and in_crm = 1
/
spool off;

1619
Scripturi_instalare/Arhiva/script_oferta_companiei_0405.txt Normal file
View File

File diff suppressed because it is too large Load Diff

17
Scripturi_instalare/ROAOFERTA_instalare.sql Normal file
View File

@@ -0,0 +1,17 @@
prompt Versiunea ROAPRETURI: 1.0.0 ( 12/05/2006 )
prompt Pana la scriptul .sql (inclusiv) din COMUN
prompt ================================================================
prompt
prompt
prompt Creare structura
prompt ================
prompt
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\curatare_schema.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\tabele.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\secvente.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\triggere.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\packages.sql;
@D:\CONTAFIN_ORACLE\ROAOFERTA\Scripturi_instalare\viewuri.sql;

BIN
Scripturi_instalare/Scripturi.xls Normal file
View File

Binary file not shown.

11
Scripturi_instalare/curatare_schema.sql Normal file
View File

@@ -0,0 +1,11 @@
--------------------------------------------------------
-- Pregatire schema pentru ROAOFERTA --
-- drop by marius.atanasiu on 5/04/2006 --
--------------------------------------------------------
spool curatare_schema_roaoferta.log
spool off;

353
Scripturi_instalare/packages.sql Normal file
View File

@@ -0,0 +1,353 @@
----------------------------------------------------
-- Export file for user MARIUSA_CRM --
-- Created by paula.rota on 5/12/2006, 9:54:14 AM --
----------------------------------------------------
spool pack_preturi.log
prompt
prompt Creating package PACK_PRETURI
prompt =============================
prompt
create or replace package PACK_PRETURI is
-- Author : PAULA.MUTU
-- Created : 5/12/2006 9:30:00 AM
-- Purpose :
procedure adauga_articol(V_SCHEMA IN VARCHAR2,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure modifica_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure sterge_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure adauga_politica(V_SCHEMA IN VARCHAR2,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER);
procedure modifica_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER);
procedure sterge_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure adauga_nota_vanzari(tcSchema varchar2,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number);
procedure modifica_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number);
procedure sterge_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tnId_utils number);
procedure adauga_categ_art(tcSchema varchar2,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number);
procedure modifica_categ_art(tcSchema varchar2,
tnId_categ number,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number);
procedure sterge_categ_art(tcSchema varchar2,
tnId_categ number,
tnId_utils number);
end PACK_PRETURI;
/
prompt
prompt Creating package body PACK_PRETURI
prompt ==================================
prompt
create or replace package body PACK_PRETURI is
procedure adauga_articol(V_SCHEMA IN VARCHAR2,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || V_SCHEMA ||
'.NOM_ARTICOLE ' ||
'WHERE STERS=:1 AND CODMAT=:2 AND IN_CRM=:3 AND IN_STOC=:4'
INTO V_INREGISTRARI
USING 0, V_CODMAT, 1, 0;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista un articol cu acest cod de material!');
ELSE
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.NOM_ARTICOLE (CODMAT,DENUMIRE,UM,ID_CATEG,INACTIV,IN_CRM,IN_STOC) ' ||
'VALUES (:1,:2,:3,:4,:5,:6,:7)'
USING V_CODMAT, V_DENUMIRE, V_UM, V_ID_CATEG, V_INACTIV, 1, 0;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure modifica_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_CODMAT IN VARCHAR2,
V_DENUMIRE IN VARCHAR2,
V_UM IN VARCHAR2,
V_ID_CATEG IN NUMBER,
V_INACTIV IN NUMBER,
V_ID_UTIL IN NUMBER) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || V_SCHEMA ||
'.NOM_ARTICOLE ' ||
'WHERE STERS=:1 AND CODMAT=:2 AND IN_CRM=:3 AND IN_STOC=:4 AND ID_ARTICOL<>:5'
INTO V_INREGISTRARI
USING 0, V_CODMAT, 1, 0, V_ID_ARTICOL;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista un articol cu acest cod de material!');
ELSE
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA ||
'.NOM_ARTICOLE SET CODMAT=:1,' ||
'DENUMIRE=:2,UM=:3,
ID_CATEG=:4,INACTIV=:5 WHERE ID_ARTICOL=:6'
USING V_CODMAT, V_DENUMIRE, V_UM, V_ID_CATEG, V_INACTIV, V_ID_ARTICOL;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure sterge_articol(V_SCHEMA IN VARCHAR2,
V_ID_ARTICOL IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA ||
'.NOM_ARTICOLE SET STERS=:1 WHERE ID_ARTICOL=:2'
USING 1, V_ID_ARTICOL;
end;
-------------------------------------------------------------------------------------------
procedure adauga_politica(V_SCHEMA IN VARCHAR2,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER) is
V_ID_POL NUMBER(10);
V_LUNGIME_SIR NUMBER(10);
V_ELEMENT VARCHAR2(100);
V_ID_ARTICOL NUMBER(10);
V_UM VARCHAR2(10);
V_PRET NUMBER(10);
begin
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.CRM_POLITICI_PRETURI ' ||
'(NUME,DATAI,DATAS,ID_VALUTA,ID_UTIL) VALUES(:1,:2,:3,:4,:5) ' ||
'RETURNING ID_POL INTO :6'
USING V_NUME, V_DATAI, V_DATAS, V_ID_VALUTA, V_ID_UTIL
RETURNING INTO V_ID_POL;
IF V_SIR IS NOT NULL THEN
V_LUNGIME_SIR := SIR_IN_SIR(V_SIR, ';');
FOR i IN 1 .. V_LUNGIME_SIR LOOP
V_ELEMENT := ELEMENT_DIN_SIR(V_SIR, ';', i) || ',';
V_ID_ARTICOL := TO_NUMBER(ELEMENT_DIN_SIR(V_ELEMENT, ',', 1));
V_UM := ELEMENT_DIN_SIR(V_ELEMENT, ',', 2);
V_PRET := TO_NUMBER(TRANSLATE(ELEMENT_DIN_SIR(V_ELEMENT,
',',
3),
',',
'.'));
EXECUTE IMMEDIATE 'INSERT INTO ' || V_SCHEMA ||
'.CRM_POLITICI_PRET_ART (ID_POL,ID_ART,PRET,UM,ID_VALUTA,ID_UTIL) ' ||
'VALUES(:1,:2,:3,:4,:5,:6)'
USING V_ID_POL, V_ID_ARTICOL, V_PRET, V_UM, V_ID_VALUTA, V_ID_UTIL;
END LOOP;
END IF;
end;
-------------------------------------------------------------------------------------------
procedure modifica_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_NUME IN VARCHAR2,
V_DATAI IN DATE,
V_DATAS IN DATE,
V_ID_VALUTA IN NUMBER,
V_SIR IN VARCHAR2,
V_ID_UTIL IN NUMBER) is
begin
pack_oferta.sterge_politica(V_SCHEMA, V_ID_POL, V_ID_UTIL);
pack_oferta.adauga_politica(V_SCHEMA,
V_NUME,
V_DATAI,
V_DATAS,
V_ID_VALUTA,
V_SIR,
V_ID_UTIL);
end;
-------------------------------------------------------------------------------------------
procedure sterge_politica(V_SCHEMA IN VARCHAR2,
V_ID_POL IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.CRM_POLITICI_PRETURI ' ||
'SET STERS=:1,DATAORAS=:2,ID_UTILS=:3 WHERE ID_POL=:4'
USING 1, SYSDATE, V_ID_UTIL, V_ID_POL;
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.CRM_POLITICI_PRET_ART ' ||
'SET STERS=:1,DATAORAS=:2,ID_UTILS=:3 WHERE ID_POL=:4'
USING 1, SYSDATE, V_ID_UTIL, V_ID_POL;
end;
-------------------------------------------------------------------------------------------
procedure adauga_nota_vanzari(tcSchema varchar2,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number) is
begin
execute immediate 'insert into ' || tcSchema ||
'.crm_note_vanzari
(denumire, scd, ascd, scc, ascc, id_util, dataora)
values (:1, :2, :3, :4, :5, :6, :7)'
using tcDenumire, tcScd, tcAscd, tcScc, tcAscc, tnId_util, SYSDATE;
end adauga_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure modifica_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tcDenumire varchar2,
tcScd varchar2,
tcAscd varchar2,
tcScc varchar2,
tcAscc varchar2,
tnId_util number) is
begin
execute immediate 'update ' || tcSchema || '.crm_note_vanzari
set denumire=:1, scd=:2, ascd=:3, scc=:4, ascc=:5, id_util=:6, dataora=:7
where id_nota=:8'
using tcDenumire, tcScd, tcAscd, tcScc, tcAscc, tnId_util, SYSDATE, tnId_nota;
end modifica_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure sterge_nota_vanzari(tcSchema varchar2,
tnId_nota number,
tnId_utils number) is
begin
execute immediate 'update ' || tcSchema || '.crm_note_vanzari
set sters=:1, id_utils=:2, dataoras=:3
where id_nota=:4'
using 1, tnId_utils, SYSDATE, tnId_nota;
end sterge_nota_vanzari;
-------------------------------------------------------------------------------------------
procedure adauga_categ_art(tcSchema varchar2,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || TCSCHEMA ||
'.CRM_CATEG_ARTICOLE ' ||
'WHERE STERS=:1 AND DENUMIRE=:2'
INTO V_INREGISTRARI
USING 0, TCDENUMIRE;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista o categorie cu aceeasi denumire!');
ELSE
execute immediate 'insert into ' || tcSchema ||
'.crm_categ_articole
(denumire, id_nota, id_tata, id_util, dataora)
values (:1, :2, :3, :4, :5)'
using tcDenumire, tnId_nota, tnId_tata, tnId_util, SYSDATE;
END IF;
end adauga_categ_art;
-------------------------------------------------------------------------------------------
procedure modifica_categ_art(tcSchema varchar2,
tnId_categ number,
tcDenumire varchar2,
tnId_nota number,
tnId_tata number,
tnId_util number) is
V_INREGISTRARI NUMBER(10);
begin
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' || TCSCHEMA ||
'.CRM_CATEG_ARTICOLE ' ||
'WHERE STERS=:1 AND DENUMIRE=:2 AND ID_CATEG<>:3'
INTO V_INREGISTRARI
USING 0, TCDENUMIRE, tnId_categ;
IF V_INREGISTRARI > 0 THEN
RAISE_APPLICATION_ERROR(-20000,
'Mai exista o categorie cu aceeasi denumire!');
ELSE
execute immediate 'update ' || tcSchema || '.crm_categ_articole ' ||
'set denumire=:1, id_nota=:2, id_tata=:3,
id_util=:4, dataora=:5 ' ||
'where id_categ=:6'
using tcDenumire, tnId_nota, tnId_tata, tnId_util, SYSDATE, tnId_categ;
END IF;
end modifica_categ_art;
-------------------------------------------------------------------------------------------
procedure sterge_categ_art(tcSchema varchar2,
tnId_categ number,
tnId_utils number) is
begin
execute immediate 'update ' || tcSchema || '.crm_categ_articole
set sters=:1, id_utils=:2, dataoras=:3
where id_categ=:4'
using 1, tnId_utils, SYSDATE, tnId_categ;
end sterge_categ_art;
-------------------------------------------------------------------------------------------
end PACK_PRETURI;
/
spool off

38
Scripturi_instalare/script_obiecte.sql Normal file
View File

@@ -0,0 +1,38 @@
prompt PL/SQL Developer import file
prompt Created on Tuesday, June 20, 2006 by paula.rota
set feedback off
set define off
prompt Disabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE disable all triggers;
prompt Loading DEF_OBIECTE...
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5119, 55, 'Configurare', -1, 'A', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5120, 55, 'Catalog de articole', 5119, '01', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5121, 55, 'Note de vanzari', 5119, '02', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5122, 55, 'Liste de preturi', 5119, '03', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5123, 55, 'Listare', 5120, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5124, 55, 'Modificare', 5120, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5125, 55, 'Stergere', 5120, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5126, 55, 'Listare', 5122, '2', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5127, 55, 'Modificare', 5122, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5128, 55, 'Stergere', 5122, '4', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5129, 55, 'Modificare', 5121, '3', null, null, 0);
insert into DEF_OBIECTE (ID_OBIECT, ID_PROGRAM, DESCRIERE, ID_TATA, COD, ID_UTILOP, DATAORA, STERS)
values (5130, 55, 'Stergere', 5121, '4', null, null, 0);
commit;
prompt 12 records loaded
prompt Enabling triggers for DEF_OBIECTE...
alter table DEF_OBIECTE enable all triggers;
set feedback on
set define on
prompt Done.

67
Scripturi_instalare/secvente.sql Normal file
View File

@@ -0,0 +1,67 @@
---------------------------------------------------------
-- Secvente pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 9:03:00 AM --
---------------------------------------------------------
spool secvente.log
prompt
prompt Creating sequence SEQ_CRM_ARTICOLE
prompt ==================================
prompt
create sequence SEQ_CRM_ARTICOLE
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_CATEG_ARTICOLE
prompt ========================================
prompt
create sequence SEQ_CRM_CATEG_ARTICOLE
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_NOTE_VANZARI
prompt ======================================
prompt
create sequence SEQ_CRM_NOTE_VANZARI
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_POLITICI_PRETURI
prompt ==========================================
prompt
create sequence SEQ_CRM_POLITICI_PRETURI
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_CRM_POLITICI_PRET_ART
prompt ===========================================
prompt
create sequence SEQ_CRM_POLITICI_PRET_ART
minvalue 1
maxvalue 99999999999999999999999999
start with 1
increment by 1
nocache;
spool off;

202
Scripturi_instalare/tabele.sql Normal file
View File

@@ -0,0 +1,202 @@
---------------------------------------------------------
-- Tabele pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 9:07:00 AM --
---------------------------------------------------------
spool tabele.log
prompt
prompt Creating table CRM_NOTE_VANZARI
prompt ===============================
prompt
create table CRM_NOTE_VANZARI
(
ID_NOTA NUMBER(5) not null,
DENUMIRE VARCHAR2(30),
SCD VARCHAR2(4),
ASCD VARCHAR2(4),
SCC VARCHAR2(4),
ASCC VARCHAR2(4),
DATAORAS DATE default SYSDATE,
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(8),
DATAORA DATE,
ID_UTILS NUMBER(8)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_NOTE_VANZARI
add constraint PK_CRM_NOTE_VANZARI primary key (ID_NOTA)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table CRM_CATEG_ARTICOLE
prompt =================================
prompt
create table CRM_CATEG_ARTICOLE
(
ID_CATEG NUMBER(5) not null,
DENUMIRE VARCHAR2(30),
ID_NOTA NUMBER(5),
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(8),
DATAORA DATE default SYSDATE,
ID_UTILS NUMBER(8),
DATAORAS DATE,
TATA NUMBER(5)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_CATEG_ARTICOLE
add constraint PK_CRM_CATEG_ARTICOLE primary key (ID_CATEG)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_CATEG_ARTICOLE
add constraint FK_CRM_CATEG_ARTICOLE_001 foreign key (ID_NOTA)
references CRM_NOTE_VANZARI (ID_NOTA);
prompt
prompt Creating table CRM_POLITICI_PRETURI
prompt ===================================
prompt
create table CRM_POLITICI_PRETURI
(
ID_POL NUMBER(5) not null,
NUME VARCHAR2(100),
DATAI DATE,
DATAS DATE,
ID_VALUTA NUMBER(5),
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(10),
DATAORA DATE default sysdate not null,
ID_UTILS NUMBER(10),
DATAORAS DATE
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRETURI
add constraint PK_CRM_PP primary key (ID_POL)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_001 foreign key (ID_UTIL)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_002 foreign key (ID_UTILS)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRETURI
add constraint FK_CRM_PP_003 foreign key (ID_VALUTA)
references NOM_VALUTE (ID_VALUTA);
prompt
prompt Creating table CRM_POLITICI_PRET_ART
prompt ====================================
prompt
create table CRM_POLITICI_PRET_ART
(
ID_POL_ART NUMBER(5) not null,
ID_POL NUMBER(5) not null,
ID_ART NUMBER(5) not null,
PRET NUMBER(20,4),
UM VARCHAR2(10),
ID_VALUTA NUMBER(5) not null,
STERS NUMBER(1) default 0,
ID_UTIL NUMBER(10),
DATAORA DATE default sysdate not null,
ID_UTILS NUMBER(10),
DATAORAS DATE
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRET_ART
add constraint PK_CRM_PPA primary key (ID_POL_ART)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_001 foreign key (ID_ART)
references NOM_ARTICOLE (ID_ARTICOL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_002 foreign key (ID_UTIL)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_003 foreign key (ID_UTILS)
references SYN_UTILIZATORI (ID_UTIL);
alter table CRM_POLITICI_PRET_ART
add constraint FK_CRM_PPA_004 foreign key (ID_VALUTA)
references NOM_VALUTE (ID_VALUTA);
spool off;

70
Scripturi_instalare/triggere.sql Normal file
View File

@@ -0,0 +1,70 @@
---------------------------------------------------------
-- Triggere pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 5/04/2006, 10:32:00 AM--
---------------------------------------------------------
spool triggere.log
prompt
prompt Creating trigger TRG_CRM_CATEG_ARTICOLE
prompt =======================================
prompt
create or replace trigger TRG_CRM_CATEG_ARTICOLE
before insert on CRM_CATEG_ARTICOLE
referencing old as old new as new
for each row
begin
if :new.ID_CATEG is null or :new.ID_CATEG = 0 then
select SEQ_CRM_CATEG_ARTICOLE.NEXTVAL into :new.ID_CATEG from dual;
end if;
end TRG_CRM_CATEG_ARTICOLE;
/
prompt
prompt Creating trigger TRG_CRM_NOTE_VANZARI
prompt =====================================
prompt
create or replace trigger TRG_CRM_NOTE_VANZARI
before insert on CRM_NOTE_VANZARI
referencing old as old new as new
for each row
begin
if :new.ID_NOTA is null or :new.ID_NOTA = 0 then
select SEQ_CRM_NOTE_VANZARI.NEXTVAL into :new.ID_NOTA from dual;
end if;
end TRG_CRM_NOTE_VANZARI;
/
prompt
prompt Creating trigger TRG_CRM_POLITICI_PRETURI
prompt =========================================
prompt
create or replace trigger TRG_CRM_POLITICI_PRETURI
before insert on CRM_POLITICI_PRETURI
referencing old as old new as new
for each row
begin
if :new.ID_POL is null or :new.ID_POL = 0 then
select SEQ_CRM_POLITICI_PRETURI.NEXTVAL into :new.ID_POL from dual;
end if;
end TRG_CRM_POLITICI_PRETURI;
/
prompt
prompt Creating trigger TRG_CRM_POLITICI_PRET_ART
prompt ==========================================
prompt
create or replace trigger TRG_CRM_POLITICI_PRET_ART
before insert on CRM_POLITICI_PRET_ART
referencing old as old new as new
for each row
begin
if :new.ID_POL_ART is null or :new.ID_POL_ART = 0 then
select SEQ_CRM_POLITICI_PRET_ART.NEXTVAL into :new.ID_POL_ART from dual;
end if;
end TRG_CRM_POLITICI_PRET_ART;
/
spool off

77
Scripturi_instalare/viewuri.sql Normal file
View File

@@ -0,0 +1,77 @@
---------------------------------------------------------
-- Viewuri pentru ROAOFERTA v 1.0.0 --
-- Created by marius.atanasiu on 4/05/2006, 9:15:00 AM --
---------------------------------------------------------
spool viewuri.log
prompt
prompt Creating view CRM_VPOLITICI_PRETURI
prompt ===================================
prompt
create or replace view crm_vpolitici_preturi as
select a.id_pol,
a.nume,
a.datai,
a.datas,
a.id_valuta,
a.id_util,
a.dataora,
b.nume_val,
c.utilizator
from crm_politici_preturi a
left join nom_valute b on a.id_valuta=b.ID_VALUTA
left join syn_utilizatori c on a.id_util=c.id_util
where a.sters=0
/
prompt
prompt Creating view CRM_VPOLITICI_PRET_ART
prompt ====================================
prompt
create or replace view crm_vpolitici_pret_art as
select a.id_pol_art,
a.id_pol,
a.id_art,
a.pret,
a.um,
a.id_valuta,
a.id_util,
a.dataora,
b.denumire as nume_articol,
b.codmat,
c.nume_val,
d.utilizator
from crm_politici_pret_art a
left join nom_articole b on a.id_art = b.id_articol
left join nom_valute c on a.id_valuta = c.id_valuta
left join syn_utilizatori d on a.id_util = d.id_util
where a.sters = 0
/
prompt
prompt Creating view VNOM_ARTICOLE_CRM
prompt ===============================
prompt
create or replace view vnom_articole_crm as
select A.ID_ARTICOL,
A.CODMAT,
A.DENUMIRE,
A.UM,
A.COMISION,
A.INACTIV,
A.CODBARE,
A.IN_STOC,
A.IN_CRM,
A.ID_CATEG,
C.DENUMIRE AS DEN_CATEG
from NOM_ARTICOLE A
JOIN VCRM_CATEG_ARTICOLE C ON C.ID_CATEG = A.ID_CATEG
where A.STERS = 0
and in_crm = 1
/
spool off;