Perl

XML Add Child Tree

Demonstrates the Xml.AddChildTree method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Build the following XML:

# <?xml version="1.0" encoding="utf-8"?>
# <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#     <soap12:Body>
#         <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
#        </cteDadosMsg>
#     </soap12:Body>
# </soap12:Envelope>

my $xml = Chilkat2::Xml->new;
$xml->Tag('soap12:Envelope');
$xml->AddAttribute('xmlns:xsi', 'http://www.w3.org/2001/XMLSchema-instance');
$xml->AddAttribute('xmlns:xsd', 'http://www.w3.org/2001/XMLSchema');
$xml->AddAttribute('xmlns:soap12', 'http://www.w3.org/2003/05/soap-envelope');
$xml->UpdateAttrAt('soap12:Body|cteDadosMsg', 1, 'xmlns', 'http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4');

# We want to add the following XML as a sub-tree under the "cteDadosMsg" element.

# <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
#     <tpAmb>2</tpAmb>
#     <cUF>43</cUF>
#     <xServ>STATUS</xServ>
# </consStatServCTe>

# Build the XML to be added as a child tree.

my $xml2 = Chilkat2::Xml->new;
$xml2->Tag('consStatServCTe');
$xml2->AddAttribute('versao', '4.00');
$xml2->AddAttribute('xmlns', 'http://www.portalfiscal.inf.br/cte');
$xml2->UpdateChildContent('tpAmb', '2');
$xml2->UpdateChildContent('cUF', '43');
$xml2->UpdateChildContent('xServ', 'STATUS');

# Add the child tree at the desired location:
# Temporarily point to the location where we wish to add the child tree.
my $success = $xml->FindChild2('soap12:Body|cteDadosMsg');
if (!$success) {
    # Restore current location to the root.
    $xml->GetRoot2();
    exit;
}

$success = $xml->AddChildTree($xml2);
# Restore the current location to the root.
$xml->GetRoot2();

# You can see now that the XML contain the child tree:

print $xml->GetXml(), "\n";

# <?xml version="1.0" encoding="utf-8"?>
# <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#     <soap12:Body>
#         <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
#             <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
#                 <tpAmb>2</tpAmb>
#                 <cUF>43</cUF>
#                 <xServ>STATUS</xServ>
#             </consStatServCTe>
#         </cteDadosMsg>
#     </soap12:Body>
# </soap12:Envelope>