Advantage Finance XML Developer's Site

This example shows reading an application from an xml file, submitting that to advantage using the provided dll. Then subsequently checking for error messages before displaying the returned application number.

modMain.bas [Project]

Option Explicit

Public Sub Main()
    Dim MyXMLSoapApp As New AdvantageXMLSoapApplication.XMLSoap
    Dim eNumber As Integer
    Dim eDescription As String
    Dim eSource As String
    Dim MyApplicationID As Long
    
    'open the xml file to send
    Dim strXML As String
    Dim fLine As String
    Open "Sent.xml" For Input As #1
        While Not EOF(1)
        Line Input #1, fLine
        strXML = strXML & fLine & vbNewLine
        Wend
    Close #1
    
    With MyXMLSoapApp
        .XML = strXML
        .Url = "https://www.advantage-finance.co.uk/xml/soap/test/TestXMLSoap.asp"
        .SendApplication
        
        eNumber = .ErrorNumber
        eDescription = .ErrorDescription
        eSource = .ErrorSource
    End With
    
    If eNumber <> 0 Then
        MsgBox "Error Number: " & vbTab & eNumber & vbNewLine & _
            "Error Description: " & vbTab & eDescription & vbNewLine & _
            "Error Source: " & vbTab & eSource, vbCritical
      Else
        MyApplicationID = MyXMLSoapApp.ApplicationID
        MsgBox "ApplicationID = " & MyApplicationID, vbInformation, "XMHellYeah"
    End If
    
    'show the returned xml
    MsgBox MyXMLSoapApp.ReturnedXML, , "Returned XML"
    
    'show the sent xml (just for kicks)
    MsgBox MyXMLSoapApp.XML, , "Sent XML"
    
    Set MyXMLSoapApp = Nothing
End Sub