Dim xml As NewChilkatXml
xml.Tag = "soap:Envelope"
success = xml.AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope")
success = xml.AddAttribute("xmlns:a031","http://sfera.sk/xmtrade/isom/types/2013/03")
success = xml.AddAttribute("xmlns:a03","http://sfera.sk/xmtrade/isom/services/MeasuredValuesOfSupplyAndDeliveryPoints/2013/03")
xml.UpdateChildContent"soap:Header",""
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:REFERENCENUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:IDENTIFIER","UTILMD"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:VERSIONNUMBER","D"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:RELEASENUMBER","01C"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:CONTROLAGENCY","UN"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:ASSOCCODE","E4SK40"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNH|a031:ACCESSREF","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:BGM|a031:NAME","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:BGM|a031:CODELISTAGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:BGM|a031:DOCUMENTNUMBER","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:BGM|a031:DOCUMENTFUNC",9
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:BGM|a031:RESPONSETYPE","AB"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:DTM|a031:DATUMQUALIFIER",92
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:DTM|a031:DATUM","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:DTM|a031:FORMAT",203
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:RFF|a031:REFERENCEQUALIFIER","ACW"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:RFF|a031:REFERENCENUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:ACTION","MR"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:PARTNER","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:CODELISTAGENCY",305
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:PARTNERNAME1","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:PARTNERNAME2","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:STREET1","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:STREET2","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:STREET3","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:STREET4","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:CITY","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:COUNTRY","SK"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:PLACE_QUALIFIER",172
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:PLACE_ID","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:CODE_LIST_RESPONSIBLE_AGENCY",305
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:LINE_ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CODE_LIST_RESPONSIBLE_AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY_QUALIFIER",47
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUMQUALIFIER",92
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUM","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:FORMAT",203
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CHARACTERISTIC_ID","Z03"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CODE_LIST_RESPONSIBLE_AGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE_CODED","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:RFF|a031:REFERENCEQUALIFIER","ACW"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:RFF|a031:REFERENCENUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:NAD|a031:ZIPCODE","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:OBJECT_TYPE",24
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:PLACE_QUALIFIER",172
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:PLACE_ID","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:CODE_LIST_RESPONSIBLE_AGENCY",305
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:LINE_ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CODE_LIST_RESPONSIBLE_AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY_QUALIFIER",47
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUMQUALIFIER",92
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUM","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:FORMAT",203
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:CHARACTERISTIC_ID","Z03"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:CODE_LIST_RESPONSIBLE_AGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE_CODED","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:DTM|a031:DATUMQUALIFIER",92
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:DTM|a031:DATUM","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:DTM|a031:FORMAT",203
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:PRC|a031:PROCESS_TYPE","MSG_DETAIL"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:PRC|a031:CODELISTAGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:TEXT_SUBJECT_QUALIFIER","AAI"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_CODE",3
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:CODELISTAGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_1","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_2","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_3","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_4","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:FTX|a031:FREE_TEXT_5","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:AGR|a031:AGREE_TYPE_ID",11
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:AGR|a031:AGREE_TYPE_DESCRIPTION","E01"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:AGR|a031:AGREE_TYPE_CODE_LIST","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:AGR|a031:AGREE_TYPE_AGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:AGR|a031:AGREE_TYPE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:CHARACTERISTIC_ID","Z03"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:CODE_LIST_RESPONSIBLE_AGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE_CODED","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:CAV|a031:AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:CCI|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:ACTION","MR"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:PARTNER","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:CODELISTAGENCY",305
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:PARTNERNAME1","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:PARTNERNAME2","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:STREET1","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:STREET2","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:STREET3","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:STREET4","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:CITY","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:COUNTRY","SK"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:PLACE_QUALIFIER",172
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:PLACE_ID","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:CODE_LIST_RESPONSIBLE_AGENCY",305
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:LINE_ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:ITEM_NUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CODE_LIST_RESPONSIBLE_AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY_QUALIFIER",47
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:QUANTITY","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUMQUALIFIER",92
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:DATUM","string"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:QTY|a031:DTM|a031:FORMAT",203
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CHARACTERISTIC_ID","Z03"
xml.UpdateChildContentInt"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CODE_LIST_RESPONSIBLE_AGENCY",260
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE_CODED","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:AGENCY","SKE"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:CAV|a031:CHARACTERISTIC_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_APPLICATION","AAZ"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_UNIT_QUALIFIER","KWH"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:LOC|a031:LIN|a031:CCI|a031:MEA|a031:MEASURMENT_VALUE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:RFF|a031:REFERENCEQUALIFIER","ACW"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:RFF|a031:REFERENCENUMBER","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:IDE|a031:NAD|a031:ZIPCODE","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNT|a031:NUMSEG","string"
xml.UpdateChildContent"soap:Body|a03:DownloadRequest|a03:UTILMD|a031:UNT|a031:REFNUM","string"' In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
xml.EmitXmlDecl = 0Dim soapRequestBody As String
soapRequestBody = xml.GetXml()
Dim endpoint As String
endpoint = "http://isom.okte.sk/interfaces/MeasuredValuesOfSupplyAndDeliveryPoints/Service.svc"Dim soapAction As String
soapAction = "http://sfera.sk/xmtrade/isom/services/MeasuredValuesOfSupplyAndDeliveryPoints/2013/03/MeasuredValuesOfSupplyAndDeliveryPointsContract/Download"' For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Dim contentType As String
contentType = "text/xml"Dim http As NewChilkatHttp
http.ClearHeaders
http.SetRequestHeader"Content-Type",contentType
http.SetRequestHeader"SOAPAction",soapAction
Dim resp AsChilkatHttpResponse
Set resp = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Debug.Print "Failed to send SOAP request."Exit SubEnd If' Get the XML response body.Dim responseXml As NewChilkatXml
success = resp.GetBodyXml(responseXml)
Dim statusCode As Long
statusCode = resp.StatusCode
Debug.Print "response status code: " & statusCode
' If the status code does not indicate succcess, then show the response XML,
' which probably contains error information.If (statusCode <> 200) Then
Debug.Print responseXml.GetXml()
Exit SubEnd If
Debug.Print responseXml.GetXml()
' Parse the successful SOAP response XML.' This is a sample of the response XML, but the namespace prefixes will be different.
' We can parse the result using "*" for the namespace prefixes (see below).Dim ACTION As StringDim PARTNER As StringDim PARTNERNAME1 As StringDim PARTNERNAME2 As StringDim STREET1 As StringDim STREET2 As StringDim STREET3 As StringDim STREET4 As StringDim CITY As StringDim COUNTRY As StringDim PLACE_QUALIFIER As LongDim PLACE_ID As StringDim CODE_LIST_RESPONSIBLE_AGENCY As LongDim LINE_ITEM_NUMBER As StringDim ITEM_NUMBER As StringDim strCODE_LIST_RESPONSIBLE_AGENCY As StringDim MEASURMENT_APPLICATION As StringDim MEASURMENT_UNIT_QUALIFIER As StringDim MEASURMENT_VALUE As StringDim QUANTITY_QUALIFIER As LongDim QUANTITY As StringDim CHARACTERISTIC_ID As StringDim CHARACTERISTIC_VALUE_CODED As StringDim AGENCY As StringDim CHARACTERISTIC_VALUE As StringDim REFERENCEQUALIFIER As StringDim ZIPCODE As StringDim REFERENCENUMBER As String
REFERENCENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:REFERENCENUMBER")
Dim IDENTIFIER As String
IDENTIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:IDENTIFIER")
Dim VERSIONNUMBER As String
VERSIONNUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:VERSIONNUMBER")
Dim RELEASENUMBER As String
RELEASENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:RELEASENUMBER")
Dim CONTROLAGENCY As String
CONTROLAGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:CONTROLAGENCY")
Dim ASSOCCODE As String
ASSOCCODE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:ASSOCCODE")
Dim ACCESSREF As String
ACCESSREF = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNH|*:ACCESSREF")
Dim NAME As String
NAME = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:BGM|*:NAME")
Dim CODELISTAGENCY As Long
CODELISTAGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:BGM|*:CODELISTAGENCY")
Dim DOCUMENTNUMBER As String
DOCUMENTNUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:BGM|*:DOCUMENTNUMBER")
Dim DOCUMENTFUNC As Long
DOCUMENTFUNC = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:BGM|*:DOCUMENTFUNC")
Dim RESPONSETYPE As String
RESPONSETYPE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:BGM|*:RESPONSETYPE")
Dim DATUMQUALIFIER As Long
DATUMQUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:DTM|*:DATUMQUALIFIER")
Dim DATUM As String
DATUM = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:DTM|*:DATUM")
Dim FORMAT As Long
FORMAT = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:DTM|*:FORMAT")
Dim i As Long
i = 0Dim count_i As Long
count_i = responseXml.NumChildrenHavingTag("*:Body|*:DownloadResponse|*:MSCONS|a031:NAD")
Do While i < count_i
responseXml.I = i
ACTION = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:ACTION")
PARTNER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:PARTNER")
CODELISTAGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:CODELISTAGENCY")
PARTNERNAME1 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:PARTNERNAME1")
PARTNERNAME2 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:PARTNERNAME2")
STREET1 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:STREET1")
STREET2 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:STREET2")
STREET3 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:STREET3")
STREET4 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:STREET4")
CITY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:CITY")
COUNTRY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:COUNTRY")
PLACE_QUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:PLACE_QUALIFIER")
PLACE_ID = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:PLACE_ID")
CODE_LIST_RESPONSIBLE_AGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:CODE_LIST_RESPONSIBLE_AGENCY")
LINE_ITEM_NUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:LINE_ITEM_NUMBER")
ITEM_NUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:ITEM_NUMBER")
strCODE_LIST_RESPONSIBLE_AGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CODE_LIST_RESPONSIBLE_AGENCY")
MEASURMENT_APPLICATION = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:MEA|*:MEASURMENT_APPLICATION")
MEASURMENT_UNIT_QUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:MEA|*:MEASURMENT_UNIT_QUALIFIER")
MEASURMENT_VALUE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:MEA|*:MEASURMENT_VALUE")
QUANTITY_QUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:QTY|*:QUANTITY_QUALIFIER")
QUANTITY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:QTY|*:QUANTITY")
DATUMQUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:QTY|*:DTM|*:DATUMQUALIFIER")
DATUM = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:QTY|*:DTM|*:DATUM")
FORMAT = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:QTY|*:DTM|*:FORMAT")
CHARACTERISTIC_ID = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:CHARACTERISTIC_ID")
CODE_LIST_RESPONSIBLE_AGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:CODE_LIST_RESPONSIBLE_AGENCY")
CHARACTERISTIC_VALUE_CODED = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:CAV|*:CHARACTERISTIC_VALUE_CODED")
AGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:CAV|*:AGENCY")
CHARACTERISTIC_VALUE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:CAV|*:CHARACTERISTIC_VALUE")
MEASURMENT_APPLICATION = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:MEA|*:MEASURMENT_APPLICATION")
MEASURMENT_UNIT_QUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:MEA|*:MEASURMENT_UNIT_QUALIFIER")
MEASURMENT_VALUE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:LOC|*:LIN|*:CCI|*:MEA|*:MEASURMENT_VALUE")
REFERENCEQUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:RFF|*:REFERENCEQUALIFIER")
REFERENCENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:RFF|*:REFERENCENUMBER")
ZIPCODE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:NAD[i]|*:ZIPCODE")
i = i + 1LoopDim SECTION_ID As String
SECTION_ID = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNS|*:SECTION_ID")
Dim CONTROL_QUALIFIER As Long
CONTROL_QUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:MSCONS|*:CNT|*:CONTROL_QUALIFIER")
Dim CONTROL_VALUE As String
CONTROL_VALUE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:CNT|*:CONTROL_VALUE")
MEASURMENT_UNIT_QUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:CNT|*:MEASURMENT_UNIT_QUALIFIER")
Dim NUMSEG As String
NUMSEG = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNT|*:NUMSEG")
Dim REFNUM As String
REFNUM = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:MSCONS|*:UNT|*:REFNUM")
REFERENCENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:REFERENCENUMBER")
IDENTIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:IDENTIFIER")
VERSIONNUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:VERSIONNUMBER")
RELEASENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:RELEASENUMBER")
CONTROLAGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:CONTROLAGENCY")
ASSOCCODE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:ASSOCCODE")
ACCESSREF = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNH|*:ACCESSREF")
Dim iNAME As Long
iNAME = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:BGM|*:NAME")
CODELISTAGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:BGM|*:CODELISTAGENCY")
DOCUMENTNUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:BGM|*:DOCUMENTNUMBER")
DOCUMENTFUNC = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:BGM|*:DOCUMENTFUNC")
RESPONSETYPE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:BGM|*:RESPONSETYPE")
DATUMQUALIFIER = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:DTM|*:DATUMQUALIFIER")
DATUM = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:DTM|*:DATUM")
FORMAT = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:DTM|*:FORMAT")
i = 0
count_i = responseXml.NumChildrenHavingTag("*:Body|*:DownloadResponse|*:APERAK|a031:RFF")
Do While i < count_i
responseXml.I = i
REFERENCEQUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:RFF[i]|*:REFERENCEQUALIFIER")
REFERENCENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:RFF[i]|*:REFERENCENUMBER")
i = i + 1Loop
ACTION = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:NAD|*:ACTION")
PARTNER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:NAD|*:PARTNER")
CODELISTAGENCY = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:NAD|*:CODELISTAGENCY")
Dim ERROR_ID As String
ERROR_ID = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:ERROR_ID")
AGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:AGENCY")
Dim TEXT_SUBJECT_QUALIFIER As String
TEXT_SUBJECT_QUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:TEXT_SUBJECT_QUALIFIER")
Dim FREE_TEXT_CODE As Long
FREE_TEXT_CODE = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_CODE")
Dim FREE_TEXT_VALUE_CODE As String
FREE_TEXT_VALUE_CODE = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_VALUE_CODE")
Dim CODE_LIST_ID As String
CODE_LIST_ID = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:CODE_LIST_ID")
Dim strCODELISTAGENCY As String
strCODELISTAGENCY = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:CODELISTAGENCY")
Dim FREE_TEXT_1 As String
FREE_TEXT_1 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_1")
Dim FREE_TEXT_2 As String
FREE_TEXT_2 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_2")
Dim FREE_TEXT_3 As String
FREE_TEXT_3 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_3")
Dim FREE_TEXT_4 As String
FREE_TEXT_4 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_4")
Dim FREE_TEXT_5 As String
FREE_TEXT_5 = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:FTX|*:FREE_TEXT_5")
REFERENCEQUALIFIER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:RFF|*:REFERENCEQUALIFIER")
REFERENCENUMBER = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:ERC|*:RFF|*:REFERENCENUMBER")
Dim iNUMSEG As Long
iNUMSEG = responseXml.GetChildIntValue("*:Body|*:DownloadResponse|*:APERAK|*:UNT|*:NUMSEG")
REFNUM = responseXml.GetChildContent("*:Body|*:DownloadResponse|*:APERAK|*:UNT|*:REFNUM")