Связанные объекты интеркампани

Функция СведенияОВнешнейОбработке() Экспорт
        
    ПараметрыРегистрации = Новый Структура;
    
    МассивНазначений = Новый Массив;
    МассивНазначений.Добавить("Документ.ЗаказПоставщику");
    
    ПараметрыРегистрации.Вставить("Вид"             , "СозданиеСвязанныхОбъектов");
    ПараметрыРегистрации.Вставить("Назначение"      , МассивНазначений);
    ПараметрыРегистрации.Вставить("Наименование"    , НСтр("ru='Заказ клиента из заказа поставщику';uk='Замовлення клієнта з замовлення постачальнику'"));
    ПараметрыРегистрации.Вставить("Версия"          , "1.0");
    ПараметрыРегистрации.Вставить("БезопасныйРежим" , Истина);
    ПараметрыРегистрации.Вставить("Информация"      , НСтр("ru='Создание заказа клиента на основании заказа поставщику в интеркампани';uk='Створення замовлення клієнта на підставі замовлення постачальнику в інтеркампані'"));
    
    ТаблицаКоманд = ПолучитьТаблицуКоманд();
    
    ДобавитьКоманду(
        ТаблицаКоманд,
        НСтр("ru='Создать заказ клиента';uk='Створити замовлення клієнта'"),
        "СоздатьЗаказКлиента",
        "ВызовКлиентскогоМетода",
        Истина
    );
    
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
    
    Возврат ПараметрыРегистрации;
    
КонецФункции

Функция ПолучитьТаблицуКоманд()
    
    Команды = Новый ТаблицаЗначений;
    Команды.Колонки.Добавить("Представление"        , Новый ОписаниеТипов("Строка"));
    Команды.Колонки.Добавить("Идентификатор"        , Новый ОписаниеТипов("Строка"));
    Команды.Колонки.Добавить("Использование"        , Новый ОписаниеТипов("Строка"));
    Команды.Колонки.Добавить("ПоказыватьОповещение" , Новый ОписаниеТипов("Булево"));
    Команды.Колонки.Добавить("Модификатор"          , Новый ОписаниеТипов("Строка"));
  
    Возврат Команды;
  
КонецФункции

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Истина, Модификатор = "")
    
    НоваяКоманда                      = ТаблицаКоманд.Добавить();
    НоваяКоманда.Представление        = Представление;
    НоваяКоманда.Идентификатор        = Идентификатор;
    НоваяКоманда.Использование        = Использование;
    НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
    НоваяКоманда.Модификатор          = Модификатор;
  
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив, СозданныеОбъекты) Экспорт
    
        Для каждого Элемент из ОбъектыНазначенияМассив Цикл    
        
        ФормаДок = ПолучитьФорму("Документ.ЗаказКлиента.ФормаОбъекта"); 
        
        ДанныеФормы = ФормаДок.Объект; 
        
        СоздатьНовыйДокумент(Элемент, ДанныеФормы);
        
        КопироватьДанныеФормы(ДанныеФормы, ФормаДок.Объект);
        
        ФормаДок.Открыть();
        
    КонецЦикла;    
    
КонецПроцедуры

&НаСервере
Процедура СоздатьНовыйДокумент(Основание, НовыйОбъект)
    
    НовыйОбъект.ДокументОснование = Основание.Ссылка;
    НовыйОбъект.Дата              = ТекущаяДата();
    НовыйОбъект.Склад             = Основание.Склад; 
    НовыйОбъект.Партнер           = Основание.Партнер;
	НовыйОбъект.Контрагент        = Основание.Организация;
	НовыйОбъект.Соглашение        = Основание.Соглашение;
	НовыйОбъект.Комментарий       = Основание.Коментарий;
	НовыйОбъект.Организация       = Основание.Поставщик;
	НовыйОбъект.Приоритет         = Основание.Приоритет;
	НовыйОбъект.Договор           = Основание.Договор;
	    
    Для каждого СтрокаТЧ из Основание.Товары Цикл
        ЗаполнитьЗначенияСвойств(НовыйОбъект.Товары.Добавить(), СтрокаТЧ);
    КонецЦикла;
    
КонецПроцедуры