БД покорежилось, похоже, фиксанул и помогло, бред.
Спасибо за помощь ...
Проверил в копии БД, видимо часть полей по каким - то причинам поимела флаг IsNames
Накидал скриптик (смысл сбросить флаги) и повесил на кнопку в представлении, выделил доки и запустил кнопку.
Ниже привожу, вдруг пригодиться кому.
<!--shcode--><pre><code class='VB'>Dim s As New NotesSession
Dim db As NotesDatabase
Dim uiview As NotesUIView
Dim col2 As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim item As NotesItem
Dim uidoc As notesuidocument
Set db = s.CurrentDatabase
Set uiview = ws.CurrentView
If Not uiview Is Nothing Then
Set col2 = uiview.Documents
Else
Set col2 = db.Unprocesseddocuments
End If
Print "Документов : " & Cstr(col2.Count)
If col2 Is Nothing Or col2.Count <=0 Then
Set uidoc = ws.Currentdocument
If Not uidoc Is Nothing Then
Set doc =uidoc.document
Set item = doc.GetFirstItem("Имя кривого поля")
item.IsSummary = True
item.IsAuthors =False
item.IsNames=False
item.IsReaders=False
Call doc.Save (True,True)
Else
Dim caret As String
' находимся на доке?
caret = uiview.CaretNoteID
If caret = "0" Then Goto endy
On Error Resume Next
Set doc = db.GetDocumentByID(caret)
Set item = doc.GetFirstItem("Имя кривого поля")
item.IsSummary = True
item.IsAuthors =False
item.IsNames=False
item.IsReaders=False
Call doc.Save (True,True)
End If
Else
Set doc = col2.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.save(True,False)
Set item = doc.GetFirstItem("Имя кривого поля")
item.IsSummary = True
item.IsAuthors =False
item.IsNames=False
item.IsReaders=False
Call doc.save(True,False)
If col2.Count>0 Then
Set doc = col2.GetNextDocument(doc)
Else
Set doc = Nothing
End If
Wend
End If
endy:[/CODE]
