Manage Learn to apply best practices and optimize your operations.

Sequential Numbering using a form/document

Sequential numbering using a form rather than a view.
1. Create a Form: NumForm
a. Create field: "ProjectNumber"

2. Create a Hidden View: "(Numbering)"
a. View Selection: Form = "NumForm"

3. Create one document using the NumForm, 
a. set the ProjectNumber to your starting number.

4. On main form:
a. Create a field: i.e. "ProjectNumber"
b. Query Save: @Command*[ToolsRunMacro];"Number"

5. Create an Agent: (Number)
Sub Initialize
     Dim Ses As New notessession
     Dim ws As New notesuiworkspace
     Dim db As notesdatabase
     Dim doc As notesdocument
     Dim source As notesuidocument
     Dim doccreate As notesdocument
     Dim view As notesview
     Set db =Ses.currentdatabase
     Set source = ws.currentdocument
     Set view = db.getView("(Numbering)")
     Set doc = view.getfirstdocument
     
     Set doccreate = source.document
     Dim x As Variant
     Dim y As Variant
     
     x =doc.ProjectNumber(0)
     y= x+1
     Dim username As String
     username = Ses.EffectiveUserName
     If Source.IsNewDoc Then
          doccreate.ProjectNumber= y
          doc.ProjectNumber = y                   
          Call doc.Save( True, True )
          
          
     End If
     
End Sub

Dig Deeper on Domino Resources - Part 6

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close