H
hosm
Примерно так (если я правильно поняла) :
Добавлено: подправила немного, вынесла reqNewDoc выше
Код:
Forall a In newdc
docid=Listtag(a)
Set reqNewDoc = a ' документ из выбранного списка
If Iselement(olddc(docid)) Then
'здесь хотелось би проставлять флаг - "обязательность" для всех доков...
'ну чтоб перестраховатся
'но вот как ???? :(
Set reqOldDoc = olddc(docid) ' респонс к текущему
If reqOldDoc.IsMandatory(0)<>reqNewDoc.IsMandatory(0) Then ' или просто reqOldDoc.IsMandatory(0)<>"M"
call reqNewDoc.replaceitemvalue(IsMandatory, reqNewDoc.GetitemValue("IsMandatory")(0)) '
call reqNewDoc.Save(true, True)
end if
Else ' тут создавать новие документи.... ну, поля берешь из документа reqNewDoc
Set clone = db.CreateDocument
End If
End Forall
Добавлено: подправила немного, вынесла reqNewDoc выше