Sample code for 30+ languages & platforms
DataFlex

Move XML Subtree to Another XML Document

Demonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex
DataFlex 
Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSrcXml
    Boolean iSuccess
    Handle hoDestXml
    Variant vCrmCust
    Handle hoCrmCust
    Variant vCrmSaveCust
    Handle hoCrmSaveCust
    String sTemp1
    Boolean bTemp1

    // Source XML is this:

    // <?xml version='1.0' encoding='UTF-8'?>
    // <soapenv:Envelope xmlns:"soapenv="http://schemas.xmlsoap.org/soap/envelope/">
    //               <soapenv:Header/>
    //               <soapenv:Body>
    //                             <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws">
    //                                           <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456" >
    //                                                          <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
    //                                                          <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
    //                                           </CrmCustomer>
    //                           </GetCustomerResponse>
    //               </soapenv:Body>
    // </soapenv:Envelope>

    // Build the source XML.
    Get Create (RefClass(cComChilkatXml)) To hoSrcXml
    If (Not(IsComObjectCreated(hoSrcXml))) Begin
        Send CreateComObject of hoSrcXml
    End
    Set ComTag Of hoSrcXml To "soapenv:Envelope"
    Get ComAddAttribute Of hoSrcXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess
    Send ComUpdateChildContent To hoSrcXml "soapenv:Header" ""
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse" True "xmlns" "http://www.midoco.de/crm" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse" True "xmlns:tns" "http://www.midoco.de/ws" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "addresseeLine1" "Max Mustermann" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "addresseeLine2" "" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "changingUser" "123456" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "addressId" "2225355" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "addressTypeId" "1" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "checkStatus" "O" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "city" "Wien" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "countryCode" "AT" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "customerId" "000071" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthDay" "30" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthMonth" "8" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthYear" "1977" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthday" "1977-08-30T00:00:00.000+02:00" To iSuccess
    Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthdayNotProvided" "false" To iSuccess

    // Destination XML is this:

    // <?xml version="1.0" encoding="utf-8"?>
    // <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    //     <SOAP-ENV:Header>
    //         <m:Credentials xmlns:m="http://www.midoco.de/system">
    //             <m:Login>User</m:Login>
    //             <m:Password>Pass</m:Password>
    //             <m:OrgUnit>ABC</m:OrgUnit>
    //             <m:Locale>de_DE</m:Locale>
    //         </m:MidocoCredentials>
    //     </SOAP-ENV:Header>
    //     <SOAP-ENV:Body>
    //         <SaveCustomerRequest>
    //         </SaveCustomerRequest>
    //     </SOAP-ENV:Body>
    // </SOAP-ENV:Envelope>

    Get Create (RefClass(cComChilkatXml)) To hoDestXml
    If (Not(IsComObjectCreated(hoDestXml))) Begin
        Send CreateComObject of hoDestXml
    End
    Set ComTag Of hoDestXml To "SOAP-ENV:Envelope"
    Get ComAddAttribute Of hoDestXml "xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess
    Get ComAddAttribute Of hoDestXml "xmlns:SOAP-ENC" "http://schemas.xmlsoap.org/soap/encoding/" To iSuccess
    Get ComAddAttribute Of hoDestXml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" To iSuccess
    Get ComAddAttribute Of hoDestXml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema" To iSuccess
    Get ComUpdateAttrAt Of hoDestXml "SOAP-ENV:Header|m:Credentials" True "xmlns:m" "http://www.midoco.de/system" To iSuccess
    Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Login" "User"
    Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Password" "Pass"
    Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:OrgUnit" "ABC"
    Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Locale" "de_DE"
    Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Body|SaveCustomerRequest" ""

    // We want to move the "CrmCustomer" subtree in the source XML to inside the "SaveCustomerRequest" element in the destination.

    // Navigate to CrmCustomer
    Get ComFindChild Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" To vCrmCust
    If (IsComObject(vCrmCust)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoCrmCust
        Set pvComObject Of hoCrmCust To vCrmCust
    End
    Get ComLastMethodSuccess Of hoSrcXml To bTemp1
    If (bTemp1 <> True) Begin
        Showln "Failed to find CrmCustomer element."
        Procedure_Return
    End

    // Navigate to SaveCustomerRequest
    Get ComFindChild Of hoDestXml "SOAP-ENV:Body|SaveCustomerRequest" To vCrmSaveCust
    If (IsComObject(vCrmSaveCust)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoCrmSaveCust
        Set pvComObject Of hoCrmSaveCust To vCrmSaveCust
    End
    Get ComLastMethodSuccess Of hoDestXml To bTemp1
    If (bTemp1 <> True) Begin
        Showln "Failed to find SaveCustomerRequest element."
        Procedure_Return
    End

    // Move CrmCustomer tree to SaveCustomerRequest.
    Send ComInsertChildTreeBefore To hoCrmSaveCust 0 vCrmCust

    Send Destroy of hoCrmCust
    Send Destroy of hoCrmSaveCust

    // Look at the resulting destXml.  You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
    Get ComGetXml Of hoDestXml To sTemp1
    Showln sTemp1

    // <?xml version="1.0" encoding="utf-8"?>
    // <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    //     <SOAP-ENV:Header>
    //         <m:Credentials xmlns:m="http://www.midoco.de/system">
    //             <m:Login>User</m:Login>
    //             <m:Password>Pass</m:Password>
    //             <m:OrgUnit>ABC</m:OrgUnit>
    //             <m:Locale>de_DE</m:Locale>
    //         </m:Credentials>
    //     </SOAP-ENV:Header>
    //     <SOAP-ENV:Body>
    //         <SaveCustomerRequest>
    //             <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456">
    //                 <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
    //                 <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
    //             </CrmCustomer>
    //         </SaveCustomerRequest>
    //     </SOAP-ENV:Body>
    // </SOAP-ENV:Envelope>

    // Look at the resulting srcXml.  The CrmCustomer subtree was removed.
    Get ComGetXml Of hoSrcXml To sTemp1
    Showln sTemp1

    // <?xml version="1.0" encoding="utf-8"?>
    // <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
    //     <soapenv:Header/>
    //     <soapenv:Body>
    //         <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws"/>
    //     </soapenv:Body>
    // </soapenv:Envelope>


End_Procedure