```1c
    Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    организация = справочники.Организации.НайтиПоКоду("000000001"); //БКС
    Валюта = Константы.ВалютаРегламентированногоУчета.Получить();

    КаталогФайлН = Каталог+"\"+ИмяФайла;
    КаталогФайл = Новый Файл(КаталогФайлН);
    Если КаталогФайл.Существует() тогда
    Предупреждение("файл "+СокрЛП(Каталог)+СокрЛП(имяФайла)+" существует! Увеличьте номер файла на букву!");
    Возврат;
    конецЕсли;

    запрос = Новый Запрос;
    запрос.Текст =
    "ВЫБРАТЬ
    | ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета,
    | ВложенныйЗапрос.Физлицо КАК Физлицо,
    | ВложенныйЗапрос.Сумма КАК Сумма,
    | ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,
    | ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,
    | ФИОФизЛицСрезПоследних.Фамилия КАК Фамилия,
    | ФИОФизЛицСрезПоследних.Имя КАК Имя,
    | ФИОФизЛицСрезПоследних.Отчество КАК Отчество,
    | ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид
    |ИЗ
    | (ВЫБРАТЬ
    | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо КАК Физлицо,
    | СУММА(ЗарплатаКВыплатеОрганизацийЗарплата.Сумма) КАК Сумма
    | ИЗ
    | Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
    | ГДЕ
    | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Проведен = ИСТИНА
    | И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка В(&списокДок)
    |
    | СГРУППИРОВАТЬ ПО
    | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо) КАК ВложенныйЗапрос
    | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
    | ПО ВложенныйЗапрос.Физлицо = ЛицевыеСчетаРаботниковОрганизации.ФизЛицо
    | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних КАК ПаспортныеДанныеФизЛицСрезПоследних
    | ПО ВложенныйЗапрос.Физлицо = ПаспортныеДанныеФизЛицСрезПоследних.ФизЛицо
    | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
    | ПО ВложенныйЗапрос.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо
    |
    |УПОРЯДОЧИТЬ ПО
    | Фамилия,
    | Имя,
    | Отчество";

    Запрос.УстановитьПараметр("списокДок",ведомости.ВыгрузитьКолонку("Документ"));

    Рез = Запрос.Выполнить();
    Выб = Рез.Выбрать();
    //Выб1 = Рез.Выбрать();

    тт = новый ТабличныйДокумент;
    макет = получитьМакет("ВедомостьВБанк");
    Шапка = макет.ПолучитьОбласть("Шапка");
    СтрокаБ = макет.ПолучитьОбласть("Строка");
    подвал = макет.ПолучитьОбласть("Подвал");

    //А.Ж. 31.08.2017 \/
    Макет2 = ПолучитьМакет("ВР_МакетВедомостиВБанк");
    ОбластьШапка = Макет2.ПолучитьОбласть("Шапка");
    ОбластьСтрокаТаблицы = Макет2.ПолучитьОбласть("СтрокаТаблицы");
    ОбластьПодвал = Макет2.ПолучитьОбласть("Подвал");

    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Вывести(ОбластьШапка);
    //А.Ж. 31.08.2017 /\

    запрос = Новый Запрос;
    запрос.Текст =
    "ВЫБРАТЬ
    | МИНИМУМ(ЗарплатаКВыплатеОрганизаций.ПериодРегистрации) КАК НачПериода,
    | МАКСИМУМ(ЗарплатаКВыплатеОрганизаций.ПериодРегистрации) КАК КонПериода
    |ИЗ
    | Документ.ЗарплатаКВыплатеОрганизаций КАК ЗарплатаКВыплатеОрганизаций
    |ГДЕ
    | ЗарплатаКВыплатеОрганизаций.Проведен = ИСТИНА
    | И ЗарплатаКВыплатеОрганизаций.Ссылка В(&списокДок)";

    Запрос.УстановитьПараметр("списокДок",ведомости.ВыгрузитьКолонку("Документ"));

    рез = запрос.Выполнить().Выбрать();
    если рез.Следующий() тогда
    Шапка.Параметры.ПериодПеречисления = "на зачисление денежных средств за "+представлениеПериода(рез.начПериода,конецМесяца(рез.конПериода));
    конецЕсли;
    тт.Вывести(Шапка);

    Данные = Новый ТекстовыйДокумент();
    //считаем общее кол-во людей и общую сумму для записи в файл
    колво = 0; СуммаВся = 0;

    пп = 0; СуммаВся = 0;

    //А.Ж. 31.08.2017 \/
    НомерСтроки = 0;
    СуммаИтоговая = 0;
    //А.Ж. 31.08.2017 /\

    Пока Выб.Следующий() Цикл

    //проверка двойных счетов
    Запрос1 = Новый Запрос;
    запрос1.Текст =
    "ВЫБРАТЬ
    | ЛицевыеСчетаРаботниковОрганизации.ФизЛицо,
    | ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета,
    | ЛицевыеСчетаРаботниковОрганизации.Банк,
    | ЛицевыеСчетаРаботниковОрганизации.Организация
    |ИЗ
    | РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
    |ГДЕ
    | ЛицевыеСчетаРаботниковОрганизации.ФизЛицо = &ФизЛицо";

    запрос1.УстановитьПараметр("ФизЛицо",выб.Физлицо);
    Рез=Запрос1.Выполнить().Выбрать();
    колвоСчетов=0;
    пока Рез.Следующий() цикл
    колвоСчетов=колвоСчетов+1;
    состояние("+рез.ФизЛицо);
    конецЦикла;
    Если колвоСчетов>1 ТОГДА
    Сообщить("У сотрудника "+выб.Физлицо+" несколько счетов ПРОВЕРЬТЕ!!!");
    КонецЕсли;
    //проверка двойных счетов

    пп = пп+1;
    сумЗП=Строка(Формат(выб.сумма, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=; ЧГ=0"));

    //НоваяСтрока = Строка(выб.НомерЛицевогоСчета)+пробелыСС+СумЗП;
    серияП = СтрЗаменить(выб.ДокументСерия," ",");

    НоваяСтрока = строка(пп)+","+"2119"+","+серияП+","+выб.ДокументНомер+","+
    выб.Фамилия+","+выб.Имя+","+выб.Отчество+","+строка(выб.НомерЛицевогоСчета)+","+СумЗП+",";
    Данные.ДобавитьСтроку(НоваяСтрока);

    строкаБ.Параметры.пп = пп;
    строкаБ.Параметры.ФИО = строка(выб.ФизЛицо);
    строкаБ.Параметры.Счет = Строка(выб.НомерЛицевогоСчета);
    строкаБ.Параметры.Сумма = СумЗП;
    СуммаВся = СуммаВся + выб.сумма;
    тт.Вывести(строкаБ);

    //А.Ж. 31.08.2017 \/
    ИмеютсяОшибки = ?(НЕ Выб.ДокументВид = Null И НЕ СокрЛП(Выб.ДокументСерия) = " И НЕ СокрЛП(Выб.ДокументНомер) = " И
    НЕ СокрЛП(Выб.Фамилия) = " И НЕ СокрЛП(Выб.Имя) = " И НЕ СокрЛП(Выб.Отчество) = " И НЕ СокрЛП(Строка(Выб.НомерЛицевогоСчета)) = "
    И НЕ Выб.Сумма = 0, Ложь, Истина);

    Если НЕ ИмеютсяОшибки ИЛИ ФлажокВыводитьВДокументДажеЕслиЕстьОшибки Тогда
    НомерСтроки = НомерСтроки + 1;
    ОбластьСтрокаТаблицы.Параметры.НомерПП = НомерСтроки;
    ОбластьСтрокаТаблицы.Параметры.КодОрганизации = "2119";
    ОбластьСтрокаТаблицы.Параметры.ТипПаспорта = "ПАСПОРТ ГРАЖДАНИНА РФ"; //29.09.2017 //?(Выб.ДокументВид = "Паспорт гражданина Российской Федерации", "Паспорт гражданина РФ", Выб.ДокументВид);
    ОбластьСтрокаТаблицы.Параметры.СерияПаспорта = СтрЗаменить(Выб.ДокументСерия," ",");
    ОбластьСтрокаТаблицы.Параметры.НомерПаспорта = Выб.ДокументНомер;
    ОбластьСтрокаТаблицы.Параметры.Фамилия = Выб.Фамилия;
    ОбластьСтрокаТаблицы.Параметры.Имя = Выб.Имя;
    ОбластьСтрокаТаблицы.Параметры.Отчество = Выб.Отчество;
    ОбластьСтрокаТаблицы.Параметры.НомерСчета = Строка(Выб.НомерЛицевогоСчета);
    ОбластьСтрокаТаблицы.Параметры.Сумма = Строка(Формат(Выб.Сумма, "ЧДЦ=2; ЧРД=.; ЧРГ=' '; ЧГ=0"));
    ТабДок.Вывести(ОбластьСтрокаТаблицы);
    //ОбластьСтрокаТаблицы.Параметры.Примечание =
    СуммаИтоговая = СуммаИтоговая + Выб.Сумма;
    КонецЕсли;

    Если ИмеютсяОшибки Тогда
    Сообщить("У сотрудника " + выб.Физлицо + " не заполнены значения реквизита(ов)!");
    КонецЕсли;

    //А.Ж. 31.08.2017 /\
    конецЦикла;

    СуммаВсяЗП=Строка(Формат(СуммаВся, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=; ЧГ=0"));
    ИтоговаяСтрока = "ИТОГО ЗАЧИСЛЕНИЙ :"+пп+" ИТОГО СУММА:"+СуммаВсяЗП;
    Данные.ДобавитьСтроку(ИтоговаяСтрока);

    //А.Ж. 31.08.2017 \/
    ОбластьПодвал.Параметры.КоличествоЗачислений = НомерСтроки;
    ОбластьПодвал.Параметры.ИтоговаяСумма = Строка(Формат(СуммаИтоговая, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=; ЧГ=0"));
    ТабДок.Вывести(ОбластьПодвал);
    ТабДок.Записать(Каталог + "\" + ИмяФайла + ".xls", ТипФайлаТабличногоДокумента.XLS);
    //А.Ж. 31.08.2017 /\

    полноеИмяФайла = каталог+"\"+имяФайла;
    данные.Записать(полноеИмяФайла, КодировкаТекста.ANSI);

    подвал.Параметры.Итог = СуммаВся;

    СуммаВсяПроп = ОбщегоНазначенияЗК.СформироватьСуммуПрописью(СуммаВся,Валюта);
    подвал.Параметры.СуммаВсяПрописью = "("+СуммаВсяПроп+")";

    тт.Вывести(Подвал);
    тт.Показать();

    // свод ведомостей по банку
    запрос = Новый Запрос;
    запрос.Текст =
    "ВЫБРАТЬ
    | ЗарплатаКВыплатеОрганизаций.Проведен,
    | ЗарплатаКВыплатеОрганизаций.СуммаДокумента,
    | ЗарплатаКВыплатеОрганизаций.Ссылка
    |ИЗ
    | Документ.ЗарплатаКВыплатеОрганизаций КАК ЗарплатаКВыплатеОрганизаций
    |ГДЕ
    | ЗарплатаКВыплатеОрганизаций.Проведен = ИСТИНА
    | И ЗарплатаКВыплатеОрганизаций.ссылка в (&списокДок)
    |
    |СГРУППИРОВАТЬ ПО
    | ЗарплатаКВыплатеОрганизаций.Ссылка,
    | ЗарплатаКВыплатеОрганизаций.Проведен,
    | ЗарплатаКВыплатеОрганизаций.СуммаДокумента";

    Запрос.УстановитьПараметр("списокДок",ведомости.ВыгрузитьКолонку("Документ"));

    тт1 = новый ТабличныйДокумент;
    макет = получитьМакет("Свод");
    Шапка = макет.ПолучитьОбласть("ШапкаВ");
    СтрокаВ = макет.ПолучитьОбласть("СтрокаВед");
    подвалВ = макет.ПолучитьОбласть("Итог");
    пропись = макет.ПолучитьОбласть("Пропись");

    //Шапка.Параметры.НачПериода1 = начПериода1;
    //Шапка.Параметры.КонПериода1 = конПериода1;
    если рез.Следующий() тогда
    Шапка.Параметры.Заголовок = "На перечисление заработной платы в Газпромбанк за "+представлениеПериода(рез.начПериода,конецМесяца(рез.конПериода));
    конецЕсли;
    тт1.Вывести(Шапка);

    Рез = Запрос.Выполнить();
    Свод = Рез.Выбрать();
    пп=0; СуммаВсего = 0;
    Пока свод.Следующий() цикл
    пп = пп+1;
    строкаВ.Параметры.пп = пп;
    строкаВ.Параметры.Ведомость = свод.ссылка;
    строкаВ.Параметры.СумВедомости = свод.СуммаДокумента;
    тт1.Вывести(СтрокаВ);
    СуммаВсего = СуммаВсего + свод.СуммаДокумента;
    //сообщить("! "+Свод.ссылка+" "+свод.СуммаДокумента);
    конецЦикла;
    подвалВ.Параметры.Всего = СуммаВсего;

    СуммаВсяПроп = ОбщегоНазначенияЗК.СформироватьСуммуПрописью(СуммаВсего,Валюта);
    пропись.Параметры.ВсегоПрописью = "("+СуммаВсяПроп+")";

    тт1.Вывести(подвалВ);
    тт1.Вывести(пропись);
    тт1.Показать();

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

    Процедура ПриОткрытии()
    наДату = рабочаяДата;

    //определяем имя файла
    мес=Месяц(рабочаяДата);
    год=Год(рабочаяДата);
    год=прав(год,2);
    мес=?(мес>9,","0")+строка(мес);
    день=День(рабочаяДата);
    день=?(день>9,","0")+строка(день);
    имяФайла="v"+год+мес+день+"a"+".2119";

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

    Процедура ПолеВвода2НачалоВыбора(Элемент, СтандартнаяОбработка)
    ДиалогВыб=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
    ДиалогВыб.Заголовок="Выберите каталог";
    Если ДиалогВыб.Выбрать() Тогда
    Каталог=ДиалогВыб.Каталог;
    Иначе
    Предупреждение("Не выбран каталог");
    КонецЕсли;
    КонецПроцедуры
```
---
Не вникая в эту свалку неоформленного кода, просто по невразумительному вопросу из темы: ВРег() чем не устраивает?
---
Не вникая в эту свалку неоформленного кода, просто по невразумительному вопросу из темы: ВРег() чем не устраивает?
---
ВРег()