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

Merge 5.4.3 patches. Vooral veel Oracle.udl's naar Oracle OLE DB

Browse Source 
svn path=/Website/trunk/; revision=23411
This commit is contained in:
Jos Groot Lipman
2014-11-20 08:53:40 +00:00
parent 83ce86eb19 bc225d0f1d
commit f17a4b610e
128 changed files with 2349 additions and 640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
CUST/AAEN/cust.css
View File

@@ -13,16 +13,8 @@
color: #000002;
}
/* menu */
div#PersFAC ul li span.menukop {
color: #00529C;
background-image:url(../../appl/Pictures/spot.jpg);
}
/* menu */
div#ProfFAC ul li span.menukop {
color: #00529C;
background-image:url(../../appl/Pictures/spot.jpg);
.nomicon {
background-color: #b3dc1f;
}
div.fcltframeheader {

BIN
CUST/AAEN/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/AAES/oracle.udl Normal file
View File

Binary file not shown.

4
CUST/AAXX/import/Strukton/GetStruktonStatus.js
View File

@@ -33,7 +33,7 @@ function GetStruktonStatus()
WScript.Echo("Certificaatnaam = " + cer[0]);
WScript.Echo("Login = " + cer[1]);
WScript.Echo("Wachtwoord = " + cer[2]);
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0")
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
var SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3;
/* objXMLHTTP.open("POST",
@@ -119,7 +119,7 @@ try
WScript.Echo("Inlezen statusberichten van bedrijf: " + oRs("prs_bedrijf_naam").Value + " via url: " + mldorder_adres)
oRs.close();
if (GetStruktonStatus()) WScript.Quit(0);
if (GetStruktonStatus()) WScript.Quit(0);
else WScript.Quit(1);
}
catch (e)

BIN
CUST/ALLI/Oracle.udl
View File

Binary file not shown.

65
CUST/ARAI/cust.css
View File

@@ -9,9 +9,7 @@
/* Titelbalk */
#headerblok {
background: url(banner.png) no-repeat;
background-color: #fff;
background-position: 0px 0px;
color: #00457d;
}
/* "Demonstratie" */
@@ -27,22 +25,7 @@ html, body, #editbody, #showbody, #listbody {
background-image: none;/*url(../Pictures/bodybgrnd.jpg);*/
background-color: #fff;
}
#mywelcome,
#myactions,
#mymessages {
margin: 10px 4px 0px 4px;
padding: 0;
border: 3px solid #00457d;
}
#mywelcometitle {
background-color: #00457d;
color: #fff;
}
#mywelcometitle strong {
color: #fff;
}
#mywelcomeinfo {
background-color: #00A4E3;
color: #fff;
@@ -162,56 +145,12 @@ textarea.required {
.ui-layout-content {
background-color: #fff;
}
div#ProfFAC,
div#PersFAC,
div#MgtFAC {
background-color: #fff;
}
div#ProfFAC .menukop {
color: #00457d;
}
div#ProfFAC ul li,
div#PersFAC ul li,
div#MgtFAC ul li {
background-color: #fff;
}
li.mk {
border-bottom: none;
border-top: 1px solid #00457d;
margin-top: 1px;
}
div#ProfFAC ul li li,
div#PersFAC ul li li {
border-bottom: none;
border-top: 1px solid #aaa;
margin-left: 5px;
}
div#PersFAC ul li li a,
div#ProfFAC ul li li a {
text-decoration: none;
color: #000;
}
div#PersFAC ul li li a:hover,
div#ProfFAC ul li li a:hover {
color: #00457d;
}
div#PersFAC ul li span.menukop {
color: #00457d;
}
span.menukop {
color: #00457d;
}
li.mk:hover span.menukop {
color: #fff!important;
}
/* Portal (loketten) */
#portalbody
{
background-color: #ffffff;
@@ -240,12 +179,8 @@ li.mk:hover span.menukop {
}
#portalmenu li.mi {
color: #000099;
}
/* Search */
table.filter {
background-color: #fff;

BIN
CUST/ARAI/oracle.udl
View File

Binary file not shown.

11
CUST/ARBO/cust.css
View File

@@ -59,6 +59,7 @@ div.ui-layout-toggler {
html {
background-color: #fff;
}
#mywelcome,
#myactions,
#mymessages {
@@ -91,6 +92,11 @@ html {
#listbody .fcltframeheader {
border: 0px solid #000;
}
div.fcltframeheader {
border-top-left-radius: 0px;
border-top-right-radius: 0px;
}
.listbody tbody {
background-color: #fff;
}
@@ -258,10 +264,7 @@ div#ProfFAC, div#PersFAC, div#MgtFAC {
border: 0;
}
span.menukop {
background-image: url(./spot.png);
padding-left: 9px;
}
#ProfFAC .menukop,
div#PersFAC ul li span.menukop,

BIN
CUST/AREO/Oracle.udl
View File

Binary file not shown.

BIN
CUST/ASFC/Oracle.udl Normal file
View File

Binary file not shown.

12
CUST/ASMS/cust.css
View File

@@ -11,16 +11,8 @@
background-position: 40px 1px;
}
/* menu */
div#PersFAC ul li span.menukop {
color: #00529C;
background-image:url(../../appl/Pictures/spot.jpg);
}
/* menu */
div#ProfFAC ul li span.menukop {
color: #00529C;
background-image:url(../../appl/Pictures/spot.jpg);
.nomicon {
background-color: #00529C;
}
div.fcltframeheader {

BIN
CUST/ASMS/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/ATCH/Oracle.udl
View File

Binary file not shown.

45
CUST/BOFO/cust.css
View File

@@ -24,54 +24,9 @@ div.fcltframeheader {
border:1px solid #FFFFFF;
}
div#PersFAC ul li span.menukop {
color: #eeeeee;
}
div#ProfFAC ul li span.menukop {
color: #eeeeee;
}
th {
color: #ffffff;
padding: 3px;
background-color: #3C88A8;
}
div#ProfFAC ul li {
font-weight: bold;
background-color: #C10134;
list-style: none;
}
div#PersFAC ul li {
font-weight: bold;
background-color: #4AAFDB;
list-style: none;
}
div#MgtFAC ul li {
font-weight: bold;
background-color: #CAD123;
list-style: none;
}
div#MgtFAC ul li li {
font-weight: normal;
background-color: #ffffff;
list-style: none;
border-bottom: 1px solid #ccc;
border-top: none;
border-left: none;
border-right: none;
padding: 1px;
}
div#MgtFAC ul li li a {
text-decoration: none;
color: #222222;
}
div#MgtFAC ul li span.menukop {
color: #ffffff;
}

BIN
CUST/BOFO/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/BONS/Oracle.udl
View File

Binary file not shown.

4
CUST/BONS/cust.css
View File

@@ -42,6 +42,10 @@ span.menukop {
color: #009FE3
}
li.mk:hover span.menukop {
color: #fff!important;
}
div#ProfFAC li.mk {
background: none;
background-color: #eee;

BIN
CUST/BRWT/oracle.udl
View File

Binary file not shown.

2
CUST/CONN/rap_sch.asp
View File

@@ -128,7 +128,7 @@ var showall = getQParamInt("showall", 0) == 1;
rst.addColumn(new Column({caption: L("lcl_obj_inf_room"), content: "ruimtenr"}));
rst.addColumn(new Column({caption: L("lcl_opp"), content: "oppervlakte"}));
rst.addColumn(new Column({caption: L("lcl_covering"), content: "vloersoort"}));
rst.addColumn(new Column({caption: "Vloersoort", content: "vloersoort"}));
rst.addColumn(new Column({caption: L("lcl_descr"), content: "omschrijving"}));
rst.addColumn(new Column({caption: "Ruimtesoort", content: "ruimtesoort"}));
rst.addColumn(new Column({caption: "Schoonmaakbedrijf", content: "schoon"}));

BIN
CUST/CSUN/oracle.udl
View File

Binary file not shown.

BIN
CUST/CWTD/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/DCOL/oracle.udl Normal file
View File

Binary file not shown.

4
CUST/DEMO/Voorraad.asp
View File

@@ -1,7 +1,7 @@
<%@language = "JavaScript" %>
<%
// Lees de vraagstelling in die via XML binnenkomt
var objReq = new ActiveXObject("MSXML2.DOMDocument.4.0");
var objReq = new ActiveXObject("MSXML2.DOMDocument.6.0");
objReq.load(Request);
if (objReq.parseError.errorCode != 0)
@@ -25,7 +25,7 @@ if (!objPart)
//Response.End;
var l_voorraad = bepaal_voorraad_van_artikel(objPart.text);
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"UTF-8\""))

BIN
CUST/DEMO/oracle.udl Normal file
View File

Binary file not shown.

10
CUST/DEMO/voorraad/default.asp
View File

@@ -13,7 +13,7 @@
<%
var objReq = new ActiveXObject("MSXML2.DOMDocument.4.0");
var objReq = new ActiveXObject("MSXML2.DOMDocument.6.0");
objReq.load(Request);
if (objReq.parseError.errorCode != 0)
@@ -41,7 +41,7 @@ if (!objPart)
var l_voorraad = bepaal_voorraad_van_artikel_dummy(objPart.text, objGroup.text);
__DoLog (l_voorraad);
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"UTF-8\""))
@@ -101,11 +101,11 @@ function bepaal_voorraad_van_artikel_dummy(p_artnr, p_group){
var i = 0;
var l_digits = "0123456789";
var l_result = "";
while (i<4 && p_artnr != ""){
l_char = p_artnr.charAt(0);
if (l_digits.indexOf(l_char, 0) != -1){
l_result = l_result + l_char;
l_result = l_result + l_char;
}
i=i+1;
p_artnr = p_artnr.substr(1);
@@ -113,7 +113,7 @@ function bepaal_voorraad_van_artikel_dummy(p_artnr, p_group){
if (l_result == ""){
l_result = "0"
}
return parseInt(l_result,10);
}

BIN
CUST/DJIN/banner.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.5 KiB

13
CUST/DJIN/cust.css Normal file
View File

@@ -0,0 +1,13 @@
/*
* $Revision$
* $Modtime: 02-05-14 16:00 $
*/
#headerblok {
background-position: center;
}
/* Menukoppen */
span.menukop {
background-image: none;
padding-left: 2px;
}

BIN
CUST/DJIN/flexfiles/menu/bestellen_dji.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.9 KiB

BIN
CUST/DJIN/flexfiles/menu/meldingen_dji.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.7 KiB

BIN
CUST/DJIN/flexfiles/menu/reserveren_dji.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.7 KiB

BIN
CUST/DJIN/oracle.udl Normal file
View File

Binary file not shown.

4
CUST/DJIN/tasks/gen_notify.bat Normal file
View File

@@ -0,0 +1,4 @@
@echo off
REM Moet gescheduled worden (normaliter 1 keer per uur) om door de applicatiebeheerder
REM ingeregelde notificaties te genereren.
cscript ..\..\..\utils\gen_notify\gen_notify.js ../oracle.udl DJIN

4
CUST/DJIN/tasks/gen_scheduler.bat Normal file
View File

@@ -0,0 +1,4 @@
@echo off
REM Moet gescheduled worden (normaliter 1 keer per dag) om door de applicatiebeheerder
REM ingeregelde jobs (aanmaak van periodieke opdrachten) uit te voeren.
cscript ..\..\..\utils\gen_scheduler\gen_scheduler.js ../oracle.udl

1
CUST/DJIN/tasks/putOrders.bat Normal file
View File

@@ -0,0 +1 @@
call ..\..\..\utils\putOrders\putOrders.bat

BIN
CUST/DJIN/tmpl_logo.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.9 KiB

9
CUST/DJIN/xsl/cust.xsl Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" version="1.0">
<xsl:import href="../../../appl/shared/default.xsl"/>
<xsl:import href="./environment.xsl"/>
<xsl:variable name="Rev">
<!-- Revision van deze cust.xsl -->
<xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
</xsl:variable>
</xsl:stylesheet>

6
CUST/DJIN/xsl/environment.xsl Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<!--Dit bestand moet de URL naar de root van Facilitor bevatten en is afhankelijk van de OTAP-omgeving.-->
<xsl:variable name="FacilitorRoot">sgf12/facilitor5iwork</xsl:variable>
<xsl:variable name="FacilitorWebRoot">http://sgf12/facilitor5iwork</xsl:variable>
</xsl:stylesheet>

BIN
CUST/DWPL/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/GDFS/oracle.udl Normal file
View File

Binary file not shown.

31
CUST/GOUD/cust.css
View File

@@ -23,13 +23,7 @@ div#headerprefix {
html {
background-color: #f3f3f3;
}
#mywelcome,
#myactions,
#mymessages {
margin: 10px 4px 0px 4px;
padding: 0;
border: 3px solid #660041;
}
#mywelcometitle {
background-color: #660041;
color: #fff;
@@ -47,9 +41,7 @@ html {
.nieuwstitel {
color: #660041;
}
.nieuwstekst {
border-bottom: none;
}
.listbody#usermessbody .fcltframeheader,
#listbody .fcltframeheader {
border: 0px solid #000;
@@ -74,10 +66,6 @@ html {
color: #fff;
}
/* Kader (gegevens)onderdelen in tabbladen */
#showbody .fcltblock, #editbody .fcltblock {
border: 5px solid #660041;
}
#showbody .fcltblockhead, #editbody .fcltblockhead {
background-color: #660041;
color: white;
@@ -96,6 +84,7 @@ html {
body.modal .fcltblock {
border: 5px solid #660041;
}
body.modal .fcltblockhead {
background-color: #660041;
}
@@ -126,17 +115,3 @@ td.flexlabel {
.flexlabel span {
color: #fff;
}
/* Selectiescherm labels
#buttons ul li {
color: #660041;
}*/
/* Menu */
#ProfFAC .menukop,
div#PersFAC ul li span.menukop {
color: #660041;
}
span.menukop {
background-image:url(Pictures/spot.png);
}

BIN
CUST/GOUD/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/GRGT/Oracle.udl
View File

Binary file not shown.

BIN
CUST/HAYG/Oracle.udl
View File

Binary file not shown.

13
CUST/IVET/cust.css
View File

@@ -35,9 +35,6 @@ div.ui-layout-toggler {
#mywelcome, #mymessages, #myactions {
background-color: #00877c;
}
#mainbody {
border-bottom: 15px solid #00877c;
}
/* Koppen in tabbladen die zijn in/uit te klappen door aan te klikken */
div.fcltframeheader {
@@ -47,9 +44,6 @@ div.fcltframeheader {
}
/* Kader (gegevens)onderdelen in tabbladen */
#showbody .fcltblock, #editbody .fcltblock {
border: 5px solid #00877c;
}
#showbody .fcltblockhead, #editbody .fcltblockhead {
background-color: #00877c;
color: white;
@@ -59,9 +53,12 @@ div.fcltframeheader {
border: 1px solid #00877c;
color: white;
}
body.modal .fcltblock {
border: 5px solid #00877c;
.ui-widget-header.ui-datepicker-header,
.ui-widget-header.ui-dialog-titlebar {
color: #fff;
}
body.modal .fcltblockhead {
background-color: #00877c;
}

BIN
CUST/IVET/oracle.udl Normal file
View File

Binary file not shown.

2
CUST/IVET/xsl/cust.xsl
View File

@@ -649,7 +649,7 @@
<b>Land</b>:
</td>
<td align="left">
<xsl:value-of select="kenmerk[@xmlnode='bedrijf']/bedrijf/bezoek_land"/>
<xsl:value-of select="kenmerk[@xmlnode='bedrijf']/bedrijf/bezoek_land"/><xsl:value-of select="kenmerk[@naam='Transportaanvraag 1t/m5']/@volgnummer"/>
</td>
</tr>
<xsl:for-each select="kenmerk[@type!='L' and @type!='Q' and not(@xmlnode) and @volgnummer > $begin_transport]">

5
CUST/LOGI/Import/scripts/webdav.js
View File

@@ -5,7 +5,7 @@
te uploaden naar Facilityplace. De xxx.csv hieronder moet vervangen worden door de naam van
het bronbestand voor personen en organisatie.
*/
WebdavURL = "https://webdav.facilityplace.nl/logi/";
WebUploadFile("xxx.csv", WebdavURL, "exportfmispersonen.csv")
@@ -23,7 +23,7 @@ function WebUploadFile (file, url, targetname)
objADOStream.Type = 1;
objADOStream.LoadFromFile(file)
arrbuffer = objADOStream.Read();
objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP")
objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
objXMLHTTP.open("PUT", url + targetname, false, "Logi", "Logi!3fg");
objXMLHTTP.send(arrbuffer);
if (objXMLHTTP.status == 200) // 200: Ok (was er al maar wel overschreven?)
@@ -36,4 +36,3 @@ function WebUploadFile (file, url, targetname)
WScript.Echo(objXMLHTTP.status);
}
}

BIN
CUST/LUDE/Oracle.udl
View File

Binary file not shown.

BIN
CUST/MAYF/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/MDUX/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/NETS/Oracle.udl
View File

Binary file not shown.

5
CUST/NMMS/cust.css Normal file
View File

@@ -0,0 +1,5 @@
// @import "../AAXX/default.css";
.nomicon {
background-color: #FFB612;
}

BIN
CUST/NMMS/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/NYBU/oracle.udl
View File

Binary file not shown.

2
CUST/NYBU/xsl/VIPS.xsl
View File

@@ -93,7 +93,7 @@
<xsl:for-each select="//data_row[RES_RSV_RUIMTE_KEY = $p_res_rsv_ruimte_key]">
<CATERING>
<RES_ARTIKEL_KEY><xsl:value-of select="RES_ARTIKEL_KEY"/></RES_ARTIKEL_KEY>
<RES_ARTIKEL_NR><xsl:value-of select="RES_ARTIKEL_NR"/></RES_ARTIKEL_NR>
<RES_ARTIKEL_NR><xsl:value-of select="ARTIKELNR"/></RES_ARTIKEL_NR>
<ARTIKELOMS><xsl:value-of select="ARTIKELOMS"/></ARTIKELOMS>
<CATALOGUS><xsl:value-of select="CATALOGUS"/></CATALOGUS>
<RES_RSV_ARTIKEL_LEVERING><xsl:value-of select="RES_RSV_ARTIKEL_LEVERING"/></RES_RSV_ARTIKEL_LEVERING>

BIN
CUST/PCHD/Oracle.udl Normal file
View File

Binary file not shown.

53
CUST/PCHD/xd_prs_sync/Fetch_perslid_list.js Normal file
View File

@@ -0,0 +1,53 @@
// Fetch_perslid_list.js
// Maakt een lijst van personen aan die over de omgevingen die onderdeel uitmaken van een XD configuratie
// gekopieerd moeten worden.
//
// $Revision$
// $Id$
//
try
{
var fileName = "xd_perslid_list.xml";
var XMLReq = "";
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
var SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3;
objXMLHTTP.open("POST",
"https://pchd.facilitor.nl?API=PRS_SYNC&APIKEY=bfPIHEOWmHLEJbmXsBmrBbgTjmbylrUF&logging=1",
// "http://sgf12/branch543/default.asp?FAC_ID=PCHD&API=PRS_SYNC&APIKEY=bfPIHEOWmHLEJbmXsBmrBbgTjmbylrUF&logging=1",
false,
"",
"");
objXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
objXMLHTTP.send(XMLReq);
if (objXMLHTTP.status==200)
{ // Geldigheid XML wordt gecontroleerd door GEN_IMPORT
WScript.Echo("Gelukt, status = " + objXMLHTTP.status);
responseText = "" + objXMLHTTP.responseText;
//WScript.Echo("resultaat = " + resultaat.indexOf("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>"));
//if resultaat.substr("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>")
if (responseText.indexOf("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>") == -1)
{ oStream = new ActiveXObject("ADODB.Stream");
oStream.Open();
oStream.Type = 1; // adTypeBinary
oStream.Write(objXMLHTTP.responseBody); // responseText geeft encoding problemen!
oStream.SaveToFile (fileName, 2); // adSaveCreateOverWrite
oStream.Close();
}
}
else
{
WScript.Echo("Mislukt, status = " + objXMLHTTP.status);
WScript.Echo(objXMLHTTP.statusText);
}
}
catch (e)
{
WScript.Echo("Serieuze fout in Fetch_perslid_list.js: " + e.description)
WScript.Quit(1);
}

28
CUST/PCHD/xd_prs_sync/Sync_xd_perslid.bat Normal file
View File

@@ -0,0 +1,28 @@
REM -- Sync_xd_perslid.bat
REM -- Maakt een lijst van personen aan die over de omgevingen die onderdeel uitmaken van een XD configuratie
REM -- gekopieerd moeten worden.
REM -- Vervolgens wordt deze lijst gedistribueerd naar de andere omgevingen.
REM
REM -- $Revision$
REM -- $Id$
cscript fetch_perslid_list.js >>genimport.log 2>>&1
if errorlevel 1 goto fout
cd \Apps\Facilitor\FPlace5i\Cust\PCHH\Import\
call import_xd_perslid.bat
cd \Apps\Facilitor\FPlace5i\Cust\PCHP\Import\
call import_xd_perslid.bat
cd \Apps\Facilitor\FPlace5i\Cust\PCHS\Import\
call import_xd_perslid.bat
cd \Apps\Facilitor\FPlace5i\Cust\PCHY\Import\
call import_xd_perslid.bat
goto einde
:fout
Echo gen_import.exe niet meer uitgevoerd>>genimport.log
:einde

27
CUST/PCHD/xsl/perslid_sync.xsl Normal file
View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" encoding="utf-8" indent="yes"/>
<xsl:decimal-format name="european" decimal-separator="." grouping-separator=","/>
<xsl:param name="mode"/>
<xsl:template match="rapport">
<xsl:if test="@view='pchd_v_imp_prs_perslid_sync' or @view='PCHD_V_IMP_PRS_PERSLID_SYNC'">
<xsl:element name="FACILITOR">
<xsl:element name="PCHD">
<xsl:for-each select="rapport_data/data_row">
<xsl:element name="PERSLID">
<xsl:copy-of select="./node()"/>
</xsl:element>
</xsl:for-each>
</xsl:element>
</xsl:element>
</xsl:if>
</xsl:template>
<!-- Root -->
<xsl:template match="facilitor">
<xsl:apply-templates select="rapport"/>
</xsl:template>
</xsl:stylesheet>

BIN
CUST/PCHH/Oracle.udl Normal file
View File

Binary file not shown.

10
CUST/PCHH/import/import_xd_perslid.bat Normal file
View File

@@ -0,0 +1,10 @@
REM -- import_xd_perslid.bat
REM -- Personenimport om generieke personen over de XD omgevingen in te lezen via
REM -- de standaard personenimport.
REM
REM -- $Revision$
REM -- $Id$
copy ..\..\..\Cust\PCHD\xd_prs_sync\xd_perslid_list.xml .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX PERSLID >>genimport.log 2>>&1

16
CUST/PCHH/sso/SSOprodPCHH.asp
View File

@@ -1,23 +1,29 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'Script: SSOprodPCHH.asp
'
' $Revision$
' $Id$
'
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
'Auteur: Thorwald Beeris
'*******************************************************************
'* declare *********************************************************
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://pchh.facilitor.nl/cust/pchh/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://pchh.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
strSharedKey = "LwdbWLIBtHuJCpMT" 'Sharedkey - Should be the same at target side
'*******************************************************************
response.Buffer=true
Dim proto, zelf
If Request.ServerVariables("SERVER_PORT") = 443 Then
proto = "https://"
Else
proto = "http://"
End If
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
%>
<HTML>
<HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

10
CUST/PCHP/import/import_xd_perslid.bat Normal file
View File

@@ -0,0 +1,10 @@
REM -- import_xd_perslid.bat
REM -- Personenimport om generieke personen over de XD omgevingen in te lezen via
REM -- de standaard personenimport.
REM
REM -- $Revision$
REM -- $Id$
copy ..\..\..\Cust\PCHD\xd_prs_sync\xd_perslid_list.xml .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX PERSLID >>genimport.log 2>>&1

16
CUST/PCHP/sso/SSOprodPCHP.asp
View File

@@ -1,23 +1,29 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'Script: SSOprodPCHP.asp
'
' $Revision$
' $Id$
'
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
'Auteur: Thorwald Beeris
'*******************************************************************
'* declare *********************************************************
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://pchp.facilitor.nl/cust/pchp/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://pchp.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
strSharedKey = "plXZhkVOpFrpdetV" 'Sharedkey - Should be the same at target side
'*******************************************************************
response.Buffer=true
Dim proto, zelf
If Request.ServerVariables("SERVER_PORT") = 443 Then
proto = "https://"
Else
proto = "http://"
End If
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
%>
<HTML>
<HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

10
CUST/PCHS/import/import_xd_perslid.bat Normal file
View File

@@ -0,0 +1,10 @@
REM -- import_xd_perslid.bat
REM -- Personenimport om generieke personen over de XD omgevingen in te lezen via
REM -- de standaard personenimport.
REM
REM -- $Revision$
REM -- $Id$
copy ..\..\..\Cust\PCHD\xd_prs_sync\xd_perslid_list.xml .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX PERSLID >>genimport.log 2>>&1

16
CUST/PCHS/sso/SSOprodPCHS.asp
View File

@@ -1,23 +1,29 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'Script: SSOprodPCHS.asp
'
' $Revision$
' $Id$
'
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
'Auteur: Thorwald Beeris
'*******************************************************************
'* declare *********************************************************
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://pchs.facilitor.nl/cust/pchs/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://pchs.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
strSharedKey = "qOszNKMglENlvcMr" 'Sharedkey - Should be the same at target side
'*******************************************************************
response.Buffer=true
Dim proto, zelf
If Request.ServerVariables("SERVER_PORT") = 443 Then
proto = "https://"
Else
proto = "http://"
End If
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
%>
<HTML>
<HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

144
CUST/PCHX/xsl/cXML.xsl Normal file
View File

@@ -0,0 +1,144 @@
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" encoding="UTF-8"/>
<xsl:decimal-format name="european" decimal-separator='.' grouping-separator=',' />
<xsl:param name="mode"/>
<xsl:template match="bestelopdracht">
<xsl:comment>Facilitor custom XSL template for cXML bestelopdracht</xsl:comment>
<xsl:element name="cXML">
<xsl:attribute name="payloadID"><xsl:value-of select="datum/timestamp"/>@http://mycomp.com</xsl:attribute>
<xsl:attribute name="timestamp">2006-05-10T12:41:47+01:00</xsl:attribute>
<xsl:attribute name="xml:lang">NL</xsl:attribute>
<Header>
<From>
<Credential domain="Facilitor" type="marketplace">
<Identity>order@facilityplace.nl</Identity>
</Credential>
</From>
<To>
<xsl:element name="Credential">
<xsl:attribute name="domain"><xsl:value-of select="bedrijf/naam"/></xsl:attribute>
<Identity>8712423002180</Identity>
</xsl:element>
</To>
<Sender>
<Credential domain="Facilitor">
<Identity>order@facilityplace.nl</Identity>
</Credential>
<UserAgent></UserAgent>
</Sender>
</Header>
<Request deploymentMode="test">
<OrderRequest>
<xsl:element name="OrderRequestHeader">
<xsl:attribute name="orderID"><xsl:value-of select="id"/></xsl:attribute>
<xsl:attribute name="orderDate"><xsl:value-of select="/facilitor/bestelopdracht/datum/jaar"/>-<xsl:value-of select="/facilitor/bestelopdracht/datum/maand"/>-<xsl:value-of select="/facilitor/bestelopdracht/datum/dag"/></xsl:attribute>
<xsl:attribute name="type">new</xsl:attribute>
<Total>
<Money currency="EUR"><xsl:value-of select="format-number(sum(bestelopdrachtitem/totaal), '0.00', 'european')"/></Money>
</Total>
<ShipTo>
<xsl:element name="Address">
<xsl:attribute name="addressID"><xsl:value-of select='bedrijf/overeenkomst_nr'/></xsl:attribute>
<Name xml:lang="NL"><xsl:value-of select="afleveradres/naam"/></Name>
<PostalAddress name="default">
<DeliverTo><xsl:value-of select="bestelling/aanvrager/naam_full"/></DeliverTo>
<DeliverTo><xsl:value-of select="bestelling/plaats"/></DeliverTo>
<Street><xsl:value-of select="afleveradres/bezoek_adres"/></Street>
<City><xsl:value-of select="afleveradres/bezoek_plaats"/></City>
<State></State>
<PostalCode><xsl:value-of select="afleveradres/bezoek_postcode"/></PostalCode>
<Country isoCountryCode="NL">Netherlands</Country>
</PostalAddress>
</xsl:element>
</ShipTo>
<BillTo>
<xsl:element name="Address">
<xsl:attribute name="addressID"><xsl:value-of select='factuuradres/gebouw_ruimte'/></xsl:attribute>
<Name xml:lang="NL"><xsl:value-of select="factuuradres/naam"/></Name>
<PostalAddress name="default">
<Street><xsl:value-of select="factuuradres/post_adres"/></Street>
<City><xsl:value-of select="factuuradres/post_plaats"/></City>
<State></State>
<PostalCode><xsl:value-of select="factuuradres/post_postcode"/></PostalCode>
<Country isoCountryCode="NL">Netherlands</Country>
</PostalAddress>
</xsl:element>
</BillTo>
<Payment>
<PCard/>
</Payment>
<Extrinsic name="Costcenter"><xsl:value-of select='bestelling/kostenplaats/nr'/></Extrinsic>
<xsl:for-each select="bestelling/kenmerk">
<xsl:if test="@type!='Q' and @type!='L'">
<xsl:element name="Extrinsic">
<xsl:attribute name="name">
<xsl:value-of select="@naam"/>
</xsl:attribute>
<xsl:value-of select="."/>
</xsl:element>
</xsl:if>
</xsl:for-each>
</xsl:element>
<xsl:for-each select="bestelopdrachtitem">
<xsl:sort select="srtdeel/omschrijving"/>
<xsl:sort select="posnr"/>
<xsl:element name="ItemOut">
<xsl:attribute name="quantity"><xsl:value-of select='aantal'/></xsl:attribute>
<xsl:attribute name="lineNumber"><xsl:value-of select='posnr'/></xsl:attribute>
<ItemID>
<SupplierPartID><xsl:value-of select='bestelitem/srtdeel/artikel_nummer'/></SupplierPartID>
</ItemID>
<ItemDetail>
<UnitPrice>
<Money currency="EUR"><xsl:value-of select='prijs'/></Money>
</UnitPrice>
<Description xml:lang="NL"><xsl:value-of select='bestelitem/srtdeel/omschrijving'/></Description>
<UnitOfMeasure><xsl:value-of select='bestelitem/srtdeel/eenheid'/></UnitOfMeasure>
<Classification domain="SPSC">12345</Classification>
<xsl:for-each select="bestelitem/kenmerk">
<xsl:if test="@type!='Q' and @type!='L'">
<xsl:element name="Extrinsic">
<xsl:attribute name="name">
<xsl:value-of select="@naam"/>
</xsl:attribute>
<xsl:value-of select="."/>
</xsl:element>
</xsl:if>
</xsl:for-each>
</ItemDetail>
<Comments xml:lang="NL">
<xsl:for-each select="bestelitem/kenmerk">
<br/><xsl:value-of select="@naam"/>:&#160;<xsl:value-of select="."/>
</xsl:for-each>
</Comments>
</xsl:element>
</xsl:for-each>
</OrderRequest>
</Request>
</xsl:element>
</xsl:template>
<xsl:template match="facilitor">
<xsl:apply-templates select="bestelopdracht"/>
</xsl:template>
<xsl:template match="/">
<xsl:choose>
<xsl:when test="$mode='getExtension'">
<xsl:element name='format'>
<xsl:element name='extension'>xml</xsl:element>
</xsl:element>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates select="facilitor"/>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>

419
CUST/PCHX/xsl/default.xsl Normal file
View File

@@ -0,0 +1,419 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" version="1.0">
<xsl:template match="opdracht" mode="include">
<table border="0" width="100%" cellpadding="2">
<tr>
<td colspan="4" class="caption" style="padding-top:20px;padding-bottom:20px">
<b>
<xsl:choose>
<xsl:when test="opdrachttype/key=5">Opdracht volgens contract</xsl:when>
<xsl:when test="opdrachttype/key=701">Interne opdracht</xsl:when>
<xsl:when test="opdrachttype/key=702">Opdracht</xsl:when>
<xsl:when test="opdrachttype/key=721">Offerte</xsl:when>
</xsl:choose>&#xA0;
<xsl:value-of select="//facilitor/header/custId"/>&#xA0;
<xsl:value-of select="melding/stdmelding/discipline/srtdiscipline/prefix"/>
<xsl:value-of select="melding/key"/>/<xsl:value-of select="bedrijfopdr_volgnr"/></b>
</td>
</tr>
<tr>
<td width="16%"/>
<td width="34%"/>
<td width="16%" align="right">
<b>
<xsl:value-of select="//lcl/FAC/bedrijf"/>:</b>
</td>
<td width="34%">
<xsl:value-of select="uitvoerende/bedrijf/naam"/>
</td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/contactpersoon"/>:</b>
</td>
<td>
<xsl:value-of select="contactpersoon/naam_full"/>
</td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/telefoon"/>:</b>
</td>
<td>
<xsl:value-of select="contactpersoon/telefoon1"/>
</td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/adres"/>:</b>
</td>
<td>
<xsl:value-of select="uitvoerende/bedrijf/post_adres"/>
</td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/plaats"/>:</b>
</td>
<td>
<xsl:value-of select="uitvoerende/bedrijf/post_plaats"/>
</td>
</tr>
<tr>
<td colspan="4">
<hr/>
</td>
</tr>
<tr>
<td align="right" width="16%">
<b>
<xsl:value-of select="//lcl/FAC/aanvrager"/>:</b>
</td>
<td align="left" width="34%">
<xsl:value-of select="melding/voor/naam_full"/>
</td>
</tr>
<tr>
<td align="right" width="16%">
<b>
<xsl:value-of select="//lcl/FAC/telefoon"/>:</b>
</td>
<td align="left" width="34%">
<xsl:choose>
<xsl:when test="melding/voor/afdeling//bedrijf/naam = 'Extern'">088-1861010</xsl:when>
<xsl:otherwise>
<xsl:choose>
<xsl:when test="melding/voor/telefoonnr != ''">
<xsl:value-of select="melding/voor/telefoonnr"/>
</xsl:when>
<xsl:when test="melding/voor/mobiel != ''">
<xsl:if test="melding/voor/telefoonnr != ''">
<br/>
</xsl:if>
<xsl:value-of select="melding/voor/mobiel"/>
</xsl:when>
</xsl:choose>
</xsl:otherwise>
</xsl:choose>
</td>
</tr>
<tr>
<td align="right" colspan="4">
<i>Graag voor vragen m.b.t. tot de uitvoering van deze opdracht contact opnemen via:</i>
</td>
</tr>
<tr>
<td align="right" width="16%">
<b>Emailadres:</b>
</td>
<td align="left" width="34%">
<xsl:choose>
<xsl:when test="melding/voor/afdeling//bedrijf/naam = 'Extern'">
<a href="mailto:fsb@pch-fm.nl">fsb@pch-fm.nl</a>
</xsl:when>
<xsl:otherwise>
<xsl:element name="a">
<xsl:attribute name="href">
<xsl:text>mailto:</xsl:text>
<xsl:value-of select="melding/voor/email"/>
</xsl:attribute>
<xsl:value-of select="melding/voor/email"/>
</xsl:element>
</xsl:otherwise>
</xsl:choose>
</td>
</tr>
<tr>
<td align="right" colspan="4">
<i>Het betreft onze locatie:</i>
</td>
</tr>
<tr>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/locatie"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/code"/>&#xA0;
<xsl:if test="melding/plaats/regio/district/locatie/omschrijving!=''">(<xsl:value-of select="melding/plaats/regio/district/locatie/omschrijving"/>)</xsl:if>
<xsl:if test="not(melding/plaats/regio/district/locatie/gebouw/kenmerk[@key=10]!='')">
<br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/adres"/>&#xA0;
<br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/postcode"/>&#xA0;&#xA0;
<xsl:value-of select="melding/plaats/regio/district/locatie/plaats"/>
</xsl:if>
</td>
<td align="right">
<b>Opdrachtdatum:</b>
</td>
<td align="left">
<xsl:value-of select="datumbegin/datum"/>
</td>
</tr>
<tr>
<xsl:choose>
<xsl:when test="meldding/plaats/@type='T'">
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/terrein"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/terrein/code"/>-<xsl:value-of select="melding/plaats/regio/district/locatie/terrein/naam"/></td>
</xsl:when>
<xsl:otherwise>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/gebouw"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/code"/>-<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/naam"/><br/>
<xsl:if test="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key=10]!=''">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='10']"/><br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='11']"/>&#xA0;&#xA0;<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='12']"/><br/>
</xsl:if>
</td>
</xsl:otherwise>
</xsl:choose>
<td align="right">
<b>Gewenste uitvoering voor:</b>
</td>
<td align="left">
<xsl:value-of select="einddatum/datum"/>
</td>
</tr>
<tr>
<xsl:if test="melding/plaats/@type='T' or melding/plaats/@type='G'">
<td colspan="2"/>
</xsl:if>
<xsl:if test="melding/plaats/@type!='T' and melding/plaats/@type!='G' and melding/plaats/regio/district/locatie/gebouw/verdieping/code != '-'">
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/bouwlaag"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/code"/>&#xA0;
<xsl:if test="melding/plaats/regio/district/locatie/gebouw/verdieping/omschrijving!=''">(<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/omschrijving"/>)</xsl:if>
</td>
</xsl:if>
</tr>
<tr>
<xsl:if test="melding/plaats/@type='R' and melding/plaats/regio/district/locatie/gebouw/verdieping/ruimte/nr != '-'">
<td align="right" valign="top">
<b>
<xsl:value-of select="//lcl/FAC/ruimte"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/ruimte/nr"/>&#xA0;
<xsl:if test="melding/plaats/regio/district/locatie/gebouw/verdieping/ruimte/omschrijving!=''">(<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/ruimte/omschrijving"/>)</xsl:if>
</td>
</xsl:if>
<xsl:if test="plaats/@type!='R'">
<td colspan="2"/>
</xsl:if>
<td colspan="2"/>
</tr>
<tr>
<td align="right">
<b>Contactpersoon op de locatie:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/naam_full"/>
</td>
</tr>
<tr>
<td align="right" width="16%">
<b>
<xsl:value-of select="//lcl/FAC/telefoon"/>:</b>
</td>
<td align="left" width="34%">
<xsl:choose>
<xsl:when test="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/telefoonnr != ''">
<xsl:value-of select="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/telefoonnr"/>
</xsl:when>
<xsl:when test="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/mobiel != ''">
<xsl:if test="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/telefoonnr != ''">
<br/>
</xsl:if>
<xsl:value-of select="melding/plaats/regio/district/locatie/kenmerk[@key=1000]/perslid/mobiel"/>
</xsl:when>
</xsl:choose>
</td>
</tr>
<tr>
<td colspan="4" height="30px" valign="center">
<hr/>
</td>
</tr>
<tr>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/stdmelding"/>:</b>
</td>
<td align="left">
<xsl:if test="melding/stdmelding/omschrijving=''">-</xsl:if>
<xsl:value-of select="melding/stdmelding/omschrijving"/>
</td>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/vakgroep"/>:</b>
</td>
<td align="left">
<xsl:if test="melding/discipline/omschrijving=''">-</xsl:if>
<xsl:value-of select="melding/discipline/omschrijving"/>
</td>
</tr>
<tr>
<td align="right" valign="top">
<b>
<xsl:value-of select="//lcl/FAC/omschrijving"/>:</b>
</td>
<td align="left" colspan="3">
<xsl:call-template name="linebreaks">
<xsl:with-param name="string" select="omschrijving"/>
</xsl:call-template>
</td>
</tr>
<xsl:if test="opdrachttype/key != 721">
<tr>
<td colspan="4" align="left">
<br/>Graag zien wij een bevestiging van de opdracht tegemoet en vernemen wij de uitvoerdatum van de werkzaamheden.</td>
</tr>
</xsl:if>
<xsl:if test="opdrachttype/kosten = '1'">
<tr>
<td colspan="4" height="30px" valign="center">
<hr/>
</td>
</tr>
<xsl:variable name="uurloon">
<xsl:choose>
<xsl:when test="uurloon">
<xsl:value-of select="uurloon"/>
</xsl:when>
<xsl:otherwise>0</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="arbeid" select="uren*$uurloon"/>
<tr>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/uren"/>:</b>
</td>
<td>
<xsl:value-of select="format-number(uren, '0,00', 'european')"/>
<b>&#xA0;à&#xA0;</b>&#x20AC;&#xA0;<xsl:value-of select="format-number($uurloon, '0,00', 'european')"/></td>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/arbeid"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number($arbeid, '0,00', 'european')"/></td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/materiaal"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number(materiaal, '0,00', 'european')"/></td>
</tr>
<xsl:variable name="correctie0" select="$arbeid + materiaal"/>
<xsl:variable name="correctie" select="kosten - $correctie0"/>
<xsl:if test="$correctie!=0">
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/MLD/correctie"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number($correctie, '0,00', 'european')"/></td>
</tr>
</xsl:if>
<tr>
<td colspan="2"/>
<td align="right">
<b>
<xsl:value-of select="//lcl/FAC/totaal"/>
<xsl:if test="kenmerk[@key=41] = 'Ja'">&#xA0;(indicatief)</xsl:if>:</b>
</td>
<td style="width:1in;text-align:right">
<b>&#x20AC;&#xA0;<xsl:value-of select="format-number(kosten, '0,00', 'european')"/></b>
</td>
</tr>
<tr>
<td colspan="4" align="left">
<xsl:if test="kenmerk[@key=41] = 'Ja'">
<br/>Het bovenstaande bedrag is indicatief. Indien het bedrag hoger wordt, dient eerst contact opgenomen te worden met het Facilitair Service Bureau.<br/></xsl:if>
<br/>De factuur dient (inclusief werkbon en kopie opdrachtbevestiging) onder vermelding van
opdrachtnummer <xsl:value-of select="//facilitor/header/custId"/>&#xA0;<xsl:value-of select="melding/stdmelding/discipline/srtdiscipline/prefix"/>
<xsl:value-of select="melding/key"/>/<xsl:value-of select="bedrijfopdr_volgnr"/> gezonden te
worden naar:<br/><br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/kenmerk[@key=1060]"/>
<br/>Postbus 4358<br/>
7320&#xA0;AJ&#xA0;&#xA0;Apeldoorn<br/>
<br/>Facturen zonder referentie, kopie zullen worden geretourneerd. De factuur <b>uiterlijk 3 weken na oplevering</b> toezenden.</td>
</tr>
</xsl:if>
<tr>
<td colspan="4" height="30px" valign="center">
</td>
</tr>
<xsl:if test="opdrachttype/key = 5 or opdrachttype/key = 702">
</xsl:if>
</table>
</xsl:template>
<xsl:template match="melding" mode="full">
<xsl:choose>
<xsl:when test="$mode='summary'"></xsl:when>
<xsl:otherwise>
<html>
<xsl:comment>================================ MELDINGEN ==============================</xsl:comment>
<xsl:comment>FACILITOR default XSL template for melding</xsl:comment>
<xsl:call-template name="htmlhead"/>
<xsl:element name="body">
<xsl:call-template name="pageheader"/>
<xsl:choose>
<xsl:when test="$srtnotificatiecode = 'MLDKTO'">
<xsl:apply-templates select="." mode="kto"/>
</xsl:when>
<xsl:otherwise>
<xsl:apply-templates select="." mode="include"/>
</xsl:otherwise>
</xsl:choose>
<xsl:call-template name="pagefooter"/>
</xsl:element>
</html>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="opdracht" mode="full">
<xsl:choose>
<xsl:when test="$mode='summary'"></xsl:when>
<xsl:otherwise>
<html>
<xsl:comment>================================ OPDRACHTEN ==============================</xsl:comment>
<xsl:comment>FACILITOR default XSL template for opdracht</xsl:comment>
<xsl:call-template name="htmlhead"/>
<xsl:element name="body">
<xsl:call-template name="pageheader"/>
<xsl:apply-templates select="." mode="include"/>
<xsl:call-template name="pagefooter"/>
</xsl:element>
</html>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>

10
CUST/PCHY/import/import_xd_perslid.bat Normal file
View File

@@ -0,0 +1,10 @@
REM -- import_xd_perslid.bat
REM -- Personenimport om generieke personen over de XD omgevingen in te lezen via
REM -- de standaard personenimport.
REM
REM -- $Revision$
REM -- $Id$
copy ..\..\..\Cust\PCHD\xd_prs_sync\xd_perslid_list.xml .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX PERSLID >>genimport.log 2>>&1

16
CUST/PCHY/sso/SSOprodPCHY.asp
View File

@@ -1,23 +1,29 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'Script: SSOprodPCHY.asp
'
' $Revision$
' $Id$
'
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
'Auteur: Thorwald Beeris
'*******************************************************************
'* declare *********************************************************
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://pchy.facilitor.nl/cust/pchy/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://pchy.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
strSharedKey = "YNeNwuOVoBvLIHew" 'Sharedkey - Should be the same at target side
'*******************************************************************
response.Buffer=true
Dim proto, zelf
If Request.ServerVariables("SERVER_PORT") = 443 Then
proto = "https://"
Else
proto = "http://"
End If
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
%>
<HTML>
<HEAD>
@@ -31,7 +37,7 @@ function fnSubmit() {
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -76,7 +82,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

20
CUST/PNBR/import/GetStatus.js
View File

@@ -8,7 +8,7 @@
function padout(number) { return (number < 10) ? "0" + number : number; }
function date2string(mydate) {
function date2string(mydate) {
return padout(mydate.getFullYear()) + "-" + padout(mydate.getMonth() + 1) + "-" + padout(mydate.getDate())
+ " " + padout(mydate.getHours()) + "-" + padout(mydate.getMinutes() + 1) + "-" + padout(mydate.getSeconds());
}
@@ -46,10 +46,10 @@ try {
// plaats de bestandsnamen en creatiedata in een resultset om deze vervolgens te kunnen filteren.
folder = folder.replace(/\//g,"\\");
//WScript.Echo("Folder: " + folder);
var f = fso.GetFolder(folder);
var fc = new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext())
{
var f = fso.GetFolder(folder);
var fc = new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext())
{
filename = fc.item().name;
//WScript.Echo("File: " + filename);
var file = fso.GetFile(folder + filename);
@@ -62,9 +62,9 @@ try {
objRS("Name") = filename;
objRS("created") = file.DateCreated;
}
}
}
if (filecount > 0) {
objRS.Sort = "created ASC";
objRS.Sort = "created ASC";
objRS.MoveFirst();
while (!objRS.EOF)
{
@@ -80,7 +80,7 @@ try {
//WScript.Echo("Request1: " + fileStream.ReadText);
XMLReq = fileStream.ReadText;
//WScript.Echo("Request: " + XMLReq);
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0");
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0");
objXMLHTTP.open("POST",
url
@@ -92,13 +92,13 @@ try {
WScript.Echo("Status: " + objXMLHTTP.status);
WScript.Echo("StatusText: " + objXMLHTTP.statusText);
WScript.Echo("Result: " + objXMLHTTP.responseText);
if (objXMLHTTP.status == 200) {
jsDate = new Date;
dateString = padout(jsDate.getFullYear()) + "-" + padout(jsDate.getMonth() + 1) + "-" + padout(jsDate.getDate());
timeString = padout(jsDate.getHours()) + "-" + padout(jsDate.getMinutes() + 1) + "-" + padout(jsDate.getSeconds());
backDir = backdir_api + dateString + "_" + api + "\\";
if (!fso.FolderExists(backDir))
if (!fso.FolderExists(backDir))
fso.CreateFolder(backDir)
// deze file backuppen
//WScript.Echo("from:" + filename);

BIN
CUST/PNBR/oracle.udl
View File

Binary file not shown.

114
CUST/PNBR/sso/SSOprodPNBR.asp
View File

@@ -118,117 +118,3 @@ End Function
</form>
</BODY>
</HTML>
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'
' $Revision$
' $Id$
'
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
'Auteur: Thorwald Beeris
'*******************************************************************
'* declare *********************************************************
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://pnbr-a.facilitor.nl/cust/pnbr/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "b8044f2d-49de-4a28-91e6-560a061b7ccd" 'Sharedkey - Should be the same at target side
'*******************************************************************
response.Buffer=true
%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function fnSubmit() {
window.document.form.submit();
return;
}
</SCRIPT>
</HEAD>
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
strCTID = Request.form("ctid")
if strGUID = "" or strCTID = "" then
'* first flow: requestid ****************************************
%>
<input type="hidden" name="action" value="requestid" ID="Hidden2">
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
<%
else
'* second flow: create code *************************************
strUserName = Request.ServerVariables("LOGON_USER")
if strUserName = "" then
strUserName = Request.ServerVariables("REMOTE_USER")
if strUserName = "" then
strUserName = Request.ServerVariables("HTTP_USER")
if strUserName = "" then
strUserName = Request.ServerVariables("HTTP_LOGIN")
if strUserName = "" then
'Forse user to authenticate
response.Clear
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
' * Strip domain name
Do While instr(strUserName, "\")>0
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
Loop
'* crypt ********************************************************
'First coding phase
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
strEncryptedCode = EnCrypt(strUserName)
'Second coding phase
strKey = mid(strGUID,1,Len(strEncryptedCode))
strEncryptedCode = EnCrypt(strEncryptedCode)
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
%>
<input type="hidden" name="action" value="processcode" ID="Hidden3">
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
<%
end if
'* Functions ********************************************************
Function EnCrypt(strCryptThis)
Dim strChar, iKeyChar, iStringChar, i
for i = 1 to Len(strCryptThis)
iKeyChar = Asc(mid(strKey,i,1))
iStringChar = Asc(mid(strCryptThis,i,1))
iCryptChar = iKeyChar Xor iStringChar
strEncrypted = strEncrypted & Chr(iCryptChar)
next
EnCrypt = strEncrypted
End Function
Function ConvertToAsc(strAsc)
Dim iCount
Dim strTemp
ConvertToAsc = ""
for iCount = 1 to len(strAsc)
strTemp = (asc(mid(strAsc,iCount,1)))
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
next
End Function
'*********************************************************************
%>
</form>
</BODY>
</HTML>

4
CUST/PNBR/voorraad/default.asp
View File

@@ -12,7 +12,7 @@
<!-- #include file="../../../Appl/Shared/common.inc" -->
<%
var objReq = new ActiveXObject("MSXML2.DOMDocument.4.0");
var objReq = new ActiveXObject("MSXML2.DOMDocument.6.0");
objReq.load(Request);
//__DoLog("Ontvangen: " + Server.HTMLEncode(objReq.xml));
if (objReq.parseError.errorCode != 0)
@@ -48,7 +48,7 @@ if (!objGroup)
var l_voorraad = bepaal_voorraad_van_artikel(objPart.text, objGroup.text);
__DoLog (l_voorraad);
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"UTF-8\""))

4
CUST/PZHO/voorraad/default.asp
View File

@@ -13,7 +13,7 @@
<%
var objReq = new ActiveXObject("MSXML2.DOMDocument.4.0");
var objReq = new ActiveXObject("MSXML2.DOMDocument.6.0");
objReq.load(Request);
if (objReq.parseError.errorCode != 0)
@@ -41,7 +41,7 @@ if (!objPart)
var l_voorraad = bepaal_voorraad_van_artikel(objPart.text, objGroup.text);
__DoLog (l_voorraad);
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"UTF-8\""))

BIN
CUST/RENK/oracle.udl Normal file
View File

Binary file not shown.

8
CUST/RWSN/Import/get_aafm_status.js
View File

@@ -23,12 +23,12 @@ function GetAAFMStatus()
+"</facilitor>";
WScript.Echo("Bericht = " + XMLReq);
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0")
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
objXMLHTTP.open("POST", mldorder_adres, false);
objXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
objXMLHTTP.send(XMLReq);
WScript.Echo("Ophalen status: " + objXMLHTTP.status);
dataReceived = false;
@@ -42,7 +42,7 @@ function GetAAFMStatus()
XMLReq = responseText;
// Resultaat aanbieden aan de opdr_soap_api
objXMLHTTP.open("POST", url, false);
objXMLHTTP.open("POST", url, false);
objXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
objXMLHTTP.send(XMLReq);
@@ -67,7 +67,7 @@ function GetAAFMStatus()
{
WScript.Echo("Mislukt, status = " + objXMLHTTP.status);
WScript.Echo(objXMLHTTP.statusText);
}
}
return dataReceived;
}

26
CUST/RWSN/api_opdrsoap.asp
View File

@@ -36,7 +36,7 @@
var appendRemark = -1;
for (opt in API.apidata.options)
{
if (opt = "appendRemark")
if (opt = "appendRemark")
{
appendRemark = API.apidata.options["appendRemark"] == 1;
}
@@ -58,10 +58,10 @@
// fileStream.SaveToFile(Server.MapPath(rooturl + "/temp/") + "/" + customerId + "_" + APIname + ".tmp", 2); // 2=create
//}
var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
var xmlReq = Server.CreateObject("MSXML2.DOMDocument.6.0");
xmlReq.load(Request);
var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlResp = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
// The response
@@ -157,7 +157,7 @@
opdr_key = oRs("mld_opdr_key").value;
oldstatus = oRs("mld_statusopdr_key").value;
topdr_key = oRs("mld_typeopdr_key").value;
}
}
if (opdr_key == -1) {
resultcode = 5;
@@ -173,7 +173,7 @@
+ " FROM mld_stdmelding ms"
+ " WHERE mld_stdmelding_key = " + mld_opdr.stdm_key;
var oRs = Oracle.Execute(sql);
var autoorder = oRs("mld_stdmelding_autoorder").value == 1;
var autoorder = oRs("mld_stdmelding_autoorder").value == 1;
var mut_datum = new Date();
if (txt_mut_datum && mld_opdr.typeopdr_afmeldmarge>0)
@@ -307,7 +307,7 @@
}
}
}
var this_mld = mld.func_enabled_melding(mld_opdr.mld_key);
// mag ik de melding ook aanpassen?
if (this_mld.canChange && autoorder)
@@ -338,20 +338,20 @@
+ " AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key "
+ " AND sk.mld_srtkenmerk_upper = " + safe.quoted_sql_upper(kenmerk_naam);
var oRs = Oracle.Execute(ksql);
if (!oRs.eof)
if (!oRs.eof)
{
var kenmerk_key = oRs("mld_kenmerk_key").value;
var kenmerk_type = oRs("mld_srtkenmerk_kenmerktype").value;
var kenmerk_lengte = oRs("mld_srtkenmerk_lengte").value;
ksql = "SELECT ko.mld_kenmerkopdr_key "
+ " FROM mld_kenmerkopdr ko "
+ " WHERE ko.mld_opdr_key = " + opdr_key
+ " AND ko.mld_kenmerk_key = " + kenmerk_key;
var oRs = Oracle.Execute(ksql);
if (kenmerk_type = 'C')
if (kenmerk_type = 'C')
{
// we ondersteunen alleen nog maar karakter velden.
if (!oRs.eof)
@@ -406,8 +406,8 @@
var oRs = Oracle.Execute(tsql);
// Afhankelijk van sluitmelding nu melding status zetten (0=nooit, 1=vragen en 2=altijd)
if ( (oRs("mld_typeopdr_sluitmelding").value == 2 || oRs("mld_typeopdr_sluitmelding").value == 1)
&& this_mld.canClose
if ( (oRs("mld_typeopdr_sluitmelding").value == 2 || oRs("mld_typeopdr_sluitmelding").value == 1)
&& this_mld.canClose
&& opdrstatus != 'ORDCAN') {
mld.setmeldingstatus (mldkey, 5); // Afgemeld
var sql = "BEGIN fac.backtrackaction('MLDAFM', " + mldkey + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"

BIN
CUST/RWSN/oracle.udl Normal file
View File

Binary file not shown.

3
CUST/SBSH/cust.css
View File

@@ -123,9 +123,6 @@ td.flexlabel {
div#PersFAC ul li span.menukop {
color: #c61810;
}
span.menukop {
background-image:url(Pictures/spot.png);
}
/* API-portal */
#phonebookdetails a:link,

BIN
CUST/SBSH/oracle.udl Normal file
View File

Binary file not shown.

108
CUST/SBSH/xsl/cust.xsl
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" xmlns:date="http://exslt.org/dates-and-times" extension-element-prefixes="date" version="1.0">
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" version="1.0">
<xsl:import href="../../../appl/shared/default.xsl"/>
<xsl:variable name="Rev">
<!-- Revision van deze cust.xsl -->
@@ -146,94 +146,16 @@
</table>
</xsl:template>
<xsl:param name="date:date-time" select="'2000-01-01T00:00:00Z'"/>
<date:month-lengths>
<date:month>31</date:month>
<date:month>28</date:month>
<date:month>31</date:month>
<date:month>30</date:month>
<date:month>31</date:month>
<date:month>30</date:month>
<date:month>31</date:month>
<date:month>31</date:month>
<date:month>30</date:month>
<date:month>31</date:month>
<date:month>30</date:month>
<date:month>31</date:month>
</date:month-lengths>
<date:days>
<date:day abbr="Sun">1</date:day>
<date:day abbr="Mon">0</date:day>
<date:day abbr="Tue">0</date:day>
<date:day abbr="Wed">0</date:day>
<date:day abbr="Thu">0</date:day>
<date:day abbr="Fri">0</date:day>
<date:day abbr="Sat">1</date:day>
</date:days>
<xsl:template name="date:day-name">
<xsl:param name="date-time">
<xsl:choose>
<xsl:when test="function-available('date:date-time')">
<xsl:value-of select="date:date-time()"/>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$date:date-time"/>
</xsl:otherwise>
</xsl:choose>
</xsl:param>
<xsl:variable name="neg" select="starts-with($date-time, '-')"/>
<xsl:variable name="dt-no-neg">
<xsl:choose>
<xsl:when test="$neg or starts-with($date-time, '+')">
<xsl:value-of select="substring($date-time, 2)"/>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$date-time"/>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="dt-no-neg-length" select="string-length($dt-no-neg)"/>
<xsl:variable name="timezone">
<xsl:choose>
<xsl:when test="substring($dt-no-neg, $dt-no-neg-length) = 'Z'">Z</xsl:when>
<xsl:otherwise>
<xsl:variable name="tz" select="substring($dt-no-neg, $dt-no-neg-length - 5)"/>
<xsl:if test="(substring($tz, 1, 1) = '-' or substring($tz, 1, 1) = '+') and substring($tz, 4, 1) = ':'">
<xsl:value-of select="$tz"/>
</xsl:if>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="day-of-week">
<xsl:if test="not(string($timezone)) or $timezone = 'Z' or (substring($timezone, 2, 2) &lt;= 23 and substring($timezone, 5, 2) &lt;= 59)">
<xsl:variable name="dt" select="substring($dt-no-neg, 1, $dt-no-neg-length - string-length($timezone))"/>
<xsl:variable name="dt-length" select="string-length($dt)"/>
<xsl:variable name="year" select="substring($dt, 1, 4)"/>
<xsl:variable name="leap" select="(not($year mod 4) and $year mod 100) or not($year mod 400)"/>
<xsl:variable name="month" select="substring($dt, 6, 2)"/>
<xsl:variable name="day" select="substring($dt, 9, 2)"/>
<xsl:if test="number($year) and substring($dt, 5, 1) = '-' and $month &lt;= 12 and substring($dt, 8, 1) = '-' and $day &lt;= 31 and ($dt-length = 10 or (substring($dt, 11, 1) = 'T' and substring($dt, 12, 2) &lt;= 23 and substring($dt, 14, 1) = ':' and substring($dt, 15, 2) &lt;= 59 and substring($dt, 17, 1) = ':' and substring($dt, 18) &lt;= 60))">
<xsl:variable name="month-days" select="sum(document('')/*/date:month-lengths/date:month[position() &lt; $month])"/>
<xsl:variable name="days">
<xsl:choose>
<xsl:when test="$leap and $month &gt; 2">
<xsl:value-of select="$month-days + $day + 1"/>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$month-days + $day"/>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:variable name="y-1" select="$year - 1"/>
<xsl:value-of select="(($y-1 + floor($y-1 div 4) - floor($y-1 div 100) + floor($y-1 div 400) + $days) mod 7) + 1"/>
</xsl:if>
</xsl:if>
</xsl:variable>
<xsl:value-of select="document('')/*/date:days/date:day[number($day-of-week)]"/>
</xsl:template>
<xsl:template name="isweekend">
<xsl:param name="timestamp"/>
<xsl:variable name="dayofweek">
<xsl:value-of select="floor((($timestamp div 86400) + 5) mod 7)"/>
</xsl:variable>
<xsl:choose>
<xsl:when test="$dayofweek = 0 or $dayofweek = 1">1</xsl:when>
<xsl:otherwise>0</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="melding" mode="include">
<table border="0" width="100%" cellpadding="2">
@@ -924,8 +846,8 @@
<xsl:sort select="van/utctijd"/>
<xsl:sort select="res_ruimte/nr"/>
<xsl:variable name="weekend">
<xsl:call-template name="date:day-name">
<xsl:with-param name="date-time" select="concat(van/jaar,'-',van/maand,'-',van/dag,'T00:00:00Z')"/>
<xsl:call-template name="isweekend">
<xsl:with-param name="timestamp" select="van/timestamp"/>
</xsl:call-template>
</xsl:variable>
<xsl:if test="$weekend=0 and contact_user/afdeling/key=$huurder">
@@ -980,8 +902,8 @@
<xsl:sort select="van/utctijd"/>
<xsl:sort select="res_ruimte/nr"/>
<xsl:variable name="weekend">
<xsl:call-template name="date:day-name">
<xsl:with-param name="date-time" select="concat(van/jaar,'-',van/maand,'-',van/dag,'T00:00:00Z')"/>
<xsl:call-template name="isweekend">
<xsl:with-param name="timestamp" select="van/timestamp"/>
</xsl:call-template>
</xsl:variable>
<xsl:if test="$weekend=1 and contact_user/afdeling/key=$huurder">

BIN
CUST/SGGR/oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/SKAF/Oracle.udl
View File

Binary file not shown.

50
CUST/SKAF/export/fclt_conv_factuur_xml.js
View File

@@ -1,17 +1,17 @@
// Aanroep van deze jscript-file vereist 3 parameters
// rem 1e parameter: conversie-bestand (xsl).
// rem 2e parameter: bron-xml staat in deze folder.
// rem 3e parameter: doel-xml komt in deze folder te staan.
// 1) // XSL-bestand inclusief pad
var p_xsl = WScript.Arguments(0);
var p_xsl = WScript.Arguments(0);
// 2) Folder waar het bronbestand (xml) staat
var p_folder_bronxml = WScript.Arguments(1);
// 3) Folder waar het doelbestand (xml) terecht moet komen
var p_folder_doelxml = WScript.Arguments(2);
fclt_2_anderformaat(p_xsl, p_folder_bronxml,p_folder_doelxml);
@@ -19,48 +19,48 @@ function fclt_2_anderformaat (p_xsl, p_folder_bronxml,p_folder_doelxml)
{
// Naam van XML file
l_factuur_file = GetFactuurFile(p_folder_bronxml);
// Nu incl foldernaam
// Nu incl foldernaam
l_xml_file = p_folder_bronxml + l_factuur_file;
WScript.Echo("Before xml");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xmlDoc.load(l_xml_file);
WScript.Echo(l_xml_file);
WScript.Echo("After xml");
if (1 == 0 && p_xsl)
{
WScript.Echo("Before xslDoc");
var xslDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xslDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xslDoc.load(p_xsl);
WScript.Echo("After xslDoc");
var fso = new ActiveXObject("Scripting.FileSystemObject");
// output = fso.CreateTextFile(p_folder_doelxml + l_factuur_file);
output = fso.CreateTextFile(p_folder_doelxml + l_factuur_file, true,true);
output.Write(xmlDoc.transformNode(xslDoc));
output.close();
}
}
if (p_xsl){
var xslDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
var xslDoc = new ActiveXObject("MSXML2.DOMDocument.6.0");
xslDoc.load(p_xsl);
WScript.Echo("After xslDoc");
var oStream = new ActiveXObject("ADODB.Stream");
oStream.Open();
oStream.Type = 2; //
oStream.Charset = "UTF-8"; //
// oStream.Write(xmlDoc.transformNodeToObject(xslDoc, xmlDoc));
oStream.Type = 2; //
oStream.Charset = "UTF-8"; //
// oStream.Write(xmlDoc.transformNodeToObject(xslDoc, xmlDoc));
oStream.WriteText(xmlDoc.transformNode(xslDoc));
WScript.Echo("After transform");
oStream.SaveToFile (p_folder_doelxml + l_factuur_file, 2); // adSaveCreateOverWrite
oStream.Close();
@@ -82,7 +82,7 @@ function GetFactuurFile(p_folder)
{
var fso1, f, fc, s, l_result;
fso1 = new ActiveXObject("Scripting.FileSystemObject");
f = fso1.GetFolder(p_folder);
fc = new Enumerator(f.files);
s = "";

10
CUST/SKAF/import/GetCatalogus.js
View File

@@ -5,15 +5,15 @@
// $Id$
//
// Kopie van UWVA#14582, gewijzigd nav SKAF#26982
// Vier parameters:
// Vier parameters:
// 1) GET of PUT method van aanroep (GET->XML staat klaar cq. simpel recht toe recht aan XML download, PUT->webserivce die XML genereert adhv meegegeven XML-request).
// 2) Discipline-key (catalogus-ID),
// 3) UDL voor database connectie,
// 3) UDL voor database connectie,
// 4) en optioneel proxy-ip
// l_method = "GET" (get = oorspronkelijk Braspma, met 1 XML die niet via webservice verliep, maar rechtstreeks wordt gedownload
// = "PUT" (put = standaard in fclt, bij UWVA Mostshop) of
// = "POST" (post = Braspa, via PUT gaat dit op hun php fout???)
// = "PUT" (put = standaard in fclt, bij UWVA Mostshop) of
// = "POST" (post = Braspa, via PUT gaat dit op hun php fout???)
var l_method = WScript.Arguments(0);
var disckey = WScript.Arguments(1); // discipline-key
var str = WScript.Arguments(2); // udlpath
@@ -38,7 +38,7 @@ function GetCatalogus(p_Method, CatalogURL, CatalogName, CatalogFile)
+"</facilitor>";
}
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.4.0")
var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
var SXH_PROXY_SET_PROXY = 2;
if (debugFiddler)

6
CUST/SKAF/import/gen_import_catalogus_boodschappen.bat
View File

@@ -4,3 +4,9 @@ cscript .\GetCatalogus.js "POST" 741 ../oracle.udl>>genimport.log
MOVE catalog741.xml d:/Apps/Facilitor/ftp_sites/LocalUser/SKAFFtp/Catalog/Boodschappenonline
Echo Inlezen/verwerken catalogus 741 via importfunctie key 201
cscript ..\..\..\utils\gen_import\gen_import.wsf SKAF 201 >>genimport.log 2>>&1
REM: Import Catalogus "Boodschappen CB" (disc-key = 761, import-key = 221)
cscript .\GetCatalogus.js "POST" 761 ../oracle.udl>>genimport.log
MOVE catalog761.xml d:/Apps/Facilitor/ftp_sites/LocalUser/SKAFFtp/Catalog/Boodschappenonline
Echo Inlezen/verwerken catalogus 761 via importfunctie key 221
cscript ..\..\..\utils\gen_import\gen_import.wsf SKAF 221 >>genimport.log 2>>&1

53
CUST/SORO/xsl/cust.xsl
View File

@@ -120,7 +120,12 @@
</tr>
</xsl:if>
<tr>
<td colspan="2"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/aanvrager"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/voor/naam_full"/>
</td>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/datum_gereed"/>:</b>
</td>
@@ -129,7 +134,13 @@
</td>
</tr>
<tr>
<td colspan="2"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/locatie"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/voor/werkplek/plaats/regio/district/locatie/code"/>&#xA0;
<xsl:if test="melding/voor/werkplek/plaats/regio/district/locatie/omschrijving!=''">(<xsl:value-of select="voor/werkplek/plaats/regio/district/locatie/omschrijving"/>)</xsl:if>
</td>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/datum_verzonden"/>:</b>
</td>
@@ -138,7 +149,24 @@
</td>
</tr>
<tr>
<td colspan="2"/>
<xsl:choose>
<xsl:when test="melding/plaats/@type='T'">
<td align="right">
<b><xsl:value-of select="//lcl/FAC/terrein"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/terrein/code"/>-<xsl:value-of select="melding/plaats/regio/district/locatie/terrein/naam"/></td>
</xsl:when>
<xsl:otherwise>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/gebouw"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/code"/>-<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/naam"/><br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='1000']"/><br/><xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='1001']"/>&#xA0;&#xA0;<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='1002']"/><br/>
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/kenmerk[@key='1003']"/></td>
</xsl:otherwise>
</xsl:choose>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/status"/>:</b>
</td>
@@ -146,6 +174,25 @@
<xsl:value-of select="status"/>
</td>
</tr>
<tr>
<xsl:if test="melding/plaats/@type='T' or melding/plaats/@type='G'">
<td colspan="2"/>
</xsl:if>
<xsl:if test="melding/plaats/@type!='T' and melding/plaats/@type!='G'">
<td align="right">
<b><xsl:value-of select="//lcl/FAC/bouwlaag"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/code"/>&#xA0;
<xsl:if test="melding/plaats/regio/district/locatie/gebouw/verdieping/omschrijving!=''">(<xsl:value-of select="melding/plaats/regio/district/locatie/gebouw/verdieping/omschrijving"/>)</xsl:if>
</td>
</xsl:if>
</tr>
<tr>
<td colspan="4" height="30px" valign="center">
<hr/>
</td>
</tr>
<tr>
<td align="right" valign="top">
<b><xsl:value-of select="//lcl/FAC/omschrijving"/>:</b>

BIN
CUST/STAN/Oracle.udl
View File

Binary file not shown.

BIN
CUST/STPH/banner.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.6 KiB

21
CUST/STPH/export/gen_export_catering_dbs.bat Normal file
View File

@@ -0,0 +1,21 @@
REM GEN_EXPORT_CATERING_DBS.BAT
REM
REM VGLD
REM
REM
REM Context : roep deze file aan indien nodig, of schedule deze
REM Verseist: de randvoorwaarde voor het gebruik van gen_export
REM
REM $Revision$
REM $Id$
REM
REM ================================ create exportfile
rem - stap 1: de catering (van reserveringen) exporteren
call ..\..\..\utils\gen_export\gen_export.bat CATERING_DBS
REM ================================================== cleanup

21
CUST/STPH/export/gen_export_dbs.bat Normal file
View File

@@ -0,0 +1,21 @@
REM GEN_EXPORT_DBS.BAT
REM
REM VGLD
REM
REM
REM Context : roep deze file aan indien nodig, of schedule deze
REM Verseist: de randvoorwaarde voor het gebruik van gen_export
REM
REM $Revision$
REM $Id$
REM
REM ================================ create exportfile
rem - stap 1: de factuur-records exporteren en status naar "admin. verwerkt" zetten
call ..\..\..\utils\gen_export\gen_export.bat DBS
REM ================================================== cleanup

21
CUST/STPH/export/gen_export_dbs_magazijnbestelling.bat Normal file
View File

@@ -0,0 +1,21 @@
REM GEN_EXPORT_DBS.BAT
REM
REM VGLD
REM
REM
REM Context : roep deze file aan indien nodig, of schedule deze
REM Verseist: de randvoorwaarde voor het gebruik van gen_export
REM
REM $Revision$
REM $Id$
REM
REM ================================ create exportfile
rem - stap 1: de magazijnbestelopdracht-records exporteren en status naar "admin. verwerkt" zetten
call ..\..\..\utils\gen_export\gen_export.bat INTERN_BES_DBS
REM ================================================== cleanup

19
CUST/STPH/export/gen_undo_dbs.bat Normal file
View File

@@ -0,0 +1,19 @@
REM GEN_UNDO_DBS.BAT
REM
REM STPH
REM
REM
REM Context : roep deze file aan indien nodig, of schedule deze elke 5 minuten
REM Verseist: de randvoorwaarde voor het gebruik van gen_export
REM
REM $Revision$
REM $Id$
REM
REM ================================ create exportfile
rem - stap 1: de factuur-records van de laatste export worden van status "admin. verwerkt" teruggezet naar "akkoord"
call ..\..\..\utils\gen_export\gen_export.bat UNDO_DBS
REM ================================================== cleanup

1
CUST/STPH/import/gen_import_prs.bat Normal file
View File

@@ -0,0 +1 @@
cscript ..\..\..\utils\gen_import\gen_import.wsf STPH PERSLID >>genimport.log 2>>&1

BIN
CUST/STPH/oracle.udl Normal file
View File

Binary file not shown.

4
CUST/STPH/tasks/gen_notify.bat Normal file
View File

@@ -0,0 +1,4 @@
@echo off
REM Moet gescheduled worden (normaliter 1 keer per uur) om door de applicatiebeheerder
REM ingeregelde notificaties te genereren.
cscript ..\..\..\utils\gen_notify\gen_notify.js ../oracle.udl STPH

1
CUST/STPH/tasks/putOrders.bat Normal file
View File

@@ -0,0 +1 @@
call ..\..\..\utils\putOrders\putOrders.bat

BIN
CUST/STPH/tmpl_logo.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.4 KiB

221
CUST/STPH/xsl/Lyreco.xsl Normal file
View File

@@ -0,0 +1,221 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:import href="../../../appl/shared/default.xsl"/>
<xsl:variable name="Rev">
<!-- Revision van deze cust.xsl -->
<xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
</xsl:variable>
<xsl:template match="bestelopdracht" mode="include">
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">
<TR>
<TD WIDTH="40" ROWSPAN="30" ID="LINKERMARGE"></TD>
<TD>
<!-- Bestelopdracht -->
<table border="0" bordercolor="#ffffff" width="100%">
<tr>
<td colspan="5" class="caption" style="text-align:center">
<b>Inkooporder</b>
</td>
</tr>
<tr>
<td colspan="5" style="height:30"/>
</tr>
<tr>
<td colspan="2" style="width:47%">
<b>Factuur aan:</b>
</td>
<td style="width:6%"></td>
<td colspan="2" style="width:47%">
<b>Leverancier:</b>
</td>
</tr>
<tr>
<td colspan="2">
<xsl:value-of select="factuuradres/naam"/>
<br/>
<xsl:value-of select="factuuradres/post_adres"/>
<br/>
<xsl:value-of select="factuuradres/post_postcode"/>&#xA0;
<xsl:value-of select="factuuradres/post_plaats"/>
<br/>
<xsl:value-of select="factuuradres/post_land"/>
</td>
<td/>
<td colspan="2">
<xsl:value-of select="bedrijf/naam"/>
<br/>
<xsl:value-of select="bedrijf/post_adres"/>
<br/>
<xsl:value-of select="bedrijf/post_postcode"/>&#xA0;
<xsl:value-of select="bedrijf/post_plaats"/>
<br/>
<xsl:value-of select="bedrijf/post_land"/>
</td>
</tr>
<tr>
<td colspan="5" style="height:20"/>
</tr>
<tr>
<td colspan="2">
<b>Contactgevevens:</b>
</td>
<td/>
<td colspan="2">
<b/>
</td>
</tr>
<tr>
<td colspan="2" style="vertical-align:top">
<b>Besteller:</b>
<xsl:value-of select="bestelling/voor/naam_full"/>
<br/>
<b>E-mail:</b>
<xsl:value-of select="bestelling/voor/email"/>
<br/>
<b>Telefoon:</b>
<xsl:value-of select="bestelling/voor/telefoonnr"/>
<br/>
<b>Kostenplaats:</b>
<xsl:value-of select="bestelling/kostenplaats/nr"/>
<br/>
<b>Werkplek:</b>
<xsl:value-of select="bestelling/plaats"/>
</td>
<td/>
<td colspan="2" style="vertical-align:top">
<b>Klantnummer:</b>3721974<br/>
<b>Opdrachtnummer:</b>
<xsl:value-of select="id"/>
<br/>
<b>Orderdatum:</b>
<xsl:value-of select="datum/datum"/>
<br/>
<xsl:comment>
<b>Gewenste afleverdatum:</b>*leverdatum*</xsl:comment>
</td>
</tr>
<tr>
<td colspan="5" style="height:20"/>
</tr>
<tr>
<td colspan="2">
<b>Gewenste afleverdatum:</b> <xsl:value-of select="/facilitor/bestelopdracht/bestelling/leverdatum/datum"/>
</td>
<td/>
<td colspan="2">
<b/>
</td>
</tr>
<tr>
<td colspan="2">
<b>Afleveradres:</b>
</td>
<td/>
<td colspan="2">
<b/>
</td>
</tr>
<tr>
<td colspan="2" style="vertical-align:top">
<xsl:value-of select="afleveradres/naam"/>
<br/>
<xsl:value-of select="afleveradres/bezoek_adres"/>
<br/>
<xsl:value-of select="afleveradres/bezoek_postcode"/>&#xA0;
<xsl:value-of select="afleveradres/bezoek_plaats"/>
<br/>
<xsl:value-of select="afleveradres/bezoek_land"/>
</td>
<td/>
<td colspan="2" style="vertical-align:top">
<xsl:for-each select="bestelling/kenmerk">
<xsl:if test="(@type!='L' and @type!='l')">
<b>
<xsl:value-of select="@naam"/>:</b>
<xsl:value-of select="."/>
<br/>
</xsl:if>
</xsl:for-each>&#xA0;</td>
</tr>
<tr>
<td colspan="5" style="height:20"/>
</tr>
<TR>
<TD colspan="5">
<TABLE cellpadding="0" cellspacing="0" border="1" bordercolor="#303030" width="100%">
<tr>
<th style="width:20">Regel</th>
<th style="width:20">Artikelnr</th>
<th style="width:200">Omschrijving</th>
<th style="width:20">Eenheid</th>
<th style="width:20; text-align:right">Aantal</th>
<th style="width:20; text-align:right">Prijs</th>
<th style="width:20; text-align:right">Totaal</th>
</tr>
<xsl:for-each select="bestelopdrachtitem">
<xsl:sort select="srtdeel/omschrijving"/>
<xsl:sort select="posnr" data-type="number"/>
<tr>
<td class="result">
<xsl:value-of select="posnr"/>
</td>
<td class="result">
<xsl:value-of select="bestelitem/srtdeel/artikel_nummer"/>
</td>
<td class="result">
<xsl:value-of select="bestelitem/srtdeel/omschrijving"/>&#xA0;
<xsl:for-each select="bestelitem/kenmerk">
<xsl:if test="(@type!='L' and @type!='l')">
<br/>
<xsl:value-of select="@naam"/>: <xsl:value-of select="."/>
</xsl:if>
</xsl:for-each>
</td>
<td class="result">
<xsl:value-of select="bestelitem/srtdeel/eenheid"/>
</td>
<td class="result" style="text-align:right">
<xsl:value-of select="aantal"/>
</td>
<td class="result" style="text-align:right">
<xsl:value-of select="format-number(prijs, '0,00', 'european')"/>
</td>
<td class="result" style="text-align:right">
<xsl:value-of select="format-number(totaal, '0,00', 'european')"/>
</td>
</tr>
</xsl:for-each>
<tr>
<td colspan="6"/>
<td style="text-align:right">
<b>
<xsl:value-of select="format-number(sum(bestelopdrachtitem/totaal), '0,00', 'european')"/>
</b>
</td>
</tr>
</TABLE>
</TD>
</TR>
<tr>
<td colspan="5" style="text-align:right">Alle bedragen zijn exclusief BTW</td>
</tr>
<tr>
<td colspan="5" style="height:40"/>
</tr>
<tr>
<td colspan="5" style="text-align:center; font-size:9px"><xsl:value-of select="//lcl/BES/order_disclaimer1"/>(<xsl:value-of select="id"/>)<xsl:value-of select="//lcl/BES/order_disclaimer2"/></td>
</tr>
</table>
</TD>
<TD WIDTH="30" ROWSPAN="30" ID="RECHTERMARGE"/>
</TR>
</TABLE>
</xsl:template>
</xsl:stylesheet>

Some files were not shown because too many files have changed in this diff Show More