From 720fe6df0785b44387f581b18840bd7da2c809ca Mon Sep 17 00:00:00 2001
From: Maarten van der Heide <maarten.vanderheide@aareon.nl>
Date: Wed, 18 Jun 2014 08:32:12 +0000
Subject: [PATCH] SVRZ#29377 Inkoopondersteuning

svn path=/Website/branches/v5.4.1/; revision=21926
---
 CUST/SVRZ/custfunctions.wsc | 112 ++++++++++++++++++++++++++++++++++++
 1 file changed, 112 insertions(+)
 create mode 100644 CUST/SVRZ/custfunctions.wsc

diff --git a/CUST/SVRZ/custfunctions.wsc b/CUST/SVRZ/custfunctions.wsc
new file mode 100644
index 0000000000..b0d3dbedfb
--- /dev/null
+++ b/CUST/SVRZ/custfunctions.wsc
@@ -0,0 +1,112 @@
+<?xml version="1.0"?>
+<component>
+<?component error="true" debug="true"?>
+<registration
+	description="custfunctions"
+	progid="custfunction.wsc"
+	version="1.00"
+	classid="{4F51571C-1DFC-4769-B8DD-37B356378F12}"
+>
+</registration>
+
+<public>
+
+<!-- properties -->
+	<property name="Oracle">
+		<put/>
+	</property>
+	<property name="__Log">
+		<put/>
+	</property>
+	<property name="__DoLog">
+		<put/>
+	</property>
+	<property name="safe">
+		<put/>
+	</property>
+
+<!-- methods -->
+	<method name="bes_punch_receive">
+		<PARAMETER name="RequestForm"/>
+		<PARAMETER name="bes_srtdeel_key"/>
+		<PARAMETER name="item"/>
+	</method>
+
+</public>
+
+<script language="javascript">
+<![CDATA[
+
+/*
+   $Revision$
+   $Id$
+*/
+
+function put_Oracle(newValue)	{Oracle		= newValue};
+function put___Log(newValue)	{__Log		= newValue};
+function put___DoLog(newValue)	{__DoLog	= newValue};
+function put_safe(newValue)	    {safe		= newValue};
+
+/* Dit zijn de enige drie functies die je mag gebruiken */
+var Oracle;
+var __Log;
+var __DoLog;
+var safe;
+
+
+
+bes_punch_receive = function (RequestForm, bes_srtdeel_key, item, pResult)
+{
+  var result = {orderurl: ""};
+  var sql = "SELECT sd.prs_bedrijf_key FROM bes_srtdeel sd WHERE sd.bes_srtdeel_key = " + bes_srtdeel_key;
+  var oRs = Oracle.Execute(sql);
+  var bedr_key = oRs("prs_bedrijf_key").value;
+  oRs.Close();
+
+  function punchNVL(nm, n, def)
+  {
+    var nm = nm.replace('#', n);
+    if (RequestForm(nm).Count() == 0)
+        return def;
+    if (RequestForm(nm) == "")
+        return def;
+    return RequestForm(nm)(1);
+  };
+
+  // Alleen voor leverancier Manutan uitvoeren (prs_bedrijf_key = 4001 in Accept)
+  if (bedr_key == 4001)
+  {
+    //var detail_url = punchNVL("NEW_ITEM-ATTACHMENT[#]", item, "Onbekend");
+    //if (detail_url != "Onbekend")
+    //{
+    //  sql = "UPDATE bes_srtdeel"
+    //      + "   SET bes_srtdeel_details_loc = " + safe.quoted_sql(detail_url)
+    //      + " WHERE bes_srtdeel_key = " + bes_srtdeel_key;
+    //  Oracle.Execute(sql);
+    //}
+
+    //var leverdatum = punchNVL("NEW_ITEM-CUST_FIELD1[#]", item, "Onbekend");
+    //if (leverdatum != "Onbekend")
+    //{
+    //  sql = "SELECT TO_DATE(" + safe.quoted_sql(leverdatum) + ", 'yyyymmdd') leverdatum FROM DUAL";
+    //  var oRs = Oracle.Execute(sql);
+    //  leverdatum = oRs("leverdatum").value;
+    //  oRs.Close();
+    //  result.orderurl = "&leverdatum=" + (new Date(leverdatum)).getTime();
+    //}
+
+    // BTW
+    var btw_perc = punchNVL("NEW_ITEM-CUST_FIELD3[#]", item, "Onbekend");
+    __Log('BTW-PERCENTAGE: CUST_FIELD3[' + item + ']= ' + btw_perc); 
+    if (btw_perc != 'Onbekend')
+    {
+       sql = "UPDATE bes_srtdeel SET bes_srtdeel_btw = ROUND(" + parseFloat(btw_perc) + ") WHERE bes_srtdeel_key = " + bes_srtdeel_key;
+       Oracle.Execute(sql);
+    }
+  }
+  return result;
+}
+
+]]>
+</script>
+</component>