проверка на Lotusscript

Спойлер: Раскрывающийся Текст

Код (LotusScript):

dim reqFields List as String
reqFields("Поле1") = "Field1"
reqFields("Поле2") = "Field2"

Function HasRequired(doc As NotesDocument, fields As Variant) As Boolean
Dim Item As Variant
Dim Msg As String
HasRequired = False
Forall fieldName In fields
Set Item = doc.GetFirstItem(fieldName)
If Item Is Nothing Then
Msg = Msg + "- " + Listtag (fieldName) + Chr$(13)
ElseIf Item.Text = "" Then
Msg = Msg + "- " + Listtag (fieldName) + Chr$(13)
End If
End Forall
If Msg <> "" Then
Msg = "Не заполнены обязательные поля:" + Chr$(13) + Msg
MsgBox Msg
HasRequired = True
End If 
End Function

 

Так, учимся читать справку!
NotesUIDocument.GotoField
NotesUIDocument.QuerySave

 

Сделаю вброс шоколада в вентилятор.

Мой вариант:

Код (LotusScript):

Function CheckReqFields(Doc As NotesDocument, Flds List As String, ShowMsg As Boolean) As Boolean
On Error Goto Errh 

CheckReqFields = False

If Doc Is Nothing Then Exit Function

Dim FldName As String

Forall x In Flds
FldName = Listtag(x)
If Trim$(FldName) <> "" Then
If Trim$(Implode(Doc.GetItemValue(FldName), "")) = "" Then
If ShowMsg Then Messagebox {Field "} + x + {" is required!}, 0 + 64, "Attention!"
Exit Function
End If
End If
End Forall

CheckReqFields = True

Exit Function
Errh:
Call ErrHandler
Exit Function
End Function

Flds List As String - переменная вида Flds("НАЗВАНИЕ ПОЛЯ") = "Литературное название поля"
Фокус не переопределяю, но это сделать несложно.


Ща перечитал, и вижу, что она, по идее, только с текстовыми полями работает
Но, похоже, мне этого хватает.

Если что, вместо If Trim$(Implode(Doc.GetItemValue(FldName), "")) = "" Then можно юзать Item.Text
Ну это так для иллюстрации.
На последнюю инстанцию далеко не претендую.