Advertisement
Yaguar

Untitled

May 30th, 2018
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.75 KB | None | 0 0
  1. СтандартнаяОбработка = Ложь;
  2. Если ВыбранноеЗначение <> Неопределено Тогда
  3. Документ1С = ВыбранноеЗначение;
  4. ОбъектДокумент = Центр.ExCon.GetDocument(DocId);
  5. Info = ФиксацияСвязиСДокументом1ССервер(ОбъектДокумент.Info);
  6. ОбъектДокумент.SetInfo(Info);
  7. Элементы.Документ1С.КнопкаВыбора = Ложь;
  8. Элементы.Документ1С.КнопкаОткрытия = Истина;
  9. Элементы.Документ1С.КнопкаОчистки = Истина;
  10. Элементы.КнопкаСоздатьДокумент1С.Доступность = Ложь;
  11.  
  12. ОбъектДокумент.SetInfoMark("1"); // Картинка обработанного заказа.
  13. КонецЕсли;
  14. Ид_Док1С = ЗначениеВСтрокуВнутрНаСервере(ВыбранноеЗначение);
  15. Если Центр.ОтсутствуетВИерархии(Ид_Док1С, Истина) Тогда //Попова 2018.01.28 Нб Добавлена передача второго параметра - для того, чтобы оценить связь текщего заказа с Order
  16. Центр.ExCon.DeleteDocumentFromTabDocRelations(Ид_Док1С, Null); //Чтобы исключить записи, образованные до связки документов 1С с документами EDI
  17. Тип = Центр.ПолучитьТипДокументаДляЗаписиВтаблицуИерархии();
  18. Центр.ЗаписатьВТаблицуИерархии(Ид_Док1С, DocId, Тип, Ложь);
  19. КонецЕсли;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement