Как залочить поле со списком после выбора из него значения

Sub Onchange(Source As Field)
Dim uidoc As NotesUIDocument
Dim cDoc As NotesDocument
Dim ws As New NotesUIWorkspace

Set uidoc = ws.CurrentDocument
Set cDoc = uidoc.Document

If cDoc Is Nothyng Then Exit Sub

Call cDoc.ReplaceItemValue("Operation", “”)
End Sub

@SetField(OperationSecond;@GetField(Operation))

While Not OtherDoc Is Nothyng
i = i + 1
Call itemNumberInSeries.AppendToTextList(Cstr( i ))
Set OtherDoc = OtherDocs.getNextDocument(OtherDoc)
Wend

Sub Onload(Source As Notesuidocument)
On Error Goto Errh

Dim cDoc As NotesDocument
Set cDoc = Source.Document
If cDoc Is Nothyng Then Exit Sub

Dim session As New NotesSession

Static db As NotesDatabase
Static view As NotesView
If db Is Nothyng Then Set db = session.CurrentDatabase
If view Is Nothyng Then Set view = db.GetView ("TypeOper\BP" )

Dim i As Integer
Dim itemNumberInSeries As NotesItem
Set itemNumberInSeries = cDoc.GetFirstItem( "NumberOfOper" )

Dim OtherDoc As NotesDocument
Dim OtherDocs As NotesDocumentCollection
Set OtherDocs = view.GetAllDocumentsByKey(cDoc.GetItemValue("BusinessProcess")(0), True)
Set OtherDoc = OtherDocs.getFirstDocument
If OtherDoc Is Nothyng Then
Call itemNumberInSeries.AppendToTextList("1")
Exit Sub
End If
While Not OtherDoc Is Nothyng
i = i + 1
Call itemNumberInSeries.AppendToTextList(Cstr( i ))
Set OtherDoc = OtherDocs.getNextDocument(OtherDoc)
Wend

Exit Sub
errh:
Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
Exit Sub
End Sub