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