Create a second inheritied document

This script allows you to save a newly created document and create another response type document that will inherit the data.

Sub Click(Source As Button)
' Variable declaration section below.         
     Dim session As New NotesSession
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As notesuidocument   
     Dim Currentdoc As NotesDocument     
     Set uidoc =workspace.currentdocument
     uidoc.EditMode = True
     Set Currentdoc= uidoc.Document    
' Prompt the user to create another form for this customer.     
     retcode=Msgbox ("Sign out another item for this person?" , 4 + 32 + 256 + 0, "Multiple Items?")
     If (retcode=6) Then
          Dim newworkspace As New NotesUIWorkspace
          Dim newuidoc As NotesUIDocument
          Set newuidoc = workspace.ComposeDocument( "", "", "Request2" )
          Call uidoc.close      
          Call uidoc.close    
     End If 
End Sub

Posted by fbrefere001 on Thursday February 22, 2001