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

AKZA#39771 Aanvraag werkvergunning

Browse Source 
svn path=/Website/branches/v2016.3/; revision=33439
This commit is contained in:
Suzan Wiegerinck
2017-04-10 07:48:11 +00:00
parent c8e3acc7e0
commit 87f063ef94
1 changed files with 40 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
CUST/AKZA/custfunctions.wsc
View File

@@ -24,9 +24,6 @@
<property name="safe">
<put/>
</property>
<property name="Server">
<put/>
</property>
<!-- methods -->
<method name="bez_postsave">
@@ -45,7 +42,6 @@ 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 */
/*
@@ -57,7 +53,6 @@ var Oracle;
var __Log;
var __DoLog;
var safe;
var Server;
bez_postsave = function (bezkeyArr, pResult)
@@ -151,44 +146,52 @@ mld_postsave = function (mld_melding, pResult)
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);
var fso = new ActiveXObject("Scripting.FileSystemObject");
// 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)
// Eerst controleren of de drive, folder en het bestand aanwezig zijn. Anders niet kopieeren.
// Als het kopie al aanwezig is dan, dan niet opnieuw kopieeren
if (fso.DriveExists("e:") && fso.FolderExists("e:\\ptw") && fso.FileExists("e:\\ptw\\TEST.xlsm") && !fso.FileExists("e:\\ptw\\ptw-" + mld_melding + ".xlsm"))
{
sql = "UPDATE mld_kenmerkmelding m"
+ " SET m.mld_kenmerkmelding_waarde = 'PTW - ' || 'mld_melding_key.xsl'"
fso.CopyFile("e:\\ptw\\PTW Master 20170109 (Dutch).xlsm", "e:\\ptw\\ptw-" + mld_melding + ".xlsm");
// TODO: Kenmerkwaarde werkvergunning (km921) vullen met locatie nieuwe bestand.
// Controleren of er al een kenmerkmelding record aanwezig is voor kenmerk 921.
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 k.mld_stdmelding_key = 1541)"
+ " WHERE k.mld_srtkenmerk_key = 921)"
+ " 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/PTW-' || " + mld_melding + " || '.xlsm'"
+ " WHERE m.mld_kenmerk_key IN (SELECT k.mld_kenmerk_key"
+ " FROM mld_kenmerk k"
+ " WHERE k.mld_srtkenmerk_key = 921)"
+ " 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, mld_stdmelding s, mld_melding m "
+ " WHERE k.mld_srtkenmerk_key = 921"
+ " AND ((k.mld_kenmerk_niveau = 'S' AND k.mld_stdmelding_key = s.mld_stdmelding_key)"
+ " OR (k.mld_kenmerk_niveau = 'D' AND k.mld_stdmelding_key = s.mld_ins_discipline_key))"
+ " AND s.mld_stdmelding_key = m.mld_stdmelding_key"
+ " AND m.mld_melding_key = " + mld_melding + ")"
+ " , '/ptw/PTW-' || " + mld_melding + " || '.xlsm'"
+ " )";
}
Oracle.Execute(sql);
}
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;