Based on walkthrough from Microsoft (https://docs.microsoft.com/en-us/dynamics-nav/walkthrough--creating-and-using-a-codeunit-web-service--soap-), it will consume the web service by creating .NET application. I would like to consume it from Navision 5.0 and the pseudocode as follows:
WinHttp
DataType = Automation
Subtype = 'Microsoft WinHTTP Services, version 5.1'.WinHttpRequest
IF ISCLEAR(WinHttp) THEN
CREATE(WinHttp);
XMLHttp.open('POST','http://<localhostname>/DynamicsNAV110/WS/CRONUS%20International%20Ltd./Codeunit/Letters');
XMLHttp.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
XMLHttp.setRequestHeader('SOAPAction','Capitalize');
XMLHttp.send(
'<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' +
'<soap:Body><' + 'Capitalize' + ' xmlns="urn:microsoft-dynamics-schemas' + '/codeunit/Letters' + '">' +
'<inputstring>'+'testmessage'+'</inputstring>' + // Parameter 1
'</' + 'Capitalize' + '></soap:Body></soap:Envelope>');
// If status is OK - Get Result XML
IF XMLHttp.status=200 THEN
BEGIN
XMLDoc.load(XMLHttp.responseXML);
XMLDoc.save('D:\XMLResponse1.xml');
END;
CLEAR(XMLHttp);
Note. Dynamic way to construct XML request message is using the following method (https://freddysblog.com/2010/01/21/connecting-to-nav-web-services-from-microsoft-dynamics-nav-2009-sp1/)
Important!!!
'Microsoft XML, v6.0'.DOMDocument60 >> issue on blank "xmlns" so that need to use 'Microsoft XML, v3.0'.DOMDocument30 instead.
<Soap:Envelope xmlns:Soap="http://schemas.xmlsoap.org/soap/envelope/">
<Soap:Body>
<Capitalize xmlns="urn:microsoft-dynamics-schemas/codeunit/Letters">
<inputstring xmlns="">Hello test capital</inputstring>
</Capitalize>
</Soap:Body>
</Soap:Envelope>
Sample codes for dynamic way:
Var Name DataType Subtype Length
No URL Text 250
No method Text 20
No nameSpace Text 80
No returnTag Text 20
No parameters Text 1024
No nodeList Automation 'Microsoft XML, v3.0'.IXMLDOMNodeList
Return Value
Name = result
Return Type = Boolean
Name DataType Subtype
xmlhttp Automation 'Microsoft XML, v6.0'.XMLHTTP60
xmldoc Automation 'Microsoft XML, v3.0'.DOMDocument30
soapEnvelope Automation 'Microsoft XML, v3.0'.IXMLDOMElement
soapBody Automation 'Microsoft XML, v3.0'.IXMLDOMElement
soapMethod Automation 'Microsoft XML, v3.0'.IXMLDOMElement
node Automation 'Microsoft XML, v3.0'.IXMLDOMNode
parametersXmlDoc Automation 'Microsoft XML, v3.0'.DOMDocument30
Res := InvokeNavWS(
'http://<localhostname>/DynamicsNAV110/WS/CRONUS%20International%20Ltd./Codeunit/Letters',
'Capitalize',
'urn:microsoft-dynamics-schemas/codeunit/Letters',
'return_value',
'<inputstring>Hello test capital</inputstring>', nodeList);
//'', nodeList);
InvokeNavWS Function:
result := FALSE;
// Create XML Document
CREATE(xmldoc,TRUE);
// Create SOAP Envelope
soapEnvelope := xmldoc.createElement('Soap:Envelope');
soapEnvelope.setAttribute('xmlns:Soap', 'http://schemas.xmlsoap.org/soap/envelope/');
xmldoc.appendChild(soapEnvelope);
// Create SOAP Body
soapBody := xmldoc.createElement('Soap:Body');
soapEnvelope.appendChild(soapBody);
// Create Method Element
soapMethod := xmldoc.createElement(method);
soapMethod.setAttribute('xmlns', nameSpace);
soapBody.appendChild(soapMethod);
// Transfer parameters by loading them into a XML Document and move them
CREATE(parametersXmlDoc,TRUE);
parametersXmlDoc.loadXML('<parameters>'+parameters+'</parameters>');
IF parametersXmlDoc.firstChild.hasChildNodes THEN
BEGIN
WHILE parametersXmlDoc.firstChild.childNodes.length>0 DO
BEGIN
node := parametersXmlDoc.firstChild.firstChild;
node := parametersXmlDoc.firstChild.removeChild(node);
soapMethod.appendChild(node);
END;
END;
xmldoc.save('D:\XMLRequest.txt');
// Create XMLHTTP and SEND
CREATE(xmlhttp, TRUE);
xmlhttp.open('POST',URL,FALSE);
xmlhttp.setRequestHeader('Content-type', 'text/xml; charset=utf-8');
xmlhttp.setRequestHeader('SOAPAction',method);
xmlhttp.send(xmldoc);
MESSAGE(FORMAT(xmlhttp.status) + ' ' + xmlhttp.statusText);
// If status is OK - Get Result XML
IF xmlhttp.status=200 THEN
BEGIN
//xmldoc := xmlhttp.responseXML;
//get the response
xmldoc.load(xmlhttp.responseXML);
xmldoc.setProperty('SelectionLanguage','XPath');
xmldoc.setProperty('SelectionNamespaces','xmlns:tns="'+nameSpace+'"');
nodeList := xmldoc.selectNodes('//tns:'+returnTag);
nodeList := xmldoc.getElementsByTagName('return_value');
FOR i:=0 TO nodeList.length()-1 DO BEGIN
MESSAGE(nodeList.item(i).text);
END;
//this is for diagnostics only, so you can see what you got back
xmldoc.save('D:\XMLResponse1.xml');
result := TRUE;
END;
