Каталог решений - Процедура переноса выплаты из Камина в банк

Для переноса требуется добавить в конец модуля документа выплата процедуру и добавить кнопку на форму.

Процедура банк()

Попытка 
    файлДбф = СоздатьОбъект(«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 = СумДок;
файлДбф.Записать();
файлДбф.ЗакрытьФайл();

Исключение

Сообщить(«Зарплатный файл не был сформирован»);

КонецПопытки;

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