Сравнение 2 полей

[SkyDream]

Помогите сравнить значения 2х полей.

Имеем 2 поля:

DocPerson (person1,person2,person3,person4)
DocPersonOut (person1,person3)

Необходимо вычислить значения поля DocPerson которые не входят в поле DocPersonOut и вывести их в поле DocPersonInt

Подскажите как это можно вычислить?

main As notesdocument
Dim itema As NotesItem
Dim itemb As NotesItem
Set itema = main.GetFirstItem( "DocPerson" )
Set itemb = main.GetFirstItem( "DocPersonOut" )

 

[LuMee]

А не покатит что-то вроде:

Dim docPerson As Variant
Dim docPersonOut As Variant
Dim docPersonIn As Variant

docPerson = doc.DocPerson
docPersonOut = doc.DocPersonOut
docPersonIn = Fulltrim(ArrayReplace(docPerson, docPersonOut, ""))
doc.DocPersonIn = docPersonIn

Сам не проверял, это так, идея

 

[SkyDream]

А не покатит что-то вроде:

docPersonIn = Fulltrim(ArrayReplace(docPerson, docPersonOut, ""))

Сам не проверял, это так, идея

чет не фурычит даже в хелпе почитал

 

[LuMee]

Тогда на формулах:

dp:= DpcPerson;
dpO:= DocPersonOut;
FIELD DocPersonIn:= @Trim(@Replace(dp; dpO; ""));
""

Кстати, на LS это правильно будет так:

	Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim f1 As Variant, f2 As Variant, f3 As Variant

Set doc = ws.CurrentDocument.Document
f1 = doc.GetFirstItem("DocPerson").Values
f2 = doc.GetFirstItem("DocPersonOut").Values
f3 = Fulltrim(Arrayreplace(f1, f2, ""))
Call doc.ReplaceItemValue("DocPersonIn", f3)
ws.CurrentDocument.Refresh

 

[SkyDream]

ок спасбо огромное!!! я разобрался все получилось