WEBSERVICE - VIA POST USANDO POSTWEBSERVICE

  Public Function PostWebservice(ByVal URL As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String
    Dim objDom As Object
    Dim objXmlHttp As Object
    Dim strRet As String
    Dim intPos1 As Integer
    Dim intPos2 As Integer
    
    On Error GoTo Err_PW
    
    [ô] Create objects to DOMDocument and XMLHTTP
    Set objDom = CreateObject([Ô]MSXML2.DOMDocument[Ô])
    Set objXmlHttp = CreateObject([Ô]MSXML2.XMLHTTP[Ô])
    
    [ô] Load XML
    objDom.async = False
    objDom.loadXML XmlBody

    [ô] Open the webservice
    objXmlHttp.Open [Ô]POST[Ô], URL, False
    
    [ô] Create headings
    objXmlHttp.setRequestHeader [Ô]Content-Type[Ô], [Ô]text/xml; charset=utf-8[Ô]
    objXmlHttp.setRequestHeader [Ô]SOAPAction[Ô], SoapActionUrl
    
    [ô] Send XML command
    objXmlHttp.Send objDom.XML

    [ô] Get all response text from webservice
    strRet = objXmlHttp.ResponseText
    
    [ô] Close object
    Set objXmlHttp = Nothing
    
    [ô] Extract result
    intPos1 = InStr(strRet, [Ô]Result>[Ô]) + 7
    intPos2 = InStr(strRet, [Ô]</[Ô])
    If intPos1 > 7 And intPos2 > 0 Then
        strRet = Mid(strRet, intPos1, intPos2 - intPos1)
    End If
    
    [ô] Return result
    PostWebservice = strRet
    
Exit Function
Err_PW:
    PostWebservice = [Ô]Error: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description

End Function