Добавить значение в поле флажка

У меня есть поле флажка в документе Notes, которое определяет шаги, выполненные в процессе. Если пользователь вводит значение в поле TestDate, я бы хотел, чтобы он установил флажок «Проверено» в поле «Задачи». По какой-то причине я не могу понять, как добавить значение, если другие флажки уже установлены.

Я попытался установить его с помощью языка формул при проверке (@SetField), поместив его как изменение внутреннего поля в LotusScript QuerySave и используя LotusScript в событии onChange. Я уверен, что это просто, но сегодня я просто не могу понять это.


lotusscript lotus-notes
person David Navarre    schedule 09.05.2012    source источник
comment
Привет. Не могли бы вы уточнить, что вы пытаетесь сделать? Во втором предложении говорится, что вы хотите установить флажок, когда значение вводится в поле TestDate. Третье предложение звучит так, как будто существует совершенно другая проблема. Спасибо   -  person Ken Pespisa    schedule 09.05.2012
comment
Кен, я хочу, чтобы значение в поле флажка «Задачи» включало галочку «Проверено», если они вводят дату для TestDate. Мне безразлично, происходит ли это в пользовательском интерфейсе или после того, как документ был сохранен, просто так, если в TestDate есть значение, одно из значений, проверенных в Tasks, проверено. В поле «Задачи» есть несколько значений, поэтому я не хочу, чтобы оно случайно очищало их при проверке «Проверено».   -  person David Navarre    schedule 09.05.2012

Ответы (3)


arrow_upward
1
arrow_downward

В LotusScript вы сможете сделать что-то вроде этого:

set item = doc.getFirstItem("Tasks")
call item.AppendToTextList("Tested")
call doc.save(true)
person Richard Schwartz    schedule 09.05.2012
comment
В итоге я использовал этот фрагмент, чтобы подтолкнуть меня к «Dim testDate As String testDate = Source.FieldGetText (TestDate) If Not testDate = Then If Not Source.FieldContains (Tasks, Tested) Then Set taskitem = note.getFirstItem(Tasks) If taskitem. Значения (0) = Тогда note.Tasks = Tested Else Call taskitem.AppendToTextList(Tested) End If End If End If' - person David Navarre; 09.05.2012
comment
В итоге я использовал этот фрагмент, чтобы подтолкнуть меня к изменению QuerySave, добавив Dim testDate As String testDate = Source.FieldGetText ( "TestDate" ) If Not testDate = "" Then If Not Source.FieldContains ( "Tasks", "Tested" ) Then Set taskitem = note.getFirstItem("Tasks") If taskitem.Values (0) = "" Then note.Tasks = "Tested" Else Call taskitem.AppendToTextList("Tested") End If End If End If - person David Navarre; 09.05.2012

arrow_upward
0
arrow_downward

Вы должны иметь возможность использовать любой из указанных вами методов, но вам необходимо сохранить существующие значения:

@SetField("Tasks"; Tasks:"Tested");
person Ken Pespisa    schedule 09.05.2012

arrow_upward
0
arrow_downward

флажок: использовать формулу для выбора;

формула:

@SetField("checkbox";@GetField("QW"))

sub click (on button)
    Call ws.CurrentDocument.Document.ReplaceItemValue("QW",choices)

    Call ws.CurrentDocument.Refresh
end sub
person Ilyas    schedule 10.07.2014
comment
Извините, но я не могу понять, что вы предлагаете. - person David Navarre; 10.07.2014