romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

265
Scripturi_instalare/20090413/script_mv.txt Normal file
View File

@@ -0,0 +1,265 @@
CREATE MATERIALIZED VIEW LOG ON act WITH PRIMARY KEY, ROWID, SEQUENCE(id_lucrare,dataact,nract,id_set,scc,scd,luna,an,suma,sters,explicatia)
INCLUDING NEW VALUES;
CREATE MATERIALIZED VIEW LOG ON rul WITH PRIMARY KEY, ROWID, SEQUENCE(id_lucrare,luna,an,pretv,cante,sters)
INCLUDING NEW VALUES;
CREATE MATERIALIZED VIEW LOG ON dev_oper WITH PRIMARY KEY, ROWID, SEQUENCE(id_ordl,datai,pret,timpn,nou,sters)
INCLUDING NEW VALUES;
create materialized view MV_ORDL_MAN
refresh fast on commit
as
select id_ordl,
extract(month from datai) + extract(year from datai) * 12 as luni,
sum(case
when nou = 0 then
round(round(pret / 10000, 2) * timpn, 2)
else
round(pret * timpn, 2)
end) as manopera_ron,
sum(case
when nou = 0 then
round(pret * timpn, 2)
else
0
end) as manopera_rol,
count(*) as cnt,
count(case
when nou = 0 then
round(round(pret / 10000, 2) * timpn, 2)
else
round(pret * timpn, 2)
end) as cnt_manopera_ron,
count(case
when nou = 0 then
round(pret * timpn, 2)
else
0
end) as cnt_manopera_rol
from dev_oper
where sters = 0
group by id_ordl,
extract(month from datai) + extract(year from datai) * 12
/
create materialized view MV_ORDL_MAT
refresh force on commit
as
select id_lucrare,
luna + an * 12 as luni,
sum(case
when luna + an * 12 < 7 + 2005 * 12 then
round(round(pretv / 10000, 2) * cante, 2)
else
round(pretv * cante, 2)
end) as materiale_ron,
sum(case
when luna + an * 12 < 7 + 2005 * 12 then
round(pretv * cante, 2)
else
0
end) as materiale_rol,
count(*) as cnt,
count(case
when luna + an * 12 < 7 + 2005 * 12 then
round(round(pretv / 10000, 2) * cante, 2)
else
round(pretv * cante, 2)
end) as cnt_materiale_ron,
count(case
when luna + an * 12 < 7 + 2005 * 12 then
round(pretv * cante, 2)
else
0
end) as cnt_materiale_rol
from rul
where sters = 0
group by id_lucrare, luna + an * 12
/
create materialized view MV_ORDL_SUME_ACT
refresh fast on commit
as
select id_lucrare,
dataact,
nract,
id_set,
sum(case
when scc = '704' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) when explicatia like 'DISCOUNT MANOPERA%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
round((-1) *
(abs(suma)) /
10000,
2)
else
(-1) *
(abs(suma))
end) else 0 end) as manopera_ron,
sum(case
when scc in ('707', '419') then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) when explicatia like 'DISCOUNT MATERIALE%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
round((-1) *
(abs(suma)) /
10000,
2)
else
(-1) *
(abs(suma))
end) else 0 end) as materiale_ron,
sum(case
when scc = '4427' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) else 0 end) as tva_ron,
sum(case
when scc = '704' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) when explicatia like 'DISCOUNT MANOPERA%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
(-1) *
(abs(suma))
else
0
end) else 0 end) as manopera_rol,
sum(case
when scc in ('707', '419') then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) when explicatia like 'DISCOUNT MATERIALE%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
(-1) *
(abs(suma))
else
0
end) else 0 end) as materiale_rol,
sum(case
when scc = '4427' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) else 0 end) as tva_rol,
count(*) as cnt,
count(case
when scc = '704' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) when explicatia like 'DISCOUNT MANOPERA%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
round((-1) *
(abs(suma)) /
10000,
2)
else
(-1) *
(abs(suma))
end) else 0 end) as cnt_manopera_ron,
count(case
when scc in ('707', '419') then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) when explicatia like 'DISCOUNT MATERIALE%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
round((-1) *
(abs(suma)) /
10000,
2)
else
(-1) *
(abs(suma))
end) else 0 end) as cnt_materiale_ron,
count(case
when scc = '4427' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
round(suma / 10000, 2)
else
suma
end) else 0 end) as cnt_tva_ron,
count(case
when scc = '704' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) when explicatia like 'DISCOUNT MANOPERA%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
(-1) *
(abs(suma))
else
0
end) else 0 end) as cnt_manopera_rol,
count(case
when scc in ('707', '419') then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) when explicatia like 'DISCOUNT MATERIALE%' and scc <> '4427' then(case
when luna +
an * 12 < 7 +
2005 * 12 then
(-1) *
(abs(suma))
else
0
end) else 0 end) as cnt_materiale_rol,
count(case
when scc = '4427' then
(case
when luna + an * 12 < 7 + 2005 * 12 then
suma
else
0
end) else 0 end) as cnt_tva_rol
from act
where sters = 0
and scd in ('4111', '667', '482', '711', '6588')
and id_set in
(31001, 31002, 31003, 31004, 31005, 31006, 31007, 31011, 31012)
group by id_lucrare, dataact, nract, id_set
/

25
Scripturi_instalare/ROAAUTO_instalare.sql Normal file
View File

@@ -0,0 +1,25 @@
prompt Versiunea ROAAUTO: 1.4.151
prompt Pana la scriptul script_ff_2006_01_28_4.sql (inclusiv) din COMUN
prompt ================================================================
prompt
prompt
prompt Creare structura
prompt ================
prompt
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\curatare_schema.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\tabele.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\secvente.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\triggere.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\procfunc.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\packages.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\viewuri_materializate.sql;
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\viewuri.sql;
prompt
prompt Initializari date ( trebuie sa existe tabela SAL_PERSONAL )
prompt ===========================================================
prompt
@D:\CONTAFIN_ORACLE\ROAAUTO\Scripturi_instalare\initializari.sql;

296
Scripturi_instalare/curatare_schema.sql Normal file
View File

@@ -0,0 +1,296 @@
--------------------------------------------------------
-- Pregatire schema pentru ROAAUTO --
-- Created by marius.atanasiu on 2/2/2006, 9:42:17 AM --
--------------------------------------------------------
spool curatare_schema.log
PROMPT
PROMPT Droping views
PROMPT =============
PROMPT
declare
cursor crsviewuri is
select view_name from user_views where view_name like 'DEV_%';
linie_view crsviewuri%rowtype;
begin
open crsviewuri;
loop
fetch crsviewuri into linie_view;
exit when crsviewuri%notfound;
execute immediate 'DROP VIEW '||linie_view.view_name;
end loop;
end;
/
PROMPT
PROMPT Droping materialized view mv_ordl_sume_act
PROMPT ==========================================
PROMPT
drop materialized view mv_ordl_sume_act
/
PROMPT
PROMPT Droping materialized view log on act
PROMPT ====================================
PROMPT
drop materialized view log on act
/
PROMPT
PROMPT Droping materialized view mv_ordl_man
PROMPT =====================================
PROMPT
drop materialized view MV_ORDL_MAN
/
PROMPT
PROMPT Droping materialized view log on dev_oper
PROMPT =========================================
PROMPT
drop materialized view log on dev_oper
/
PROMPT
PROMPT Droping materialized view log on rul
PROMPT ====================================
PROMPT
drop materialized view log on rul
/
PROMPT
PROMPT Droping materialized view mv_ordl_mat
PROMPT =====================================
PROMPT
drop materialized view mv_ordl_mat
/
prompt
prompt Droping table DEV_CONTRACTE
prompt ===========================
prompt
drop table DEV_CONTRACTE;
prompt
prompt Droping table DEV_FACTURI
prompt ==========================
prompt
drop table DEV_FACTURI;
prompt
prompt Droping table DEV_NOM_FURNIZORIMASINI
prompt =====================================
prompt
drop table DEV_NOM_FURNIZORIMASINI;
prompt
prompt Droping table DEV_NOM_MARCI
prompt ===========================
prompt
drop table DEV_NOM_MARCI;
prompt
prompt Droping table DEV_NOM_MASINI
prompt ============================
prompt
drop table DEV_NOM_MASINI;
prompt
prompt Droping table DEV_TIPURI_MOTOARE
prompt ================================
prompt
drop table DEV_TIPURI_MOTOARE;
prompt
prompt Droping table DEV_MASINICLIENTI
prompt ===============================
prompt
drop table DEV_MASINICLIENTI;
prompt
prompt Droping table DEV_MECANICI
prompt ==========================
prompt
drop table DEV_MECANICI;
prompt
prompt Droping table DEV_NOM_ANSAMBLE
prompt ==============================
prompt
drop table DEV_NOM_ANSAMBLE;
prompt
prompt Droping table DEV_NOM_ASIGURATORI
prompt =================================
prompt
drop table DEV_NOM_ASIGURATORI;
prompt
prompt Droping table DEV_NOM_DELEGATI
prompt ==============================
prompt
drop table DEV_NOM_DELEGATI;
prompt
prompt Droping table DEV_NOM_INSPECTORI
prompt ================================
prompt
drop table DEV_NOM_INSPECTORI;
prompt
prompt Droping table DEV_NOM_NORME
prompt ===========================
prompt
drop table DEV_NOM_NORME;
prompt
prompt Droping table DEV_NOM_PRETURI
prompt =============================
prompt
drop table DEV_NOM_PRETURI;
prompt
prompt Droping table DEV_NOM_RESP
prompt ==========================
prompt
drop table DEV_NOM_RESP;
prompt
prompt Droping table DEV_ORDL
prompt ======================
prompt
drop table DEV_ORDL;
prompt
prompt Droping table DEV_OPER
prompt ======================
prompt
drop table DEV_OPER;
prompt
prompt Droping table DEV_OPER_MECANICI
prompt ===============================
prompt
drop table DEV_OPER_MECANICI;
prompt
prompt Droping table DEV_REVIZII
prompt =========================
prompt
drop table DEV_REVIZII;
prompt
prompt Droping table DEV_TIP_DEVIZ
prompt ===========================
prompt
drop table DEV_TIP_DEVIZ;
prompt
prompt Droping sequence SEQ_DEV_COMANDA
prompt ================================
prompt
drop sequence SEQ_DEV_COMANDA;
prompt
prompt Droping sequence SEQ_DEV_MASINICLIENTI
prompt ======================================
prompt
drop sequence SEQ_DEV_MASINICLIENTI;
prompt
prompt Droping sequence SEQ_DEV_MECANICI
prompt =================================
prompt
drop sequence SEQ_DEV_MECANICI;
prompt
prompt Droping sequence SEQ_DEV_NOM_ANSAMBLE
prompt =====================================
prompt
drop sequence SEQ_DEV_NOM_ANSAMBLE;
prompt
prompt Droping sequence SEQ_DEV_NOM_ASIGURATORI
prompt ========================================
prompt
drop sequence SEQ_DEV_NOM_ASIGURATORI;
prompt
prompt Droping sequence SEQ_DEV_NOM_DELEGATI
prompt =====================================
prompt
drop sequence SEQ_DEV_NOM_DELEGATI;
prompt
prompt Droping sequence SEQ_DEV_NOM_FURNIZORIMASINI
prompt ============================================
prompt
drop sequence SEQ_DEV_NOM_FURNIZORIMASINI;
prompt
prompt Droping sequence SEQ_DEV_NOM_INSPECTORI
prompt =======================================
prompt
drop sequence SEQ_DEV_NOM_INSPECTORI;
prompt
prompt Droping sequence SEQ_DEV_NOM_MARCI
prompt ==================================
prompt
drop sequence SEQ_DEV_NOM_MARCI;
prompt
prompt Droping sequence SEQ_DEV_NOM_MASINI
prompt ===================================
prompt
drop sequence SEQ_DEV_NOM_MASINI;
prompt
prompt Droping sequence SEQ_DEV_NOM_NORME
prompt ==================================
prompt
drop sequence SEQ_DEV_NOM_NORME;
prompt
prompt Droping sequence SEQ_DEV_NOM_PRETURI
prompt ====================================
prompt
drop sequence SEQ_DEV_NOM_PRETURI;
prompt
prompt Droping sequence SEQ_DEV_NOM_RESP
prompt =================================
prompt
drop sequence SEQ_DEV_NOM_RESP;
prompt
prompt Droping sequence SEQ_DEV_OPER
prompt =============================
prompt
drop sequence SEQ_DEV_OPER;
prompt
prompt Droping sequence SEQ_DEV_OPER_MECANICI
prompt ======================================
prompt
drop sequence SEQ_DEV_OPER_MECANICI;
prompt
prompt Droping sequence SEQ_DEV_ORDL
prompt =============================
prompt
drop sequence SEQ_DEV_ORDL;
prompt
prompt Droping sequence SEQ_DEV_TIP_DEVIZ
prompt ==================================
prompt
drop sequence SEQ_DEV_TIP_DEVIZ;
prompt
prompt Droping sequence SEQ_DEV_TIPURI_MOTOARE
prompt =======================================
prompt
drop sequence SEQ_DEV_TIPURI_MOTOARE;
spool off

217
Scripturi_instalare/initializari.sql Normal file
View File

@@ -0,0 +1,217 @@
set feedback off
set define off
prompt
prompt Initializare SAL_PERSONAL
prompt =========================
prompt Disabling triggers for SAL_PERSONAL...
alter table SAL_PERSONAL disable all triggers;
prompt Deleting SAL_PERSONAL...
delete from SAL_PERSONAL where id_salariat=0;
commit;
prompt Loading SAL_PERSONAL...
insert into SAL_PERSONAL (ID_SALARIAT, NUME, PRENUME, MARCA, STERS, INACTIV, BINR, BLOC, CMNR, LOCNASTERE, LOCALITATE, LIVRETMIL, JUDET, ID_PART, ETAJ, CODPOSTAL, CODPERS, CMSERIA, VECHIMEI, STRADA, SPECIALIZ, SITMIL, SECTOR, SCARA, NUMAR, NATIONALIT, MODINCADR, CETATENIE, BISERIA, BIELIBERAT, APART, BIDATA, DATA_VECH, STARECIV, NUMEMAMA, NUMESOT, NUMETATA, ID_PROFESIE, VECHIMEZ)
values (0, '<NEREPARTIZAT>', null, 0, 0, 0, null, null, null, null, null, null, null, 0, null, null, 0, null, 0, null, null, null, null, null, null, null, null, null, null, null, null, null, null, 0, null, null, null, null, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for SAL_PERSONAL...
alter table SAL_PERSONAL enable all triggers;
prompt
prompt Initializare DEV_MECANICI
prompt =========================
prompt Disabling triggers for DEV_MECANICI...
alter table DEV_MECANICI disable all triggers;
prompt Deleting DEV_MECANICI...
delete from DEV_MECANICI where id_mecanic=1;
commit;
prompt Loading DEV_MECANICI...
insert into DEV_MECANICI (ID_MECANIC, ID_SALARIAT, ID_SECTIE, STERS, INACTIV)
values (1, 0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_MECANICI...
alter table DEV_MECANICI enable all triggers;
prompt
prompt Initializare DEV_NOM_ANSAMBLE
prompt =============================
prompt Disabling triggers for DEV_NOM_ANSAMBLE...
alter table DEV_NOM_ANSAMBLE disable all triggers;
prompt Deleting DEV_NOM_ANSAMBLE...
delete from DEV_NOM_ANSAMBLE where id_ansamblu=0;
commit;
prompt Loading DEV_NOM_ANSAMBLE...
insert into DEV_NOM_ANSAMBLE (ID_ANSAMBLU, DENUMIRE, STERS, INACTIV)
values (0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_NOM_ANSAMBLE...
alter table DEV_NOM_ANSAMBLE enable all triggers;
prompt
prompt Initializare DEV_NOM_ASIGURATORI
prompt ================================
prompt Disabling triggers for DEV_NOM_ASIGURATORI...
alter table DEV_NOM_ASIGURATORI disable all triggers;
prompt Deleting DEV_NOM_ASIGURATORI...
delete from DEV_NOM_ASIGURATORI where id_asigurator=0;
commit;
prompt Loading DEV_NOM_ASIGURATORI...
insert into DEV_NOM_ASIGURATORI (ID_ASIGURATOR, ASIGURATOR, STERS, INACTIV)
values (0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_NOM_ASIGURATORI...
alter table DEV_NOM_ASIGURATORI enable all triggers;
prompt
prompt Initializare DEV_NOM_FURNIZORIMASINI
prompt ====================================
prompt Disabling triggers for DEV_NOM_FURNIZORIMASINI...
alter table DEV_NOM_FURNIZORIMASINI disable all triggers;
prompt Deleting DEV_NOM_FURNIZORIMASINI...
delete from DEV_NOM_FURNIZORIMASINI where id_furnizor=0;
commit;
prompt Loading DEV_NOM_FURNIZORIMASINI...
insert into DEV_NOM_FURNIZORIMASINI (ID_FURNIZOR, DENUMIRE, STERS, INACTIV)
values (0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_NOM_FURNIZORIMASINI...
alter table DEV_NOM_FURNIZORIMASINI enable all triggers;
prompt
prompt Initializare DEV_NOM_INSPECTORI
prompt ===============================
prompt Disabling triggers for DEV_NOM_INSPECTORI...
alter table DEV_NOM_INSPECTORI disable all triggers;
prompt Disabling foreign key constraints for DEV_NOM_INSPECTORI...
alter table DEV_NOM_INSPECTORI disable constraint FK_NOM_ASIGURATORI;
prompt Deleting DEV_NOM_INSPECTORI...
delete from DEV_NOM_INSPECTORI where id_inspector=0;
commit;
prompt Loading DEV_NOM_INSPECTORI...
insert into DEV_NOM_INSPECTORI (ID_INSPECTOR, INSPECTOR, ID_ASIGURATOR, STERS, INACTIV)
values (0, null, 0, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling foreign key constraints for DEV_NOM_INSPECTORI...
alter table DEV_NOM_INSPECTORI enable constraint FK_NOM_ASIGURATORI;
prompt Enabling triggers for DEV_NOM_INSPECTORI...
alter table DEV_NOM_INSPECTORI enable all triggers;
prompt
prompt Initializare DEV_NOM_MARCI
prompt ================================
prompt Disabling triggers for DEV_NOM_MARCI...
alter table DEV_NOM_MARCI disable all triggers;
prompt Deleting DEV_NOM_MARCI...
delete from DEV_NOM_MARCI where id_marca=0;
commit;
prompt Loading DEV_NOM_MARCI...
insert into DEV_NOM_MARCI (ID_MARCA, MARCA, STERS, INACTIV)
values (0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_NOM_MARCI...
alter table DEV_NOM_MARCI enable all triggers;
prompt
prompt Initializare DEV_NOM_MASINI
prompt ===========================
prompt Disabling triggers for DEV_NOM_MASINI...
alter table DEV_NOM_MASINI disable all triggers;
prompt Disabling foreign key constraints for DEV_NOM_MASINI...
alter table DEV_NOM_MASINI disable constraint FK_MARCA;
prompt Deleting DEV_NOM_MASINI...
delete from DEV_NOM_MASINI where id_masina=0;
commit;
prompt Loading DEV_NOM_MASINI...
insert into DEV_NOM_MASINI (ID_MASINA, ID_MARCA, MASINA, SCTIP, CLASA, STERS, INACTIV)
values (0, 0, null, null, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling foreign key constraints for DEV_NOM_MASINI...
alter table DEV_NOM_MASINI enable constraint FK_MARCA;
prompt Enabling triggers for DEV_NOM_MASINI...
alter table DEV_NOM_MASINI enable all triggers;
prompt
prompt Initializare DEV_TIPURI_MOTOARE
prompt ===============================
prompt Disabling triggers for DEV_TIPURI_MOTOARE...
alter table DEV_TIPURI_MOTOARE disable all triggers;
prompt Deleting DEV_TIPURI_MOTOARE...
delete from DEV_TIPURI_MOTOARE where id_tipmotor=0;
commit;
prompt Loading DEV_TIPURI_MOTOARE...
insert into DEV_TIPURI_MOTOARE (ID_TIPMOTOR, DENUMIRE, STERS, INACTIV)
values (0, null, 0, 0);
commit;
prompt 1 records loaded
prompt Enabling triggers for DEV_TIPURI_MOTOARE...
alter table DEV_TIPURI_MOTOARE enable all triggers;
prompt
prompt Initializare DEV_TIP_DEVIZ
prompt ==========================
prompt Disabling triggers for DEV_TIP_DEVIZ...
alter table DEV_TIP_DEVIZ disable all triggers;
prompt Deleting DEV_TIP_DEVIZ...
delete from DEV_TIP_DEVIZ;
commit;
prompt Loading DEV_TIP_DEVIZ...
insert into DEV_TIP_DEVIZ (ID_TIP, DENUMIRE, STERS)
values (1, 'POST GARANTIE', 0);
insert into DEV_TIP_DEVIZ (ID_TIP, DENUMIRE, STERS)
values (2, 'GARANTIE', 0);
insert into DEV_TIP_DEVIZ (ID_TIP, DENUMIRE, STERS)
values (3, 'REGIE', 0);
insert into DEV_TIP_DEVIZ (ID_TIP, DENUMIRE, STERS)
values (4, 'PREGATIRE', 0);
insert into DEV_TIP_DEVIZ (ID_TIP, DENUMIRE, STERS)
values (5, 'REGIE 2', 0);
commit;
prompt 5 records loaded
prompt Enabling triggers for DEV_TIP_DEVIZ...
alter table DEV_TIP_DEVIZ enable all triggers;
set feedback on
set define on
prompt Done.

477
Scripturi_instalare/packages.sql Normal file
View File

@@ -0,0 +1,477 @@
-----------------------------------------------------------------
-- Package & package body PACK_DEVIZE pentru ROAAUTO v 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:51:33 AM --
-----------------------------------------------------------------
spool packages.log
prompt
prompt Creating package PACK_DEVIZE
prompt ============================
prompt
create or replace package pack_devize is
-- Author : LIANA.MACINIC
-- Created : 1/7/2005 11:40:29 AM
-- Purpose :
procedure dev_sterge_comanda(tcSchema in varchar2,
tnIdUtil in number,
tnIdOrdl in number,
tnIdLucrare in number);
procedure dev_adauga_oper_fact(tcSchema in varchar2,
tnIdOrdl in number,
tnIdSectie in number,
tnIdNorme in number,
tnTotalFTva in number,
tnTimpN in number,
tnOre in number,
tnIdUtil in number,
tnIdMecanic in number);
procedure dev_adauga_lucrare(v_gcs in varchar2,
tnan in number,
tnluna in number,
tnIdUtil in number,
pcNr in varchar2,
pnIdInsp in number,
pnIdAsig in number,
pnIdMC in number,
pnKmInt in number,
pdTermen in date,
pnTipCom in number,
pnIdOrdl out number);
procedure dev_valideaza_comanda(v_gcs in varchar2,
tnid_ordl in number,
tnid_util in number);
procedure dev_invalideaza_comanda(v_gcs in varchar2,
tnid_ordl in number,
tnid_utils in number);
procedure dev_distribuie_timp_n(v_gcs in varchar2, v_filtru in varchar2);
procedure dev_adauga_operatie(v_gcs in varchar2,
tnid_sectie in number,
tnid_ordl in number,
tnpret in number,
tnid_util in number,
tntimpn in number,
tnid_norme in number,
tcsir_idmecanic in varchar2);
procedure dev_actualizeaza_operatie(v_gcs in varchar2,
v_camp in varchar2,
v_valoare_noua in number,
v_id_oper in number,
v_luna in number,
v_an in number);
procedure dev_valideaza_operatie(v_gcs in varchar2,
tnid_oper in number,
tnid_util in number);
procedure dev_valideaza_operatii(v_gcs in varchar2,
tnid_ordl in number,
tnid_util in number);
procedure dev_completeaza_rul(v_gcs in varchar2, tnid_lucrare in number);
procedure valideaza_operatie(V_SCHEMA IN VARCHAR2,
V_VALIDAT IN NUMBER,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure modifica_sectie(V_SCHEMA IN VARCHAR2,
V_ID_SECTIE IN NUMBER,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure modifica_tip_comanda(V_SCHEMA IN VARCHAR2,
V_ID_TIP IN NUMBER,
V_ID_ORDL IN NUMBER,
V_ID_UTIL IN NUMBER);
procedure sterge_operatie(V_SCHEMA IN VARCHAR2,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER);
end pack_devize;
/
prompt
prompt Creating package body PACK_DEVIZE
prompt =================================
prompt
CREATE OR REPLACE PACKAGE BODY pack_devize is
procedure dev_sterge_comanda(tcSchema in varchar2,
tnIdUtil in number,
tnIdOrdl in number,
tnIdLucrare in number) is
lnRulaje NUMBER(3) := 0;
lnOperatii NUMBER(3) := 0;
BEGIN
EXECUTE IMMEDIATE 'SELECT COUNT(*) AS SUMA FROM ' || tcSchema ||
'.RUL WHERE ID_LUCRARE=:1 AND STERS=0'
INTO lnRulaje
USING tnIdLucrare;
IF lnRulaje > 0 then
raise_application_error(-20001,
'Aceasta comanda nu poate fi stearsa, deoarece are legaturi in rulaje!');
ELSE
EXECUTE IMMEDIATE 'SELECT COUNT(*) AS SUMA FROM ' || tcSchema ||
'.DEV_OPER WHERE ID_ORDL=:1 AND STERS=0'
INTO lnOperatii
USING tnIdOrdl;
IF lnOperatii > 0 then
raise_application_error(-20001,
'Aceasta comanda nu poate fi stearsa, deoarece are adaugate operatii!');
ELSE
EXECUTE IMMEDIATE 'UPDATE ' || tcSchema ||
'.DEV_ORDL SET STERS=1,ID_UTILS=:1,DATAORAS=SYSDATE WHERE ' ||
'ID_ORDL = :2'
USING tnIdUtil, tnIdOrdl;
END IF;
END IF;
END;
------------------------------------------------------------------
procedure dev_adauga_oper_fact(tcSchema in varchar2,
tnIdOrdl in number,
tnIdSectie in number,
tnIdNorme in number,
tnTotalFTva in number,
tnTimpN in number,
tnOre in number,
tnIdUtil in number,
tnIdMecanic in number) is
V_ID_OPER number(10);
V_PRET number(17, 4);
V_DATAORA date;
V_VALIDAT number(1);
v_nou number(1);
begin
if pack_sesiune.getAn() * 12 + pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 + pack_sesiune.GET_LUNARON() then
v_nou := 1;
else
v_nou := 0;
end if;
v_dataora := sysdate;
v_validat := 1;
execute immediate 'UPDATE ' || tcSchema || '.DEV_ORDL ' ||
'SET VALIDAT = :1,ID_UTIL_VALID = :2,DATAORAVALID = :3 WHERE ID_ORDL = :4 '
using V_VALIDAT, tnIdUtil, V_DATAORA, tnIdOrdl;
V_PRET := tnTotalFTva / tnTimpN;
execute immediate 'INSERT INTO ' || tcSchema ||
'.DEV_OPER(ID_ORDL,ID_SECTIE,TIMPN,PRET,ID_NORME,ID_UTIL,DATAORA,VALIDAT,NOU) ' ||
'VALUES (:1,:2,:3,:4,:5,:6,:7,:8,:9) RETURNING ID_OPER INTO :10'
using tnIdOrdl, tnIdSectie, tnTimpN, V_PRET, tnIdNorme, tnIdUtil, V_DATAORA, V_VALIDAT, V_NOU
returning into V_ID_OPER;
execute immediate 'INSERT INTO ' || tcSchema ||
'.DEV_OPER_MECANICI(ID_OPER,ID_MECANIC,ORE) ' ||
'VALUES(:1,:2,:3)'
using V_ID_OPER, tnIdMecanic, tnOre;
end;
------------------------------------------------------------------
procedure dev_adauga_lucrare(v_gcs in varchar2,
tnan in number,
tnluna in number,
tnIdUtil in number,
pcNr in varchar2,
pnIdInsp in number,
pnIdAsig in number,
pnIdMC in number,
pnKmInt in number,
pdTermen in date,
pnTipCom in number,
pnIdOrdl out number) is
V_DATAORA date := sysdate;
begin
execute immediate 'INSERT INTO ' || v_gcs || '.NOM_LUCRARI (NRORD,ID_MOD)
VALUES( :1, 1200)'
using pcNr;
execute immediate 'insert into ' || v_gcs ||
'.dev_ordl
(an, luna, id_inspector, id_lucrare, datai, id_util_ad, id_masiniclient,id_asigurator,id_tip,kmint,termen,dataoraad)
values( :1 , :2 , :3 , :4 , :5 , :6 , :7 , :8, :9, :10, :11, :12) returning id_ordl into :13'
using tnAn, tnLuna, pnIdInsp, pack_sesiune.dev_idLucrare, v_dataora, tnIdUtil, pnIdMC, pnIdAsig, pnTipCom, pnKmInt, pdTermen, V_DATAORA
returning into pnidOrdl;
execute immediate 'update ' || v_gcs ||
'.dev_masiniclienti set kmint=:1 ' ||
'where id_masiniclient=:2'
using pnKmInt, pnIdMC;
end;
------------------------------------------------------------------
procedure dev_valideaza_comanda(v_gcs in varchar2,
tnid_ordl in number,
tnid_util in number) as
lnNevalidate NUMBER(3);
begin
execute immediate 'SELECT COUNT(*) FROM ' || v_gcs || '.DEV_OPER ' ||
'WHERE STERS=0 AND VALIDAT=0 AND ID_ORDL=:1'
into lnNevalidate
using tnid_ordl;
if lnNevalidate > 0 then
RAISE_APPLICATION_ERROR(-20000,
'Mai sunt operatii nevalidate pe aceasta comanda!' ||
CHR(13) || CHR(10) ||
LPAD(CHR(32), 12, CHR(32)) ||
'Comanda nu a fost validata!');
end if;
execute immediate 'UPDATE ' || v_gcs || '.DEV_ORDL SET VALIDAT=1,' ||
'ID_UTIL_VALID=:1,DATAORAVALID=SYSDATE ' ||
'WHERE ID_ORDL=:2'
using tnid_util, tnid_ordl;
end;
------------------------------------------------------------------
procedure dev_invalideaza_comanda(v_gcs in varchar2,
tnid_ordl in number,
tnid_utils in number) AS
begin
execute immediate 'UPDATE ' || v_gcs || '.DEV_ORDL ' ||
'SET VALIDAT=0,ID_UTIL_VALID=0,DATAORAVALID=NULL,' ||
'ID_UTILS=:1,DATAORAS=SYSDATE ' || 'WHERE ID_ORDL=:2'
using tnid_utils, tnid_ordl;
end;
------------------------------------------------------------------
procedure dev_distribuie_timp_n(v_gcs in varchar2, v_filtru in varchar2) AS
lnManopera number(10);
lnSucces number(10);
lnTimpN number(7, 3);
lnId_oper number(10);
lnNrMecanici number(3);
lnOre number(7, 3);
lcSql varchar2(1000);
lcFiltru varchar2(2000);
lnSumaOre number(7, 3);
lnRanduri number(4);
lnIdMecanic number(1);
lcDevOper VARCHAR2(30);
begin
lcFiltru := replace(v_filtru, CHR(63), CHR(39));
lnManopera := dbms_sql.open_cursor;
/*lcSql := 'SELECT B.ID_OPER,B.TIMPN,ROUND(SUM(NVL(D.ORE,-1.000)),3)
FROM ' || v_gcs || '.dev_vvalid_comenzi A
JOIN ' || v_gcs ||
'.DEV_VOPER B ON A.ID_ORDL=B.ID_ORDL
LEFT JOIN ' || v_gcs ||
'.DEV_VOPER_DETALII_M D ON B.ID_OPER=D.ID_OPER
WHERE ' || lcFiltru || '
GROUP BY B.ID_OPER,B.TIMPN
HAVING B.TIMPN-ROUND(SUM(NVL(D.ORE,-1.000)),3)!=0';*/
IF lcFiltru IS NULL THEN
lcDevOper := 'DEV_VOPER';
ELSE
lcDevOper := 'DEV_VOPER_SIMPLU';
END IF;
lcSql := 'SELECT B.ID_OPER,B.TIMPN,ROUND(SUM(NVL(D.ORE,-1.000)),3)
FROM ' || v_gcs || '.dev_normare_comenzi A
JOIN ' || v_gcs || '.' || lcDevOper ||
' B ON A.ID_ORDL=B.ID_ORDL
LEFT JOIN ' || v_gcs || '.DEV_VOPER_DETALII_M D ON B.ID_OPER=D.ID_OPER
WHERE ' || lcFiltru || '
GROUP BY B.ID_OPER,B.TIMPN
HAVING B.TIMPN-ROUND(SUM(NVL(D.ORE,-1.000)),3)!=0';
dbms_sql.parse(lnManopera, lcSql, dbms_sql.native);
dbms_sql.define_column(lnManopera, 1, lnId_oper);
dbms_sql.define_column(lnManopera, 2, lnTimpN);
dbms_sql.define_column(lnManopera, 3, lnSumaOre);
lnIdMecanic := 1;
lnSucces := dbms_sql.execute(lnManopera);
loop
if dbms_sql.fetch_rows(lnManopera) > 0 then
dbms_sql.column_value(lnManopera, 1, lnId_oper);
dbms_sql.column_value(lnManopera, 2, lnTimpN);
dbms_sql.column_value(lnManopera, 3, lnSumaOre);
execute immediate 'SELECT COUNT(ID_MECANIC) FROM ' || v_gcs ||
'.DEV_VOPER_DETALII_M WHERE ID_OPER=:1'
into lnNrMecanici
using lnId_oper;
if lnNrMecanici = 0 then
execute immediate 'INSERT INTO ' || v_gcs ||
'.DEV_OPER_MECANICI(ID_OPER,ID_MECANIC,ORE) ' ||
' VALUES(:1,:2,:3)'
using lnId_oper, lnIdMecanic, lnTimpN;
else
lnOre := lnTimpN / lnNrMecanici;
execute immediate 'UPDATE ' || v_gcs ||
'.DEV_OPER_MECANICI SET ORE=:1 WHERE ID_OPER=:2 AND STERS=0'
using lnOre, lnId_oper;
end if;
else
exit;
end if;
end loop;
dbms_sql.close_cursor(lnManopera);
end;
------------------------------------------------------------------
procedure dev_adauga_operatie(v_gcs in varchar2,
tnid_sectie in number,
tnid_ordl in number,
tnpret in number,
tnid_util in number,
tntimpn in number,
tnid_norme in number,
tcsir_idmecanic in varchar2) AS
v_id_oper number(10);
v_lungime_sir number(3);
v_ore number(7, 3);
v_timp_ramas number(7, 3);
v_nou number(1);
begin
if pack_sesiune.getAn() * 12 + pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 + pack_sesiune.GET_LUNARON() then
v_nou := 1;
else
v_nou := 0;
end if;
/* execute immediate 'INSERT INTO ' || v_gcs ||
'.DEV_OPER(ID_ORDL,ID_SECTIE,TIMPN,PRET,ID_NORME,ID_UTIL,NOU,DATAORA) ' ||
'VALUES (:1,:2,:3,:4,:5,:6,:7,SYSDATE) RETURNING ID_OPER INTO :8'
using tnid_ordl, tnid_sectie, tntimpn, tnpret, tnid_norme, tnid_util, v_nou
returning into v_id_oper;*/
execute immediate 'INSERT INTO ' || v_gcs ||
'.DEV_OPER(ID_ORDL,ID_SECTIE,TIMPN,PRET,ID_NORME,ID_UTILI,NOU,DATAORA) ' ||
'VALUES (:1,:2,:3,:4,:5,:6,:7,:8) RETURNING ID_OPER INTO :9'
using tnid_ordl, tnid_sectie, tntimpn, tnpret, tnid_norme, tnid_util, v_nou, SYSDATE
returning into v_id_oper;
v_lungime_sir := SIR_IN_SIR(tcsir_idmecanic, ';');
v_ore := round(tntimpn / v_lungime_sir, 3);
if v_lungime_sir > 0 then
for i in 1 .. v_lungime_sir loop
execute immediate 'INSERT INTO ' || v_gcs ||
'.DEV_OPER_MECANICI(ID_OPER,ID_MECANIC,ORE) ' ||
'VALUES(:1,:2,:3)'
using v_id_oper, ID_DIN_SIR(tcsir_idmecanic, ';', i), v_ore;
end loop;
end if;
end;
------------------------------------------------------------------
procedure dev_actualizeaza_operatie(v_gcs in varchar2,
v_camp in varchar2,
v_valoare_noua in number,
v_id_oper in number,
v_luna in number,
v_an in number) as
v_datai date;
v_data_ron date;
v_data_util date;
v_valoare number;
begin
execute immediate 'SELECT DATAI FROM ' || v_gcs ||
'.DEV_OPER WHERE ID_OPER=:1'
into v_datai
using v_id_oper;
v_data_ron := to_date(pack_sesiune.get_lunaron || '/' ||
pack_sesiune.get_anron,
'MM/YYYY');
v_data_util := to_date(v_luna || '/' || v_an, 'MM/YYYY');
if UPPER(TRIM(v_camp)) = 'PRET' and v_datai < v_data_ron and
v_data_util >= v_data_ron then
v_valoare := v_valoare_noua * 10000;
else
v_valoare := v_valoare_noua;
end if;
execute immediate 'UPDATE ' || v_gcs || '.DEV_OPER SET ' || v_camp ||
'=:1 WHERE ID_OPER=:2'
using v_valoare, v_id_oper;
end;
------------------------------------------------------------------
procedure dev_valideaza_operatie(v_gcs in varchar2,
tnid_oper in number,
tnid_util in number) as
begin
execute immediate 'UPDATE ' || v_gcs || '.DEV_OPER SET VALIDAT=1,' ||
'ID_UTIL=:1,DATAORA=SYSDATE ' || 'WHERE ID_OPER=:2'
using tnid_util, tnid_oper;
end;
------------------------------------------------------------------
procedure dev_valideaza_operatii(v_gcs in varchar2,
tnid_ordl in number,
tnid_util in number) as
begin
execute immediate 'UPDATE ' || v_gcs || '.DEV_OPER SET VALIDAT=1,' ||
'ID_UTIL=:1,DATAORA=SYSDATE ' ||
'WHERE ID_ORDL=:2 AND STERS=0 AND VALIDAT=0'
using tnid_util, tnid_ordl;
end;
------------------------------------------------------------------
procedure dev_completeaza_rul(v_gcs in varchar2, tnid_lucrare in number) AS
V_ID_FACT number(20);
begin
V_ID_FACT := pack_contafin.get_idFact();
execute immediate 'update ' || v_gcs ||
'.rul set id_fact=:1 where id_lucrare=:2'
using V_ID_FACT, tnid_lucrare;
end;
------------------------------------------------------------------
procedure valideaza_operatie(V_SCHEMA IN VARCHAR2,
V_VALIDAT IN NUMBER,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.DEV_OPER SET VALIDAT=:1,' ||
'DATAORA=:2,ID_UTIL=:3 WHERE ID_OPER=:4'
USING V_VALIDAT, SYSDATE, V_ID_UTIL, V_ID_OPER;
end;
------------------------------------------------------------------
procedure modifica_sectie(V_SCHEMA IN VARCHAR2,
V_ID_SECTIE IN NUMBER,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA ||
'.DEV_OPER SET ID_SECTIE=:1 WHERE ID_OPER=:2'
USING V_ID_SECTIE, V_ID_OPER;
end;
------------------------------------------------------------------
procedure modifica_tip_comanda(V_SCHEMA IN VARCHAR2,
V_ID_TIP IN NUMBER,
V_ID_ORDL IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.DEV_ORDL SET ID_TIP=:1 ' ||
'WHERE ID_ORDL=:2'
USING V_ID_TIP, V_ID_ORDL;
end;
------------------------------------------------------------------
procedure sterge_operatie(V_SCHEMA IN VARCHAR2,
V_ID_OPER IN NUMBER,
V_ID_UTIL IN NUMBER) is
begin
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.DEV_OPER SET STERS=:1,' ||
'DATAORAS=:2,ID_UTILS=:3 WHERE ID_OPER=:4'
USING 1, SYSDATE, V_ID_UTIL, V_ID_OPER;
end;
------------------------------------------------------------------
------------------------------------------------------------------
end pack_devize;
/
spool off

187
Scripturi_instalare/procfunc.sql Normal file
View File

@@ -0,0 +1,187 @@
--------------------------------------------------------
-- Proceduri si functii pentru ROAAUTO v 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:52:31 AM --
--------------------------------------------------------
spool procfunc.log
prompt
prompt Creating function SIR_IN_SIR
prompt ============================
prompt
create or replace function sir_in_sir(sir1 in varchar2, sir2 in varchar2)
return integer is
vret integer := 0;
v_count integer := 0;
begin
case
when instr(sir1, sir2, 1, 1) = 0 then
vret := 0;
when instr(sir1, sir2, 1, 1) <> 0 and
instr(sir1, sir2, 1, 1) = instr(sir1, sir2, -1, 1) then
vret := 1;
else
for i in 1 .. length(sir1) loop
if substr(sir1, i, length(sir2)) = sir2 then
v_count := v_count + 1;
end if;
end loop;
vret := v_count;
end case;
return vret;
end;
/
prompt
prompt Creating function ELEMENT_DIN_SIR
prompt =================================
prompt
create or replace function ELEMENT_DIN_SIR(SIR1 IN VARCHAR2,
SIR2 IN VARCHAR2,
OCC IN INTEGER) return VARCHAR2 is
VRET VARCHAR2(1000) := '';
begin
if sir_in_sir(sir1, sir2) > 0 then
vret := NVL(REPLACE(substr(SIR1,(CASE WHEN OCC > 1 THEN instr(sir1, sir2, 1, OCC - 1) ELSE 0 END) + 1, instr(sir1, sir2, 1, OCC) - (CASE WHEN OCC > 1 THEN instr(sir1, sir2, 1, OCC - 1) ELSE 0 END)), SIR2, ''), '');
end if;
return vret;
end;
/
prompt
prompt Creating function GETDEV_COMANDA
prompt ================================
prompt
create or replace function getdev_comanda
return number IS
lnReturn NUMBER(20) := 0;
begin
select seq_dev_comanda.NEXTVAL into lnReturn from dual;
return lnReturn;
end getdev_comanda;
/
prompt
prompt Creating function ID_DIN_SIR
prompt ============================
prompt
create or replace function ID_DIN_SIR(SIR1 IN VARCHAR2,
SIR2 IN VARCHAR2,
OCC IN INTEGER) return NUMBER is
VRET NUMBER(20) := 0;
begin
if sir_in_sir(sir1, sir2) > 0 then
vret := TO_NUMBER(NVL(REPLACE(substr(SIR1,
(CASE WHEN OCC>1 THEN instr(sir1, sir2, 1, OCC-1) ELSE 0 END) + 1,
instr(sir1, sir2, 1, OCC) -
(CASE WHEN OCC>1 THEN instr(sir1, sir2, 1, OCC-1) ELSE 0 END)),SIR2,''),
0));
end if;
return vret;
end;
/
prompt
prompt Creating procedure DEVINVALCOMPROC
prompt ==================================
prompt
CREATE OR REPLACE PROCEDURE "DEVINVALCOMPROC"(V_SCHEMA IN VARCHAR2,
V_ID_ORDL IN NUMBER,
V_ID_UTILS IN NUMBER) AS
BEGIN
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.DEV_ORDL ' ||
'SET VALIDAT=0,TVAM=0,TVAN=0,TVA=0,' ||
'MANOPERA=0,MATERIALE=0,VALOARE=0,' ||
'ID_UTIL_VALID=0,DATAORAVALID=NULL,ID_UTILS=:1,' ||
'DATAORAS=SYSDATE WHERE ID_ORDL=:2'
USING V_ID_UTILS, V_ID_ORDL;
END;
/
prompt
prompt Creating procedure DEVPARTINSPROC
prompt =================================
prompt
CREATE OR REPLACE PROCEDURE DEVPARTINSPROC(V_SCHEMA IN VARCHAR2,
V_NUME IN VARCHAR2,
V_COD_FISCAL IN VARCHAR2,
V_TELEFON IN VARCHAR2,
V_ADRESA IN VARCHAR2,
V_BANCA IN VARCHAR2,
V_CONT_BANCA IN VARCHAR2,
V_REG_COMERT IN VARCHAR2,
V_ID_LOC IN NUMBER) IS
V_ID_PART NUMBER(20) := 0;
V_ID_TIP_PART NUMBER(20) := 0;
V_CONT VARCHAR2(4) := '4111';
BEGIN
EXECUTE IMMEDIATE 'INSERT /*+ APPEND */ INTO ' || V_SCHEMA || '.NOM_PARTENERI' ||
'(NUME,COD_FISCAL,TELEFON,ADRESA,BANCA,CONT_BANCA,REG_COMERT,ID_LOC) ' ||
'VALUES(:1,:2,:3,:4,:5,:6,:7,:8) RETURNING ID_PART INTO :9'
USING V_NUME, V_COD_FISCAL, V_TELEFON, V_ADRESA, V_BANCA, V_CONT_BANCA, V_REG_COMERT, V_ID_LOC
RETURNING INTO V_ID_PART;
EXECUTE IMMEDIATE 'SELECT ID_TIP_PART FROM ' || V_SCHEMA ||
'.VCORESP_TIP_CONT ' || 'WHERE CONT=:1'
INTO V_ID_TIP_PART
USING V_CONT;
EXECUTE IMMEDIATE 'INSERT /*+ APPEND */ INTO ' || V_SCHEMA ||
'.CORESP_TIP_PART(ID_TIP_PART,ID_PART) ' ||
'VALUES(:1,:2)'
USING V_ID_TIP_PART, V_ID_PART;
END;
/
prompt
prompt Creating procedure DEVVALCOMPROC
prompt ================================
prompt
CREATE OR REPLACE PROCEDURE "DEVVALCOMPROC"(V_SCHEMA IN VARCHAR2,
V_ID_ORDL IN NUMBER,
V_ID_LUCRARE IN NUMBER,
V_ID_UTIL IN NUMBER) as
V_CTVA NUMBER(5, 2) := 1.19;
V_TVAM NUMBER(17, 4) := 0;
V_TVAN NUMBER(17, 4) := 0;
V_TVA NUMBER(17, 4) := 0;
V_MANOPERA NUMBER(17, 4) := 0;
V_MATERIALE NUMBER(17, 4) := 0;
V_VALOARE NUMBER(17, 4) := 0;
BEGIN
EXECUTE IMMEDIATE 'SELECT SUM(PRET*TIMPN) AS MANOPERA FROM ' || V_SCHEMA ||
'.DEV_OPER WHERE ID_ORDL=:1'
INTO V_MANOPERA
USING V_ID_ORDL;
IF V_MANOPERA IS NULL THEN
V_MANOPERA:=0;
END IF;
EXECUTE IMMEDIATE 'SELECT SUM(PRETV*CANTE) AS MATERIALE FROM ' ||
V_SCHEMA || '.RUL WHERE ID_LUCRARE=:1'
INTO V_MATERIALE
USING V_ID_LUCRARE;
IF V_MATERIALE IS NULL THEN
V_MATERIALE:=0;
END IF;
V_TVAM := V_MATERIALE * (V_CTVA - 1);
V_TVAN := V_MANOPERA * (V_CTVA - 1);
V_TVA := V_TVAM + V_TVAN;
V_VALOARE := V_TVA + V_MANOPERA + V_MATERIALE;
EXECUTE IMMEDIATE 'UPDATE ' || V_SCHEMA || '.DEV_ORDL SET VALIDAT=1,' ||
'TVAM=:1,TVAN=:2,TVA=:3,MANOPERA=:4,MATERIALE=:5,' ||
'VALOARE=:6,ID_UTIL_VALID=:7,DATAORAVALID=SYSDATE ' ||
'WHERE ID_ORDL=:8'
USING V_TVAM, V_TVAN, V_TVA, V_MANOPERA, V_MATERIALE, V_VALOARE, V_ID_UTIL, V_ID_ORDL;
END;
/
spool off

207
Scripturi_instalare/secvente.sql Normal file
View File

@@ -0,0 +1,207 @@
--------------------------------------------------------
-- Secvente pentru ROAAUTO v 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:43:11 AM --
--------------------------------------------------------
spool secvente.log
prompt
prompt Creating sequence SEQ_DEV_COMANDA
prompt =================================
prompt
create sequence SEQ_DEV_COMANDA
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_MASINICLIENTI
prompt =======================================
prompt
create sequence SEQ_DEV_MASINICLIENTI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_MECANICI
prompt ==================================
prompt
create sequence SEQ_DEV_MECANICI
minvalue 2
maxvalue 999999999999999999999999999
start with 2
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_ANSAMBLE
prompt ======================================
prompt
create sequence SEQ_DEV_NOM_ANSAMBLE
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_ASIGURATORI
prompt =========================================
prompt
create sequence SEQ_DEV_NOM_ASIGURATORI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_DELEGATI
prompt ======================================
prompt
create sequence SEQ_DEV_NOM_DELEGATI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_FURNIZORIMASINI
prompt =============================================
prompt
create sequence SEQ_DEV_NOM_FURNIZORIMASINI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_INSPECTORI
prompt ========================================
prompt
create sequence SEQ_DEV_NOM_INSPECTORI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_MARCI
prompt ===================================
prompt
create sequence SEQ_DEV_NOM_MARCI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_MASINI
prompt ====================================
prompt
create sequence SEQ_DEV_NOM_MASINI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_NORME
prompt ===================================
prompt
create sequence SEQ_DEV_NOM_NORME
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_PRETURI
prompt =====================================
prompt
create sequence SEQ_DEV_NOM_PRETURI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_NOM_RESP
prompt ==================================
prompt
create sequence SEQ_DEV_NOM_RESP
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_OPER
prompt ==============================
prompt
create sequence SEQ_DEV_OPER
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_OPER_MECANICI
prompt =======================================
prompt
create sequence SEQ_DEV_OPER_MECANICI
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_ORDL
prompt ==============================
prompt
create sequence SEQ_DEV_ORDL
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_TIP_DEVIZ
prompt ===================================
prompt
create sequence SEQ_DEV_TIP_DEVIZ
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
prompt
prompt Creating sequence SEQ_DEV_TIPURI_MOTOARE
prompt ========================================
prompt
create sequence SEQ_DEV_TIPURI_MOTOARE
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
nocache;
spool off

797
Scripturi_instalare/tabele.sql Normal file
View File

@@ -0,0 +1,797 @@
--------------------------------------------------------
-- Tabele ROAAUTO versiunea 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:42:17 AM --
--------------------------------------------------------
spool tabele.log
prompt
prompt Creating table DEV_NOM_FURNIZORIMASINI
prompt ======================================
prompt
create table DEV_NOM_FURNIZORIMASINI
(
ID_FURNIZOR NUMBER(5) not null,
DENUMIRE VARCHAR2(50),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_FURNIZORIMASINI
add constraint PK_FURNIZOR primary key (ID_FURNIZOR)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_NOM_MARCI
prompt ============================
prompt
create table DEV_NOM_MARCI
(
ID_MARCA NUMBER(5) not null,
MARCA VARCHAR2(24),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_MARCI
add constraint PK_MARCA primary key (ID_MARCA)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_NOM_MASINI
prompt =============================
prompt
create table DEV_NOM_MASINI
(
ID_MASINA NUMBER(5) not null,
ID_MARCA NUMBER(5) not null,
MASINA VARCHAR2(20),
SCTIP VARCHAR2(100),
CLASA VARCHAR2(10),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_MASINI
add constraint PK_MASINA primary key (ID_MASINA)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_MASINI
add constraint FK_MARCA foreign key (ID_MARCA)
references DEV_NOM_MARCI (ID_MARCA);
prompt
prompt Creating table DEV_TIPURI_MOTOARE
prompt =================================
prompt
create table DEV_TIPURI_MOTOARE
(
ID_TIPMOTOR NUMBER(5) not null,
DENUMIRE VARCHAR2(50),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_TIPURI_MOTOARE
add constraint PK_TIPMOTOR primary key (ID_TIPMOTOR)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_MASINICLIENTI
prompt ================================
prompt
create table DEV_MASINICLIENTI
(
ID_MASINICLIENT NUMBER(8) default 0 not null,
ID_TIPMOTOR NUMBER(5),
ID_FURNIZOR NUMBER(5),
ID_MASINA NUMBER(5),
ID_PARTENER NUMBER(5) default 0 not null,
NRINMAT VARCHAR2(10),
SERIES VARCHAR2(17),
SERIEM VARCHAR2(17),
CULOARE VARCHAR2(30),
KMINT NUMBER(10),
DATAACHI DATE,
NRACHI NUMBER(16),
SERIEF VARCHAR2(20),
SERIECV VARCHAR2(20),
ANFABRICATIE NUMBER(4),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_MASINICLIENTI
add constraint PK_MASINICLIENT primary key (ID_MASINICLIENT)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_MASINICLIENTI
add constraint FK_FURNIZOR foreign key (ID_FURNIZOR)
references DEV_NOM_FURNIZORIMASINI (ID_FURNIZOR)
disable;
alter table DEV_MASINICLIENTI
add constraint FK_ID_PARTENER foreign key (ID_PARTENER)
references NOM_PARTENERI (ID_PART)
disable;
alter table DEV_MASINICLIENTI
add constraint FK_MASINA foreign key (ID_MASINA)
references DEV_NOM_MASINI (ID_MASINA)
disable;
alter table DEV_MASINICLIENTI
add constraint FK_TIPMOTOR foreign key (ID_TIPMOTOR)
references DEV_TIPURI_MOTOARE (ID_TIPMOTOR)
disable;
create index IDX_MASINICLIENT_00001 on DEV_MASINICLIENTI (ID_PARTENER)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
create index IDX_MASINICLIENT_00002 on DEV_MASINICLIENTI (ID_MASINA)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
create index IDX_MASINICLIENT_00003 on DEV_MASINICLIENTI (ID_FURNIZOR)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
create index IDX_MASINICLIENT_00004 on DEV_MASINICLIENTI (ID_TIPMOTOR)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_MECANICI
prompt ===========================
prompt
create table DEV_MECANICI
(
ID_MECANIC NUMBER(5) not null,
ID_SALARIAT NUMBER(5),
ID_SECTIE NUMBER(5),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_MECANICI
add constraint PK_MECANICI primary key (ID_MECANIC)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_NOM_ANSAMBLE
prompt ===============================
prompt
create table DEV_NOM_ANSAMBLE
(
ID_ANSAMBLU NUMBER(5) not null,
DENUMIRE VARCHAR2(100),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_ANSAMBLE
add constraint PK_ANSAMBLE primary key (ID_ANSAMBLU)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_NOM_ASIGURATORI
prompt ==================================
prompt
create table DEV_NOM_ASIGURATORI
(
ID_ASIGURATOR NUMBER(5) not null,
ASIGURATOR VARCHAR2(24),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_ASIGURATORI
add constraint PK_ASIGURATORI primary key (ID_ASIGURATOR)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_NOM_DELEGATI
prompt ===============================
prompt
create table DEV_NOM_DELEGATI
(
ID_NOM_DELEGATI NUMBER(5) not null,
DELEGAT VARCHAR2(64),
ELIBERATDE VARCHAR2(64),
ID_PARTENER NUMBER(5) not null,
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null,
BI VARCHAR2(10)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_DELEGATI
add constraint PK_DELEGAT primary key (ID_NOM_DELEGATI)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_DELEGATI
add constraint FK_PARTENER foreign key (ID_PARTENER)
references NOM_PARTENERI (ID_PART)
disable;
prompt
prompt Creating table DEV_NOM_INSPECTORI
prompt =================================
prompt
create table DEV_NOM_INSPECTORI
(
ID_INSPECTOR NUMBER(5) not null,
INSPECTOR VARCHAR2(24),
ID_ASIGURATOR NUMBER(5),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_INSPECTORI
add constraint PK_NOM_INSPECTORI primary key (ID_INSPECTOR)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_INSPECTORI
add constraint FK_NOM_ASIGURATORI foreign key (ID_ASIGURATOR)
references DEV_NOM_ASIGURATORI (ID_ASIGURATOR);
prompt
prompt Creating table DEV_NOM_NORME
prompt ============================
prompt
create table DEV_NOM_NORME
(
ID_NORME NUMBER(5) not null,
ID_ANSAMBLU NUMBER(5),
ID_MASINA NUMBER(5),
DENOP VARCHAR2(100),
CODOP VARCHAR2(10),
TIMPN NUMBER(7,3),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_NORME
add constraint PK_NORME primary key (ID_NORME)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_NORME
add constraint FK_ANSAMBLE foreign key (ID_ANSAMBLU)
references DEV_NOM_ANSAMBLE (ID_ANSAMBLU);
prompt
prompt Creating table DEV_NOM_PRETURI
prompt ==============================
prompt
create table DEV_NOM_PRETURI
(
ID_PRET NUMBER(5) not null,
ID_MARCA NUMBER(5),
ID_ASIGURATORI NUMBER(5),
PRET NUMBER(18,4),
PRET_VAL NUMBER(10,4),
ID_VALUTA NUMBER(5),
CURS NUMBER(12,4),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_PRETURI
add constraint PK_PRETURI primary key (ID_PRET)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_PRETURI
add constraint FK_ASIGURATOR foreign key (ID_ASIGURATORI)
references DEV_NOM_ASIGURATORI (ID_ASIGURATOR);
alter table DEV_NOM_PRETURI
add constraint FK_MARCA1 foreign key (ID_MARCA)
references DEV_NOM_MARCI (ID_MARCA);
prompt
prompt Creating table DEV_NOM_RESP
prompt ===========================
prompt
create table DEV_NOM_RESP
(
ID_RESP NUMBER(5) not null,
NUME VARCHAR2(24) not null,
BI VARCHAR2(10),
CNPRESP VARCHAR2(13),
ALES NUMBER(1) default 0 not null,
STERS NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_NOM_RESP
add constraint PK_RESP primary key (ID_RESP)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_ORDL
prompt =======================
prompt
create table DEV_ORDL
(
ID_ORDL NUMBER(10) not null,
LUNA NUMBER(2) default 0 not null,
AN NUMBER(4) default 0 not null,
ID_INSPECTOR NUMBER(5) default 0 not null,
ID_LUCRARE NUMBER(10) not null,
TERMEN DATE,
DATAI DATE,
ORAI NUMBER(5),
DATAE DATE,
ORAE NUMBER(5),
VALIDAT NUMBER(1) default 0 not null,
TIP_INCAS VARCHAR2(24),
ID_UTIL_AD NUMBER(5) default 0 not null,
ID_UTIL_VALID NUMBER(5) default 0 not null,
DATAORAAD DATE,
DATAORAVALID DATE,
ID_UTILS NUMBER(5) default 0 not null,
DATAORAS DATE,
ID_FACT NUMBER(10) default 0 not null,
ID_MASINICLIENT NUMBER(5) default 0 not null,
ID_ASIGURATOR NUMBER(5) default 0 not null,
ID_CONTRACT NUMBER(5) default 0 not null,
AVANS NUMBER(17,4),
STERS NUMBER(1) default 0 not null,
VALCTVA NUMBER(17,4) default 0 not null,
ID_TIP NUMBER(5) default 1 not null,
INCHIS_FORTAT NUMBER(1) default 0 not null,
KMINT NUMBER(10)
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_ORDL
add constraint PK_ORDL primary key (ID_ORDL)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_ORDL
add constraint FK_LUCR foreign key (ID_LUCRARE)
references NOM_LUCRARI (ID_LUCRARE)
disable;
create index IDX_ORDL_00001 on DEV_ORDL (ID_LUCRARE)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
create index IDX_ORDL_00002 on DEV_ORDL (ID_INSPECTOR)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
create index IDX_ORDL_00003 on DEV_ORDL (DATAORAVALID)
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_OPER
prompt =======================
prompt
create table DEV_OPER
(
ID_OPER NUMBER(10) not null,
ID_ORDL NUMBER(10) not null,
ID_NORME NUMBER(10) not null,
ID_FACT NUMBER(10),
TIMPN NUMBER(8,3) default 0 not null,
PRET NUMBER(17,4) default 0 not null,
DATAI DATE default sysdate not null,
ID_SECTIE NUMBER(5),
ID_UTIL NUMBER(5),
DATAORA DATE,
ID_UTILS NUMBER(5),
DATAORAS DATE,
STERS NUMBER(1) default 0 not null,
VALIDAT NUMBER(1) default 0 not null,
NOU NUMBER(1) default 0 not null,
ID_UTILI NUMBER(5),
DATAI_ORIG DATE,
DATAORA_ORIG DATE
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_OPER
add constraint PK_OPER primary key (ID_OPER)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_OPER
add constraint FK_NORME foreign key (ID_NORME)
references DEV_NOM_NORME (ID_NORME);
alter table DEV_OPER
add constraint FK_ORDL foreign key (ID_ORDL)
references DEV_ORDL (ID_ORDL);
prompt
prompt Creating table DEV_OPER_MECANICI
prompt ================================
prompt
create table DEV_OPER_MECANICI
(
ID_OPERMECANIC NUMBER(10) not null,
ID_MECANIC NUMBER(5),
ID_OPER NUMBER(10),
ORE NUMBER(8,3),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_OPER_MECANICI
add constraint PK_DEV_OPER_MECANICI primary key (ID_OPERMECANIC)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_TIP_DEVIZ
prompt ============================
prompt
create table DEV_TIP_DEVIZ
(
ID_TIP NUMBER(5) not null,
DENUMIRE VARCHAR2(50) not null,
STERS NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
alter table DEV_TIP_DEVIZ
add constraint PK_TIP_DEVIZ primary key (ID_TIP)
using index
tablespace ROA
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
spool off

84
Scripturi_instalare/tabele_nefolosite.sql Normal file
View File

@@ -0,0 +1,84 @@
--------------------------------------------------------
-- Tabele nefolosite in ROAAUTO versiunea 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:42:17 AM --
--------------------------------------------------------
spool tabele.log
prompt
prompt Creating table DEV_CONTRACTE
prompt ============================
prompt
create table DEV_CONTRACTE
(
ID_CONTRACT NUMBER(5) not null,
NUMAR VARCHAR2(10),
DATA DATE,
ID_PARTENER NUMBER(5),
STERS NUMBER(1) default 0 not null,
INACTIV NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_FACTURI
prompt ==========================
prompt
create table DEV_FACTURI
(
ID_LUCRARE NUMBER(10) not null,
NRFACT NUMBER(10) default 0 not null,
DATAFACT DATE,
ID_UTILAD NUMBER(10) default 0 not null,
ID_UTILSTERG NUMBER(10) default 0 not null,
DATAAD DATE,
DATASTERG DATE,
VALCTVA NUMBER(17,4) default 0 not null,
TVA NUMBER(17,4) default 0 not null,
STERS NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
prompt
prompt Creating table DEV_REVIZII
prompt ==========================
prompt
create table DEV_REVIZII
(
ID_REVIZIE NUMBER(5) not null,
ID_MASINICLIENTI NUMBER(5),
CODSERV VARCHAR2(10),
DATASERV DATE,
KM NUMBER(10),
STERS NUMBER(1) default 0 not null
)
tablespace ROA
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
spool off

1697
Scripturi_instalare/triggere.sql Normal file
View File

File diff suppressed because it is too large Load Diff

917
Scripturi_instalare/viewuri.sql Normal file
View File

@@ -0,0 +1,917 @@
--------------------------------------------------------
-- View-uri pentru ROAAUTO v 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:43:41 AM --
--------------------------------------------------------
spool viewuri.log
prompt
prompt Creating view DEV_VORDL_FACTURATE
prompt =================================
prompt
create or replace view dev_vordl_facturate as
select distinct b.id_lucrare,
max(b.dataact) keep(dense_rank first order by b.id_set desc) over(partition by b.id_lucrare) as dataact,
max(b.nract) keep(dense_rank first order by b.id_set desc, b.dataact desc) over(partition by b.id_lucrare) as nract,
max(case
when b.id_set in (31003, 31004, 31005, 31011, 31012) then
1
else
0
end) over(partition by b.id_lucrare) as facturat
from mv_ordl_sume_act b
where extract(month from b.dataact) + extract(year from b.dataact) * 12 <=
pack_sesiune.getluna() +
pack_sesiune.getAn() * 12
/
prompt
prompt Creating view DEV_VORDL_FACTURI
prompt ===============================
prompt
create or replace view dev_vordl_facturi as
select a.id_lucrare,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
NVL(b.manopera_ron + b.materiale_ron + b.tva_ron, -1.000)
else
NVL(b.manopera_rol + b.materiale_rol + b.tva_rol, -1.000)
end) as valctva,
a.dataact,
a.nract,
a.facturat
from dev_vordl_facturate a
left join mv_ordl_sume_act b on a.nract = b.nract
and a.id_lucrare = b.id_lucrare
and a.dataact = b.dataact
/
prompt
prompt Creating view DEV_COMENZI_VALIDATE
prompt ==================================
prompt
create or replace view dev_comenzi_validate as
select a.id_ordl,
a.id_lucrare,
a.id_masiniclient,
a.id_tip,
a.datai,
a.id_inspector,
a.id_asigurator,
(case
when extract(month from a.dataoravalid) +
extract(year from a.dataoravalid) * 12 <=
pack_sesiune.getluna() +
pack_sesiune.getan() * 12 then
1
else
0
end) as validat,
(case
when extract(month from a.dataoravalid) +
extract(year from a.dataoravalid) * 12 <=
pack_sesiune.getluna() +
pack_sesiune.getan() * 12 then
a.dataoravalid
else
null
end) as dataoravalid,
(case
when extract(month from a.dataoravalid) +
extract(year from a.dataoravalid) * 12 <=
pack_sesiune.getluna() +
pack_sesiune.getan() * 12 then
b.utilizator
else
null
end) as util_valid,
c.nrord
from dev_ordl a
left join syn_utilizatori b on a.id_util_valid = b.id_util
left join nom_lucrari c on a.id_lucrare = c.id_lucrare
where a.sters = 0
/
prompt
prompt Creating view DEV_ISTORIC_COMENZI
prompt =================================
prompt
create or replace view dev_istoric_comenzi as
select a.id_ordl,
a.id_lucrare,
a.id_masiniclient,
a.id_tip,
a.datai,
nvl(a.validat, 0) as validat,
a.dataoravalid,
a.util_valid,
a.nrord,
nvl(c.facturat, 0) as facturat,
c.dataact as datafact,
nvl(c.nract, 0) as nrfact,
d.id_partener,
d.nrinmat,
b.masina,
b1.marca,
e.nume,
g.asigurator,
h.inspector,
i.denumire as tip_comanda
from dev_comenzi_validate a
left join dev_vordl_facturi c on a.id_lucrare = c.id_lucrare
left join dev_masiniclienti d on a.id_masiniclient = d.id_masiniclient
left join dev_nom_masini b on d.id_masina = b.id_masina
left join dev_nom_marci b1 on b.id_marca = b1.id_marca
left join nom_parteneri e on d.id_partener = e.id_part
left join dev_nom_asiguratori g on a.id_asigurator = g.id_asigurator
left join dev_nom_inspectori h on a.id_inspector = h.id_inspector
left join dev_tip_deviz i on a.id_tip = i.id_tip
/
prompt
prompt Creating view DEV_ANALIZA_MANASIG
prompt =================================
prompt
create or replace view dev_analiza_manasig as
Select 'GARANTIE' As tip,
NVL(a.asigurator, 'FARA ASIGURATOR') as asig,
last_day(to_date(a.dataoravalid)) as luna,
Nvl(Sum(round(b.timpn, 3)), 0) As timp_n
From dev_istoric_comenzi a
Left Join dev_oper b On a.id_ordl = b.id_ordl
Where a.validat = 1
and a.id_tip = 2
and b.sters = 0
Group By a.asigurator, last_day(to_date(a.dataoravalid))
Union all
Select 'REGIE' As tip,
NVL(a.asigurator, 'FARA ASIGURATOR') as asig,
last_day(to_date(a.dataoravalid)) as luna,
Nvl(Round(Sum(b.timpn), 3), 0) As timp_n
From dev_istoric_comenzi a
Left Join dev_oper b On a.id_ordl = b.id_ordl
Where a.Validat = 1
And a.id_tip > 2
and b.sters = 0
Group By a.asigurator, last_day(to_date(a.dataoravalid))
Union all
Select 'POST GARANTIE' As tip,
NVL(a.asigurator, 'FARA ASIGURATOR') as asig,
last_day(to_date(a.datafact)) as luna,
Nvl(Round(Sum(b.timpn), 3), 0) As timp_n
From dev_istoric_comenzi a
Left Join dev_oper b On a.id_ordl = b.id_ordl
Where a.facturat = 1
and b.sters = 0
Group By a.asigurator, last_day(to_date(a.datafact))
/
prompt
prompt Creating view DEV_VORDL
prompt =======================
prompt
create or replace view dev_vordl as
select o.*,p.nume,p.cod_fiscal,p.adresa,p.telefon,p.banca,p.cont_banca,p.reg_comert,
l.nrord,
m.nrinmat,m.series,m.seriem,
asig.asigurator,
mar.marca,mas.masina,ins.inspector,ut.utilizator as util_valid,k.denumire as tip_comanda
from dev_ordl o
left join dev_masiniclienti m on o.id_masiniclient = m.id_masiniclient
left join nom_parteneri p on m.id_partener = p.id_part
left join nom_lucrari l on o.id_lucrare = l.id_lucrare
left join dev_nom_asiguratori asig on o.id_asigurator = asig.id_asigurator
left join dev_nom_masini mas on m.id_masina = mas.id_masina
left join dev_nom_marci mar on mas.id_marca = mar.id_marca
left join dev_nom_inspectori ins on o.id_inspector = ins.id_inspector
left join dev_tip_deviz k on o.id_tip=k.id_tip
left join syn_vutilizatori ut on o.id_util_valid=ut.id_util
where o.sters = 0
/
prompt
prompt Creating view DEV_DETALII_COMENZI
prompt =================================
prompt
create or replace view dev_detalii_comenzi as
select a.id_ordl,a.validat,a.dataoravalid,a.id_tip,a.tip_comanda,
nvl(b.facturat,0) as facturat,b.dataact as datafact,nvl(b.nract,0) as nrfact
from dev_vordl a
left join dev_vordl_facturi b on a.id_lucrare=b.id_lucrare
/
prompt
prompt Creating view DEV_ANALIZA_SALARII
prompt =================================
prompt
create or replace view dev_analiza_salarii as
select a.id_ordl,
a.id_tip,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() <
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
b.pret
else
(case b.nou
when 0 then
round(b.pret / 10000, 2)
else
b.pret
end) end) as pret,
c.ore,
d.id_mecanic,
e.nume,
e.prenume
from dev_detalii_comenzi a
left join dev_oper b on a.id_ordl = b.id_ordl
left join dev_oper_mecanici c on b.id_oper = c.id_oper
left join dev_mecanici d on c.id_mecanic = d.id_mecanic
left join sal_personal e on d.id_salariat = e.id_salariat
where b.sters = 0
and ((a.id_tip = 1 and
(a.facturat = 1 and (extract(month from a.datafact) =
pack_sesiune.getluna() and
extract(year from a.datafact) =
pack_sesiune.getan()))) or
(a.id_tip > 1 and
(a.validat = 1 and (extract(month from a.dataoravalid) =
pack_sesiune.getluna() and
extract(year from a.dataoravalid) =
pack_sesiune.getan()))))
/
prompt
prompt Creating view DEV_ANALIZA_SALARII_REG
prompt =====================================
prompt
create or replace view dev_analiza_salarii_reg as
select distinct id_mecanic,nume||' '||prenume as nume,
sum(case when id_tip=1 then ore else 0 end) over (partition by id_mecanic) as ore,
sum(case when id_tip=1 then round(pret*ore,2) else 0 end) over (partition by id_mecanic) as manopera,
sum(case when id_tip!=1 then ore else 0 end) over (partition by id_mecanic) as ore_reg,
sum(case when id_tip!=1 then round(pret*ore,2) else 0 end) over (partition by id_mecanic) as manopera_reg
from dev_analiza_salarii
/
prompt
prompt Creating view DEV_DATE_SUPLIMENTARE
prompt ===================================
prompt
create or replace view dev_date_suplimentare as
select a.id_ordl,a.kmint,a.termen,b.asigurator,c.inspector,d.id_partener,d.series,e.masina,f.marca
from dev_ordl a
left join dev_nom_asiguratori b on a.id_asigurator=b.id_asigurator
left join dev_nom_inspectori c on a.id_inspector=c.id_inspector
left join dev_masiniclienti d on a.id_masiniclient=d.id_masiniclient
left join dev_nom_masini e on d.id_masina=e.id_masina
left join dev_nom_marci f on e.id_marca=f.id_marca
where a.sters=0
/
prompt
prompt Creating view DEV_DATE_SUPLIMENTARE_RAP
prompt =======================================
prompt
create or replace view dev_date_suplimentare_rap as
select a.id_ordl,a.termen,a.kmint,
b.asigurator,
c.inspector,
d.seriem,d.nrinmat,d.series,d.nrachi,d.dataachi,
e.masina,
f.marca,
g.telefon,g.cod_fiscal,g.adresa,
h.denumire as furnizor
from dev_ordl a
left join dev_nom_asiguratori b on a.id_asigurator=b.id_asigurator
left join dev_nom_inspectori c on a.id_inspector=c.id_inspector
left join dev_masiniclienti d on a.id_masiniclient=d.id_masiniclient
left join dev_nom_masini e on d.id_masina=e.id_masina
left join dev_nom_marci f on e.id_marca=f.id_marca
left join nom_parteneri g on d.id_partener=g.id_part
left join dev_nom_furnizorimasini h on d.id_furnizor=h.id_furnizor
/
prompt
prompt Creating view DEV_NORMARE_COMENZI
prompt =================================
prompt
create or replace view dev_normare_comenzi as
select a.id_ordl,a.id_lucrare,a.id_tip,a.datai,a.id_inspector,a.id_asigurator,
nvl(a.validat,0) as validat,a.dataoravalid,a.nrord,a.id_masiniclient,
nvl(b.facturat,0) as facturat,b.dataact as datafact,b.nract as nrfact,
d.nrinmat,
e.nume,
i.denumire as tip_comanda
from dev_comenzi_validate a
left join dev_vordl_facturi b on a.id_lucrare=b.id_lucrare
left join dev_masiniclienti d on a.id_masiniclient=d.id_masiniclient
left join nom_parteneri e on d.id_partener=e.id_part
left join dev_tip_deviz i on a.id_tip=i.id_tip
/
prompt
prompt Creating view DEV_FACTURI_ASIG
prompt ==============================
prompt
create or replace view dev_facturi_asig as
select a.nrord,a.datai,a.nume,c.asigurator,
b.nract,b.dataact,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.manopera_ron
else
b.manopera_rol end)
as manopera,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.materiale_ron
else
b.materiale_rol end) as materiale,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.manopera_ron+b.materiale_ron+b.tva_ron
else
b.manopera_rol+b.materiale_rol+b.tva_rol end)
as valctva
from dev_normare_comenzi a
join mv_ordl_sume_act b on a.id_lucrare=b.id_lucrare
left join dev_nom_asiguratori c on a.id_asigurator=c.id_asigurator
where a.id_asigurator<>0
order by c.asigurator,b.dataact
/
prompt
prompt Creating view DEV_FACTURI_CLIENTI
prompt =================================
prompt
create or replace view dev_facturi_clienti as
select a.nrord,a.datai,d.nume,d.telefon,
b.nract,b.dataact,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then b.manopera_ron
else
b.manopera_rol end)
as manopera,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.materiale_ron
else
b.materiale_rol end) as materiale,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.manopera_ron+b.materiale_ron+b.tva_ron
else
b.manopera_rol+b.materiale_rol+b.tva_rol end)
as valctva
from dev_normare_comenzi a
join mv_ordl_sume_act b on a.id_lucrare=b.id_lucrare
left join dev_masiniclienti c on a.id_masiniclient=c.id_masiniclient
left join nom_parteneri d on c.id_partener=d.id_part
order by b.dataact
/
prompt
prompt Creating view DEV_VORDL_MAN
prompt ===========================
prompt
create or replace view dev_vordl_man as
select a.id_ordl,
sum((case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
a.manopera_ron
else
a.manopera_rol
end)) as manopera
from mv_ordl_man a
where a.luni <= pack_sesiune.getluna() +
pack_sesiune.getan() * 12
group by a.id_ordl
/
prompt
prompt Creating view DEV_VORDL_MAT
prompt ===========================
prompt
create or replace view dev_vordl_mat as
select a.id_lucrare,
sum((case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
a.materiale_ron
else
a.materiale_rol
end)) as materiale
from mv_ordl_mat a
where a.luni <= pack_sesiune.getluna() +
pack_sesiune.getan() * 12
group by a.id_lucrare
/
prompt
prompt Creating view DEV_FACTURI_EMISE
prompt ===============================
prompt
create or replace view dev_facturi_emise as
select row_number() over(partition by a.nrord order by a.datai, a.nrord) as nrcrt,
a.dataoravalid,a.datafact,a.validat,a.facturat,e.inspector,f.asigurator,a.id_tip,
a.nrord,
a.datai,
d.nume,
b.nract,
b.dataact,
NVL(a1.manopera,0) as manopera,
NVL(a2.materiale,0) as materiale,
a.nrinmat,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
b.manopera_ron + b.materiale_ron + b.tva_ron
else
b.manopera_rol + b.materiale_rol + b.tva_rol
end) as valctva
from dev_normare_comenzi a
join mv_ordl_sume_act b on a.id_lucrare = b.id_lucrare
left join dev_vordl_man a1 on a.id_ordl = a1.id_ordl
left join dev_vordl_mat a2 on a.id_lucrare = a2.id_lucrare
left join dev_masiniclienti c on a.id_masiniclient = c.id_masiniclient
left join nom_parteneri d on c.id_partener = d.id_part
left join dev_nom_inspectori e on a.id_inspector = e.id_inspector
left join dev_nom_asiguratori f on a.id_asigurator = f.id_asigurator
order by b.dataact
/
prompt
prompt Creating view DEV_FACTURI_TOATE
prompt ===============================
prompt
create or replace view dev_facturi_toate as
select a.nrord,a.datai,a.nume,c.asigurator,
b.nract,b.dataact,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.manopera_ron
else
b.manopera_rol end)
as manopera,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.materiale_ron
else
b.materiale_rol end) as materiale,
(case
when pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then
b.manopera_ron+b.materiale_ron+b.tva_ron
else
b.manopera_rol+b.materiale_rol+b.tva_rol end)
as valctva
from dev_normare_comenzi a
join mv_ordl_sume_act b on a.id_lucrare=b.id_lucrare
left join dev_nom_asiguratori c on a.id_asigurator=c.id_asigurator
order by c.asigurator,b.dataact
/
prompt
prompt Creating view DEV_VOPER_MECANICI
prompt ================================
prompt
create or replace view dev_voper_mecanici as
select a.id_opermecanic,
a.id_oper,
a.ore,
a.inactiv,
a.id_mecanic,
c.nume,
c.prenume,
c.marca,
c.id_salariat,
d.sectie
from dev_oper_mecanici a
left join dev_mecanici b on a.id_mecanic = b.id_mecanic
left join sal_personal c on b.id_salariat = c.id_salariat
left join nom_sectii d on b.id_sectie = d.id_sectie
where a.sters = 0
/
prompt
prompt Creating view DEV_VOPER_PRETURI
prompt ===============================
prompt
create or replace view dev_voper_preturi as
select op.timpn,
op.id_ordl,
op.id_oper,
op.dataora,
op.datai,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() <
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
op.pret
else
(case op.nou
when 0 then
round(op.pret / 10000, 2)
else
op.pret
end) end) as pret,
op.validat,
n.denop
from dev_oper op
left join dev_nom_norme n on op.id_norme = n.id_norme
where op.sters = 0
/
prompt
prompt Creating view DEV_LISTARE_MAN_TOT_COM
prompt =====================================
prompt
create or replace view dev_listare_man_tot_com as
select sum(d.ore) as ore,
d.id_mecanic,
sum(round(c.pret * d.ore, 2)) as valoare,
d.nume,
d.prenume,
a.nrord,
a.datai,
d.sectie
from dev_comenzi_validate a
left join dev_vordl_facturi b on a.id_lucrare = b.id_lucrare
left join dev_voper_preturi c on a.id_ordl = c.id_ordl
left join dev_voper_mecanici d on c.id_oper = d.id_oper
where (extract(month from a.dataoravalid) =
pack_sesiune.getluna() and
extract(year from a.dataoravalid) =
pack_sesiune.getan() and a.validat=1 and a.id_tip > 1)
or (extract(month from b.dataact) =
pack_sesiune.getluna() and
extract(year from b.dataact) =
pack_sesiune.getan() and a.id_tip = 1 and
b.facturat = 1)
group by a.id_ordl,
a.nrord,
d.id_mecanic,
d.nume,
d.prenume,
a.datai,
d.sectie
order by d.id_mecanic
/
prompt
prompt Creating view DEV_LISTARE_MAN_TOT_DESF
prompt ======================================
prompt
create or replace view dev_listare_man_tot_desf as
select d.id_opermecanic,
d.id_oper,
d.ore,
d.inactiv,
d.id_mecanic,
d.nume,
d.prenume,
d.marca,
d.id_salariat,
d.sectie,
a.id_ordl,
c.pret,
a.datai,
b.nract as nract,
b.dataact as datafact,
c.denop,
c.timpn,
a.nrord
from dev_comenzi_validate a
left join dev_vordl_facturi b on a.id_lucrare = b.id_lucrare
left join dev_voper_preturi c on a.id_ordl = c.id_ordl
left join dev_voper_mecanici d on c.id_oper = d.id_oper
where (extract(month from a.dataoravalid) =
pack_sesiune.getluna() and
extract(year from a.dataoravalid) =
pack_sesiune.getan() and a.validat=1 and a.id_tip > 1)
or (extract(month from b.dataact) =
pack_sesiune.getluna() and
extract(year from b.dataact) =
pack_sesiune.getan() and a.id_tip = 1 and
b.facturat = 1)
order by id_mecanic
/
prompt
prompt Creating view DEV_ORDL_FACTURARE
prompt ================================
prompt
create or replace view dev_ordl_facturare as
select a.id_ordl,a.id_lucrare,a.datai,a.id_masiniclient,
b.nrord,
c.id_partener,c.nrinmat,
d.nume,
e.masina,
f.marca
from dev_ordl a
left join nom_lucrari b on a.id_lucrare=b.id_lucrare
left join dev_masiniclienti c on a.id_masiniclient=c.id_masiniclient
left join nom_parteneri d on c.id_partener=d.id_part
left join dev_nom_masini e on c.id_masina=e.id_masina
left join dev_nom_marci f on e.id_marca=f.id_marca
where a.sters=0
/
prompt
prompt Creating view DEV_VALIDARE_COMENZI
prompt ==================================
prompt
create or replace view dev_validare_comenzi as
select a.id_ordl,
a.id_lucrare,
a.id_masiniclient,
a.id_tip,
a.datai,
nvl(a.validat, 0) as validat,
a.dataoravalid,
a.util_valid,
a.nrord,
nvl(b.manopera, 0) as manopera,
nvl(b1.materiale, 0) as materiale,
nvl(c.facturat, 0) as facturat,
c.dataact as datafact,
nvl(c.nract, 0) as nrfact,
c.valctva,
d.id_partener,
d.nrinmat,
e.nume,
g.asigurator,
h.inspector,
i.denumire as tip_comanda
from dev_comenzi_validate a
left join dev_vordl_man b on a.id_ordl = b.id_ordl
left join dev_vordl_mat b1 on a.id_lucrare = b1.id_lucrare
left join dev_vordl_facturi c on a.id_lucrare = c.id_lucrare
left join dev_masiniclienti d on a.id_masiniclient = d.id_masiniclient
left join nom_parteneri e on d.id_partener = e.id_part
left join dev_nom_asiguratori g on a.id_asigurator = g.id_asigurator
left join dev_nom_inspectori h on a.id_inspector = h.id_inspector
left join dev_tip_deviz i on a.id_tip = i.id_tip
order by a.datai, a.nrord
/
prompt
prompt Creating view DEV_VANSAMBLE
prompt ===========================
prompt
create or replace view dev_vansamble as
select a.* from dev_nom_ansamble a where a.sters = 0
/
prompt
prompt Creating view DEV_VASIGURATORI
prompt ==============================
prompt
create or replace view dev_vasiguratori as
select a.* from dev_nom_asiguratori a where a.sters = 0
/
prompt
prompt Creating view DEV_VDELEGATI
prompt ===========================
prompt
create or replace view dev_vdelegati as
select d.*,p.nume,p.cod_fiscal from dev_nom_delegati d left join nom_parteneri p on d.id_partener = p.id_part where d.sters = 0
/
prompt
prompt Creating view DEV_VFURNIZORI
prompt ============================
prompt
create or replace view dev_vfurnizori as
select f.* from dev_nom_furnizorimasini f where f.sters = 0
/
prompt
prompt Creating view DEV_VINSPECTORI
prompt =============================
prompt
create or replace view dev_vinspectori as
select i.* from dev_nom_inspectori i where i.sters = 0
/
prompt
prompt Creating view DEV_VMARCI
prompt ========================
prompt
create or replace view dev_vmarci as
select m.* from dev_nom_marci m where m.sters = 0
/
prompt
prompt Creating view DEV_VMASINI
prompt =========================
prompt
create or replace view dev_vmasini as
select m.*,s.marca from dev_nom_masini m left join dev_nom_marci s on m.id_marca = s.id_marca where m.sters = 0
/
prompt
prompt Creating view DEV_VMASINICLIENTI
prompt ================================
prompt
create or replace view dev_vmasiniclienti as
select mc.*,tm.denumire as tip_motor,m.id_marca,fm.denumire as furnizor,mm.marca,m.masina,p.nume as partener
from dev_masiniclienti mc
left join dev_tipuri_motoare tm on mc.id_tipmotor = tm.id_tipmotor
left join dev_nom_furnizorimasini fm on mc.id_furnizor = fm.id_furnizor
left join dev_nom_masini m on mc.id_masina = m.id_masina
left join dev_nom_marci mm on m.id_marca = mm.id_marca
left join nom_parteneri p on mc.id_partener = p.id_part
where mc.sters = 0
/
prompt
prompt Creating view DEV_VMECANICI
prompt ===========================
prompt
create or replace view dev_vmecanici as
select m.*,s.sectie,p.nume,p.prenume,p.marca from dev_mecanici m left join nom_sectii s on m.id_sectie = s.id_sectie left join sal_personal p on m.id_salariat = p.id_salariat where m.sters = 0
/
prompt
prompt Creating view DEV_VNOM_MASINI
prompt =============================
prompt
create or replace view dev_vnom_masini as
select m.* from dev_nom_masini m where m.sters = 0
/
prompt
prompt Creating view DEV_VNOM_RESP
prompt ===========================
prompt
create or replace view dev_vnom_resp as
select "ID_RESP","NUME","BI","CNPRESP","ALES","STERS"
from dev_nom_resp where sters = 0
/
prompt
prompt Creating view DEV_VNORME
prompt ========================
prompt
create or replace view dev_vnorme as
select n.*,a.denumire as ansamblu,m.masina,mar.marca from dev_nom_norme n left join dev_nom_ansamble a on n.id_ansamblu = a.id_ansamblu left join dev_nom_masini m on n.id_masina = m.id_masina left join dev_nom_marci mar on m.id_marca = mar.id_marca where n.sters = 0
/
prompt
prompt Creating view DEV_VOPER
prompt =======================
prompt
create or replace view dev_voper as
select op.timpn,
op.id_ordl,
op.id_oper,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
extract(year from op.dataora) * 12 +
extract(month from op.dataora) then
op.dataora
else
null
end) as dataora,
op.id_sectie,
op.datai,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() <
pack_sesiune.GET_ANRON() * 12 +
pack_sesiune.GET_LUNARON() then
op.pret
else
(case op.nou
when 0 then
round(op.pret / 10000, 2)
else
op.pret
end) end) as pret,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
extract(year from op.dataora) * 12 +
extract(month from op.dataora) then
op.validat
else
0
end) as validat,
op.nou,
n.denop,
n.timpn as timp_nom,
n.codop,
a.denumire as ansamblu,
m.masina,
s.sectie,
s.nsectie,
(case
when pack_sesiune.getAn() * 12 +
pack_sesiune.getLuna() >=
extract(year from op.dataora) * 12 +
extract(month from op.dataora) then
ut.utilizator
else
null
end) as util
from dev_oper op
left join dev_nom_norme n on op.id_norme = n.id_norme
left join dev_nom_ansamble a on n.id_ansamblu = a.id_ansamblu
left join dev_nom_masini m on n.id_masina = m.id_masina
left join nom_sectii s on op.id_sectie = s.id_sectie
left join syn_utilizatori ut on op.id_util = ut.id_util
where op.sters = 0
/
prompt
prompt Creating view DEV_VOPER_DETALII_M
prompt =================================
prompt
create or replace view dev_voper_detalii_m as
select a.id_opermecanic,a.id_oper,a.ore,a.id_mecanic,c.nume,c.prenume from dev_oper_mecanici a
left join dev_mecanici b on a.id_mecanic=b.id_mecanic
left join sal_personal c on b.id_salariat=c.id_salariat
where a.sters=0
/
prompt
prompt Creating view DEV_VOPER_SIMPLU
prompt ==============================
prompt
create or replace view dev_voper_simplu as
select op.timpn,
op.id_ordl,
op.id_oper,
op.dataora,
op.datai,
op.id_sectie,
op.validat,
op.id_norme,
s.sectie,
s.nsectie
from dev_oper op
left join nom_sectii s on op.id_sectie = s.id_sectie
where op.sters = 0
/
prompt
prompt Creating view DEV_VORDL_AVANSURI
prompt ================================
prompt
create or replace view dev_vordl_avansuri as
select a.id_lucrare,
(case
when a.luna+a.an*12<
pack_sesiune.GET_LUNARON()+pack_sesiune.GET_ANRON()*12
and
pack_sesiune.getAn()*12+pack_sesiune.getLuna()>=
pack_sesiune.GET_ANRON()*12+pack_sesiune.GET_LUNARON()
then a.suma/10000
else
a.suma end) as suma,a.scd,a.ascd,a.scc,a.ascc,a.id_partc,a.id_partd,a.id_sectie,
b.nume as partc,c.nume as partd,d.sectie from act a
left join nom_parteneri b on a.id_partc=b.id_part
left join nom_parteneri c on a.id_partd=c.id_part
left join nom_sectii d on a.id_sectie=d.id_sectie
where a.sters=0 and a.id_set in (31001,31002) and a.scd = '4111'
/
prompt
prompt Creating view DEV_VPRETURI
prompt ==========================
prompt
create or replace view dev_vpreturi as
select p.*,m.marca,a.asigurator,v.nume_val
from dev_nom_preturi p
left join dev_nom_marci m on p.id_marca = m.id_marca
left join dev_nom_asiguratori a on p.id_asiguratori = a.id_asigurator
left join nom_valute v on p.id_valuta = v.id_valuta
where p.sters = 0
/
spool off

298
Scripturi_instalare/viewuri_materializate.sql Normal file
View File

@@ -0,0 +1,298 @@
--------------------------------------------------------
-- View-uri materializate pentru ROAAUTO v 1.4.151 --
-- Created by marius.atanasiu on 2/2/2006, 9:43:11 AM --
--------------------------------------------------------
spool viewuri_materializate.log
PROMPT
PROMPT Drop view-uri materializate
PROMPT ===================================
PROMPT
begin
begin
execute immediate 'drop view MV_ORDL_MAT';
exception
when others then
null;
end;
begin
execute immediate 'drop view mv_ordl_man';
exception
when others then
null;
end;
begin
execute immediate 'drop view mv_act_suma';
exception
when others then
null;
end;
begin
execute immediate 'drop view mv_ordl_sume_act';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_rul';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_rul1';
exception
when others then
null;
end;
begin
execute immediate 'drop materialized view log on RUL';
exception
when others then
null;
end;
begin
execute immediate 'DROP MATERIALIZED VIEW MV_ORDL_MAT';
exception
when others then
null;
end;
begin
execute immediate 'DROP TABLE MV_ORDL_MAT';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_dev_oper';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_dev_oper1';
exception
when others then
null;
end;
begin
execute immediate 'drop materialized view log on dev_oper';
exception
when others then
null;
end;
begin
execute immediate 'drop MATERIALIZED VIEW mv_ordl_man';
exception
when others then
null;
end;
begin
execute immediate 'drop table mv_ordl_man';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_act';
exception
when others then
null;
end;
begin
execute immediate 'drop table mlog$_act1';
exception
when others then
null;
end;
begin
execute immediate 'drop materialized view log on ACT';
exception
when others then
null;
end;
begin
execute immediate 'drop MATERIALIZED VIEW mv_ordl_sume_act';
exception
when others then
null;
end;
begin
execute immediate 'drop table mv_ordl_sume_act';
exception
when others then
null;
end;
begin
execute immediate 'DROP materialized view MV_ACT_SUMA';
exception
when others then
null;
end;
begin
execute immediate 'DROP table MV_ACT_SUMA';
exception
when others then
null;
end;
end;
/
PROMPT
PROMPT Creare log view materializat pe act
PROMPT ===================================
PROMPT
CREATE MATERIALIZED VIEW LOG ON act WITH PRIMARY KEY, ROWID, SEQUENCE(id_lucrare,dataact,nract,id_set,scc,scd,luna,an,suma,sters,explicatia,id_sucursala) INCLUDING NEW VALUES
/
PROMPT
PROMPT Creare view materializat mv_ordl_sume_act
PROMPT =========================================
PROMPT
create materialized view MV_ORDL_SUME_ACT
refresh fast on commit
as
select id_lucrare,dataact,nract,id_set,sum(case when scc='704' then (case when luna+an*12<7+2005*12 then round(suma/10000,2) else
suma end) when explicatia like 'DISCOUNT MANOPERA%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then round((-1)*(abs(suma))/10000,2) else (-1)*(abs(suma)) end) else 0 end) as manopera_ron, sum(case when scc in ('707','419') then (case when luna+an*12<7+2005*12 then round(suma/10000,2) else suma end)
when explicatia like 'DISCOUNT MATERIALE%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then round((-1)*(abs(suma))/10000,2) else (-1)*(abs(suma)) end)
else 0 end) as materiale_ron,sum(case when scc='4427' then (case when luna+an*12<7+2005*12 then round(suma/10000,2)
else suma end) else 0 end) as tva_ron,sum(case when scc='704' then (case when luna+an*12<7+2005*12 then suma else 0 end) when explicatia like 'DISCOUNT MANOPERA%' and scc<>'4427' then (case when
luna+an*12<7+2005*12 then (-1)*(abs(suma)) else 0 end) else 0 end) as manopera_rol,sum(case when scc in ('707','419') then (case when luna+an*12<7+2005*12 then suma else 0
end) when explicatia like 'DISCOUNT MATERIALE%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then (-1)*(abs(suma)) else 0 end) else 0 end) as materiale_rol,
sum(case when scc='4427' then (case when luna+an*12<7+2005*12 then suma else 0 end) else 0 end) as tva_rol,count(*) as cnt,
count(case when scc='704' then (case when luna+an*12<7+2005*12 then round(suma/10000,2)
else suma end) when explicatia like 'DISCOUNT MANOPERA%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then round((-1)*(abs(suma))/10000,2) else (-1)*(abs(suma)) end)
else 0 end) as cnt_manopera_ron,count(case when scc in ('707','419') then (case when luna+an*12<7+2005*12 then round(suma/10000,2) else suma end)
when explicatia like 'DISCOUNT MATERIALE%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then round((-1)*(abs(suma))/10000,2) else (-1)*(abs(suma)) end)
else 0 end) as cnt_materiale_ron,count(case when scc='4427' then (case when luna+an*12<7+2005*12 then round(suma/10000,2)
else suma end) else 0 end) as cnt_tva_ron,count(case when scc='704' then (case when luna+an*12<7+2005*12 then suma else 0 end)
when explicatia like 'DISCOUNT MANOPERA%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then (-1)*(abs(suma)) else 0 end)
else 0 end) as cnt_manopera_rol,count(case when scc in ('707','419') then (case when luna+an*12<7+2005*12 then suma else 0
end) when explicatia like 'DISCOUNT MATERIALE%' and scc<>'4427' then (case when luna+an*12<7+2005*12 then (-1)*(abs(suma)) else 0 end)
else 0 end) as cnt_materiale_rol,count(case when scc='4427' then (case when luna+an*12<7+2005*12 then suma else 0 end)
else 0 end) as cnt_tva_rol from act where sters=0 and scd in ('4111', '667', '482', '711', '6588') and id_set in (31001, 31002, 31003, 31004, 31005, 31006, 31007, 31011, 31012) group by id_lucrare,dataact,nract,id_set
/
PROMPT
PROMPT Creare view materializat MV_ACT_SUMA
PROMPT =========================================
PROMPT
create materialized view MV_ACT_SUMA
REFRESH FAST ON COMMIT
AS
select an, luna, id_sucursala,
sum(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) between 1 and 7 then suma else 0 end) as sumaD,
sum(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) between 1 and 7 then suma else 0 end) as sumaC,
sum(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) = 8 then suma else 0 end) as sumaD_8,
sum(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) = 8 then suma else 0 end) as sumaC_8,
sum(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) = 9 then suma else 0 end) as sumaD_9,
sum(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) = 9 then suma else 0 end) as sumaC_9,
count(*) as nr,
count(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) between 1 and 7 then suma else 0 end) as nrsumaD,
count(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) between 1 and 7 then suma else 0 end) as nrsumaC,
count(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) = 8 then suma else 0 end) as nrsumaD_8,
count(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) = 8 then suma else 0 end) as nrsumaC_8,
count(case when TO_NUMBER(SUBSTR(SCD, 1, 1)) = 9 then suma else 0 end) as nrsumaD_9,
count(case when TO_NUMBER(SUBSTR(SCC, 1, 1)) = 9 then suma else 0 end) as nrsumaC_9
from act
where sters = 0
group by an, luna, id_sucursala
/
PROMPT
PROMPT Creare log view materializat pe dev_oper
PROMPT ========================================
PROMPT
CREATE MATERIALIZED VIEW LOG ON dev_oper WITH PRIMARY KEY,ROWID, SEQUENCE(id_ordl,datai,pret,timpn,nou,sters) INCLUDING NEW VALUES
/
PROMPT
PROMPT Creare view materializat mv_ordl_man
PROMPT ====================================
PROMPT
create materialized view MV_ORDL_MAN refresh fast on commit as
select id_ordl,extract(month from datai) + extract(year from datai) * 12 as luni,
sum(case
when nou = 0 then
round(round(pret / 10000, 2) * timpn, 2)
else
round(pret * timpn, 2)
end) as manopera_ron,
sum(case
when nou = 0 then
round(pret * timpn, 2)
else
0
end) as manopera_rol,
count(*) as cnt,
count(case
when nou = 0 then
round(round(pret / 10000, 2) * timpn, 2)
else
round(pret * timpn, 2)
end) as cnt_manopera_ron,
count(case
when nou = 0 then
round(pret * timpn, 2)
else
0
end) as cnt_manopera_rol
from dev_oper
where sters = 0
group by id_ordl,
extract(month from datai) + extract(year from datai) * 12
/
PROMPT
PROMPT Creare log view materializat pe rul
PROMPT ===================================
PROMPT
CREATE MATERIALIZED VIEW LOG ON RUL WITH ROWID, SEQUENCE(AN,LUNA,PRETV,CANTE,ID_LUCRARE,STERS) INCLUDING NEW VALUES;
/
PROMPT
PROMPT Creare view materializat mv_ordl_mat
PROMPT ====================================
PROMPT
CREATE MATERIALIZED VIEW MV_ORDL_MAT
REFRESH FAST ON COMMIT AS
SELECT STERS,
ID_LUCRARE,
LUNA,
AN,
SUM(CASE
WHEN LUNA + AN * 12 < 7 + 2005 * 12 THEN
ROUND(PRETV * CANTE, 2)
ELSE
0
END) materiale_rol,
COUNT(CASE
WHEN LUNA + AN * 12 < 7 + 2005 * 12 THEN
ROUND(PRETV * CANTE, 2)
ELSE
0
END) cnt_materiale_rol,
SUM(CASE
WHEN LUNA + AN * 12 < 7 + 2005 * 12 THEN
ROUND(ROUND(PRETV / 10000, 2) * CANTE, 2)
ELSE
ROUND(PRETV * CANTE, 2)
END) materiale_ron,
COUNT(CASE
WHEN LUNA + AN * 12 < 7 + 2005 * 12 THEN
ROUND(ROUND(PRETV / 10000, 2) * CANTE, 2)
ELSE
ROUND(PRETV * CANTE, 2)
END) cnt_materiale_ron,
COUNT(*) cnt
FROM RUL
WHERE (STERS = 0)
GROUP BY STERS, ID_LUCRARE, LUNA, AN
/
spool off