109 lines
2.9 KiB
XML
109 lines
2.9 KiB
XML
<?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};
|
|
|
|
var Oracle;
|
|
var __Log;
|
|
var __DoLog;
|
|
var safe;
|
|
|
|
bes_punch_receive =
|
|
function (RequestForm, bes_srtdeel_key, item, pResult)
|
|
{
|
|
var result = {orderurl: ""};
|
|
sql = "SELECT sd.prs_bedrijf_key FROM bes_srtdeel sd WHERE sd.bes_srtdeel_key = " + bes_srtdeel_key;
|
|
oRs = Oracle.Execute(sql);
|
|
bedr_key = oRs("prs_bedrijf_key").value;
|
|
|
|
function punchNVL(nm, n, def)
|
|
{
|
|
nm = nm.replace('#', n);
|
|
if (RequestForm(nm).Count() == 0)
|
|
return def;
|
|
if (RequestForm(nm) == "")
|
|
return def;
|
|
return RequestForm(nm)(1);
|
|
};
|
|
|
|
|
|
// Alleen voor leverancier Topbloemen uitvoeren (prs_bedrijf_key = 9853)
|
|
if (bedr_key == 9853)
|
|
{
|
|
// Alleen voor eerste item het leverdatum opvragen en orderid Topbloemen bepalen. Is toch voor elk item identiek.
|
|
if (item == 1) {
|
|
|
|
// Leverdatum is in formaat yyyy-dd-mm
|
|
var leverdatum = punchNVL("NEW_ITEM-CUST_FIELD4[#]", item, "Onbekend");
|
|
__DoLog('Leverdatum: CUST_FIELD4[' + item + ']= ' + leverdatum);
|
|
if (leverdatum != "Onbekend")
|
|
{
|
|
sql = "SELECT TO_DATE(" + safe.quoted_sql(leverdatum) + ", 'yyyy-mm-dd') leverdatum FROM DUAL";
|
|
oRs = Oracle.Execute(sql);
|
|
leverdatum = oRs("leverdatum").value;
|
|
result.orderurl = "&leverdatum=" + (new Date(leverdatum)).getTime();
|
|
}
|
|
|
|
// Voor Topbloemen moet Facilitor het ordernummer vanuit de webshop 1-op-1 overnemen en in de bestelopdracht terugsturen
|
|
var mijn_orderid = punchNVL("NEW_ITEM-EXT_PRODUCT_ID[#]", item, "Onbekend");
|
|
|
|
mijn_orderid = mijn_orderid.substr(0, mijn_orderid.indexOf(":")-1);
|
|
__DoLog('Uw orderid: EXT_PRODUCT_ID[' + item + ']= ' + mijn_orderid);
|
|
|
|
|
|
if (mijn_orderid != "Onbekend")
|
|
//straks vanaf 5.3.3 gebruiken: result.flex_defaults = result.flex_defaults + "&Orderid=" + safe.URLEncode(mijn_orderid);
|
|
result.flex_defaults = result.flex_defaults + "&Orderid=" + mijn_orderid;
|
|
}
|
|
}
|
|
return result;
|
|
};
|
|
|
|
]]>
|
|
</script>
|
|
</component> |