Wie übergebe ich die Lizenz an das ZUGFeRD SDK in VB6?

Falls Sie “Late Binding” benutzen können Sie die Lizenz so übergeben:

Dim ZUG As Object
Set ZUG = CreateObject(“Aloaha_ZUGFeRD.XML”)
If ZUG.Licensed(“IHR-LIZENZSCHLUESSEL”) = True Then

Else

End If

Falls Sie die Aloaha ZUGFeRD Library referenziert haben:

Dim ZUG As New Aloaha_ZUGFeRD.XML
If ZUG.Licensed(“IHR-LIZENZSCHLUESSEL”) = True Then
Else

End If

Falls ein Fehler auftritt überprüfen Sie bitte ob Sie das Objekt registriert haben:

regasm Aloaha_ZUGFeRD.dll /codebase