Moin,
also ich bekomm bei dieser Befehlzeile:
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
oben genannte Fehlermeldung, bin überfragt warum
hier mal der vollständige code
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim rechdoc As notesdocument
Dim LastRe As Double 'letzteRechnungsnummer
Dim rpdoc As notesdocument
Dim rpview As notesview
Dim rpcol As notesviewentrycollection
Dim rpentry As notesviewentry
Dim partnerid As String
Dim testid As String
Set db = session.currentdatabase
'letzte verwendete Rechnungsnummer holen, wenn keine geholt werden kann Funktions Ende
Set view = db.getview("KonfigurationRechnungsart")
Set rechdoc = view.getfirstdocument
If Not rechdoc Is Nothing Then
LastRE = Cdbl(rechdoc.nextReNr(0))
If Cstr(LastRe) ="" Then
Msgbox "Keine Rechnungsnummer hinterlegt! Bitte wenden Sie sich an die EDV"
Exit Sub
End If
Else
Msgbox "Es konnte keine Konfiguration für die Rechnungsart gefunden werden! Bitte wenden Sie sich an die EDV"
Exit Sub
End If
NextRe = LastRe +1 'die nächste zu vergebene Rechnungsnummer ist die altte Rechnungsnummer +1, da fortlaufend
Set rpview = db.getview("(viewLUOhneRechNr)")
'Positionen pro Debitor unter einer Rechnungsnummer zusammenfassen
Print Today & " Rechnungsnummervergabe....Start"
Set rpcol = rpview.allentries
For i = 1 To rpcol.count
Print i
Set rpentry = rpcol.getnthentry(i)
Set rpdoc = rpentry.document
partnerid = Cstr(rpdoc.PartnerID(0))
If Not partnerid ="" Then
If Not testid = partnerid Then
NextRe = NextRe +1
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
End If
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
End If
testid = partnerid
Next
'Übergabe der zuletzt vergebenen Rechnungsnummer, noch nicht während der entwicklungsphase scharf geschaltet
'rechdoc.nextReNr(0) = CLng(NextRe)
Print Today & " Rechnungsnummervergabe....Ende"
Print " Es wurden " & i & " Rechnungspositionen verarbeitet"
