Здравствуйте! Правильно ли я поняла, что в ЗУП можно только перечислять зарплату на пластиковые карточки Сбербанка, на другой банк это не получится.
Вид для печати
Здравствуйте! Правильно ли я поняла, что в ЗУП можно только перечислять зарплату на пластиковые карточки Сбербанка, на другой банк это не получится.
Не скажу что разобрался в ЗУПе, но дописывал для других банков.
Получится, только формат выгрузки писать самим прйидется.
А можно по-конкретней: в каких документах или справочниках надо дописывать? Банк мне прислал формат, а что с ним делать не знаю.
обработка ИмпортЭкспортОперацийПоЛицевымСчетамРаботников
В модлуе формы:
КоманднаяПанельПлатежныеПорученияЗачислениеЗарплатыВыгрузить
В модуле возможно доправить ЗаписатьТесктНаДиск
например
например (сделано наспех, но)
//2 формата
//Ивановка 0026|52807210159192204890|3787.92|Мдяхин|Иван|Николаевич|810|RUR|89
// и
// 52807210159192204890<TAB>3787.92<TAB>Мдяхин И.Н.
Если ЗачислениеЗарплаты.Количество() > 0 Тогда
ЗадатьПараметрыСеанса(ДатаФормированияФайлов, НомерДоговораЗачисленияЗарплаты, ОрганизацияВПлатежке, СчетПеречисления, ПолучитьИДДокумента(СтрокаСПлатежкой.Документ));
КаталогЭкспортаДанных = КаталогЭкспорта;
НачалоЭкспорта = ТекущаяДата();
КаталогЭкспортаДанных = КаталогЭкспорта;
НачалоЭкспорта = ТекущаяДата();
ИмяФайла = КаталогЭкспортаДанных + "\" + ПолучитьИмяФайлаЭкспортаВформатеСбербанка(НомерСНачалаГода, ОтделениеБанка, "z", ".txt");
текстФайла = "";
номПорядковый = 0;
Для каждого СтрокаТЧ из ЗачислениеЗарплаты Цикл
//ДобавитьЗачислениеЗарплатыВДеревоЭкспорта(СчетаПК, СтрокаТЧ);
Если СтрокаТЧ.Сумма = 0 Тогда Продолжить; КонецЕсли;
массИмя = РазложитьСтрокуВМассивПодстрок(СтрокаТЧ.Сотрудник.Наименование, " ");
печСумма = Формат(СтрокаТЧ.Сумма, "ЧРД=.; ЧВН=; ЧГ=");
// Если Ивановка, то формат строки такой, а если другие банки, то другой:
Если флИвановка Тогда
номПорядковый = номПорядковый + 1;
текстФайла = текстФайла + "0026" + "|" + СтрокаТЧ.ЛицевойСчет + "|" + печСумма + "|" +массИмя[0] + "|" + массИмя[1] + "|" + массИмя[2] + "|810|RUR|" + Формат(номПорядковый, "ЧГ=");
Иначе
текстФайла = текстФайла + СтрокаТЧ.ЛицевойСчет + Символы.Таб + печСумма + Символы.Таб + массИмя[0] + " " + Лев(массИмя[1],1) + "." + Лев(массИмя[2],1)+".";
КонецЕсли;
текстФайла = текстФайла + + Символы.ПС;
КоличествоЗаписей = КоличествоЗаписей + 1;
СуммаИтого = СуммаИтого + СтрокаТЧ.Сумма;
//Операция = "z";
КонецЦикла;
ЗаписатьТесктНаДиск(текстФайла,ИмяФайла, КодировкаТекста.OEM);
Спасибо, буду пробовать.
Здравствуйте! Это я опять с этим же вопросом. В общем, у меня получилось выгрузить в текстовый файл зарплату к выплате. Однако, при попытке загрузить в клиент банк этого файла выдается ошибка. Программист из банка сказал, что, возможно, файл не той кодировки. Что можно сделать?
Cltkfnm njq rjlbhjdrb
Не поняла Вашего сообщения, господин Naumov
...а возможно и не того формата
Сделать нужно той кодировки и того формата что "кушает" клиент-банк.