STCH#51457 -- Strukton naar web-plus variant
svn path=/Website/branches/v2017.2/; revision=36494
This commit is contained in:
@@ -16,7 +16,7 @@ function GetStruktonStatus()
|
||||
var XMLReq= "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\">"
|
||||
+" <soapenv:Header/>"
|
||||
+" <soapenv:Body>"
|
||||
+" <GetServiceRequestStatus>"
|
||||
+" <GetServiceRequestStatusPlus>"
|
||||
+" <Status>"
|
||||
+" <CustomerID>" + prs_overeenkomst_nr + "</CustomerID>"
|
||||
+" <ReferenceID></ReferenceID>"
|
||||
@@ -24,7 +24,7 @@ function GetStruktonStatus()
|
||||
+" <BeginDateTime>"+ laatste_sync +"</BeginDateTime>"
|
||||
+" <EndDateTime>"+ nieuwe_sync +"</EndDateTime>"
|
||||
+" </Status>"
|
||||
+" </GetServiceRequestStatus>"
|
||||
+" </GetServiceRequestStatusPlus>"
|
||||
+" </soapenv:Body>"
|
||||
+"</soapenv:Envelope>";
|
||||
WScript.Echo("Bericht = " + XMLReq);
|
||||
@@ -56,7 +56,9 @@ function GetStruktonStatus()
|
||||
{ // Geldigheid XML wordt gecontroleerd door GEN_IMPORT
|
||||
WScript.Echo("Gelukt, status = " + objXMLHTTP.status);
|
||||
responseText = "" + objXMLHTTP.responseText;
|
||||
if (responseText.indexOf("<ErrorLog><Note>Resultaatset bevat geen records</Note></ErrorLog>") == -1) {
|
||||
//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) {
|
||||
dataReceived = true;
|
||||
oStream = new ActiveXObject("ADODB.Stream");
|
||||
oStream.Open();
|
||||
@@ -106,7 +108,7 @@ sql = "SELECT b.prs_bedrijf_naam, "
|
||||
+ " WHERE b.prs_bedrijf_key = " + prs_bedrijf_key
|
||||
+ " AND b.prs_bedrijf_key = ba.prs_bedrijf_key"
|
||||
+ " AND b.prs_bedrijf_key = kl.prs_link_key"
|
||||
+ " AND ba.prs_bedrijfadres_type = 'O'";
|
||||
+ " AND ba.prs_bedrijfadres_type = 'B'"; // We (mis)bruiken het technische adres van de bestellingen om de statuswijzigingen op te vragen.
|
||||
|
||||
WScript.Echo (sql);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user