Кстати есть вопрос я тут на днях конструктором баловался по схожей теме данные кидал из заказа клиента в документ поступления, всё кидается нормально, проводится - но как то коряво, в отчетах по взаиморасчетам документ не появляется - где грабли?
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Перем СкладПоступления;
Перем РеквизитыШапки;
ТипДанныхЗаполнения = ТипЗнч(ДанныеЗаполнения);
Если ТипДанныхЗаполнения = Тип("Структура") Тогда
Если ДанныеЗаполнения.Свойство("ДокументОснование")
И (ТипЗнч(ДанныеЗаполнения.ДокументОснование) = Тип("ДокументСсылка.ЗаказПоставщику")
Или ТипЗнч(ДанныеЗаполнения.ДокументОснование) = Тип("Массив")) Тогда
ДанныеЗаполнения.Свойство("СкладПоступления", СкладПоступления);
ДанныеЗаполнения.Свойство("РеквизитыШапки", РеквизитыШапки);
ЗаполнитьДокументНаОснованииЗаказаПоставщику(ДанныеЗаполнения.ДокументОснование, СкладПоступления, РеквизитыШапки);
Иначе
ЗаполнитьДокументПоОтбору(ДанныеЗаполнения);
КонецЕсли;
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.ЗаказПоставщику") Тогда
ЗаполнитьДокументНаОснованииЗаказаПоставщику(ДанныеЗаполнения, СкладПоступления);
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.ВозвратТоваровПоставщику") Тогда
ЗаполнитьДокументНаОснованииВозвратаТоваровПоставщику(ДанныеЗаполнения);
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.ЗаказКлиента") Тогда
// Заполнение по Заказу клинта
ВалютаВзаиморасчетов = ДанныеЗаполнения.Валюта;
Валюта = ДанныеЗаполнения.Валюта;
ГруппаФинансовогоУчета = ДанныеЗаполнения.ГруппаФинансовогоУчета;
ПодотчетноеЛицо = ДанныеЗаполнения.Менеджер;
Менеджер = ПараметрыСеанса.ТекущийПользователь;
Принял = ПараметрыСеанса.ТекущийПользователь;
НалогообложениеНДС = ДанныеЗаполнения.НалогообложениеНДС;
Организация = ДанныеЗаполнения.Организация;
Склад = ДанныеЗаполнения.Склад;
ЦенаВключаетНДС = ДанныеЗаполнения.ЦенаВключаетНДС;
Подразделение = ЗначениеНастроекПовтИсп.ПодразделениеПользователя(Менеджер,Подразделение);
Для Каждого ТекСтрокаДополнительныеРеквизиты Из ДанныеЗаполнения.ДополнительныеРеквизиты Цикл
НоваяСтрока = ДополнительныеРеквизиты.Добавить();
НоваяСтрока.Значение = ТекСтрокаДополнительныеРеквизиты.Значение;
НоваяСтрока.Свойство = ТекСтрокаДополнительныеРеквизиты.Свойство;
НоваяСтрока.ТекстоваяСтрока = ТекСтрокаДополнительныеРеквизиты.ТекстоваяСтрока;
КонецЦикла;
Для Каждого ТекСтрокаСерии Из ДанныеЗаполнения.Серии Цикл
НоваяСтрока = Серии.Добавить();
НоваяСтрока.Количество = ТекСтрокаСерии.Количество;
НоваяСтрока.Номенклатура = ТекСтрокаСерии.Номенклатура;
НоваяСтрока.Серия = ТекСтрокаСерии.Серия;
НоваяСтрока.Склад = ТекСтрокаСерии.Склад;
НоваяСтрока.Характеристика = ТекСтрокаСерии.Характеристика;
КонецЦикла;
Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.КодСтроки = ТекСтрокаТовары.КодСтроки;
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.КоличествоУпаковок = ТекСтрокаТовары.КоличествоУпаковок;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
НоваяСтрока.Склад = ТекСтрокаТовары.Склад;
НоваяСтрока.СтавкаНДС = ТекСтрокаТовары.СтавкаНДС;
НоваяСтрока.СтатусУказанияСерий = ТекСтрокаТовары.СтатусУказанияСерий;
НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
НоваяСтрока.СуммаНДС = ТекСтрокаТовары.СуммаНДС;
НоваяСтрока.СуммаСНДС = ТекСтрокаТовары.СуммаСНДС;
НоваяСтрока.Упаковка = ТекСтрокаТовары.Упаковка;
НоваяСтрока.Характеристика = ТекСтрокаТовары.Характеристика;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
КонецЦикла;
ИначеЕсли ТипДанныхЗаполнения = Тип("СправочникСсылка.СоглашенияСПоставщиками") Тогда
ЗаполнитьДокументНаОснованииСоглашенияСПоставщиком(ДанныеЗаполнения);
КонецЕсли;
ИнициализироватьДокумент();
КонецПроцедуры // ОбработкаЗаполнения()
Показать
З.Ы. Кстати ваша обработка так же себя ведёт - пока галочкой "по заказу" не побалуюсь нормально не проводится.