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

STCH#62986 -- Aanpassingen SAP checklist

Browse Source 
STCH#62831 -- Update notificatie technische leveranciers

svn path=/Customer/trunk/; revision=47302
This commit is contained in:
Robin Stoker
2020-07-02 14:29:40 +00:00
parent 575a4154ac
commit 216ce385f7
1 changed files with 48 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
STCH/stch.sql
View File

@@ -355,45 +355,48 @@ CREATE OR REPLACE VIEW stch_v_rap_sapchecklist
OPDRACHT_AFGEROND
)
AS
SELECT mo.mld_opdr_key,
cn.cnt_contract_nummer,
cn.cnt_contract_nummer_intern,
pb.prs_bedrijf_naam,
mo.mld_opdr_kosten,
pk.prs_kostenplaats_omschrijving,
pk.prs_kostenplaats_nr,
sd.ins_srtdiscipline_prefix
|| TO_CHAR (m.mld_melding_key)
|| '/'
|| mo.mld_opdr_bedrijfopdr_volgnr,
DECODE (sub.mld_kenmerkopdr_waarde,
'142', 'Ja',
'143', 'Nee',
'Leeg'),
mld.getopdrachtstatusdate (mo.mld_opdr_key, 9)
FROM mld_opdr mo,
cnt_contract cn,
mld_melding m,
ins_srtdiscipline sd,
mld_stdmelding s,
mld_discipline md,
prs_kostenplaats pk,
prs_bedrijf pb,
(SELECT mld_opdr_key, mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr
WHERE mld_kenmerk_key IN (1621, 1641, 1642)) sub
WHERE mo.cnt_contract_key = cn.cnt_contract_key(+)
AND m.mld_melding_key = mo.mld_melding_key(+)
AND s.mld_stdmelding_key = m.mld_stdmelding_key
AND md.ins_discipline_key = s.mld_ins_discipline_key
AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND mo.prs_kostenplaats_key = pk.prs_kostenplaats_key
AND mo.mld_uitvoerende_keys = pb.prs_bedrijf_key
AND mo.mld_opdr_key = sub.mld_opdr_key(+)
AND TRUNC (mld.getopdrachtstatusdate (mo.mld_opdr_key, 9)) >
TRUNC (SYSDATE - 14)
AND mo.mld_opdr_kosten IS NOT NULL
AND mo.mld_opdr_kosten NOT LIKE '0';
SELECT mo.mld_opdr_key,
cn.cnt_contract_nummer,
cn.cnt_contract_nummer_intern,
pb.prs_bedrijf_naam,
mo.mld_opdr_kosten,
pk.prs_kostenplaats_omschrijving,
pk.prs_kostenplaats_nr,
sd.ins_srtdiscipline_prefix
|| TO_CHAR (m.mld_melding_key)
|| '/'
|| mo.mld_opdr_bedrijfopdr_volgnr,
DECODE (sub.mld_kenmerkopdr_waarde, '143', 'Nee', 'Leeg'),
mld.getopdrachtstatusdate (mo.mld_opdr_key, 9)
FROM mld_opdr mo,
cnt_contract cn,
mld_melding m,
ins_srtdiscipline sd,
mld_stdmelding s,
mld_discipline md,
prs_kostenplaats pk,
prs_bedrijf pb,
(SELECT mld_opdr_key, mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr
WHERE mld_kenmerk_key IN (1621, 1641, 1642)) sub
WHERE mo.cnt_contract_key = cn.cnt_contract_key(+)
AND m.mld_melding_key = mo.mld_melding_key(+)
AND s.mld_stdmelding_key = m.mld_stdmelding_key
AND md.ins_discipline_key = s.mld_ins_discipline_key
AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND mo.prs_kostenplaats_key = pk.prs_kostenplaats_key
AND mo.mld_uitvoerende_keys = pb.prs_bedrijf_key
AND mo.mld_opdr_key = sub.mld_opdr_key(+)
AND TRUNC (mld.getopdrachtstatusdate (mo.mld_opdr_key, 9)) >
TRUNC (SYSDATE - 365)
AND mo.mld_opdr_kosten IS NOT NULL
AND mo.mld_opdr_kosten NOT LIKE '0'
AND NOT EXISTS
(SELECT 1
FROM mld_kenmerkopdr
WHERE mld_opdr_key = mo.mld_opdr_key
AND mld_kenmerk_key IN (1621, 1641, 1642)
AND mld_kenmerkopdr_waarde LIKE '%142%');
CREATE OR REPLACE VIEW stch_v_export_sap
(
@@ -502,7 +505,6 @@ AS
AND o.mld_uitvoerende_keys = 50422
AND o.mld_typeopdr_key = mo.mld_typeopdr_key;
-- Wijzigingen in Strukton koppeling nog even niet naar PROD
/*
--Strukton koppeling
CREATE OR REPLACE PROCEDURE stch_import_opdrstat_strukton (
@@ -561,6 +563,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_datumtijd_tekst);
fac.imp_getfield (v_newline, c_delim, v_status_tekst);
fac.imp_getfield (v_newline, c_delim, v_opmerking);
fac.imp_getfield (v_newline, c_delim, v_totaal_str);
v_opmerking := substr(v_opmerking, 1, 1000);
-- verwijder de markering voor cr/lf die we zelf in de stylesheet toegevoegd hebben.
v_opmerking := replace(v_opmerking, '@@',CHR (13));
@@ -825,7 +828,6 @@ AS
v_mld_srtkenmerk_key NUMBER (10);
v_goedgekeurd NUMBER (10);
v_opdrgoed_key NUMBER (10);
v_opdrkosten NUMBER (12,2);
BEGIN
-- Loop door alle geimporteerde opdrachtstatusberichten en verwerk deze.
@@ -849,7 +851,6 @@ BEGIN
|| '] ';
v_count_tot := v_count_tot + 1;
v_count := 0;
v_opdrkosten := rec.totaal;
-- Key van melding/opdracht bepalen en externnr bij opdracht opslaan.
IF (rec.mld_opdr_key IS NOT NULL)
@@ -944,10 +945,11 @@ BEGIN
fac.trackaction ('ORDUPD', v_opdr_key, NULL, SYSDATE, 'Goedgekeurd: --> Ja');
END IF;
-- Het totaalbedrag mag nu ook worden weggeschreven, dit is immers al goedgekeurd.
UPDATE mld_opdr SET mld_opdr_kosten = v_opdrkosten WHERE mld_opdr_key = v_opdr_key;
UPDATE mld_opdr SET mld_opdr_materiaal = rec.totaal,
mld_opdr_kosten = rec.totaal
WHERE mld_opdr_key = v_opdr_key;
-- Meld de opdracht kostentechnisch gereed wanneer deze was afgemeld
MLD.setopdrachtstatus (v_opdr_key, 9, v_user_key); -- Facilitor
fac.trackaction ('ORDAFR', v_opdr_key, NULL, SYSDATE, NULL);
ELSIF rec.status = 1 AND v_opdr_status = 5
THEN
-- Opdracht is afgewezen op het moment dat de opdracht nog niet geaccepteerd is.
@@ -991,6 +993,7 @@ BEGIN
COMMIT;
END;
/
*/
-- Rapportage voor login
@@ -2003,6 +2006,7 @@ AS
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND f.fac_usrtab_key = 661
AND f.fac_usrdata_code = b.prs_bedrijf_key
AND t.fac_srtnotificatie_key = 131 -- ORDSNT
AND t.fac_tracking_datum BETWEEN (SELECT fac_notificatie_job_nextrun
- fac_notificatie_job_interval
/ 24