diff --git a/STCH/stch.sql b/STCH/stch.sql index d3d069696..8e00a99f6 100644 --- a/STCH/stch.sql +++ b/STCH/stch.sql @@ -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