Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Если ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ПеремещениеТоваров") Или ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ЗаказНаПеремещение") Тогда
- РасходныйОрдер.Склад = Выборка.Распоряжение.СкладОтправитель;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаПоПеремещению;
- РасходныйОрдер.Получатель = Выборка.Распоряжение.СкладПолучатель;
- ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ЗаказКлиента") Или ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
- РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту;
- РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
- ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ВнутреннееПотреблениеТоваров") Тогда
- РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаНаВнутренниеНужды;
- РасходныйОрдер.Получатель = Выборка.Распоряжение.Подразделение;
- ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ПередачаДавальцу") Тогда
- РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту; // не уверен, что по отгрузке давальцам именно такая
- РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
- ИначеЕсли ТипЗнч(Выборка.Распоряжение) = Тип("ДокументСсылка.ОтгрузкаТоваровСХранения") Тогда
- РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаПоВозвратуПоставщику;
- РасходныйОрдер.Получатель = Выборка.Распоряжение.Партнер;
- Иначе
- Попытка
- РасходныйОрдер.Склад = Выборка.Распоряжение.Склад;
- Исключение
- КонецПопытки;
- РасходныйОрдер.СкладскаяОперация = Перечисления.СкладскиеОперации.ОтгрузкаКлиенту;
- КонецЕсли;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement