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

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

Browse Source
This commit is contained in:
Arthur Egberink
2010-10-20 09:02:42 +00:00
parent 8f64083612
commit 837f631419
1 changed files with 181 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

184
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv
-- $Revision: 156 $
-- $Modtime: 19-10-10 13:18 $
-- $Revision: 157 $
-- $Modtime: 20-10-10 10:04 $
--
-- Support: +31 53 4800710
@@ -5879,6 +5879,184 @@ SELECT 'OBJINF',
OR (t1.aantal_objecten > (t1.binnen + t1.buiten)) -- Indien er nog geen waarde is ingevuld dan altijd melding
ORDER BY 2;
--------------------------
--
-- Afmeldprocedures voor bestellingen en opdrachten
--
--------------------------
CREATE OR REPLACE PROCEDURE CONN_EXPORT_AFM_BESTEL (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
AS
CURSOR c1
IS
SELECT DISTINCT bi.bes_bestelling_key, bes_bestelling_item_key
FROM bes_bestelling_item bi,
bes_bestelling b,
ins_srtdeel sd,
ins_srtgroep sg,
bes_disc_params bdp
WHERE bi.bes_bestelling_key = b.bes_bestelling_key
AND bes_bestelling_datum <
SYSDATE - bdp.bes_disc_params_noti_dagen - 14
AND bes_bestelling_status IN (3, 4, 5) -- (gefiatteerd, geaccepteerd, besteld)
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = bdp.bes_ins_discipline_key
AND bdp.bes_disc_params_noti_dagen IS NOT NULL;
CURSOR c2 (p_bes_bestelling_item_key IN number
)
IS
SELECT DISTINCT
bo.bes_bestelopdr_key,
boi.bes_bestelopdr_item_key,
bes_bestelling_item_key,
bes_bestelopdr_id
FROM bes_bestelopdr bo, bes_bestelopdr_item boi, bes_bestelling_item bi
WHERE bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_item_key = p_bes_bestelling_item_key;
rec1 c1%ROWTYPE;
rec2 c2%ROWTYPE;
v_errormsg VARCHAR2 (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
FOR rec1 IN c1
LOOP
BEGIN
FOR rec2 IN c2 (rec1.bes_bestelling_item_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 = rec2.bes_bestelopdr_item_key;
BEGIN
bes.updatebestelopdrstatus (rec2.bes_bestelopdr_key, 1042);
END;
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 || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Bestelopdracht:'|| rec2.bes_bestelopdr_id);
END;
END LOOP;
DBMS_OUTPUT.put_line ('rec1 item: ' || rec1.bes_bestelling_item_key);
UPDATE bes_bestelling_item
SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal
WHERE bes_bestelling_item_key = rec1.bes_bestelling_item_key;
UPDATE bes_bestelling_item bi
SET bes_bestelling_item_status = 6 -- geleverd
WHERE COALESCE (bi.bes_bestelling_item_aantal, 0) =
COALESCE (bi.bes_bestelling_item_aantalontv, 0)
AND bes_bestelling_item_status = 5; -- besteld
BEGIN
bes.updatebestellingstatus (rec1.bes_bestelling_key, 1042);
END;
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 || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Bestelling:'|| rec1.bes_bestelling_key);
END;
END LOOP;
COMMIT;
END;
/
CREATE OR REPLACE PROCEDURE CONN_EXPORT_AFM_OPDRACHT (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
AS
CURSOR c_opdr
IS
SELECT mld_opdr_key, mld_opdr_bedrijfopdr_volgnr, o.mld_melding_key
FROM mld_opdr o, mld_melding m, mld_disc_params dp
WHERE mld_statusopdr_key = 5 -- uitgegeven
AND m.mld_ins_discipline_key = dp.mld_ins_discipline_key
AND o.mld_melding_key = m.mld_melding_key
AND o.mld_opdr_datumbegin < SYSDATE - dp.mld_disc_params_noti_dagen - 14;
CURSOR c_melding
IS
SELECT DISTINCT m.mld_melding_key
FROM mld_melding m, mld_opdr o, fac_tracking t, fac_srtnotificatie sn
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_opdr_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code = 'ORDAFM'
AND trunc(t.fac_tracking_datum) = trunc(sysdate)
AND NOT EXISTS (SELECT m.mld_melding_key
FROM mld_opdr op
WHERE op.mld_statusopdr_key = 5 -- uitgegeven
AND m.mld_melding_key = op.mld_melding_key);
rec1 c_opdr%ROWTYPE;
rec2 c_melding%ROWTYPE;
v_errormsg VARCHAR2 (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
FOR rec1 IN c_opdr
LOOP
BEGIN
mld.setopdrachtstatus(rec1.mld_opdr_key, 6, 1024); -- status afgemeld , user mhanemaa
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 || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Opdracht:'|| rec1.mld_melding_key || '/' || rec1.mld_opdr_bedrijfopdr_volgnr);
END;
END LOOP;
FOR rec2 IN c_melding
LOOP
BEGIN
mld.setmeldingstatus(rec2.mld_melding_key, 5, 1024); -- status afgemeld , user mhanemaa
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 || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, 'Melding:'|| rec2.mld_melding_key);
END;
END LOOP;
COMMIT;
END;
/
CREATE OR REPLACE VIEW conn_v_export_contractmutatie as
SELECT
bedrijfsnummer
@@ -6939,7 +7117,7 @@ AS
BEGIN fac.registercustversion('CONN', 40); END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 156 $', 0); END;
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 157 $', 0); END;
/
COMMIT;