admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AKZA#39771 werkvergunningen

Browse Source 
svn path=/Website/branches/v2016.3/; revision=33197
This commit is contained in:
Suzan Wiegerinck
2017-03-21 07:51:07 +00:00
parent 1852178440
commit 3d626c3d36
1 changed files with 69 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
CUST/AKZA/custfunctions.wsc
View File

@@ -24,11 +24,17 @@
<property name="safe">
<put/>
</property>
<property name="Server">
<put/>
</property>
<!-- methods -->
<method name="bez_postsave">
<PARAMETER name="bezkeyArr"/>
</method>
<method name="mld_postsave">
<PARAMETER name="mld_melding"/>
</method>
</public>
<script language="javascript">
@@ -39,6 +45,7 @@ function put_Oracle(newValue) {Oracle = newValue};
function put___Log(newValue) {__Log = newValue};
function put___DoLog(newValue){__DoLog = newValue};
function put_safe(newValue) {safe = newValue};
function put_Server(newValue) {Server = newValue};
/* methods */
/*
@@ -50,6 +57,8 @@ var Oracle;
var __Log;
var __DoLog;
var safe;
var Server;
bez_postsave = function (bezkeyArr, pResult)
{
@@ -126,6 +135,66 @@ bez_postsave = function (bezkeyArr, pResult)
return true;
}
mld_postsave = function (mld_melding, pResult)
{
// Nieuwe meldingen waarbij het vinkje 'werkvergunning' (km 441) aan staat of een nieuwe melding 'Werkvergunning aanvragen' (stdmld 1541)
var sql = "SELECT 1"
+ " FROM mld_melding m"
+ " , mld_kenmerkmelding km"
+ " , mld_kenmerk k"
+ " WHERE m.mld_melding_key = km.mld_melding_key(+)"
+ " AND km.mld_kenmerk_key= k.mld_kenmerk_key(+)"
+ " AND (k.mld_srtkenmerk_key = 441 OR m.mld_stdmelding_key = 1541)"
+ " AND m.mld_melding_key = " + mld_melding ;
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
{
// Kopieren masterbestand m.b.v. ASP FileSystemObject Object en/of ASP File Object.
var fso = Server.CreateObject("Scripting.FileSystemObject");
fso.CopyFile("e:\ptw\PTW Master 20170109 (Dutch).xls", "e:\ptw\ptw-" + mld_melding);
// TODO: Kenmerkwaarde werkvergunning (km901) vullen met locatie nieuwe bestand.
// Controleren of er al een kenmerkmelding record aanwezig is voor kenmerk 901.
sql = "SELECT 1"
+ " FROM mld_kenmerkmelding m"
+ " WHERE m.mld_kenmerk_key IN (SELECT k.mld_kenmerk_key"
+ " FROM mld_kenmerk k"
+ " WHERE k.mld_srtkenmerk_key = 901)"
+ " AND m.mld_melding_key = " + mld_melding;
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
{
sql = "UPDATE mld_kenmerkmelding m"
+ " SET m.mld_kenmerkmelding_waarde = 'PTW - ' || 'mld_melding_key.xsl'"
+ " WHERE m.mld_kenmerk_key IN (SELECT k.mld_kenmerk_key"
+ " FROM mld_kenmerk k"
+ " WHERE k.mld_srtkenmerk_key = 901"
+ " AND k.mld_stdmelding_key = 1541)"
+ " AND m.mld_melding_key = " + mld_melding;
}
else
{
sql = "INSERT INTO mld_kenmerkmelding"
+ " (mld_melding_key"
+ " , mld_kenmerk_key"
+ " , mld_kenmerkmelding_waarde"
+ " )"
+ " VALUES (" + mld_melding
+ " , (SELECT k.mld_kenmerk_key"
+ " FROM mld_kenmerk k"
+ " WHERE k.mld_srtkenmerk_key = 901"
+ " AND k.mld_stdmelding_key = 1541)"
+ " , 'PTW - ' || 'mld_melding_key.xsl'"
+ " )";
}
Oracle.Execute(sql);
}
return true;
}
]]>
</script>
</component>