admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DJIN#53723 DJIN#55113 DJIN#57245 -- DVON8

Browse Source 
svn path=/Customer/trunk/; revision=43424
This commit is contained in:
Robin Stoker
2019-07-19 13:55:45 +00:00
parent 2cb142794e
commit 43d26676eb
1 changed files with 25 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
DVON/dvon.sql
View File

@@ -1924,7 +1924,7 @@ AS
v_fiatteur_3_key NUMBER (10);
v_kostenplaatsgrp_nr VARCHAR2 (255);
v_kostenplaatsgrp_limiet VARCHAR2 (255);
v_kostenplaatsgrp_limietp VARCHAR2 (255);
v_kostenplaatsgrp_limietp VARCHAR2 (255);
-- PRS_BEDRIJF
CURSOR c1
@@ -2139,8 +2139,7 @@ BEGIN
SELECT prs_perslid_key
INTO v_perslid_key
FROM prs_perslid
WHERE prs_perslid_oslogin = UPPER (v_perslid)
OR prs_perslid_oslogin = UPPER (v_perslid);
WHERE prs_perslid_oslogin = UPPER (v_perslid);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -2200,8 +2199,7 @@ BEGIN
SELECT prs_perslid_key
INTO v_fiatteur_1_key
FROM prs_perslid
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_1)
OR prs_perslid_oslogin = UPPER (v_fiatteur_1);
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_1);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -2223,8 +2221,7 @@ BEGIN
SELECT prs_perslid_key
INTO v_fiatteur_2_key
FROM prs_perslid
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_2)
OR prs_perslid_oslogin = UPPER (v_fiatteur_2);
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_2);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -2234,7 +2231,7 @@ BEGIN
p_import_key,
'E',
v_aanduiding || 'Fiatteur 2 kan niet gevonden worden',
'Fiatteur 3 wordt leeg gemaakt [' || v_fiatteur_2 || ']');
'Fiatteur 2 wordt leeg gemaakt [' || v_fiatteur_2 || ']');
END;
ELSE
v_fiatteur_2_key := NULL;
@@ -2246,8 +2243,7 @@ BEGIN
SELECT prs_perslid_key
INTO v_fiatteur_3_key
FROM prs_perslid
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_3)
OR prs_perslid_oslogin = UPPER (v_fiatteur_3);
WHERE prs_perslid_oslogin = UPPER (v_fiatteur_3);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -2765,17 +2761,19 @@ BEGIN
CLOSE cAfdeling1;
END;
-- Organisatie (afdeling, bedrijf etc. verwijderen lijkt bij deze cust import niet nodig, dus uitgeschakeld).
-- SUBPROC
PROCEDURE add_organisatie_del (
p_import_key IN NUMBER
) IS
BEGIN
fac.imp_prs_delete_organisatie(p_import_key,1);
add_organisatie(p_import_key);
END;
-- PROCEDURE add_organisatie_del (
-- p_import_key IN NUMBER
--) IS
--
--BEGIN
--
-- fac.imp_prs_delete_organisatie(p_import_key,1);
-- add_organisatie(p_import_key);
--
--END;
-- SUBPROC
PROCEDURE update_kostenplaats (p_import_key IN NUMBER)
@@ -2919,7 +2917,7 @@ END;
-- MAIN
BEGIN
add_organisatie (p_import_key);
add_organisatie_del (p_import_key);
-- add_organisatie_del (p_import_key);
update_kostenplaats (p_import_key);
EXCEPTION
WHEN OTHERS
@@ -5557,7 +5555,10 @@ CREATE OR REPLACE VIEW DVON_V_RAP_ORGKOST
Limiet_periode
)
AS
SELECT pb.prs_bedrijf_naam,
SELECT (SELECT pb.prs_bedrijf_naam
FROM prs_bedrijf pb
WHERE pb.prs_bedrijf_key = 21)
bedrijf,
par.prs_afdeling_naam,
pa.prs_afdeling_naam,
pa.prs_afdeling_omschrijving,
@@ -5591,19 +5592,16 @@ AS
pkg.prs_kostenplaatsgrp_limiet,
DECODE (pkg.prs_kostenplaatsgrp_limperiode, 1, 'M', 2, 'J', 0)
FROM prs_afdeling pa,
prs_bedrijf pb,
prs_kostenplaats pk,
prs_kostenplaatsgrp pkg,
(SELECT prs_afdeling_key, prs_afdeling_naam FROM prs_afdeling) par
WHERE pa.prs_bedrijf_key = pb.prs_bedrijf_key(+)
AND pa.prs_afdeling_parentkey = par.prs_afdeling_key(+)
WHERE pa.prs_afdeling_parentkey = par.prs_afdeling_key(+)
AND pa.prs_kostenplaats_key = pk.prs_kostenplaats_key
AND pk.prs_kostenplaatsgrp_key = pkg.prs_kostenplaatsgrp_key(+)
AND pb.prs_bedrijf_verwijder IS NULL
AND pk.prs_kostenplaats_verwijder IS NULL
AND pa.prs_afdeling_verwijder IS NULL;
-- t.b.v. de import CATARTIKEL, IN TESTFASE!!
-- t.b.v. de import CATARTIKEL
CREATE OR REPLACE VIEW dvon_v_rap_impcatartikel
(
catalogusnaam,