Opdater fortløbende nr.

Hej,

Jeg har følgende Agent som opdaterer ved nr man er på en venteliste, men den opdaterer ikke nr. baseret på det view den køres i dvs. den tager ikke hensyn til sorteringen, det er fordi jeg har først et felt med 1 eller 2 som betyder om det er akut eller ej, næst har jeg et fortløbende uniktnr. som ikke må røres og sidst har jeg for nem oversigt hvad nr. men er på listen. Men alle 1 skal tages først og derefter alle 2 men baseret på det unikkenr de har således at en jeg taster idag kommer før hende jeg taster imorgen, men hvad skal rettes:

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument
   
    Dim number As Double
   
    Set db = session.CurrentDatabase
    Set collection = db.AllDocuments
   
   
    Set v = db.getview( "(luAdmin)" )
    Set adminDoc = v.getdocumentbykey( "Asset Number")
   
    adminDoc.IDcount1 = 1
    Call adminDoc.save( True, False )
   
    Set doc = collection.getfirstdocument
   
    While Not doc Is Nothing
        If DOC.FORM(0) = "skema" Then
           
            number = assignUniqueSeqNumber1
            doc.NR = "" + Cstr( number )
            Call doc.save( True , False )
                    ' Mark this doc
            Call session.updateProcessedDoc( doc )                    
        End If
       
        Set doc = collection.getnextdocument( doc )
    Wend
End Sub


/Leif