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

conn#12165

Browse Source 
svn path=/Customer/trunk/; revision=13413
This commit is contained in:
Arthur Egberink
2007-10-18 08:37:20 +00:00
parent 05669e7101
commit 27c54b2bf1
2 changed files with 123 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

121
CONN/Once/OpschonenAfdPrs.sql Normal file
View File

@@ -0,0 +1,121 @@
-- OpschonenAfdPrs.sql
--
--
SET ECHO ON
SPOOL xOpschonenAfdPrs.lst
PROMPT $Revision: 1 $
DECLARE
CURSOR c_cursor
IS
select p.prs_perslid_key from prs_v_verplichting_all v, prs_perslid p
where p.prs_perslid_key = v.prs_perslid_key(+)
and p.prs_perslid_verwijder is not null
and v.prs_perslid_key is null;
next_record c_cursor%ROWTYPE;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1024);
BEGIN
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_PERSLID WHERE PRS_PERSLID_KEY = next_record.prs_perslid_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE PERSOON','BATCH', 'E', sysdate, 'Verwijderen perslid_key: ' || next_record.prs_perslid_key , v_errormsg);
COMMIT;
END;
END LOOP;
commit;
-- verwijderen van personen kan enige tijd duren (+/- 1 uur).
END;
/
DECLARE
CURSOR c_cursor
IS
SELECT DISTINCT prs_afdeling_key, prs_afdeling_omschrijving,prs_afdeling_naam FROM prs_afdeling where prs_afdeling_verwijder is not null;
next_record c_cursor%ROWTYPE;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1024);
BEGIN
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_AFDELING WHERE PRS_AFDELING_KEY = next_record.prs_afdeling_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE AFDELING','BATCH', 'E', sysdate, 'Verwijderen (1e run) afd_key: ' || next_record.prs_afdeling_key , v_errormsg);
COMMIT;
END;
END LOOP;
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_AFDELING WHERE PRS_AFDELING_KEY = next_record.prs_afdeling_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE AFDELING','BATCH', 'E', sysdate, 'Verwijderen (2e run) afd_key: ' || next_record.prs_afdeling_key , v_errormsg);
COMMIT;
END;
END LOOP;
commit;
-- verwijderen van afdelingen kan enige tijd duren (< 1 uur).
END;
/
SPOOL OFF

117
CONN/Once/conn470to471.sql
View File

@@ -3,7 +3,7 @@
--
SET ECHO ON
SPOOL xconn470to471.lst
PROMPT $Revision: 5 $
PROMPT $Revision: 6 $
-- uwva#13142 Vervallen, fac_import_file wordt nu gebruikt
DROP TABLE conn_imp_factuur_file;
@@ -91,120 +91,7 @@ INSERT INTO FAC_NOTIFICATIE_JOB
2,
2184, -- 91 dagen * 24 uur = 2184 dagen
TO_DATE('2007-09-15', 'YYYY-MM-DD HH24:MI')
)
DECLARE
CURSOR c_cursor
IS
select p.prs_perslid_key from prs_v_verplichting_all v, prs_perslid p
where p.prs_perslid_key = v.prs_perslid_key(+)
and p.prs_perslid_verwijder is not null
and v.prs_perslid_key is null;
next_record c_cursor%ROWTYPE;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1024);
BEGIN
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_PERSLID WHERE PRS_PERSLID_KEY = next_record.prs_perslid_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE PERSOON','BATCH', 'E', sysdate, 'Verwijderen perslid_key: ' || next_record.prs_perslid_key , v_errormsg);
COMMIT;
END;
END LOOP;
commit;
-- verwijderen van personen kan enige tijd duren (+/- 1 uur).
END;
/
DECLARE
CURSOR c_cursor
IS
SELECT DISTINCT prs_afdeling_key, prs_afdeling_omschrijving,prs_afdeling_naam FROM prs_afdeling where prs_afdeling_verwijder is not null;
next_record c_cursor%ROWTYPE;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1024);
BEGIN
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_AFDELING WHERE PRS_AFDELING_KEY = next_record.prs_afdeling_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE AFDELING','BATCH', 'E', sysdate, 'Verwijderen (1e run) afd_key: ' || next_record.prs_afdeling_key , v_errormsg);
COMMIT;
END;
END LOOP;
FOR next_record IN c_cursor LOOP
BEGIN
DELETE PRS_AFDELING WHERE PRS_AFDELING_KEY = next_record.prs_afdeling_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
INSERT INTO IMP_LOG(IMP_LOG_APPLICATIE, IMP_LOG_RUN, IMP_LOG_STATUS, IMP_LOG_DATUM, IMP_LOG_OMSCHRIJVING, IMP_LOG_HINT)
values
('DELETE AFDELING','BATCH', 'E', sysdate, 'Verwijderen (2e run) afd_key: ' || next_record.prs_afdeling_key , v_errormsg);
COMMIT;
END;
END LOOP;
commit;
-- verwijderen van afdelingen kan enige tijd duren (< 1 uur).
END;
/
);
ALTER TABLE conn_imp_factuur ADD (locatie VARCHAR2(4), afleverdatum VARCHAR2(8));