(Tcl) XML Add Child Tree

Demonstrates the Xml.AddChildTree method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll



# 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>

set xml [new_CkXml]

CkXml_put_Tag $xml "soap12:Envelope"
CkXml_AddAttribute $xml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance"
CkXml_AddAttribute $xml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema"
CkXml_AddAttribute $xml "xmlns:soap12" "http://www.w3.org/2003/05/soap-envelope"
CkXml_UpdateAttrAt $xml "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.

set xml2 [new_CkXml]

CkXml_put_Tag $xml2 "consStatServCTe"
CkXml_AddAttribute $xml2 "versao" "4.00"
CkXml_AddAttribute $xml2 "xmlns" "http://www.portalfiscal.inf.br/cte"
CkXml_UpdateChildContent $xml2 "tpAmb" "2"
CkXml_UpdateChildContent $xml2 "cUF" "43"
CkXml_UpdateChildContent $xml2 "xServ" "STATUS"

# Add the child tree at the desired location:
# Temporarily point to the location where we wish to add the child tree.
set success [CkXml_FindChild2 $xml "soap12:Body|cteDadosMsg"]
if {$success == 0} then {
    # Restore current location to the root.
    CkXml_GetRoot2 $xml
    delete_CkXml $xml
    delete_CkXml $xml2
    exit
}

set success [CkXml_AddChildTree $xml $xml2]
# Restore the current location to the root.
CkXml_GetRoot2 $xml

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

puts [CkXml_getXml $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">
#             <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>

delete_CkXml $xml
delete_CkXml $xml2