94 lines
2.2 KiB
XML
94 lines
2.2 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 Medeco uitvoeren (prs_bedrijf_key = 1230)
|
|
if (bedr_key == 1230)
|
|
{
|
|
// VIAR#30856
|
|
// Voor elk item de eenheid (die standaard uit NEW_ITEM_UNIT wordt ingelezen) bij Medeco uit CUST-field NEW_ITEM-CUST_FIELD5 te halen...
|
|
|
|
var artikel_eenheid = punchNVL("NEW_ITEM-CUST_FIELD5[#]", item, "Onbekend");
|
|
__Log('ARTIKEL EENHEID: CUST_FIELD5[' + item + ']= ' + artikel_eenheid);
|
|
|
|
if (artikel_eenheid != 'Onbekend')
|
|
{
|
|
sql = "UPDATE bes_srtdeel SET bes_srtdeel_eenheid = " + safe.quoted_sql(artikel_eenheid) + " WHERE bes_srtdeel_key = " + bes_srtdeel_key;
|
|
oRs = Oracle.Execute(sql);
|
|
}
|
|
|
|
}
|
|
return result;
|
|
}
|
|
|
|
]]>
|
|
</script>
|
|
</component> |