Domino 9 und frühere Versionen > Entwicklung

Serienverwaltung

<< < (3/3)

Fis:
So da hab ich es gefunden

Public Function ArtNrIntern_neu(db As NotesDatabase, PrNr As String,artdoc As NotesDocument) As String
   On Error Goto ErrHandler
   Dim Nr As Double
   Dim NrStr As String
   Dim view As notesview
   Set view = db.Getview("(LookupArtNrIntern)")
   Dim doc As notesdocument
   
   Set doc = view.GetLastDocument
   NrStr$ = Right$(Cstr(doc.ArtNrIntern(0)),6)
   Nr = Cdbl(NrStr$) +1
   ArtNrIntern_neu = PrNr+" - "+Cstr(Nr)
   Call view.Refresh   
   Exit Function
ErrHandler:
   ArtNrIntern_neu = "00-xx-00"
   Print "Fehler in Funktion ""ArtNrIntern_neu"" in Bibl. Artikel!"+Chr(10)+"Fehlerbeschreibung: "+Error()+Chr(10)+"Zeile: "+Cstr(Erl())
   
   Exit Function
   
End Function

koehlerbv:
Hast Du das "gefunden" oder selber geschrieben aus Deinem Kontext heraus ?
Deine beiden Nummernkreise löst das sowieso nicht.
Wozu ist PrNr ?
Den Parameter artdoc verstehe ich auch nicht.
Etwas gewagt ist auch das Abschnippeln der Nummer auf 6 Stellen - ohne Szenario, was bei einem Überlauf passiert. Dann fängt das Ding einfach von vorne an ...

Fis:
Das hab ich in einer unsere DB´s gefunden, das lößt nicht ganz mein Problem, aber geht schon mal in die richtige Richtung

ata:
... such mal im Forum nach einem Anhang ähnlich SequenzingNumber - da hat mal jemand ne DB mit sequentiellem Numbering reingehängt - wenn du es nicht findest, dann poste mir - ich hab sie vielleicht noch wo rumligen...

ata

Fis:
Hab ich, danke ata   :D

Navigation

[0] Themen-Index

[*] Vorherige Sete