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

CONN#13583

Browse Source 
svn path=/Customer/trunk/; revision=13474
This commit is contained in:
Arthur Egberink
2007-12-10 09:21:16 +00:00
parent 6b527e218c
commit 9b007d3f8b
8 changed files with 370 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
CONN/Afmeldscripts/.gitignore vendored
View File

52
CONN/Afmeldscripts/Afm#Vis.sql Normal file
View File

@@ -0,0 +1,52 @@
SET SERVEROUTPUT ON
DECLARE
afmelddatum DATE;
count_mld NUMBER;
count_opdr NUMBER;
BEGIN
afmelddatum := SYSDATE;
UPDATE mld_opdr
SET mld_statusopdr_key = 6,
mld_opdr_datumuitgevoerd = afmelddatum,
mld_opdr_afgemeld_user = 1042
WHERE mld_opdr_key IN (
SELECT mld_opdr_key
FROM mld_opdr o, mld_melding m
WHERE mld_statusopdr_key = 5
AND o.mld_melding_key = m.mld_melding_key
AND ( o.mld_opdr_aanmaak < SYSDATE - 60
OR o.mld_opdr_aanmaak IS NULL
)
AND m.mld_ins_discipline_key = 561);
UPDATE mld_melding m
SET mld_melding_afgemeld_user = 1042,
mld_melding_afgemeld = afmelddatum
WHERE mld_melding_key IN (SELECT DISTINCT mld_melding_key
FROM mld_opdr o
WHERE mld_opdr_datumuitgevoerd =
afmelddatum)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr o
WHERE mld_statusopdr_key = 5
AND m.mld_melding_key = o.mld_melding_key);
SELECT count(mld_melding_key)
INTO count_mld
FROM mld_melding
WHERE mld_melding_afgemeld = afmelddatum;
SELECT count(mld_opdr_key)
INTO count_opdr
FROM mld_opdr
WHERE mld_opdr_datumuitgevoerd = afmelddatum;
DBMS_OUTPUT.PUT_LINE('Aantal meldingen afgemeld: ' || count_mld );
DBMS_OUTPUT.PUT_LINE('Aantal opdrachten afgemeld: ' || count_opdr );
END;
/
COMMIT ;

104
CONN/Afmeldscripts/Afm#bestellingen.sql Normal file
View File

@@ -0,0 +1,104 @@
DECLARE
CURSOR c_cursor
IS
SELECT DISTINCT b.bes_bestelopdr_key
FROM bes_bestelopdr b, bes_bestelopdrstatuses s, prs_bedrijf be
WHERE be.prs_bedrijf_key = b.prs_bedrijf_key and (0=0)
AND b.bes_bestelopdr_status = s.bes_bestelopdrstatuses_key
AND b.bes_bestelopdr_key IN (
SELECT bes_bestelopdr_key
FROM bes_bestelling_item
WHERE bes_bestelling_key IN (
SELECT bes_bestelling_key
FROM bes_bestelling))
AND b.bes_bestelopdr_key IN (
SELECT bes_bestelopdr_key
FROM bes_bestelling_item
WHERE bes_bestelling_key IN (
SELECT bes_bestelling_key
FROM bes_bestelling
WHERE bes_bestelling_datum < sysdate - 40
AND bes_bestelling_status IN
(3, 4, 5)));
CURSOR c_cursor2 (pBestelopdr_key IN NUMBER)
IS
SELECT boi.bes_bestelopdr_item_key, bi.bes_bestelling_item_key
FROM ins_tab_discipline d,
ins_srtgroep g,
bes_mod_rep r,
ins_srtdeel s,
prs_bedrijf bd,
bes_bestelopdr b,
mld_adres m,
bes_bestelling_item bi,
bes_bestelopdr_item boi,
bes_bestelling bes
WHERE ( d.ins_discipline_module = 'REP'
OR d.ins_discipline_module = 'BES'
)
AND (0=0)
AND d.ins_discipline_verwijder IS NULL
AND d.ins_discipline_key = g.ins_discipline_key
AND g.ins_srtgroep_key = s.ins_srtgroep_key
AND s.ins_srtdeel_key = bi.ins_srtdeel_key
AND s.ins_srtdeel_key = boi.ins_srtdeel_key
AND bi.bes_bestelling_key = bes.bes_bestelling_key
AND b.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND bi.bes_bestelopdr_key = b.bes_bestelopdr_key
AND s.prs_bedrijf_key = bd.prs_bedrijf_key
AND m.mld_adres_key(+) = b.mld_adres_key_lev
AND r.bes_bestelling_item_key(+) = bi.bes_bestelling_item_key
AND b.bes_bestelopdr_key = pBestelopdr_key;
next_record c_cursor%ROWTYPE;
next_record2 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
FOR next_record2 IN c_cursor2(next_record.bes_bestelopdr_key) LOOP
BEGIN
UPDATE bes_bestelopdr_item b
SET bes_bestelopdr_item_aantalontv = bes_bestelopdr_item_aantal
,bes_bestelopdr_item_ontvangen = SYSDATE
WHERE bes_bestelopdr_item_key = next_record2.bes_bestelopdr_item_key;
UPDATE bes_bestelling_item
SET BES_BESTELLING_ITEM_AANTALONTV = bes_bestelling_item_aantal
WHERE bes_bestelling_item_key = next_record2.bes_bestelling_item_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
|| ')';
END;
END LOOP;
END;
END LOOP;
commit;
END;
/

6
CONN/Afmeldscripts/Afm#huurmut.sql Normal file
View File

@@ -0,0 +1,6 @@
update mld_melding set mld_melding_status = 5, mld_melding_afgemeld = sysdate, mld_melding_afgemeld_user = 1042
where mld_melding_status = 4
and mld_melding_datum < to_date ('20051201', 'yyyymmdd')
and mld_ins_discipline_key = 589;
commit;

52
CONN/Afmeldscripts/Afm#incid.sql Normal file
View File

@@ -0,0 +1,52 @@
SET SERVEROUTPUT ON
DECLARE
afmelddatum DATE;
count_mld NUMBER;
count_opdr NUMBER;
BEGIN
afmelddatum := SYSDATE;
UPDATE mld_opdr
SET mld_statusopdr_key = 6,
mld_opdr_datumuitgevoerd = afmelddatum,
mld_opdr_afgemeld_user = 1042
WHERE mld_opdr_key IN (
SELECT mld_opdr_key
FROM mld_opdr o, mld_melding m
WHERE mld_statusopdr_key = 5
AND o.mld_melding_key = m.mld_melding_key
AND ( o.mld_opdr_aanmaak < SYSDATE - 60
OR o.mld_opdr_aanmaak IS NULL
)
AND m.mld_ins_discipline_key = 562);
UPDATE mld_melding m
SET mld_melding_afgemeld_user = 1042,
mld_melding_afgemeld = afmelddatum
WHERE mld_melding_key IN (SELECT DISTINCT mld_melding_key
FROM mld_opdr o
WHERE mld_opdr_datumuitgevoerd =
afmelddatum)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr o
WHERE mld_statusopdr_key = 5
AND m.mld_melding_key = o.mld_melding_key);
SELECT count(mld_melding_key)
INTO count_mld
FROM mld_melding
WHERE mld_melding_afgemeld = afmelddatum;
SELECT count(mld_opdr_key)
INTO count_opdr
FROM mld_opdr
WHERE mld_opdr_datumuitgevoerd = afmelddatum;
DBMS_OUTPUT.PUT_LINE('Aantal meldingen afgemeld: ' || count_mld );
DBMS_OUTPUT.PUT_LINE('Aantal opdrachten afgemeld: ' || count_opdr );
END;
/
COMMIT ;

52
CONN/Afmeldscripts/Afm#opdrachten.sql Normal file
View File

@@ -0,0 +1,52 @@
SET SERVEROUTPUT ON
DECLARE
afmelddatum DATE;
count_mld NUMBER;
count_opdr NUMBER;
BEGIN
afmelddatum := SYSDATE;
UPDATE mld_opdr
SET mld_statusopdr_key = 6,
mld_opdr_datumuitgevoerd = afmelddatum,
mld_opdr_afgemeld_user = 1042
WHERE mld_opdr_key IN (
SELECT mld_opdr_key
FROM mld_opdr o, mld_melding m
WHERE mld_statusopdr_key = 5
AND o.mld_melding_key = m.mld_melding_key
AND ( o.mld_opdr_aanmaak < SYSDATE - 60
OR o.mld_opdr_aanmaak IS NULL
)
AND m.mld_ins_discipline_key = 163);
UPDATE mld_melding m
SET mld_melding_afgemeld_user = 1042,
mld_melding_afgemeld = afmelddatum
WHERE mld_melding_key IN (SELECT DISTINCT mld_melding_key
FROM mld_opdr o
WHERE mld_opdr_datumuitgevoerd =
afmelddatum)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr o
WHERE mld_statusopdr_key = 5
AND m.mld_melding_key = o.mld_melding_key);
SELECT count(mld_melding_key)
INTO count_mld
FROM mld_melding
WHERE mld_melding_afgemeld = afmelddatum;
SELECT count(mld_opdr_key)
INTO count_opdr
FROM mld_opdr
WHERE mld_opdr_datumuitgevoerd = afmelddatum;
DBMS_OUTPUT.PUT_LINE('Aantal meldingen afgemeld: ' || count_mld );
DBMS_OUTPUT.PUT_LINE('Aantal opdrachten afgemeld: ' || count_opdr );
END;
/
COMMIT ;

52
CONN/Afmeldscripts/Afm#opdrachten_conn.sql Normal file
View File

@@ -0,0 +1,52 @@
SET SERVEROUTPUT ON
DECLARE
afmelddatum DATE;
count_mld NUMBER;
count_opdr NUMBER;
BEGIN
afmelddatum := SYSDATE;
UPDATE mld_opdr
SET mld_statusopdr_key = 6,
mld_opdr_datumuitgevoerd = afmelddatum,
mld_opdr_afgemeld_user = 1042
WHERE mld_opdr_key IN (
SELECT mld_opdr_key
FROM mld_opdr o, mld_melding m
WHERE mld_statusopdr_key = 5
AND o.mld_melding_key = m.mld_melding_key
AND ( o.mld_opdr_aanmaak < SYSDATE - 60
OR o.mld_opdr_aanmaak IS NULL
)
AND m.mld_ins_discipline_key = 165);
UPDATE mld_melding m
SET mld_melding_afgemeld_user = 1042,
mld_melding_afgemeld = afmelddatum
WHERE mld_melding_key IN (SELECT DISTINCT mld_melding_key
FROM mld_opdr o
WHERE mld_opdr_datumuitgevoerd =
afmelddatum)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr o
WHERE mld_statusopdr_key = 5
AND m.mld_melding_key = o.mld_melding_key);
SELECT count(mld_melding_key)
INTO count_mld
FROM mld_melding
WHERE mld_melding_afgemeld = afmelddatum;
SELECT count(mld_opdr_key)
INTO count_opdr
FROM mld_opdr
WHERE mld_opdr_datumuitgevoerd = afmelddatum;
DBMS_OUTPUT.PUT_LINE('Aantal meldingen afgemeld: ' || count_mld );
DBMS_OUTPUT.PUT_LINE('Aantal opdrachten afgemeld: ' || count_opdr );
END;
/
COMMIT ;

52
CONN/Afmeldscripts/Afm#opdrachten_schon.sql Normal file
View File

@@ -0,0 +1,52 @@
SET SERVEROUTPUT ON
DECLARE
afmelddatum DATE;
count_mld NUMBER;
count_opdr NUMBER;
BEGIN
afmelddatum := SYSDATE;
UPDATE mld_opdr
SET mld_statusopdr_key = 6,
mld_opdr_datumuitgevoerd = afmelddatum,
mld_opdr_afgemeld_user = 1042
WHERE mld_opdr_key IN (
SELECT mld_opdr_key
FROM mld_opdr o, mld_melding m
WHERE mld_statusopdr_key = 5
AND o.mld_melding_key = m.mld_melding_key
AND ( o.mld_opdr_aanmaak < SYSDATE - 60
OR o.mld_opdr_aanmaak IS NULL
)
AND m.mld_ins_discipline_key = 201);
UPDATE mld_melding m
SET mld_melding_afgemeld_user = 1042,
mld_melding_afgemeld = afmelddatum
WHERE mld_melding_key IN (SELECT DISTINCT mld_melding_key
FROM mld_opdr o
WHERE mld_opdr_datumuitgevoerd =
afmelddatum)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr o
WHERE mld_statusopdr_key = 5
AND m.mld_melding_key = o.mld_melding_key);
SELECT count(mld_melding_key)
INTO count_mld
FROM mld_melding
WHERE mld_melding_afgemeld = afmelddatum;
SELECT count(mld_opdr_key)
INTO count_opdr
FROM mld_opdr
WHERE mld_opdr_datumuitgevoerd = afmelddatum;
DBMS_OUTPUT.PUT_LINE('Aantal meldingen afgemeld: ' || count_mld );
DBMS_OUTPUT.PUT_LINE('Aantal opdrachten afgemeld: ' || count_opdr );
END;
/
COMMIT ;