Hello Friends,
Would like your suggestion on the below issue about a web service.
I was upgrading my NAV 2016 CAL code to AL for Web service Integration which include Cdata section.
In Nav 2016 , I achieved Cdata with AppendChild and CreateCdataSection function but in AL I can't see such
functions.
I have created successfully created XML file in AL from the following reference.
https://community.dynamics.com/nav/b/diveshboramsdnavblog/archive/2018/03/05/vs-code-xml-dom-management-part-1
https://community.dynamics.com/nav/b/diveshboramsdnavblog/archive/2018/03/09/vs-code-xml-dom-management-part-2
community.dynamics.com/.../creating-soap-request-message-in-al
But I am stuck in inserting Cdata section.
I also tried XMLCdata Functions available in Business Central but error occured -->
The requested operation cannot be performed in this context.
I am trying to generate below XML File with Cdata Section in Business Central.
<soapenv:Envelope xmlns:ord="https://moultonordervision.com/Ws/OrderStatusWebService.asmx" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
<soapenv:Header />
<soapenv:Body>
<ord:OrderStatus>
<ord:strXml><![CDATA[<dataQuery><username>XXX</username><password>XXXXX</password><group_code>TEST</group_code><order_no>03027515</order_no></dataQuery>]]></ord:strXml>
</ord:OrderStatus>
</soapenv:Body>
</soapenv:Envelope>
Below are the 3 AL Files I used.
Codeunit 50101 -->
codeunit 50101 "XML DOM Mgt."
{
trigger OnRun();
begin
end;
procedure AddElement(var pXMLNode: XmlNode; pNodeName: Text; pNodeText: Text; pNameSpace: Text; var pCreatedNode: XmlNode): Boolean
var
lNewChildNode: XmlNode;
begin
IF pNodeText = '' then
lNewChildNode := XmlElement.Create(pNodeName, pNameSpace, pNodeText).AsXmlNode()
else
lNewChildNode := XmlElement.Create(pNodeName, pNameSpace).AsXmlNode();
if pXMLNode.AsXmlElement().Add(lNewChildNode) then begin
pCreatedNode := lNewChildNode;
exit(true);
end;
end;
procedure AddRootElement(var pXMLDocument: XmlDocument; pNodeName: Text; var pCreatedNode: XmlNode): Boolean
begin
pCreatedNode := XmlElement.Create(pNodeName).AsXmlNode();
Exit(pXMLDocument.Add(pCreatedNode));
end;
procedure AddRootElementWithPrefix(var pXMLDocument: XmlDocument; pNodeName: Text; pPrefix: Text; pNameSpace: text; var pCreatedNode: XmlNode): Boolean
begin
pCreatedNode := XmlElement.Create(pNodeName, pNameSpace).AsXmlNode();
pCreatedNode.AsXmlElement().Add(XmlAttribute.CreateNamespaceDeclaration(pPrefix, pNameSpace));
Exit(pXMLDocument.Add(pCreatedNode));
end;
procedure AddElementWithPrefix(var pXMLNode: XmlNode; pNodeName: Text; pNodeText: Text; pPrefix: Text; pNameSpace: text; var pCreatedNode: XmlNode): Boolean
var
lNewChildNode: XmlNode;
begin
IF pNodeText = '' then
lNewChildNode := XmlElement.Create(pNodeName, pNameSpace, pNodeText).AsXmlNode()
else
lNewChildNode := XmlElement.Create(pNodeName, pNameSpace).AsXmlNode();
lNewChildNode.AsXmlElement().Add(XmlAttribute.CreateNamespaceDeclaration(pPrefix, pNameSpace));
if pXMLNode.AsXmlElement().Add(lNewChildNode) then begin
pCreatedNode := lNewChildNode;
exit(true);
end;
end;
procedure AddPrefix(var pXMLNode: XmlNode; pPrefix: Text; pNameSpace: text): Boolean
begin
pXMLNode.AsXmlElement().Add(XmlAttribute.CreateNamespaceDeclaration(pPrefix, pNameSpace));
exit(true);
end;
procedure AddAttribute(var pXMLNode: XmlNode; pName: Text; pValue: Text): Boolean
begin
pXMLNode.AsXmlElement().SetAttribute(pName, pValue);
exit(true);
end;
procedure AddAttributeWithNamespace(var pXMLNode: XmlNode; pName: Text; pNameSpace: text; pValue: Text): Boolean
begin
pXMLNode.AsXmlElement().SetAttribute(pName, pNameSpace, pValue);
exit(true);
end;
procedure FindNode(pXMLRootNode: XmlNode; pNodePath: Text; var pFoundXMLNode: XmlNode): Boolean
begin
exit(pXMLRootNode.SelectSingleNode(pNodePath, pFoundXMLNode));
end;
procedure FindNodeWithNameSpace(pXMLRootNode: XmlNode; pNodePath: Text; pPrefix: Text; pNamespace: Text; var pFoundXMLNode: XmlNode): Boolean
var
lXmlNsMgr: XmlNamespaceManager;
lXMLDocument: XmlDocument;
begin
if pXMLRootNode.IsXmlDocument() then
lXmlNsMgr.NameTable(pXMLRootNode.AsXmlDocument().NameTable())
else begin
pXMLRootNode.GetDocument(lXMLDocument);
lXmlNsMgr.NameTable(lXMLDocument.NameTable());
end;
lXMLNsMgr.AddNamespace(pPrefix, pNamespace);
exit(pXMLRootNode.SelectSingleNode(pNodePath, lXmlNsMgr, pFoundXMLNode));
end;
procedure FindNodesWithNameSpace(pXMLRootNode: XmlNode; pXPath: Text; pPrefix: Text; pNamespace: Text; var pFoundXmlNodeList: XmlNodeList): Boolean
var
lXmlNsMgr: XmlNamespaceManager;
lXMLDocument: XmlDocument;
begin
if pXMLRootNode.IsXmlDocument() then
lXmlNsMgr.NameTable(pXMLRootNode.AsXmlDocument().NameTable())
else begin
pXMLRootNode.GetDocument(lXMLDocument);
lXmlNsMgr.NameTable(lXMLDocument.NameTable());
end;
lXMLNsMgr.AddNamespace(pPrefix, pNamespace);
exit(FindNodesWithNamespaceManager(pXMLRootNode, pXPath, lXmlNsMgr, pFoundXmlNodeList));
end;
procedure FindNodesWithNamespaceManager(pXMLRootNode: XmlNode; pXPath: Text; pXmlNsMgr: XmlNamespaceManager; var pFoundXmlNodeList: XmlNodeList): Boolean
begin
IF not pXMLRootNode.SelectNodes(pXPath, pXmlNsMgr, pFoundXmlNodeList) then
exit(false);
IF pFoundXmlNodeList.Count() = 0 then
exit(false);
exit(true);
end;
procedure FindNodeXML(pXMLRootNode: XmlNode; pNodePath: Text): Text
var
lFoundXMLNode: XmlNode;
begin
IF pXMLRootNode.SelectSingleNode(pNodePath, lFoundXMLNode) then
Exit(lFoundXMLNode.AsXmlElement().InnerXml());
end;
procedure FindNodeText(pXMLRootNode: XmlNode; pNodePath: Text): Text
var
lFoundXMLNode: XmlNode;
begin
IF pXMLRootNode.SelectSingleNode(pNodePath, lFoundXMLNode) then
Exit(lFoundXMLNode.AsXmlElement().InnerText());
end;
procedure FindNodeTextWithNameSpace(pXMLRootNode: XmlNode; pNodePath: Text; pPrefix: Text; pNamespace: Text): Text
var
lXmlNsMgr: XmlNamespaceManager;
lXMLDocument: XmlDocument;
begin
if pXMLRootNode.IsXmlDocument() then
lXmlNsMgr.NameTable(pXMLRootNode.AsXmlDocument().NameTable())
else begin
pXMLRootNode.GetDocument(lXMLDocument);
lXmlNsMgr.NameTable(lXMLDocument.NameTable());
end;
lXMLNsMgr.AddNamespace(pPrefix, pNamespace);
Exit(FindNodeTextNs(pXMLRootNode, pNodePath, lXmlNsMgr));
end;
procedure FindNodeTextNs(pXMLRootNode: XmlNode; pNodePath: Text; pXmlNsMgr: XmlNamespaceManager): Text
var
lFoundXMLNode: XmlNode;
begin
IF pXMLRootNode.SelectSingleNode(pNodePath, pXmlNsMgr, lFoundXMLNode) then
Exit(lFoundXMLNode.AsXmlElement().InnerText());
end;
procedure FindNodes(pXMLRootNode: XmlNode; pNodePath: Text; var pFoundXMLNodeList: XmlNodeList): Boolean
begin
IF not pXMLRootNode.SelectNodes(pNodePath, pFoundXmlNodeList) then
exit(false);
IF pFoundXmlNodeList.Count() = 0 then
exit(false);
exit(true);
end;
procedure GetRootNode(pXMLDocument: XmlDocument; var pFoundXMLNode: XmlNode): Boolean
var
lXmlElement: XmlElement;
begin
pXMLDocument.GetRoot(lXmlElement);
pFoundXMLNode := lXmlElement.AsXmlNode();
end;
procedure FindAttribute(pXMLNode: XmlNode; var pXmlAttribute: XmlAttribute; pAttributeName: Text): Boolean
begin
exit(pXMLNode.AsXmlElement().Attributes().Get(pAttributeName, pXmlAttribute));
end;
procedure GetAttributeValue(pXMLNode: XmlNode; pAttributeName: Text): Text
var
lXmlAttribute: XmlAttribute;
begin
If pXMLNode.AsXmlElement().Attributes().Get(pAttributeName, lXmlAttribute) then
exit(lXmlAttribute.Value());
end;
procedure AddDeclaration(var pXMLDocument: XmlDocument; pVersion: Text; pEncoding: Text; pStandalone: Text)
var
lXmlDeclaration: XmlDeclaration;
begin
lXmlDeclaration := XmlDeclaration.Create(pVersion, pEncoding, pStandalone);
pXMLDocument.SetDeclaration(lXmlDeclaration);
end;
procedure AddGroupNode(var pXMLNode: XmlNode; pNodeName: Text)
var
lXMLNewChild: XmlNode;
begin
AddElement(pXMLNode, pNodeName, '', '', lXMLNewChild);
pXMLNode := lXMLNewChild;
end;
procedure AddNode(var pXMLNode: XmlNode; pNodeName: Text; pNodeText: Text)
var
lXMLNewChild: XmlNode;
begin
AddElement(pXMLNode, pNodeName, pNodeText, '', lXMLNewChild);
end;
procedure AddLastNode(var pXMLNode: XmlNode; pNodeName: Text; pNodeText: Text)
var
lXMLNewChild: XmlNode;
lXMLElement: XmlElement;
begin
AddElement(pXMLNode, pNodeName, pNodeText, '', lXMLNewChild);
if pXMLNode.GetParent(lXMLElement) then
pXMLNode := lXMLElement.AsXmlNode();
end;
procedure AddNameSpace(var pXmlNsMgr: XmlNamespaceManager; pPrefix: text; pNamespace: text);
begin
pXmlNsMgr.AddNamespace(pPrefix, pNamespace);
end;
procedure AddNamespaces(var pXmlNsMgr: XmlNamespaceManager; pXMLDocument: XmlDocument)
var
lXmlAttributeCollection: XmlAttributeCollection;
lXmlAttribute: XmlAttribute;
lXMLElement: XmlElement;
skipwrn: text;
begin
pXmlNsMgr.NameTable(pXMLDocument.NameTable());
pXMLDocument.GetRoot(lXMLElement);
lXmlAttributeCollection := lXMLElement.Attributes();
IF lXMLElement.NamespaceUri() = '' then
pXmlNsMgr.AddNamespace('', lXMLElement.NamespaceUri());
Foreach lXmlAttribute in lXmlAttributeCollection do begin
//skipping
skipwrn := 'Skipping';
if StrPos(lXmlAttribute.Name(), 'xmlns:') = 1 then
pXmlNsMgr.AddNamespace(DELSTR(lXmlAttribute.Name(), 1, 6), lXmlAttribute.Value());
end;
end;
procedure XMLEscape(pText: Text): Text
var
lXMLDocument: XmlDocument;
lRootXmlNode: XmlNode;
lXmlNode: XmlNode;
begin
lXMLDocument := XmlDocument.Create();
AddElement(lRootXmlNode, 'XMLEscape', pText, '', lXmlNode);
exit(lXmlNode.AsXmlElement().InnerXml());
end;
procedure LoadXMLDocumentFromText(pXMLText: Text; var pXMLDocument: XmlDocument)
begin
IF pXMLText = '' then
exit;
XmlDocument.ReadFrom(pXMLText, pXMLDocument);
end;
procedure LoadXMLNodeFromText(pXMLText: Text; var pXMLNode: XmlNode)
var
lXmlDocument: XmlDocument;
begin
LoadXMLDocumentFromText(pXMLText, lXmlDocument);
pXMLNode := lXmlDocument.AsXmlNode();
end;
procedure LoadXMLDocumentFromInStream(pInStream: InStream; var pXMLDocument: XmlDocument)
begin
XmlDocument.ReadFrom(pInStream, pXMLDocument);
end;
procedure LoadXMLNodeFromInStream(pInStream: InStream; var pXMLNode: XmlNode)
var
lXmlDocument: XmlDocument;
begin
LoadXMLDocumentFromInStream(pInStream, lXmlDocument);
pXMLNode := lXmlDocument.AsXmlNode();
end;
procedure RemoveNamespaces(pXmlText: Text): Text
var
XMLDOMMgt: Codeunit "XML DOM Management";
begin
Exit(XMLDOMMgt.RemoveNamespaces(pXmlText));
end;
procedure SetUTF88Declaration(var pXMLDocument: XmlDocument; pStandaloneTxt: Text);
var
lXmlDeclaration: XmlDeclaration;
begin
lXmlDeclaration := XmlDeclaration.Create('1.0', 'utf-8', pStandaloneTxt);
pXMLDocument.SetDeclaration(lXmlDeclaration);
end;
procedure ReplaceInvalidXMLCharacters(pText: Text): Text
var
lText: Text;
begin
lText := pText;
lText := lText.Replace('&', '&');
lText := lText.Replace('', '>');
lText := lText.Replace('"', '"');
lText := lText.Replace('""', '""');
exit(lText);
end;
procedure RemoveXMLRestrictedCharacters(pXmlText: Text): Text
var
lXmlText: Text;
lChar: array[30] of Char;
lArrayLen: Integer;
li: Integer;
begin
IF pXmlText = '' then
exit(pXmlText);
lXmlText := pXmlText;
lChar[1] := 1;
lChar[2] := 2;
lChar[3] := 3;
lChar[4] := 4;
lChar[5] := 5;
lChar[6] := 6;
lChar[7] := 7;
lChar[8] := 8;
lChar[9] := 11;
lChar[10] := 12;
lChar[11] := 14;
lChar[12] := 15;
lChar[13] := 16;
lChar[14] := 17;
lChar[15] := 18;
lChar[16] := 19;
lChar[17] := 20;
lChar[18] := 21;
lChar[19] := 22;
lChar[20] := 23;
lChar[21] := 24;
lChar[22] := 25;
lChar[23] := 26;
lChar[24] := 27;
lChar[25] := 28;
lChar[26] := 29;
lChar[27] := 30;
lChar[28] := 31;
lChar[29] := 127;
lArrayLen := ArrayLen(lChar);
for li := 1 to lArrayLen do
lXmlText := DelChr(lXmlText, '=', lChar[li]);
exit(lXmlText);
end;
}
Codeunit 50104 -->
codeunit 50104 WebSrv
{
TableNo = 50104;
trigger OnRun()
begin
end;
procedure CreateSoapMessage();
var
lXmlDocument: XmlDocument;
lEnvolopeXmlNode: XmlNode;
lHeaderXmlNode: XmlNode;
lBodyXmlNode: XmlNode;
lXMLText: Text;
OrdNo: code[8];
begin
CreateEnvelope(lXmlDocument, lEnvolopeXmlNode);
CreateHeader(lEnvolopeXmlNode, lHeaderXmlNode);
OrdNo := '043487';
CreateBody(lEnvolopeXmlNode, lBodyXmlNode, OrdNo);
lXmlDocument.WriteTo(lXMLText);
Message(lXMLText);
end;
procedure CreateEnvelope(var pXmlDocument: XmlDocument; var pEnvelopeXmlNode: XmlNode);
begin
pXmlDocument := XmlDocument.Create();
With XMLDomMgt do begin
AddDeclaration(pXmlDocument, '1.0', 'UTF-8', 'Yes');
AddRootElementWithPrefix(pXmlDocument, 'Envelope', 'soapenv', SOAPNamespaceLbl, pEnvelopeXmlNode);
AddPrefix(pEnvelopeXmlNode, 'ord', XSDNamespaceLbl);
end;
end;
procedure CreateHeader(var pEnvelopeXmlNode: XmlNode; var pHeaderXmlNode: XmlNode);
begin
XMLDOMMgt.AddElement(pEnvelopeXmlNode, 'Header', 'soapenv', SOAPNamespaceLbl, pHeaderXmlNode);
end;
procedure CreateBody(var pSoapEnvelope: XmlNode; var pSoapBody: XmlNode; var pOrderNo: code[8]);
begin
Clear(StrxmlNodeValue);
XMLDOMMgt.AddElement(pSoapEnvelope, 'Body', 'soapenv', SOAPNamespaceLbl, pSoapBody);
XMLDOMMgt.AddElement(pSoapBody, 'OrderStatus', 'ord', XSDNamespaceLbl, OrdStatusNode);
StrxmlNodeValue := '<dataQuery><username>' + 'XXX' + '</username><password>' +
'XXXXX' + '</password><group_code>' + 'TEST' +
'</group_code><order_no>' + pOrderNo + '</order_no></dataQuery>';
xmlcd := XmlCData.Create(StrxmlNodeValue);
strXMLNode := xmlcd.AsXmlNode();
xmlcd := strXMLNode.AsXmlCData();
XMLDOMMgt.AddElement(OrdStatusNode, 'strXml', 'ord', XSDNamespaceLbl, strXMLNode);
xmlcd.AddAfterSelf(strXMLNode); // Generating Error -- The requested operation cannot be
//performed in this context.
end;
var
XMLDomMgt: Codeunit "XML DOM Mgt.";
URL: Text;
myInt: Integer;
SOAPNamespaceLbl: Label 'schemas.xmlsoap.org/.../envelope';
XSDNamespaceLbl: Label 'moultonordervision.com/.../OrderStatusWebService.asmx';
ContentTypeLbl: Label 'multipart/form-data; charset=utf-8';
StrxmlNodeValue: Text;
OrdStatusNode: XmlNode;
strXMLNode: XmlNode;
xmlcd: XmlCData;
}
Page 50100-->
page 50100 "Soap Test Page"
{
PageType = Card;
Caption = 'Soap Test Page';
actions
{
area(processing)
{
action("Create Soap Message")
{
Caption = 'Create Soap Message';
ApplicationArea = All;
Image = XMLFile;
trigger OnAction()
var
WebSrv: Codeunit WebSrv;
begin
WebSrv.CreateSoapMessage();
end;
}
}
}
}
