gifts2017

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

Опубликовал Влад (vlad420) в раздел Программирование - Практика программирования

Формирование зарплатного файла для BBank Балтийского банка для зарплаты Камина 2.0

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

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

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

Исключение

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

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

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

См. также

Подписаться Добавить вознаграждение
В этой теме еще нет сообщений.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа