Вот код
Код 1C v 8.2 УП Процедура АвизовкиНажатие(Элемент)
Авизо = Документы.АвизоПрочееИсходящее.СоздатьДокумент();
Авизо.Организация=Справочники.Организации.НайтиПоКоду("000000002").Ссылка;
Авизо.СчетРасчетов=ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям;//79.02
Авизо.ОрганизацияПолучатель=ВыбФилиал;//Справочники.Организации.НайтиПоКоду("000000002").Ссылка;
Если ЭтаФорма.ЭлементыФормы.Панель1.ТекущаяСтраница= ЭтаФорма.ЭлементыФормы.Панель1.Страницы.Страница1 Тогда
Для А = 1 по СписокПлатежекИ.Количество() Цикл
Стр = СписокПлатежекИ.Получить(А-1);
Если Стр.ФлагВыгрузки=1 тогда
ИНН = Лев(Стр.плательщик,10);
Контр = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",ИНН);
СтрА=Авизо.ДанныеБух.Добавить();
СтрА.СчетУчета=ПланыСчетов.Хозрасчетный.РасчетныеСчета;//51
//СтрА.СчетУчета=ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям;//79.02
СтрА.Субконто1=Справочники.БанковскиеСчета.НайтиПоКоду("01333");//измененно 25-10-2010("000000001");ГЭПБ("000000001");
СтрА.Субконто2=Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000006");
//СтрА.Подразделение=ОрганизацияПолучатель;
//СтрА.Субконто1=ВыбФилиал;
//СтрА.Субконто2=Справочники.Показатели79.НайтиПоКоду("000000002").Ссылка;
СтрА.СубконтоД3=Справочники.Показатели79.НайтиПоКоду("000000002").Ссылка;
СтрА.Количество=0;
СтрА.Валюта=Справочники.Валюты.НайтиПоНаименованию("руб.").Ссылка;
СтрА.Сумма=0;//Число(Стр.Сумма);
СтрА.СуммаКТ=Число(Стр.Сумма);//0;
СтрА.ВидДвижения=Перечисления.ТипыДвиженийПоФилиалу.ВДебет79;
//СтрА.ВидРасчетов=Перечисления.ВидыРасчетовПоФилиалам.Передача;
//СтрА.КорСчет=ПланыСчетов.Хозрасчетный.РасчетныеСчета;
СтрА.СодержаниеПроводки=Стр.Назначение;
//СтрА.Передача=Число(Стр.сумма);
//СтрА.Поступление=0;
//СтрА.Субконто1= Контр;
//СтрА.СубконтоД3=Справочники.Показатели79.НайтиПоКоду("000000014").Ссылка;
КонецЕсли;
КонецЦикла;
Иначе
Для А = 1 по СписокПлатежек.Количество() Цикл
Стр = СписокПлатежек.Получить(А-1);
Если Стр.ФлагВыгрузки=1 тогда
ИНН = Лев(Стр.плательщик,10);
Контр = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",ИНН);
СтрА=Авизо.ДанныеБух.Добавить();
СтрА.СчетУчета=ПланыСчетов.Хозрасчетный.РасчетныеСчета;//51
//СтрА.СчетУчета=ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям;
//СтрА.Подразделение=ОрганизацияПолучатель;
//СтрА.Субконто1=ВыбФилиал;
//СтрА.Субконто2=Справочники.Показатели79.НайтиПоКоду("000000003").Ссылка;
СтрА.Субконто1=Справочники.БанковскиеСчета.НайтиПоКоду("01333");//измененно 25-10-2010("000000001");ГЭПБ
СтрА.Субконто2=Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000006");
СтрА.СубконтоД3=Справочники.Показатели79.НайтиПоКоду("000000002").Ссылка;
СтрА.Количество=0;
СтрА.Валюта=Справочники.Валюты.НайтиПоНаименованию("руб.").Ссылка;
СтрА.Сумма=Число(Стр.Сумма);//0;
СтрА.СуммаКТ=0;//Число(Стр.Сумма);
СтрА.ВидДвижения=Перечисления.ТипыДвиженийПоФилиалу.ВКредит79;
//СтрА.ВидРасчетов=Перечисления.ВидыРасчетовПоФилиалам.Прием;
//СтрА.Количество=0;
//СтрА.КорСчет=ПланыСчетов.Хозрасчетный.РасчетныеСчета;
СтрА.СодержаниеПроводки=Стр.Назначение;
//СтрА.Передача=0;
//СтрА.Поступление=Число(Стр.сумма);
//СтрА.Субконто1= Контр;
//СтрА.СубконтоД3=Справочники.Показатели79.НайтиПоКоду("000000014").Ссылка;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Авизо.Дата=КонецДня(КонПериода);
Авизо.Записать();
Авизо.ПолучитьФорму().Открыть();
Основание = Авизо.Ссылка;
Авизо1 = Документы.АвизоПрочееВходящее.СоздатьДокумент();
ПараметрыДокументаОснования = ОбщегоНазначения.СформироватьСтруктуруШапкиДокумента(Основание);
Авизо1.ДокументОснование = ПараметрыДокументаОснования.Ссылка;
Авизо1.СчетРасчетов = ПараметрыДокументаОснования.СчетРасчетов;
Авизо1.Организация = ПараметрыДокументаОснования.ОрганизацияПолучатель;
Авизо1.ОрганизацияОтправитель = ПараметрыДокументаОснования.Организация;
Авизо1.НомерВходящегоДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(ПараметрыДокументаОснования);
Авизо1.ДатаВходящегоДокумента = ПараметрыДокументаОснования.Дата;
Авизо1.Ответственный = глЗначениеПеременной("глТекущийПользователь");
Авизо1.ВидВзаиморасчетов79 = Справочники.Показатели79.НайтиПоКоду("000000002").Ссылка;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Авизо1.ДокументОснование);
Запрос.Текст = "ВЫБРАТЬ
| СчетУчета,
| Субконто1,
| Субконто2,
| Субконто3,
| СубконтоД3,
| Сумма как СуммаКТ,
| СуммаНУ,
| СуммаПР,
| СуммаВР,
| СуммаКТ как Сумма,
| Количество,
| Валюта,
| ВалютнаяСумма,
| СодержаниеПроводки
|ИЗ
| Документ.АвизоПрочееИсходящее.ДанныеБух КАК АвизоИсходящее
|
|ГДЕ
| АвизоИсходящее.Ссылка = &Ссылка";
Авизо1.ДанныеБух.Загрузить(Запрос.Выполнить().Выгрузить());
Авизо1.Дата=КонецДня(КонПериода);
Авизо1.Записать();
Авизо1.ПолучитьФорму().Открыть();
КонецПроцедуры