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

MDUX#65545 Automatisch geleverd melden bestellingen huurauto's

Browse Source 
svn path=/Customer/trunk/; revision=49866
This commit is contained in:
Sander Schepers
2021-02-16 12:40:47 +00:00
parent 571e0ed431
commit e9fb9b0955
1 changed files with 97 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
MDUX/mdux.sql
View File

@@ -2132,6 +2132,8 @@ AS
totaal
FROM bes_bestelopdr_item) boi,
bes_bestelling_item bi,
bes_srtdeel sd,
bes_srtgroep sg,
prs_perslid p1,
prs_perslid p2,
prs_v_perslid_fullnames p3,
@@ -2170,13 +2172,17 @@ AS
AND p2.prs_afdeling_key = p1.prs_afdeling_key
AND p3.prs_perslid_key = bes.prs_perslid_key_voor
AND bo.prs_bedrijf_key = bdr.prs_bedrijf_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key NOT IN (221) -- Huurauto's uitgesloten (MDUX#65545)
GROUP BY bo.bes_bestelopdr_key,
bo.bes_bestelopdr_id,
p3.prs_perslid_naam_friendly,
bes.bes_bestelling_datum,
bes_bestelling_leverdatum,
bdr.prs_bedrijf_naam,
p1.prs_perslid_key
p1.prs_perslid_key,
sg.ins_discipline_key
ORDER BY 2;
CREATE OR REPLACE VIEW MDUX_V_NOTI_BES_LEV_REMINDER
@@ -5001,6 +5007,96 @@ AS
WHERE t.fac_srtnotificatie_key = 161 --PRSKPU wijziging kostenplaats
AND t.fac_tracking_refkey = a.prs_afdeling_key
AND t.fac_tracking_oms LIKE '%prs_afdeling_naam%';
CREATE OR REPLACE PROCEDURE mdux_export_huurautos (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
-- In cursor chuurautos staan alle bestellingen en bestelopdracht-items die op status geleverd kunnen worden gezet.
CURSOR chuurautos
IS
SELECT bes.bes_bestelling_key,
bi.bes_bestelling_item_key,
bo.bes_bestelopdr_key,
boi.bes_bestelopdr_item_key,
bes_bestelling_status
FROM bes_bestelopdr bo,
bes_bestelling bes,
bes_bestelopdr_item boi,
bes_bestelling_item bi,
bes_srtdeel sd,
bes_srtgroep sg,
mld_adres ma
WHERE bo.bes_bestelopdr_status IN (4, 5)
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
AND bes.bes_bestelling_key = bi.bes_bestelling_key
AND bes.mld_adres_key_lev = ma.mld_adres_key
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = 221; -- Huurauto's
v_errormsg VARCHAR (200);
v_errorhint VARCHAR (200);
v_error NUMBER (1);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
v_errormsg := 'Geen huurautos gevonden om af te melden';
--De bestelopdracht-items geleverd melden
FOR rec IN chuurautos
LOOP
BEGIN
UPDATE bes_bestelopdr_item
SET bes_bestelopdr_item_aantalontv = bes_bestelopdr_item_aantal,
bes_bestelopdr_item_ontvangen = SYSDATE,
bes_bestelopdr_item_status = 6
WHERE (bes_bestelopdr_item_status IN (4, 5)
OR bes_bestelopdr_item_status IS NULL)
AND bes_bestelopdr_item_key = rec.bes_bestelopdr_item_key;
--De bestelaanvraag-items geleverd melden
UPDATE bes_bestelling_item
SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal,
bes_bestelling_item_status = 6
WHERE bes_bestelling_item_key = rec.bes_bestelling_item_key;
--De bestelopdracht geleverd melden
UPDATE bes_bestelopdr
SET bes_bestelopdr_status = 6
WHERE bes_bestelopdr_key = rec.bes_bestelopdr_key;
fac.trackaction ('BES2AF',
rec.bes_bestelopdr_key,
NULL,
NULL,
'Bestelopdracht automatisch geleverd gemeld');
--De bestelaanvraag geleverd melden
UPDATE bes_bestelling
SET bes_bestelling_status = 6
WHERE bes_bestelling_status IN (4, 5)
AND bes_bestelling_key = rec.bes_bestelling_key;
fac.trackaction ('BESOTV',
rec.bes_bestelling_key,
NULL,
NULL,
'Bestelaanvraag automatisch geleverd gemeld');
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
END;
/
------ payload end ------