&НаСервере

Процедура ЗаполнитьТоварыПоОснованию(ДокументОснование) 

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

    Запрос.УстановитьПараметр("Ссылка",ДокументОснование);

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

                   |    РеализацияТоваровУслугТовары.Ссылка,

                   |    РеализацияТоваровУслугТовары.НомерСтроки,

                   |    РеализацияТоваровУслугТовары.ЕдиницаИзмерения,

                   |    РеализацияТоваровУслугТовары.Количество,

                   |    РеализацияТоваровУслугТовары.КоличествоМест,

                   |    РеализацияТоваровУслугТовары.Коэффициент,

                   |    РеализацияТоваровУслугТовары.Номенклатура,

                   |    РеализацияТоваровУслугТовары.СерияНоменклатуры,

                   |    РеализацияТоваровУслугТовары.Склад,

                   |    РеализацияТоваровУслугТовары.СтавкаНДС,

                   |    РеализацияТоваровУслугТовары.Сумма,

                   |    РеализацияТоваровУслугТовары.СуммаНДС,

                   |    РеализацияТоваровУслугТовары.СчетУчетаБУ,

                   |    РеализацияТоваровУслугТовары.Цена,

                   |    РеализацияТоваровУслугТовары.ЗаказПокупателя

                   |ИЗ

                   |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары

                   |ГДЕ

                   |    РеализацияТоваровУслугТовары.Ссылка = &Ссылка";

    Объект.Товары.Загрузить( Запрос.Выполнить().Выгрузить() );

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

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



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

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

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



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

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

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

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

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

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



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



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

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

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

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

    Истина);



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



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

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



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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

 &НаКлиенте

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

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

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

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

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

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

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



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

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

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



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

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

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

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



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

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

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

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



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

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

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

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

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

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

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

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

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

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



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

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

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



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

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

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

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



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

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

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

                КонецЕсли;

            КонецЦикла;



        КонецЦикла;

    КонецЕсли;

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

 &НаСервере

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



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



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

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

        КонецЕсли;



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

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

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

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

            КонецЕсли;

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

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

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

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

        КонецЦикла;

    КонецЕсли;



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

  V77 = Новый COMОбъект("V77M.Application");

Если  V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда

       Сообщить("Успех");

       Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")");

       ДокОсн= V77.EvalExpr("CreateObject(""Документ"")");



	 Накл.ВыбратьДокументы();

	 Пока Накл.ПолучитьДокумент()=1 Цикл

		 Номер=СокрЛП(Накл.НомерДок);

		  ДокСоотв=Документы.РеализацияТоваров.НайтиПоНомеру(СокрЛП(Номер), Накл.ДатаДок);  

		   Если Накл.Проведен()=0 Тогда

		     Продолжить;



		 КонецЕсли;

        Если ДокСоотв=Документы.РеализацияТоваров.ПустаяСсылка() Тогда  

	         Сообщить("! для "+Накл.Вид()+" "+Накл.НомерДок+" не найдено соответстствие");

             Продолжить;



		 КонецЕсли;

		Если Накл.ДокументОснование.Выбран()=0 Тогда

			Продолжить;

		КонецЕсли;

// и т.д.



Иначе  Предупреждение("Ошибка открытия информационной базы");

           Возврат;

КонецЕсли;