Advertisement
Archius11

Untitled

Jun 17th, 2020
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.43 KB | None | 0 0
  1. Если ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ПеремещениеТоваров") Или ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ЗаказНаПеремещение") Тогда
  2. РасходныйОрдер.Склад = Выборка.Распоряжение.СкладОтправитель;
  3. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаПоПеремещению;
  4. РасходныйОрдер.Получатель = Выборка.Распоряжение.СкладПолучатель;
  5. ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ЗаказКлиента") Или ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
  6. РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
  7. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту;
  8. РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
  9. ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ВнутреннееПотреблениеТоваров") Тогда
  10. РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
  11. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаНаВнутренниеНужды;
  12. РасходныйОрдер.Получатель = Выборка.Распоряжение.Подразделение;
  13. ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ПередачаДавальцу") Тогда
  14. РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
  15. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту; // не уверен, что по отгрузке давальцам именно такая
  16. РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
  17. ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ОтгрузкаТоваровСХранения") Тогда
  18. РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
  19. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаПоВозвратуПоставщику;
  20. РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
  21. Иначе
  22.  
  23. Попытка
  24. РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
  25. Исключение
  26.  
  27. КонецПопытки;
  28.  
  29. РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту;
  30.  
  31. КонецЕсли;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement