From dc4e43d978df65c1521f6883da13fe09931a1d4a Mon Sep 17 00:00:00 2001
From: Ruud Lipper <ruud.lipper@aareon.nl>
Date: Thu, 7 Jan 2016 08:16:48 +0000
Subject: [PATCH] STPH#34969

svn path=/Website/branches/v2015.3/; revision=27647
---
 CUST/STPH/voorraad/default.asp | 112 +++++++++++++++++++++++++++++++++
 1 file changed, 112 insertions(+)
 create mode 100644 CUST/STPH/voorraad/default.asp

diff --git a/CUST/STPH/voorraad/default.asp b/CUST/STPH/voorraad/default.asp
new file mode 100644
index 0000000000..89ab16c480
--- /dev/null
+++ b/CUST/STPH/voorraad/default.asp
@@ -0,0 +1,112 @@
+<%@ language = "JavaScript" %>
+<%
+  DOCTYPE_Disable = 1;
+  ANONYMOUS_Allowed = 1;
+// Lees de vraagstelling in die via XML binnenkomt
+
+  Response.Expires=0;
+  Session("customerId") = 'STPH';
+
+%>
+
+<!-- #include file="../../../Appl/Shared/common.inc" -->
+
+<%
+var objReq = new ActiveXObject("MSXML2.DOMDocument.6.0");
+objReq.load(Request);
+//__DoLog("Ontvangen: " + Server.HTMLEncode(objReq.xml));
+if (objReq.parseError.errorCode != 0)
+{
+   var myErr = objReq.parseError;
+   __DoLog ("Error parsing request XML: " + myErr.reason);
+   Response.Write("Error parsing request XML: " + myErr.reason);
+   Response.End;
+}
+//__DoLog ("No parseError ");
+// Zoek het partnummer
+var strQuery = "facilitor/stock_request/part/number";
+objPart = objReq.selectSingleNode(strQuery);
+if (!objPart)
+{
+   Response.Write(strQuery + " not found in XML");
+   __DoLog (strQuery + " not found in XML");
+   Response.End;
+}
+strQuery = "facilitor/stock_request/part/group";
+objGroup = objReq.selectSingleNode(strQuery);
+if (!objGroup)
+{
+   Response.Write(strQuery + " not found in XML");
+   __DoLog (strQuery + " not found in XML");
+   Response.End;
+}
+
+// Prepare result XML
+// Response.Write("Part nummer : " + objPart.text);
+// Response.End;
+
+
+var l_voorraad = bepaal_voorraad_van_artikel(objPart.text, objGroup.text);
+//__DoLog (l_voorraad);
+var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
+
+xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"UTF-8\""))
+
+rootElement = xmlDoc.createElement("facilitor");
+  elementResponse = xmlDoc.createElement("stock_response");
+    elementPart = xmlDoc.createElement("part");
+        elementNumber = xmlDoc.createElement("number");
+            elementNumberText = xmlDoc.createTextNode(objPart.text);
+            elementNumber.appendChild(elementNumberText);
+        elementPart.appendChild(elementNumber);
+        elementAmount = xmlDoc.createElement("amount");
+            elementAmountText = xmlDoc.createTextNode(l_voorraad);
+            elementAmount.appendChild(elementAmountText);
+        elementPart.appendChild(elementAmount);
+        elementInfo = xmlDoc.createElement("infotext"); // infohtml bestaat ook
+            elementInfoText = xmlDoc.createTextNode("Voorraad opgevraagd op "+(new Date()) +
+                                                    "\ndoor " + Request.ServerVariables("REMOTE_HOST") +
+                                                    "\nvia: " + Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("URL"));
+            elementInfo.appendChild(elementInfoText);
+        elementPart.appendChild(elementInfo);
+        elementStockTime = xmlDoc.createElement("time");
+            elementStockTimeText = xmlDoc.createTextNode(new Date());
+            elementStockTime.appendChild(elementStockTimeText);
+        elementPart.appendChild(elementStockTime);
+    elementResponse.appendChild(elementPart);
+  rootElement.appendChild(elementResponse);
+xmlDoc.appendChild(rootElement);
+__DoLog ("Resultaat van default.asp:" + xmlDoc.xml);
+Response.ContentType = "text/xml";
+Response.Write(xmlDoc.xml);
+
+
+function bepaal_voorraad_van_artikel(p_artnr, p_group){
+  var i = 0;
+  var l_digits = "0123456789";
+	var l_result = "";
+
+  sql =  "SELECT COUNT(voorraad) aantal "
+       + "  FROM stph_v_rap_voorraad "
+       + " WHERE hide_f_srtgroep_omschrijving = " + safe.quoted_sql(p_group);
+
+  var oRs = Oracle.Execute(sql);
+  if (oRs("aantal").Value == 0)
+  {
+    __DoLog ("Groep niet gevonden: " + safe.quoted_sql(p_group));
+  };
+
+  sql =  "SELECT COALESCE(to_char(voorraad), '-') voorraad "
+       + "  FROM stph_v_rap_voorraad "
+       + " WHERE hide_f_srtgroep_omschrijving = " + safe.quoted_sql(p_group)
+       + "   AND artikel_nr = " + safe.quoted_sql(p_artnr);
+
+  var oRs = Oracle.Execute(sql);
+  if (!oRs.eof) {
+     l_result = oRs("voorraad").Value;
+  }
+
+	return l_result;
+}
+
+%>
\ No newline at end of file