YASK#91270 Rabobank proforma exporteren & verwerken van district naar regio

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

YASK/yask.sql

@@ -4959,7 +4959,7 @@ CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_opdr (p_applname IN VAR
 AS
    CURSOR c 
    IS
-   SELECT *
+   SELECT mld_opdr_key
      FROM mld_opdr o, mld_typeopdr ot
     WHERE mld_statusopdr_key = 9 AND o.mld_typeopdr_key = ot.mld_typeopdr_key AND ot.mld_typeopdr_code = 'CONTRACTMUTATIE';
     
@@ -4971,7 +4971,7 @@ BEGIN
       v_kenmerk_key := VBXX.get_kenmerk_key('OPD', rec.mld_opdr_key, 'STARTVEREKENING');
       FLX.setflex('OPD', v_kenmerk_key, rec.mld_opdr_key, TO_CHAR(ADD_MONTHS(TRUNC(SYSDATE, 'MM'),-1), 'dd-mm-yyyy'));
       MLD.setopdrachtstatus (rec.mld_opdr_key, 7, NULL);   -- Verwerkt
-   END;
+   END LOOP;
 END;
 /
 
@@ -4981,7 +4981,7 @@ CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_melding (p_applname IN
 AS
    CURSOR c 
    IS
-SELECT *
+SELECT m.mld_melding_key
   FROM mld_melding m, mld_stdmelding std
  WHERE     m.mld_stdmelding_key = std.mld_stdmelding_key
        AND mld_melding_status = 5                                                                            -- afgemeld
@@ -4995,7 +4995,7 @@ BEGIN
    FOR rec IN c 
    LOOP
       MLD.setmeldingstatus (rec.mld_melding_key, 6, NULL);   -- Verwerkt
-   END;
+   END LOOP;
 END;
 /