Ich habe ein VBA Script was bei jeden Dokument eine neue fortlaufen Nummer generieren soll.
Nur plötzlich kommt immer ein Überlauffehler den ich mir nicht erklären kann
Der Fehler wird hier beim debuggin gemeldet:
If oRechnungen.GetSelValCount() > 0 Then
oRechnungen.ReadSelVals (0)
Eine Idee was das sein kann?
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
|