Beispiel unter VB
Dim c As New COALA
Dim ElsterXML$ As String
Dim ResponseXML$ As String
' Bei Fehlern in Coala springe zur Marke err
On Error GoTo err
' ElsterXML erzeugen, der Datenteil ist etwas klein
c.MakeElsterXML "<DatenTeil></DatenTeil>", "ElsterLohn", "LStB", "send-NoSig-Offline", "700000004", "74931", "Anton Tester", "", ElsterXML
' Daten an die OFD verschicken und Antwort abholen
c.Transfer ElsterXML, ResponseXML
' Ausgabe der Empfangenen Daten auf der Console
Debug.Print ResponseXML
End
err:
' Fehlerbehandlung:
Debug.Print "An Error has occured"
Debug.Print err.Number Mod 1024 + 1024 ' rc, Fehler wie in funktionen.h definiert
Debug.Print err.Description ' Fehlertext (Message)
