УТ 11 программное заполнение заказа клиента

(2)
    Для Каждого СтрокаТЧ ИЗ ПодготовленныеДанные.МассивСтрокТоваров Цикл
        НоваяСтрока = НовыйДок.Товары.Добавить();
        ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЧ); //Заполняется Номенклатура, Количество, КоличествоУпаковок

    КонецЦикла;

    УсловияПродажПоУмолчанию = ПродажиСервер.ПолучитьУсловияПродажПоУмолчанию(
            ПодготовленныеДанные.Шапка.Партнер,
            Новый Структура("УчитыватьГруппыСкладов, ВыбранноеСоглашение, ПустаяСсылкаДокумента",
            Истина,
            НовыйДок.Соглашение,
            Документы.ЗаказКлиента.ПустаяСсылка()));

    НовыйДок.НалогообложениеНДС = ЗначениеНастроекПовтИсп.ПолучитьНалогообложениеНДС(НовыйДок.Организация, НовыйДок.Склад, НовыйДок.Дата);

    Если УсловияПродажПоУмолчанию <> Неопределено Тогда

        Если НЕ ИспользоватьСоглашенияСКлиентами ИЛИ
            (НовыйДок.Соглашение <> УсловияПродажПоУмолчанию.Соглашение И ЗначениеЗаполнено(УсловияПродажПоУмолчанию.Соглашение)) Тогда

            НовыйДок.Соглашение = УсловияПродажПоУмолчанию.Соглашение;
            НовыйДок.ЗаполнитьУсловияПродаж(УсловияПродажПоУмолчанию);

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

            КонецЕсли;
            УстановитьСпецЦены(НовыйДок);
            СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруПересчетаСуммыНДСВСтрокеТЧ(НовыйДок);

            СтруктураДействий = Новый Структура;
            СтруктураДействий.Вставить("ЗаполнитьСтавкуНДС", НовыйДок.НалогообложениеНДС);
            СтруктураДействий.Вставить("ЗаполнитьСтавкуНДСВозвратнойТары", НовыйДок.ВернутьМногооборотнуюТару);
            СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
            СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
            СтруктураДействий.Вставить("ПересчитатьСумму");

            КешированныеЗначения = Неопределено;
            ОбработкаТабличнойЧастиСервер.ОбработатьТЧ(НовыйДок.Товары, СтруктураДействий, КешированныеЗначения);

    Иначе
        ПартнерыИКонтрагенты.ЗаполнитьКонтрагентаПартнераПоУмолчанию(НовыйДок.Партнер, НовыйДок.Контрагент);
        Соглашение = Неопределено;
    КонецЕсли;

    НовыйДок.БанковскийСчетКонтрагента = ЗначениеНастроекПовтИсп.ПолучитьБанковскийСчетКонтрагентаПоУмолчанию(НовыйДок.Контрагент, , НовыйДок.БанковскийСчетКонтрагента);


    ПартнерыИКонтрагенты.ЗаполнитьКонтактноеЛицоПартнераПоУмолчанию(НовыйДок.Партнер,НовыйДок.КонтактноеЛицо);
    //Если НЕ ПолучитьФункциональнуюОпцию("ИспользоватьУправлениеДоставкой") Тогда
    //    НовыйДок.АдресДоставки = ФормированиеПечатныхФорм.ПолучитьАдресИзКонтактнойИнформации(НовыйДок.Партнер);
    //КонецЕсли;

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