13. September 2012 11:23
IF ISCLEAR(XMLHttp) THEN
CREATE(XMLHttp);
IF ISCLEAR(XMLDoc) THEN
CREATE(XMLDoc);
rShippingAgent.GET(rParcelShipment."Shipping Agent");
XMLHttp.open('POST', rShippingAgent.Webservice, 0);
XMLHttp.setRequestHeader('SoapAction', rShippingAgent."Operation - Shipment");
XMLHttp.setRequestHeader('Content-Type', 'text/xml; charset-utf-8');
XMLHttp.setRequestHeader('Connection', 'keep-alive');
XMLHttp.setRequestHeader('Keep-Alive', 'timeout=30, max=1000');
RequestFile.OPEN(RequestFilePath);
RequestFile.CREATEINSTREAM(InFilestream);
XMLDoc.load(InFilestream);
XMLHttp.send(XMLDoc.xml);
IF XMLHttp.status <> 200 THEN
MESSAGE('Http Error' + ' ' + FORMAT(XMLHttp.status) + ': ' + XMLHttp.statusText);
XMLDoc.async:=FALSE;
XMLDoc.load(XMLHttp.responseBody);
XMLDoc.save(rWarehouseSetup.Transactionfolder + '\RX_' + FORMAT(Shipment) + '.xml');
18. September 2012 10:52
XMLHttp.send(XMLDoc);
11. März 2015 18:03
8. September 2015 15:04