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

svn path=/Customer/trunk/; revision=14017

Browse Source
This commit is contained in:
Arthur Egberink
2009-12-20 20:23:32 +00:00
parent f5a517c6c6
commit 7a9869ed4d
1 changed files with 31 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
CONN/Once/CONN36.sql
View File

@@ -4,7 +4,7 @@
SET ECHO ON
SET DEFINE OFF;
SPOOL xconn36.lst
PROMPT $Revision: 1 $
PROMPT $Revision: 2 $
CREATE TABLE conn_tmp_import_afd (
oud VARCHAR2 (100),
@@ -3302,10 +3302,14 @@ DECLARE
v_rec2 c2%ROWTYPE;
v_afdeling_key NUMBER;
v_afdeling_count NUMBER;
ORACLE_err_num NUMBER;
ORACLE_err_mes VARCHAR2(100);
v_hint VARCHAR2(100);
BEGIN
FOR v_rec1 IN c1
LOOP
BEGIN
v_hint:='bepaling divisie:'||v_rec1.nieuw_div;
SELECT prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling
@@ -3313,6 +3317,7 @@ BEGIN
AND prs_bedrijf_key IS NOT NULL
AND prs_afdeling_upper = UPPER (v_rec1.nieuw_div);
v_hint:='aanpassen afdeling key=:' || v_rec1.prs_afdeling_key || ' afd nieuw:'|| v_rec1.nieuw ||'afd oud:' || v_rec1.oud;
UPDATE prs_afdeling
SET prs_afdeling_naam = v_rec1.nieuw,
prs_afdeling_omschrijving = v_rec1.nieuw_oms,
@@ -3323,12 +3328,22 @@ BEGIN
|| v_rec1.oud
|| ' wordt:'
|| v_rec1.nieuw);
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
v_hint
);
END;
END LOOP;
FOR v_rec2 IN c2
LOOP
BEGIN
v_hint:='bepaling aantal afdelingen:'||v_rec2.nieuw;
SELECT COUNT (prs_afdeling_key)
INTO v_afdeling_count
FROM prs_afdeling
@@ -3336,6 +3351,7 @@ BEGIN
AND prs_bedrijf_key IS NULL
AND prs_afdeling_upper = UPPER (v_rec2.nieuw);
v_hint:='aantal afdelingen:'||v_rec2.nieuw || ' aantal:' || v_afdeling_count;
IF v_afdeling_count = 0
THEN
SELECT prs_afdeling_key
@@ -3350,6 +3366,7 @@ BEGIN
|| ' wordt:'
|| v_afdeling_key);
v_hint:='toevoegen afdeling:'||v_rec2.nieuw || ' parent:' || v_afdeling_key;
INSERT INTO prs_afdeling
(
prs_afdeling_parentkey,
@@ -3359,11 +3376,24 @@ BEGIN
)
VALUES (v_afdeling_key, NULL, v_rec2.nieuw, v_rec2.nieuw_oms);
END IF;
EXCEPTION WHEN OTHERS THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.imp_writelog ('CONVERSIE_ORG',
to_char(sysdate, 'yyyymmdd-hhmiss'),
'E',
'(ORACLE error ' || to_char(oracle_err_num) || '/' || oracle_err_mes || ')',
v_hint
);
END;
END LOOP;
END;
/
SELECT * FROM imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
DELETE imp_log WHERE imp_log_applicatie = 'CONVERSIE_ORG';
COMMIT;
SPOOL OFF