История

Статус
Закрыто для дальнейших ответов.

wowa

Well-known member
01.02.2007
848
0
#1
Подскажите, пожалуйста, как это можно сделать::::

На форме есть субформа, там 2 поля (поле№1 и поле№2)
и есть экшен, нажимая на него выскакивает DialogBox, там 2 поля (полеА и полеБ), я их заполняю и нажимаю ОК, значение этих полей заносится в поле№1 и поле№2
Дак вот, как сделать, чтобы сколько я бы раз не нажимал Экшен.... на форме получалось бы вот так:

Типа таблицей в полях 1 и 2
Код:
значение(полеА)	 |  значение(поляБ)
значение(полеА)	 |  значение(поляБ)
...........................................................
значение(полеА)	 |  значение(поляБ)
Т.е. поле№1 содержит значения поляА, а поле№2 - значения поляБ
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
НУ так поля поле№1 и поле№2 -должны быть Computed, в формуле вычисления прописать поля полеА и поляБ , ну и после диалог бокса соответствено делать uidoc.refresh
 

wowa

Well-known member
01.02.2007
848
0
#3
Для: Morpheus
дак в полях 1 и 2 будут только последние значения А и Б ...???
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
а стоп, кажеться поял, Вы хъотите собирать все значения поля А и Б которые они когда то принимали?

НУ тогда после диалог бокса просто воспользуйтсь -NotesUIDocument.FieldAppendText ( "поле№1", implode(NotesUIDocument.Document.полеА) ) ну и аналогично со вторым вариантом

После того как Вы клацните на диалог бокс, в поле поле№1 добавиться тек. значения поляА
 

wowa

Well-known member
01.02.2007
848
0
#5
и значение какого-н поля может быть большим текстом, тогда уровни могут не совпадать
Код:
значение(полеА)	 |
значение(полеБ)
 

morpheus

скриптописец
07.08.2006
3 915
1
#6
Для: wowa
Значит зделайте всё это ОДНИМ полем - FieldTotal

NotesUIDocument.FieldAppendText ( "FieldTotal", implode(NotesUIDocument.Document.полеА) & " | " & implode(NotesUIDocument.Document.полеБ) )

Плюс зделайте разделителем между мультивалуями в FieldTotal - NewLine
 

morpheus

скриптописец
07.08.2006
3 915
1
#8
Для: Omh
НУ можно и AppendToTextList - єто точо не каллл...
а чем не нравиться FieldAppendText - я импросто не пользовался ниразу

Код:
Dim doc As NotesDocument
Set doc = NotesUIDocument.Document
Dim item As NotesItem
' ...set value of doc...
Set item = doc.GetFirstItem( "FieldTotal" )
Call item.AppendToTextList( implode(NotesUIDocument.Document.полеА) & " | " & implode(NotesUIDocument.Document.полеБ) )
Call doc.Save( False, True )
 

wowa

Well-known member
01.02.2007
848
0
#9
Все в принципе нормально...хорошо работает
но если Значение поляБ может быть очень большим, тогда
Код:
Значение(поляа) | wwwwwwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwww
Я нашел кое-что,
Код:
_res := "<td>" + поле1+ "</td><td>" + поле2 + "</td></tr>";
_i := 0;
_res1 := @Transform( _res; "x";
@Do(
_i := 1 - _i;
"<tr class=\"l" + @Text(_i) + "\" valign=\"top\">" + x
)
);
@Implode(_res1)
 

morpheus

скриптописец
07.08.2006
3 915
1
#10
Для: wowa
я , бы для истории не хранилбы длинные значения, так ... не более 100 символов
 

wowa

Well-known member
01.02.2007
848
0
#11
Но там как бы не история....
Дата | замечания, предложения


Вот как бы мне с этим сделать??
Код:
_res := "<td>" + поле1+ "</td><td>" + поле2 + "</td></tr>";
_i := 0;
_res1 := @Transform( _res; "x";
@Do(
_i := 1 - _i;
"<tr class=\"l" + @Text(_i) + "\" valign=\"top\">" + x
)
);
@Implode(_res1)
 

morpheus

скриптописец
07.08.2006
3 915
1
#12
<!--QuoteBegin-wowa+12:11:2007, 10:39 -->
<span class="vbquote">(wowa @ 12:11:2007, 10:39 )</span><!--QuoteEBegin-->Вот как бы мне с этим сделать??
[snapback]85217" rel="nofollow" target="_blank[/snapback]​
[/quote]
Что это такое, и что ВЫ хотите этим добиться7
 

wowa

Well-known member
01.02.2007
848
0
#13
Ну насколько я понимаю этим кодом оно сделает
не
Код:
10.11.2007 | wwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwwww
а
Код:
10.11.2007 | wwwwwwwwwwwwwwwwwwwwwwwww
wwwwwwww
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#14
Для: wowa
Создать Computed Text с этим кодом. Запихнуть его (Computed Text) между тегами <TABLE> и </TABLE>.
Выделить всё это дело. И поставить галку Pass-Thru HTML.

ЗЫ. Теги <TABLE> и </TABLE> просто написать на форме. Обычным текстом.
 

wowa

Well-known member
01.02.2007
848
0
#15
Для: Medevic
сделал я так...
только в примере что я нашел <TABLE> и </TABLE> тоже Pass-Thru HTML

А что прописать в экшен?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#16
<!--QuoteBegin-wowa+12:11:2007, 12:06 -->
<span class="vbquote">(wowa @ 12:11:2007, 12:06 )</span><!--QuoteEBegin-->только в примере что я нашел <TABLE> и </TABLE> тоже Pass-Thru HTML
[snapback]85222" rel="nofollow" target="_blank[/snapback]​
[/quote]
Я так и написал. :)

<!--QuoteBegin-wowa+12:11:2007, 12:06 -->
<span class="vbquote">(wowa @ 12:11:2007, 12:06 )</span><!--QuoteEBegin-->А что прописать в экшен?
[snapback]85222" rel="nofollow" target="_blank[/snapback]​
[/quote]
Пропиши добавление значений. :)

Кстати, изменения отображаться будут только после переоткрытия документа.
 

wowa

Well-known member
01.02.2007
848
0
#17
Для: Morpheus
Для: Medevic
Спасибо! Получилось +1

Хотя репутацию изменить не могу,.... жаль (
 
Статус
Закрыто для дальнейших ответов.