RABO#37178 -- Koppeling FACILITOR met Axxerion

svn path=/Website/branches/v2016.1/; revision=30795

APPL/API/api_mldsoap.asp

@@ -110,11 +110,39 @@ for (i = 0; i < meldingen.length; i++)
 
   user.checkAutorisation("WEB_MLDUSE"); // Dit is nog ongeacht de melding
 
+  if (meldaction == "unknown")
+  {
+     // Kijk of er een melding bestaat met dit externe nummer.
+     // Ben je bang dat het nummer vaker voorkomt dan kun je deze prefixen in de xsl
+     tsql = "SELECT MIN(mld_melding_key), COUNT(*) aantal"
+            + "  FROM mld_melding"
+            + " WHERE mld_melding_externnr ="+ safe.quoted_sql(ext_id);
+     var oRs = Oracle.Execute(tsql);
+     if (oRs("aantal").value == 1)
+     {
+        mld_key = oRs("mld_melding_key").value
+        meldaction = "update";
+     }
+     else
+     {
+        meldaction = "insert";
+     } 
+  }
+
   if (ext_id == null)
   {
     resultcode = 1;
     resulttekst = "Undefined external ID (key)";
   }
+  else if (meldaction == 'update')
+  {
+    resultcode = 0;
+    // verder nog even kijken wat we willen doen.
+    // in ieder geval de omschrijving aanpassen
+    fields.push({ dbs: "mld_melding_omschrijving",  typ: "varchar", val: meld_oms,        track: L("lcl_mld_inf_Omschrijving"), len: 4000 });
+    var mldUpd = buildTrackingUpdate("mld_melding", "mld_melding_key = " + mld_key, fields, { noValidateToken: true });
+    Oracle.Execute(mldUpd.sql);
+  }
   else if (meldaction != 'insert')
   {
     resultcode = 2;
@@ -369,6 +397,14 @@ for (i = 0; i < meldingen.length; i++)
 
         resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze melding.
         // En nog maar even de aanname dat een extern systeem niet aan workflows/ktos doet?
+        
+        // Klantspecifieke check functie (hookfunction) voor de invoer
+        var pResult = new HookResult();
+        if (!custfunc.mld_postsave(mld_key, pResult))
+        {
+           __DoLog(pResult.errmsg, "#00FF00");
+        }
+
       }
     } // end geldige stdmld_key
   } // end geldige ext_id