<?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>