'Sub Reserve_and_Set_RechNr()
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
'
'Rechnungen
'Felder die verfügbar sein sollen
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")
'Verbinden mit Rechnungen App
If oRechnungen.OAuthAppAuthorization() = True Then
'höchste Rechnungsnummer ermitteln
Set filters = New Scripting.Dictionary
'filters.Add "rechnungsnummer", "200106"
If oRechnungen.Filter("rechnungsnummer", True, 1, filters) Then
If oRechnungen.GetSelValCount > 0 Then
oRechnungen.ReadSelVals 0
' Debug.Print "rechnungsnummer = " & oRechnungen.SelVals("rechnungsnummer")
NextRechNr = CLng(oRechnungen.SelVals("rechnungsnummer")) + 1
' Debug.Print "Nächste Rechnungsnummer ist " & CStr(NextRechNr)
End If
End If
Else
oRechnungen.DeleteAppToken
MsgBox ("Anmeldung fehlgeschlagen")
End If
|