Current Path : /var/www/html/clients/wiki.e-nk.ru/data/cache/8/ |
Current File : /var/www/html/clients/wiki.e-nk.ru/data/cache/8/8e25ee34c3f7f4bf640adfe185545bfd.xhtml |
<h3 class="sectionedit1" id="проверка_вложений_эд_в_тм">Проверка вложений ЭД в ТМ</h3> <div class="level3"> <p> <strong>В событиях блока «До запроса параметоров»:</strong> </p> <pre class="code">Параметры = Work.WorkFlowParams ДокументИнф = nil // Проверка вложения - документа СписокВложений = Work.GetAttachments(True) КолДокументов = 0 все Вложение в СписокВложений ДокументИнф = Вложение.ObjectInfo если ДокументИнф.ComponentType = ctEDocument Параметры.ValueByName("ПисьмоИсходящее").Value = ДокументИнф КолДокументов = КолДокументов + 1 конецесли конецвсе // Если не нашли, или нашли больше 1, то ошибка если КолДокументов <> 1 Сообщ = 'Во вложении должен быть один эл. документ.' Raise(СоздатьИсключение("EDIRNotFindEDocAttach"; Сообщ; ecWarning)) конецесли</pre> </div>