Wie uebergebe ich die Lizenz an das ZUGFeRD SDK in VB6?

Falls Sie “Late Binding” benutzen koennen Sie die Lizenz so uebergeben:

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

Else

End If

Falls Sie die Aloaha ZUGFeRD Library referenziert haben:

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

End If

Falls ein Fehler auftritt ueberpruefen Sie bitte ob Sie das Objekt registriert haben:

regasm Aloaha_ZUGFeRD.dll /codebase