&НаКлиенте

Процедура СоздатьПриходнаяНакладнаяВыполнить()

    // Создать приходную наклданую на основании данной заявки 

    П=Новый Структура("ЗначенияЗаполнения",Новый Структура("Проект",Объект.Проект));

    Форма=ПолучитьФорму("Документ.ПриходнаяНакладная.Форма.ФормаДокумента",П);

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

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

 Товар = Справочники.Номенклатура.НайтиПоКоду(КодТовара);

ОткрытьЗначение(Товар);    

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

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



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

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

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



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

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

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

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

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

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



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



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

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

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

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

    Истина);



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



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

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



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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

 &НаКлиенте

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

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

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

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

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

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

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



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

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

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



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

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

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

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



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

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

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

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



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

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

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

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

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

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

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

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

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

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



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

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

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



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

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

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

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



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

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

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

                КонецЕсли;

            КонецЦикла;



        КонецЦикла;

    КонецЕсли;

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

 &НаСервере

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



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



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

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

        КонецЕсли;



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

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

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

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

            КонецЕсли;

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

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

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

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

        КонецЦикла;

    КонецЕсли;



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

 Процедура КоманднаяПанельТоварыДействиеПодбор(Кнопка)

                ДействиеПодбор(Товары);

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

 Процедура ДействиеПодбор(ТабличнаяЧасть)

                Перем Команда, Валюта;

                ЕстьЦена  = Истина;

                Если ТабличнаяЧасть = Товары Тогда

                               Команда         = "ПодборВТабличнуюЧастьТовары";

                               Валюта          = ВалютаДокумента;

                               СпособЗаполненияЦен = Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры;

                               ИмяТабличнойЧасти = "Товары";

                ИначеЕсли ТабличнаяЧасть = ВозвратнаяТара Тогда

                               //.................Прочие условия и т.д.

                КонецЕсли;



                СписокВидовПодбора = СформироватьСписокЗапросовДляПодбора(ТабличнаяЧасть);

                ПредставлениеДок = Метаданные().Представление();

                СтруктураПараметровПодбора = Новый Структура();

                СтруктураПараметровПодбора.Вставить("Команда"            , Команда);

                СтруктураПараметровПодбора.Вставить("СписокВидовПодбора" , СписокВидовПодбора);

                // Параметры запросов.

                ВременнаяДатаРасчетов = ?(НачалоДня(Дата) = НачалоДня(ТекущаяДата()), Неопределено, Дата);

                СтруктураПараметровПодбора.Вставить("ДатаРасчетов"         , ВременнаяДатаРасчетов);

                СтруктураПараметровПодбора.Вставить("Склад"                , Склад);

                СтруктураПараметровПодбора.Вставить("ТипЦен"               , ТипЦен);

                СтруктураПараметровПодбора.Вставить("ДоговорКонтрагента", ДоговорКонтрагента);

                СтруктураПараметровПодбора.Вставить("Контрагент"           ,Контрагент);

                СтруктураПараметровПодбора.Вставить("Организация"          , Организация);

                СтруктураПараметровПодбора.Вставить("СпособЗаполненияЦен"  , СпособЗаполненияЦен);

                СтруктураПараметровПодбора.Вставить("ЕстьЦена"             , ЕстьЦена);

                СтруктураПараметровПодбора.Вставить("ВалютаДокумента"      , Валюта);

                СтруктураПараметровПодбора.Вставить("Заголовок", "Подбор номенклатуры в документ " + ПредставлениеДок + " № " + Номер + " (" + ИмяТабличнойЧасти + ")");



                РаботаСДиалогами.ОткрытьПодборНоменклатуры(ЭтаФорма, СтруктураПараметровПодбора, мФормаПодбораНоменклатуры);

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

 Процедура ОткрытьПодборНоменклатуры(ФормаДокумента, СтруктураПараметров, ФормаПодбора = Неопределено) Экспорт



                // Добавляем обработчики в форму

                МетаданныеДокумента = ФормаДокумента.ДокументОбъект.Метаданные();

                Для Каждого ЭлементСтруктурыПараметров Из СтруктураПараметров Цикл

                               Если ОбщегоНазначения.ЕстьРеквизитДокумента(ЭлементСтруктурыПараметров.Ключ, МетаданныеДокумента) Тогда

                                               ФормаДокумента.ПодключитьОбработчикИзмененияДанных(ЭлементСтруктурыПараметров.Ключ, "ОбновитьФормуПодбора", Ложь);

                               КонецЕсли;

                КонецЦикла;

                

                // Открываем форму подбора.

                ФормаПодбора = Обработки.ПодборНоменклатуры.ПолучитьФорму("ОсновнаяФорма", ФормаДокумента, ФормаДокумента);

                ФормаПодбора.ОбработкаОбъект.СтруктураИсходныхПараметров = СтруктураПараметров;



                //- НАЧАЛО Изменения для Установки Родителя В Подборе

                //НУЖНО чтобы при открытии Подбора номенклатуры Открывалась номенклатура из Групы Оргтехника (код 00000013608)

                // НА ФОРМЕ ВЫБОРА СЛЕВА ЕСТЬ ДЕРЕВО ГРУПП, установим значение нужного нам Родителя в нем:

                 ФормаПодбора.ЭлементыФормы.ДеревоНоменклатуры.ТекущаяСтрока = Справочники.Номенклатура.НайтиПоКоду("00000013608");

                // - КОНЕЦ Изменений



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

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

  номискдок=ЭлементыФормы.ДокументСписок.ТекущиеДанные.Номер;

ИскомыйДокумент=документы.Заявка.НайтиПоНомеру(номискдок);

Форма = ИскомыйДокумент.ПолучитьФорму("ФормаДокументаПолная"); 

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

  //Процедура для кнопки открытия в форме списка Видов Расчета

Процедура ОткрытьВПолномПросмотре(Кнопка)

  ФормаОткр = ЭлементыФормы.ПланВидовРасчетаСписок.ТекущиеДанные.Ссылка.ПолучитьФорму("ФормаВидаРасчетаПолная");

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

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

 

// Универсальная процедура, которая инициирует механизм подбора

// номенклатуры в документы (открывает основную форму обработки подбор).

//

// Параметры:

//  ФормаДокумента - форма документа, в который осуществляется подбор,

//  СтруктураПараметров - параметры, которые передаются в форму подбора.

//

Процедура ОткрытьПодборНоменклатуры(ФормаДокумента, СтруктураПараметров, ФормаПодбора = Неопределено) Экспорт



	// Добавляем обработчики в форму

	МетаданныеДокумента = ФормаДокумента.ДокументОбъект.Метаданные();



	Для Каждого ЭлементСтруктурыПараметров Из СтруктураПараметров Цикл



		Если ОбщегоНазначения.ЕстьРеквизитДокумента(ЭлементСтруктурыПараметров.Ключ, МетаданныеДокумента) Тогда



			ФормаДокумента.ПодключитьОбработчикИзмененияДанных(ЭлементСтруктурыПараметров.Ключ, "ОбновитьФормуПодбора", Ложь);



		КонецЕсли;



	КонецЦикла;



	// Открываем форму подбора.

	ФормаПодбора = Обработки.ПодборНоменклатуры.ПолучитьФорму("ОсновнаяФорма", ФормаДокумента, ФормаДокумента);

	ФормаПодбора.ОбработкаОбъект.СтруктураИсходныхПараметров = СтруктураПараметров;

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



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