MDUX#34566: Automatische matching facturen werkt niet?

svn path=/Website/trunk/; revision=29720

APPL/BES/bes.inc

@@ -37,6 +37,24 @@
                // Deze zet de controleert de status van de bestelopdracht op basis van de status van de regels
                // en doet dan ook bijpassende tracking en notificatie
            },
+        autoapprovefactuur:
+           function (opdr_key)
+           { // Zijn er bijbehorende facturen die al zijn ingevoerd met de status "Ingevoerd(2)" die nog geapproved moeten worden?
+             sql = "SELECT f.fin_factuur_key"
+                 + "  FROM fin_factuur f"
+                 + " WHERE f.bes_bestelopdr_key = " + opdr_key
+                 + "   AND f.fin_factuur_statuses_key = 2"
+                 + " ORDER BY f.fin_factuur_key";
+             var oRs = Oracle.Execute(sql);
+             while (!oRs.eof)
+             { // Autofiatteer de facturen als dat zo ingesteld is.
+               // Functie kijkt zelf of autofiatteren aanstaat.
+               sql = "BEGIN fin.autoapprovefactuur(" + oRs("fin_factuur_key").Value + "); END;";
+               Oracle.Execute(sql);
+               oRs.MoveNext();
+             }
+             oRs.Close();
+           },
         getbesbestellingstatustext:
            function(p)
            {

APPL/BES/opdr_delivery.asp

@@ -112,6 +112,9 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
                        opdr_key,
                        L("lcl_bes_is_bes2uptrack").format(S("bes_bestelopdr_prefix") + besopdr_id) + "\n" + trackarray.join("\n"));
 
+    // Zijn er bijbehorende facturen die al zijn ingevoerd met de status "Ingevoerd(2)" die nog geapproved moeten worden?
+    bes.autoapprovefactuur(opdr_key);
+
 %>  <script>FcltMgr.closeDetail(window, { } );</script>
 <%  Response.End;
   }

APPL/MLD/mld.inc

@@ -35,6 +35,25 @@ mld = {setmeldingstatus:
                Oracle.Execute(sql);
            },
 
+       autoapprovefactuur:
+           function (opdr_key)
+           { // Zijn er bijbehorende facturen die al zijn ingevoerd met de status "Ingevoerd(2)" die nog geapproved moeten worden?
+             sql = "SELECT f.fin_factuur_key"
+                 + "  FROM fin_factuur f"
+                 + " WHERE f.mld_opdr_key = " + opdr_key
+                 + "   AND f.fin_factuur_statuses_key = 2"
+                 + " ORDER BY f.fin_factuur_key";
+             var oRs = Oracle.Execute(sql);
+             while (!oRs.eof)
+             { // Autofiatteer de facturen als dat zo ingesteld is.
+               // Functie kijkt zelf of autofiatteren aanstaat.
+               sql = "BEGIN fin.autoapprovefactuur(" + oRs("fin_factuur_key").Value + "); END;";
+               Oracle.Execute(sql);
+               oRs.MoveNext();
+             }
+             oRs.Close();
+           },
+
        // Afronden insert/update van een melding.
        finishmeldingiu:
            function (mld_key)

APPL/MLD/opdr_close_save.asp

@@ -242,6 +242,9 @@ for (var i = 0; i < ingesloten.length; i++)
       // else: Als result.canCloseMld == true dan is sluitmelding == 1 en dan wordt alsnog de vraag gesteld of melding ook moet worden gesloten via callback functie
     }
   }
+
+  // Zijn er bijbehorende facturen die al zijn ingevoerd met de status "Ingevoerd(2)" die nog geapproved moeten worden?
+  mld.autoapprovefactuur(ingesloten[i]);
 }
 result.success = true;