STCH#54706 -- Fix voor Strukton koppeling

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

STCH/stch.sql

@@ -203,7 +203,8 @@ AS
           mld_stdmelding s,
           mld_discipline md,
           prs_kostenplaats pk,
-          prs_bedrijf pb
+          prs_bedrijf pb,
+          mld_kenmerkopdr mk
     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
@@ -211,9 +212,66 @@ AS
           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 = mk.mld_opdr_key
+          AND mk.mld_kenmerk_key = 1603
+          AND mk.mld_kenmerkopdr_waarde = '142' -- Goedgekeurd = Ja
           AND trunc (mld.getopdrachtstatusdate (mo.mld_opdr_key, 9)) > trunc (sysdate - 8)
           AND mo.mld_opdr_kosten IS NOT NULL
           AND mo.mld_opdr_kosten NOT LIKE '0';
+          
+CREATE OR REPLACE VIEW stch_v_rap_sapchecklist
+(
+   MLD_OPDR_KEY,
+   CONTRACT_NUMMER,
+   EXTERN_NUMMER,
+   UITVOERENDE,
+   BEDRAG,
+   KOSTENPLAATS,
+   KOSTENPLAATS_CODE,
+   OPDRACHTNR,
+   GOEDGEKEURD,
+   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 = 1603) 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 - 8)
+          AND mo.mld_opdr_kosten IS NOT NULL
+          AND mo.mld_opdr_kosten NOT LIKE '0';
 
 CREATE OR REPLACE VIEW stch_v_export_sap
 (
@@ -283,7 +341,7 @@ AS
     SELECT '</ns0:MT_SES>', 3 FROM DUAL;
        
 --Strukton koppeling   
-CREATE OR REPLACE PROCEDURE aaxx_import_opdrstat_strukton (
+CREATE OR REPLACE PROCEDURE stch_import_opdrstat_strukton (
    p_import_key IN NUMBER)
 AS
    c_delim                VARCHAR2 (1) := ';';
@@ -319,7 +377,7 @@ AS
       ORDER BY fac_imp_file_index;
 BEGIN
    -- Eerst opruiming
-   DELETE FROM aaxx_imp_opdrstat_strukton;
+   DELETE FROM stch_imp_opdrstat_strukton;
 
    COMMIT;
 
@@ -495,7 +553,7 @@ BEGIN
                      || v_aanduiding
                      || ']';
 
-                  INSERT INTO aaxx_imp_opdrstat_strukton (mld_opdr_key,
+                  INSERT INTO stch_imp_opdrstat_strukton (mld_opdr_key,
                                                           extern_nummer,
                                                           status,
                                                           datumtijd,
@@ -523,7 +581,7 @@ BEGIN
                         p_import_key,
                         'E',
                         v_aanduiding || v_errormsg,
-                        'Fout bij toevoegen regel aan importtabel aaxx_imp_opdr_status_strukton.');
+                        'Fout bij toevoegen regel aan importtabel stch_imp_opdr_status_strukton.');
                END;
             ELSE
                IF v_status_code <> '40' AND v_status_code <> '45'
@@ -566,7 +624,7 @@ EXCEPTION
 END;
 /
 
-CREATE OR REPLACE PROCEDURE aaxx_update_opdrstat_strukton (p_import_key IN NUMBER)
+CREATE OR REPLACE PROCEDURE stch_update_opdrstat_strukton (p_import_key IN NUMBER)
 AS
    -- Cursor loopt - in volgorde! - over alle ingelezen opdrachtstatusberichten.
    CURSOR c1
@@ -576,7 +634,7 @@ AS
                datumtijd,
                status,
                opmerking
-          FROM aaxx_imp_opdrstat_strukton
+          FROM stch_imp_opdrstat_strukton
       ORDER BY 1, 3;
 
    v_errormsg       VARCHAR2 (1000);
@@ -599,9 +657,9 @@ BEGIN
 
    -- Stel de key in van het srtkenmerk 'Ref. Nr. Leverancier'. Hier wordt
    -- het nummer dat Strukton aan de call gegeven heeft geregistreerd.
-
    v_mld_srtkenmerk_key := 123;
 
+
    v_user_key := 10;  -- Strukton user
 
    FOR rec IN c1
@@ -696,7 +754,6 @@ BEGIN
                IF rec.status = 6 AND v_opdr_status <> 6
                THEN
                   v_errormsg := 'Fout bij statusaanpassing melding.';
-                  -- Sinds AADO#30922 wordt de melding niet meer automatisch afgemeld.
                   MLD.updatemeldingstatusAV (v_mld_key, 0, v_user_key, 0);
                END IF;
             END IF;
@@ -724,7 +781,7 @@ BEGIN
 
    COMMIT;
 END;
-/     
+/
 
 -- Rapportage voor login
 CREATE OR REPLACE VIEW STCH_V_RAP_NOLOGIN