Для переноса требуется добавить в конец модуля документа выплата процедуру и добавить кнопку на форму.
Процедура банк()
Попытка
файлДбф = СоздатьОбъект("XBase");
файлДбф.ДобавитьПоле("DAT", "S", 8,0);
файлДбф.ДобавитьПоле("NDOK", "S", 2,0);
файлДбф.ДобавитьПоле("PDR", "S", 4,0);
файлДбф.ДобавитьПоле("TN", "S", 8,0);
файлДбф.ДобавитьПоле("NAME", "S",20,0);
файлДбф.ДобавитьПоле("NAME1", "S",20,0);
файлДбф.ДобавитьПоле("NAME2", "S",20,0);
файлДбф.ДобавитьПоле("ACCOUNT", "S",20,0);
файлДбф.ДобавитьПоле("SUM", "S",9,2);
файлДбф.СоздатьФайл("C:\Cli-BB\Salary\Import\"+"foz" + Сред(ДатаДок,4,2) + Прав(ДатаДок,2) + врег(Симв(65+Число(Прав(НомерДок,1))))+".dbf");
счет = СоздатьОбъект("Документ.Выплата");
Счет.НайтиДокумент(ТекущийДокумент());
счет.ВыбратьСтроки();
ДатаТекФай = Лев(Счет.ДатаДок,2) +"."+Сред(Счет.ДатаДок,4,2)+"."+ (Прав(Счет.ДатаДок,2));
СумДок = 0;
Пока счет.ПолучитьСтроку() = 1 Цикл
файлДбф.Добавить(); //добавляем новую строку
файлДбф.DAT= ДатаТекФай;
файлДбф.NDOK = Счет.НомерВедомости;
файлДбф.PDR= Счет.Подразделение;
файлДбф.TN= "";//Счет.ТабельныйНомер;
файлДбф.NAME= Врег(Счет.Сотрудник.Фамилия);
файлДбф.NAME1= Врег(Счет.Сотрудник.Имя);
файлДбф.NAME2= Врег(Счет.Сотрудник.Отчество);
файлДбф.ACCOUNT= Гл_ПолучитьПараметрСотрудника(Счет.Сотрудник,"ЛицевойСчет");
файлДбф.SUM= Счет.Сумма;
СумДок = СумДок + Счет.Сумма;
файлДбф.Записать(); //фиксируем изменения
КонецЦикла;
файлДбф.Добавить();
файлДбф.DAT= ДатаТекФай;
файлДбф.NDOK = Счет.НомерВедомости;
файлДбф.ACCOUNT = "00000000000000000000";
файлДбф.SUM = СумДок;
файлДбф.Записать();
файлДбф.ЗакрытьФайл();
Исключение
Сообщить("Зарплатный файл не был сформирован");
КонецПопытки;
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
