73 lines
1.6 KiB
XML
73 lines
1.6 KiB
XML
<?xml version="1.0"?>
|
|
<component>
|
|
<?component error="true" debug="true"?>
|
|
<registration
|
|
description="custfunctions"
|
|
progid="custfunction.wsc"
|
|
version="1.00"
|
|
classid="{5B59A501-7A03-47C7-9C02-6025C83C2FAD}"
|
|
>
|
|
</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="mld_postsave">
|
|
<PARAMETER name="mld_melding"/>
|
|
</method>
|
|
</public>
|
|
|
|
<script language="javascript">
|
|
<![CDATA[
|
|
|
|
/* properties */
|
|
function put_Oracle(newValue) {Oracle = newValue};
|
|
function put___Log(newValue) {__Log = newValue};
|
|
function put___DoLog(newValue){__DoLog = newValue};
|
|
function put_safe(newValue) {safe = newValue};
|
|
|
|
/* methods */
|
|
/*
|
|
$Id$
|
|
*/
|
|
|
|
/* Dit zijn de enige drie functies die je mag gebruiken */
|
|
var Oracle;
|
|
var __Log;
|
|
var __DoLog;
|
|
var safe;
|
|
|
|
|
|
|
|
mld_postsave = function (mld_melding, pResult)
|
|
{
|
|
// Bij nieuwe meldingen controleren of de locatiecode goed staat en of de stdmelding aangepast moet worden.
|
|
var sql = "BEGIN csun.mld_after_insert(" + mld_melding + "); END;";
|
|
Oracle.Execute(sql);
|
|
sql = "SELECT mld_stdmelding_key FROM mld_melding WHERE mld_melding_key = " + mld_melding;
|
|
var oRs = Oracle.Execute(sql);
|
|
var stdmld_key = oRs("mld_stdmelding_key").value;
|
|
pResult.stdmld_key = stdmld_key;
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
]]>
|
|
</script>
|
|
</component>
|