Domino 9 und frühere Versionen > ND8: Entwicklung

führende nullen

<< < (3/6) > >>

DAU-in:

--- Zitat von: koehlerbv am 04.01.12 - 14:31:04 ---
--- Zitat von: DAU-in am 04.01.12 - 14:28:02 ---Außerdem geht es eher darum, wie man die Befehle finden kann ....
--- Ende Zitat ---

Schon klar. Aber nicht, das Beatrix das später auch abschreibt.

Bernhard

--- Ende Zitat ---

Bernhard, das ist die einfachste Methode festzustellen, ob jemand einfach abschreibt.

lg

Dau-in

help:
Hallo Bernhard
ich habe mir in Lotus scribt eine laufende nummer generiert
die aber im neuen Monat wieder bei eins anfängt

hier das script

Sub Postopen(Source As Notesuidocument)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   
   Dim view As NotesView
   Dim viewname As String
   Dim doc As notesdocument
   Dim numberdoc As NotesDocument
   Dim newnumber As Long
   Dim currentmonth As Integer   
   Dim currentyear As Integer
   currentmonth=Month(Now)
   currentyear=Year(Now)
   
   
   viewname = "(WFNameNumber)"
   Set doc = source.document
   Print "Test1"
   If source.EditMode = False Then
      Exit Sub
   End If
   Print "Test2"
   Stop
   If Not (source.isnewdoc Or source.FieldGetText("Number") = "0") Then   
      Print "Test2a"
      'Exit Sub      
   End If
   Print "Test3"
   Set db = session.CurrentDatabase
   Set view = db.GetView(viewname)
   If view Is Nothing Then
      Exit Sub
   End If
   Print "Test4"
   Set numberdoc = view.GetFirstDocument
   
   If Not numberdoc Is Nothing Then
      
      If numberdoc.HasItem("Number") Then
         
         Print numberdoc.as_jahr(0)
         Print numberdoc.as_mon(0)
         
         If (Cint(numberdoc.as_jahr(0))=currentyear & Cint(numberdoc.as_mon(0))=currentmonth ) Then   
            Print"="
            newnumber = numberdoc.number(0) + 1
         Else
            Print"!="
            newnumber = 1
            
         End If
         
      Else
         newnumber = 1
      End If      
      
   Else
      newnumber = 1
   End If
   Print "Nummer"
   Print newnumber
   Print "End Number"
   Call doc.ReplaceItemValue("Number", newnumber)
   
   
End Sub

Nun habe ich in meinem document ein nummernfeld mit der nummer eins
und ich habe mir ein dsp feld gemacht in dem möchte ich meine nummer mit führenden Nullen füllen.

damit aus 1 zum bsp 001 angezeigt wird dazu muss ich das dsp feld mit dem Wert beschießen also muss es in mein script mit rein und da ist die frage
wie bekomme ich nun mit dem right befehl in script nullen vor meine eins


LG beatrix

koehlerbv:
Damit erzeugst Du Du *keine* laufende Nummern - höchstens manchmal. Damit ist Deine Frage nach Right$ erstmal hinfällig.

Bernhard

help:
Bernhard


doch ich bekomme die nummer so wie ich sie brauche das passt schon
nur die nullen fehlen mir


LG
Beatrix

koehlerbv:
Nein, Dein Testszenario ist falsch. Erstelle ein neues Dokument, und speichere es nicht. Erstelle ein zweites Dokument. Nun speichere beide Dokumente ...

Wir brauchen hier nicht zu diskutieren - allein schon das Erzeugen im Frontend führt zum Status"fortlaufende Nummern werden nicht sicher erzeugt".
Das Thema haben wir hier schon gefühlte 10.000mal durchgekaut (und jeden Morgen steht wieder einer auf, der das nicht glaubt).

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete