[hide=Cringleburt Fistchibungs]Cringleburt Fistchibung's Gamer Card[/hide]

%REM

Creates new legislative file version.
updateMM function will call this function
or call this function from Legislative File form.
%END REM
        On Error Goto mailerr
        Dim work As New notesuiworkspace
        Dim uidoc As notesuidocument
        Dim uidoc2 As notesuidocument
        Dim session As New NotesSession
        Dim doc As NotesDocument
        Dim doc2 As NotesDocument
        Dim db As NotesDatabase
        Dim viewlookup As NotesView

        Set db = session.CurrentDatabase

        loopbreak$ = Inputbox("You are about to create a new version of this file, would you like to continue? Y or N. ")
        If Ucase(loopbreak$) "Y" Then
                Messagebox ("New Version agent cancelled")
                Goto finish
        End If
        Set uidoc = work.CurrentDocument
        fversion = uidoc.fieldgettext("lf_version")

        uidoc.editmode = True

        Set doc = uidoc.Document
        doc.lf_version = fversion + 1
        Call doc.Save( True, True )

        Set doc2 = New NotesDocument( db )
        Call doc.CopyAllItems( doc2, True )
        doc2.revise_flag = Cstr( Now)
        doc2.lf_version = fversion
        Call doc2.Save( True, True )

        Exit Function

mailerr:
        Messagebox(ermessage7 )
        Call adminnotify("newversion")
        Resume finish
finish: