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

[Guest]

В дезайнере добавил парачку полей на форму, вот хочу автоматом пройтись заполнить, а когда открываю через UnprocessedDocuments, то говорить мол таких полей нет
Помогите, пересохранение не помогло

 

[Dikobraz Grey]

А фрагмент агента, заполняющий эти поля можно посмотреть?

 

[Guest]

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

А фрагмент агента, заполняющий эти поля можно посмотреть?

itemInvoiseType и ContractCompany являются новыми полями, которых в открывающемся документе нема

 

[abbatik]

Вообще странно, если ты говоришь, что их там нету, что ты в них ищешь?

А для создания, вместо GetFirstItem, используй ReplaceItemValue

 

[Guest]

Вообще странно, если ты говоришь, что их там нету, что ты в них ищешь?

А для создания, вместо GetFirstItem, используй ReplaceItemValue

Ну а как обновить так документ, что бы они появились?

 

[Dikobraz Grey]

вот что про иницализацию новых полей пишет хелп:

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

надеюсь, нигде не описался

 

[Medevic]

AppendItemValue плохая штука.

 

[Dikobraz Grey]

AppendItemValue плохая штука.

А поподробней можно? Интересно все-таки У меня пока не косячило...

 

[Medevic]

Здесь применяются к неновому документу, без проверки на существование поля. Может лишние поля наплодить.

Результат работы не равен AppendToTextList.

 

[Guest]

А поподробней можно? Интересно все-таки У меня пока не косячило...

Thanks

 

[Dikobraz Grey]

Результат работы не равен AppendToTextList.

Лень-матушка... были такие подозрения-не уточнил