Функция СведенияОВнешнейОбработке() Экспорт



    ПараметрыРегистрации = Новый Структура;

    МассивНазначений = Новый Массив;

    МассивНазначений.Добавить("Документ.СчетФактураВыданныйАванс");



    ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта");

    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);

    ПараметрыРегистрации.Вставить("Наименование", "Заполнить документ");

    ПараметрыРегистрации.Вставить("Версия", "1.0");

    ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);

    ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части к документу счет-фактура выданный аванс");



    ТаблицаКоманд = ПолучитьТаблицуКоманд();



    ДобавитьКоманду(ТаблицаКоманд,

    "Заполнить документ",

    "Заполнить документ",

    "ВызовКлиентскогоМетода",

    Истина);



    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);



    Возврат ПараметрыРегистрации;

КонецФункции



Функция ПолучитьТаблицуКоманд()

  Команды = Новый ТаблицаЗначений;

  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));

  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));

  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));

  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));

  Возврат Команды;

КонецФункции



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

  НоваяКоманда = ТаблицаКоманд.Добавить();

  НоваяКоманда.Представление = Представление;

  НоваяКоманда.Идентификатор = Идентификатор;

  НоваяКоманда.Использование = Использование;

  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;

  НоваяКоманда.Модификатор = Модификатор;

КонецПроцедуры   

 &НаКлиенте

Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт

    //Спросим у пользователя разрешение на продолжение обработки

    Режим = РежимДиалогаВопрос.ДаНет;

    Текст = "Текущие данные документа будут заменены новыми без возможности восстановления.

    |Продолжить?";

    Ответ = Вопрос(Текст, Режим, 0);

    Если Ответ = КодВозвратаДиалога.Да Тогда



        //Если пользователь дал разрешение на продолжение, то начнем перебирать все

        //документы, у которых мы планируем заполнить табличную часть

        Для каждого Элемент из ОбъектыНазначенияМассив Цикл



            //Зададим ключ поиска документа, из которого вызвана данная обработка,

            //чтобы получить ссылку на редактирумый документ в удобном виде для

            //функции ОткрытьФорму()

            КлючПоиска = Новый Структура("Ключ", Элемент);



            //Но нам не надо открывать новую форму (окно) для изменяемого документа, а

            //Нам надо все изменения показать в уже открытых у клиента окнах

            Окна = ПолучитьОкна();

            Для каждого Окно из Окна Цикл



                //Окно изменяемого документа будет точно не основным, а вспомогательным, поэтому

                //сразу пропускаем основное окно, а далее идем на не очень хороший способ поиска открытого окна

                //изменяемого документа. Мы просто переберем все окна, а в заголовке, которых будет встречаться

                //Наименование, номер и дата нужного документа - будем изменять

                Если НЕ Окно.Основное

                    И Найти(Окно.Заголовок, Элемент) Тогда

                    //Передадим ключ поиска (можно сказать ссылку на объект) и данные о найденном открытом окне

                    //в функцию ОткрытьФорму()

                    //Код находится в цикле на тот случай, если открытых окон изменяемого документа больше одного

                    Форма = ОткрытьФорму("Документ.СчетФактураВыданныйАванс.Форма.ФормаДокумента",КлючПоиска,,,Окно);



                    //Далее мы получаем объект только, что повторно открытой формы и помещаем её в переменную

                    //В объекте содержатся все реквизиты (элементы) формы

                    НовыйОбъект = Форма.Объект;



                    //Мы помещаем объект формы в переменную,

                    //так как должны передать её в процедуру на сервере,

                    //где нельзя изменять объект формы, зато можно править переменную содержащую его

                    ЗаполнитьОбъект(НовыйОбъект);



                    //После выполнения процедуры на сервере мы получаем изменную переменную НовыйОбъект,

                    //которую необходимо передать в уже полученную нами форму

                    КопироватьДанныеФормы(НовыйОбъект, Форма.Объект);

                КонецЕсли;

            КонецЦикла;



        КонецЦикла;

    КонецЕсли;

КонецПроцедуры   

 &НаСервере

Функция ЗаполнитьОбъект(НовыйОбъект)



    Если ТипЗнч(НовыйОбъект.ДокументОснование) = Тип("ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств") Тогда



        Если НовыйОбъект.ДокументОснование.РасшифровкаПлатежа.Количество() > 0 Тогда

            НовыйОбъект.Авансы.Очистить();

        КонецЕсли;



        Для каждого СтрокаТЧ из НовыйОбъект.ДокументОснование.РасшифровкаПлатежа Цикл

            НоваяСтрока = НовыйОбъект.Авансы.Добавить();

            Если ЗначениеЗаполнено(СтрокаТЧ.СчетНаОплату) Тогда

                НоваяСтрока.Содержание = "Предварительная оплата" + ФормированиеПечатныхФорм.СформироватьЗаголовокДокумента(СтрокаТЧ.СчетНаОплату, НСтр("ru=' по счету на оплату'"));

            КонецЕсли;

            НоваяСтрока.Сумма = СтрокаТЧ.Сумма;

            НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;

            ТекПроцентНДС = ЦенообразованиеКлиентСервер.ПолучитьСтавкуНДСЧислом(НоваяСтрока.СтавкаНДС);

            НоваяСтрока.СуммаНДС = ЦенообразованиеКлиентСервер.РассчитатьСуммуНДС(НоваяСтрока.Сумма, ТекПроцентНДС);

        КонецЦикла;

    КонецЕсли;



КонецФункции   

 Запрос = Новый Запрос();

Запрос.Текст = " ВЫБРАТЬ

                    |    СпецификацииНоменклатуры.Ссылка

                    |ИЗ

                    |    Справочник.СпецификацииНоменклатуры КАК СпецификацииНоменклатуры

                    |ГДЕ

                    |    СпецификацииНоменклатуры.Владелец.Ссылка = &НоменклатураСсылка

                    |    И СпецификацииНоменклатуры.Организация В ИЕРАРХИИ (&Организация)";  

Запрос.УстановитьПараметр("НоменклатураСсылка", ГотоваяПродукция);

Запрос.УстановитьПараметр("Организация", Организация);

СписокСпецификаций = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");    



ФормаВыбора = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбора(,Элемент,Элемент);

ЭлементОтбора = ФормаВыбора.СправочникСписок.Отбор.Ссылка;

ЭлементОтбора.ВидСравнения = ВидСравнения.ВСписке;

ЭлементОтбора.Значение = СписокСпецификаций;

ЭлементОтбора.Использование = Истина;

ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.Ссылка.Доступность = Ложь;

ФормаВыбора.Открыть();   

 &НаКлиенте

Процедура ПоУмолчаниюОпцияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

    СтандартнаяОбработка = Ложь;

    ФормаВыбора = ПолучитьФорму("Справочник.ОпцииАвтомобилей.Форма.ФормаВыбора");

    ФормаВыбора.Открыть();

    ЭлементОтбора = ФормаВыбора.Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка");

    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

    ЭлементОтбора.ПравоеЗначение = СписокОпций;

    ЭлементОтбора.Использование = Истина;

КонецПроцедуры



&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    //считаем данные по опциям доступной для данной модели 

    СписокОпций.ЗагрузитьЗначения(Объект.Владелец.ОпцииМодели.Выгрузить().ВыгрузитьКолонку("Опция"));

КонецПроцедуры   

 Функция СоответствуетУсловиямФильтра(ЭлементСправочника)

Если ПустоеЗначение(ЭлементСправочника) = 0 Тогда

//Условие фильтра: текущий остаток не равен нулю

Если Регистр.ПартииТоваров.СводныйОстаток("",ЭлементСправочника.ТекущийЭлемент(),,,,,"ОстатокТовара") <> 0 Тогда

Возврат 1;

КонецЕсли;

КонецЕсли;

Возврат 0;

КонецФункции



Процедура УстановитьФильтр(Знач Группа="", Знач Иерархия="")

//Для флажка Фильтр задана формула "УстановитьФильтр()"

Если Фильтр = 1 Тогда

//Определяем параметры процедуры

Группа = ?(Группа="",ТекущийЭлемент().Родитель,Группа);

Иерархия = ?(Иерархия="",ИерархическийСписок(),Иерархия);

СписокФильтра = СоздатьОбъект("СписокЗначений");

Спр = СоздатьОбъект("Справочник.Номенклатура");

//Определяемся с использованием родителя при выборке элементов

Если ПустоеЗначение(Группа) = 0 Тогда

Спр.ИспользоватьРодителя(Группа);

КонецЕсли;

Спр.ВключатьПодчиненные(0);

//Выбираем элементы с учётом иерархии

Спр.ВыбратьЭлементы(Иерархия);

Пока Спр.ПолучитьЭлемент() = 1 Цикл

//Показваем группы, для удобства навигации

Если Спр.ЭтоГруппа() = 1 Тогда

//Добавляем группу в список фильтра

СписокФильтра.ДобавитьЗначение(Спр.ТекущийЭлемент());

Продолжить;

КонецЕсли;

//Проверяем элемент на соответствие условиям фильтра

Если СоответствуетУсловиямФильтра(Спр.ТекущийЭлемент()) = 1 Тогда

//Добавляем элемент в список фильтра

СписокФильтра.ДобавитьЗначение(Спр.ТекущийЭлемент());

КонецЕсли;

КонецЦикла;

//Устанавливаем фильтр

ИспользоватьСписокЭлементов(СписокФильтра);

Иначе

//Снимаем фильтр

ИспользоватьСписокЭлементов();

КонецЕсли;

КонецПроцедуры



Процедура ПриВыбореРодителя(Элемент)

УстановитьФильтр(Элемент)

КонецПроцедуры



Процедура ПриСменеИерархии(Способ)

УстановитьФильтр(,Способ)

КонецПроцедуры