Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/95: Рейтинг темы: голосов - 95, средняя оценка - 4.62
1

Как добавить поле в уже созданный документ?

26.11.2008, 16:08. Просмотров 17530. Ответов 10
Метки нет (Все метки)


В дезайнере добавил парачку полей на форму, вот хочу автоматом пройтись заполнить, а когда открываю через UnprocessedDocuments, то говорить мол таких полей нет
Помогите, пересохранение не помогло
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2008, 16:08
Ответы с готовыми решениями:

Как вставить поле слияния в созданный документ
В закладку (Zakl_1) созданного по шаблону документа нужно поместить поле слияния. Такой код: Dim...

Как добавить новый диск в уже созданный том?
Здравствуйте. Помогите, у меня проблема. На работе стоит видеонаблюдение к ней присоединены 32...

Как добавить вновь созданное поле в уже готовую форму?
Подскажите пожалуйста возможен ли (и как это сделать) ввод нового поля в уже созданную форму. Т.е....

Как определить последний созданный документ
В принципе сабж, и как определить его uind, хотелось бы чтобы это было в @функциях. Спасибо за...

__________________
Помогаю в написании студенческих работ здесь.
10
0 / 0 / 0
Регистрация: 12.08.2006
Сообщений: 59
26.11.2008, 16:14 2
А фрагмент агента, заполняющий эти поля можно посмотреть?
0
26.11.2008, 16:17 3
Set Db=Session.CurrentDatabase

If Db.UnprocessedDocuments.Count>0 Then

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set Doc = collection.GetFirstDocument()

While Not(Doc Is Nothyng)
Set itemContractStatus = Doc.GetFirstItem( "ContractStatus" )
Set itemInvoiseType = Doc.GetFirstItem( "InvoiseType" )
Set itemContractParties = Doc.GetFirstItem( "ContractParties" )

If itemContractStatus.Contains("1 Черновик") Then
Call itemContractStatus.AppendToTextList( "5 Архив" )
Call itemInvoiseType.AppendToTextList( "Расходный" )

Call Doc.CopyItem( itemContractParties, "ContractCompany" )
Call Doc.Save( False, True )
End If

Set doc = collection.GetNextDocument(doc)
Wend

End If



Цитата Сообщение от Dikobraz Grey
А фрагмент агента, заполняющий эти поля можно посмотреть?
itemInvoiseType и ContractCompany являются новыми полями, которых в открывающемся документе нема
0 / 0 / 0
Регистрация: 20.10.2008
Сообщений: 271
26.11.2008, 16:27 4
Вообще странно, если ты говоришь, что их там нету, что ты в них ищешь?

А для создания, вместо GetFirstItem, используй ReplaceItemValue
0
26.11.2008, 16:33 5
Цитата Сообщение от abbatik
Вообще странно, если ты говоришь, что их там нету, что ты в них ищешь?

А для создания, вместо GetFirstItem, используй ReplaceItemValue
Ну а как обновить так документ, что бы они появились?
0 / 0 / 0
Регистрация: 12.08.2006
Сообщений: 59
26.11.2008, 16:45 6
вот что про иницализацию новых полей пишет хелп:

Код
Dim variableName As New NotesItem( notesDocument, name$, value
[, specialType% ] )
Таким образом необходимо не искать поля в документе, где их нет (не путайте документ и форму)), а создать эти поля:



Код
Set itemContractStatus = New NotesItem(Doc,"ContractStatus", "")
а вообще то проще написать следующим образом:



Код
Set Db=Session.CurrentDatabase

If Db.UnprocessedDocuments.Count>0 Then

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set Doc = collection.GetFirstDocument()

While Not(Doc Is Nothyng)
Set itemContractStatus = Doc.GetFirstItem( "ContractStatus" )

If itemContractStatus.Contains("1 Черновик") Then
Call Doc.AppendItemValue("ContractStatus", "5 Архив" )
Call Doc.AppendItemValue("InvoiseType", "Расходный" )

Call Doc.replaceItemValue("ContractCompany", Doc.GetItemValue("ContractParties"))
Call Doc.Save( False, True )
End If

Set doc = collection.GetNextDocument(doc)
Wend

End If
надеюсь, нигде не описался
0
0 / 0 / 0
Регистрация: 04.12.2004
Сообщений: 3,329
26.11.2008, 16:52 7
AppendItemValue плохая штука.
0
0 / 0 / 0
Регистрация: 12.08.2006
Сообщений: 59
26.11.2008, 16:58 8
Цитата Сообщение от Medevic
AppendItemValue плохая штука.
А поподробней можно? Интересно все-таки У меня пока не косячило...
0
0 / 0 / 0
Регистрация: 04.12.2004
Сообщений: 3,329
26.11.2008, 17:02 9
Здесь применяются к неновому документу, без проверки на существование поля. Может лишние поля наплодить.

Результат работы не равен AppendToTextList.
0
26.11.2008, 17:12 10
Цитата Сообщение от Dikobraz Grey
А поподробней можно? Интересно все-таки У меня пока не косячило...
Thanks
0 / 0 / 0
Регистрация: 12.08.2006
Сообщений: 59
26.11.2008, 17:19 11
Цитата Сообщение от Medevic
Результат работы не равен AppendToTextList.
Лень-матушка... были такие подозрения-не уточнил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2008, 17:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Можно ли добавить ещё одну печатную форму в документ, где уже есть одна форма?
Подскажите пожалуйста,фот у меня в документе есть печатная форма.Можно ли добавить ещё одну...

Как раскомпоновать созданный уже .EXE?
Есть созданный уже .EXE-шник. Как его разархивировать и увидеть содержание?

Добавить поле загрузки файлов к уже существующей форме
Здравствуйте! Появился такой вопрос. Я создаю блог. У меня есть форма для создания постов. Я хочу...

Добавить новое поле в уже существующий CONSTRAINT UNIQUE
Есть такой SQL код (миграция) ALTER TABLE users ADD CONSTRAINT should_be_differ UNIQUE(username) ...


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

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

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