Sub Reserve_and_Set_RechNr(ByVal control As IRibbonControl)
Dim oRechnungen As cPodio_Interface
Dim oBestellung As cPodio_Interface
Dim filters As Scripting.Dictionary
Dim NextRechNr As Long
Set oRechnungen = New cPodio_Interface
oRechnungen.ClientID = Office_client_id
oRechnungen.ClientSecret = Office_client_secret
oRechnungen.AppID = Rechnungen_app_id
oRechnungen.AppToken = Rechnungen_app_token
Set oRechnungen.SelCols = New Collection
oRechnungen.SelCols.Add ("rechnungsnummer")
oRechnungen.SelCols.Add ("kunde")
oRechnungen.SelCols.Add ("holding")
oRechnungen.SelCols.Add ("rechnungsdatum")
oRechnungen.SelCols.Add ("bestellnummer")
If oRechnungen.OAuthAppAuthorization() = True Then
Set filters = New Scripting.Dictionary
If oRechnungen.Filter("rechnungsnummer", True, 1, filters) Then
If oRechnungen.GetSelValCount() > 0 Then
oRechnungen.ReadSelVals (0)
NextRechNr = CLng(oRechnungen.SelVals("rechnungsnummer")) + 1
Debug.Print "Nächste Rechnungsnummer ist " & CStr(NextRechNr)
End If
Else
oRechnungen.DeleteAppToken
MsgBox ("Anmeldung fehlgeschlagen")
End If