0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
1

вставка вложений

11.09.2007, 17:00. Показов 22235. Ответов 15
Метки нет (Все метки)

@Command([EditGotoField];"Attach");
@Command([EditInsertFileAttachment])
-помещает вложение в начало поля. как сделать, чтобы размещалось в конце, причем каждое последующее вложение с новой строки??
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2007, 17:00
Ответы с готовыми решениями:

Интерфейс вложений в Ln
Возможно кто-то уже делал... При добавлении / изменении файла нужно присваивать ему некоторые...

Открытие вложений
Есть поле RT... В нем несколько файлов.Надо сделать так чтобы при нажатии кнопки выходило...

Репликация вложений
Есть задача: ведение централ. базы урегуирования ( приём заявлений о наступлении страх. событий,...

Проблема с копирование вложений
Всем доброго дня! Эта тема поднималась не один раз уже. Но у меня почему то не срабатывает код при...

15
0 / 0 / 0
Регистрация: 19.07.2007
Сообщений: 1,098
11.09.2007, 18:04 2
Скриптом... Смотрим NotesRichTextItem class...
0
0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
11.09.2007, 18:14 3
уже смотрю, но как через скрипт выполнить @Command([EditInsertFileAttachment]) не представляю
0
Заблокирован
11.09.2007, 18:16 4
в сторону
Call notesRichTextItem.AddNewLine( n% [, forceParagraph ] )
для собак
@Command([EditInsertText]; @Char(0));
0
0 / 0 / 0
Регистрация: 27.02.2007
Сообщений: 154
11.09.2007, 18:20 5
Для: oxystile
просто написать все на скрипте
0
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
11.09.2007, 18:20 6
Метод EmbeddObject, но это на backende
0
0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
11.09.2007, 18:41 7
Цитата Сообщение от Omh
Метод EmbeddObject, но это на backende
Set notesEmbeddedObject = notesRichTextItem.EmbedObject( type%, class$, source$, [ name$ ] )
да, только тут название файла и путь предварительно выяснить а потом только в EmbedObject загнать
0
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
11.09.2007, 18:47 8
ws.OpenFileDialog в помощь
0
Заблокирован
11.09.2007, 19:31 9
Код
@Command( [EditRight]; @Text (@Length(Un)) );
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment])
0
0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
12.09.2007, 13:14 10
Цитата Сообщение от root

Код
@Command( [EditRight]; @Text (@Length(Un)) );
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment])
lotus notes: can not execute thys specific comand.
т..е. не прошло
0
Заблокирован
12.09.2007, 13:55 11
Для: oxystile
Открой его на редактирование
@Command( [EditDocument] );

Делаем доп вычисляемое поле например Count1
Value

Код
Text1 := @Abstract([TextOnly]; 16000; ""; UN);
@length(Text1)
Получили длину текста.

и Акшен


Код
@Command( [EditDocument] );
@Command( [EditGotoField]; UN );
@Command ([EditRight];@Text (Count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )
0
0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
12.09.2007, 16:50 12
с редактированием понятно...даже лучше так
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));

кстати Un-это поле с вложениями?
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));
@Command( [EditGotoField]; Attach);
@Command ([EditRight];@Text (count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )

---count1 по формуле =3 и в итоге курсор перемешается в первое текст поле на 3-ю строку

почти получилось скриптом
stringArray = workspace.OpenFileDialog( True )
uidoc.EditMode=False
Forall v In stringArray
Set object = body.EmbedObject ( EMBED_ATTACHMENT, "", v)
Call body.AddNewLine(1)
Call doc.Save(True, True)
End Forall
но добавленные вложения сразу не отображаются, только после переокрытию дока.
как бы сделать чтобы сразу в поле появлялось то что добавили
0
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
12.09.2007, 16:54 13
Для: oxystile


как бы сделать чтобы сразу в поле появлялось то что добавили
Переоткрыть скриптом.
0
Заблокирован
12.09.2007, 17:03 14
Цитата Сообщение от oxystile
кстати Un-это поле с вложениями?
ДА но в начале идет текст

Переоткрыть скриптом.
uidoc.Close
Set uidoc = ws.EditDocument(False,uidoc.Document )
0
0 / 0 / 0
Регистрация: 29.04.2006
Сообщений: 364
12.09.2007, 17:40 15
:D спасибо!!! получилось как надо!
0
Заблокирован
12.09.2007, 17:57 16
Хм. и в правду прошу прощения, незаметил.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.09.2007, 17:57

Сохранение вложений документа
Приветствую Подскажите пожалуйста как правильно сохранить, через LS вложения поля (Body)...

Флаг Индексация Вложений
доброго времени, уважаемые. можно ли на LS или Notes C API прочитать флаг индексации вложений?

Много вложений в Richtext-поле
Добрый день! В документе есть вычисляемое поле RichText, в которое добавляются вложения. Все было...

Обработка поступающих вложений doc
Уважаемый all! Я понимаю, что ворд на сервере это плохо, но пока увы. Проблема в том, что никак не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.