В дезайнере добавил парачку полей на форму, вот хочу автоматом пройтись заполнить, а когда открываю через UnprocessedDocuments, то говорить мол таких полей нет 
Помогите, пересохранение не помогло
Помогите, пересохранение не помогло
-
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
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 Nothing)
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
If Db.UnprocessedDocuments.Count>0 Then
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set Doc = collection.GetFirstDocument()
While Not(Doc Is Nothing)
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
itemInvoiseType и ContractCompany являются новыми полями, которых в открывающемся документе нема
Вообще странно, если ты говоришь, что их там нету, что ты в них ищешь?
А для создания, вместо GetFirstItem, используй ReplaceItemValue
А для создания, вместо GetFirstItem, используй ReplaceItemValue
вот что про иницализацию новых полей пишет хелп:
Таким образом необходимо не искать поля в документе, где их нет (не путайте документ и форму)), а создать эти поля:
а вообще то проще написать следующим образом:
надеюсь, нигде не описался
Код:
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 Nothing)
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надеюсь, нигде не описался
А поподробней можно? Интересно все-такиAppendItemValue плохая штука.
У меня пока не косячило...Здесь применяются к неновому документу, без проверки на существование поля. Может лишние поля наплодить.
Результат работы не равен AppendToTextList.
Результат работы не равен AppendToTextList.
ThanksА поподробней можно? Интересно все-таки
Обучение наступательной кибербезопасности в игровой форме. Начать игру!