ЗУП и зарплата на карточки

[НатальяС]

Здравствуйте! Правильно ли я поняла, что в ЗУП можно только перечислять зарплату на пластиковые карточки Сбербанка, на другой банк это не получится.

[Skynin]

Не скажу что разобрался в ЗУПе, но дописывал для других банков.

[Naumov]

Получится, только формат выгрузки писать самим прйидется.

[НатальяС]

А можно по-конкретней: в каких документах или справочниках надо дописывать? Банк мне прислал формат, а что с ним делать не знаю.

[Skynin]

обработка ИмпортЭкспортОперацийПоЛицевымСчетамРаботников

В модлуе формы:
КоманднаяПанельПлатежныеПорученияЗачислениеЗарплатыВыгрузить

В модуле возможно доправить ЗаписатьТесктНаДиск

[Skynin]

например

[Skynin]

например (сделано наспех, но)

//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);

[НатальяС]

Спасибо, буду пробовать.

[НатальяС]

Здравствуйте! Это я опять с этим же вопросом. В общем, у меня получилось выгрузить в текстовый файл зарплату к выплате. Однако, при попытке загрузить в клиент банк этого файла выдается ошибка. Программист из банка сказал, что, возможно, файл не той кодировки. Что можно сделать?

[Naumov]

Cltkfnm njq rjlbhjdrb

[НатальяС]

Не поняла Вашего сообщения, господин Naumov

[Fosihas]

Cltkfnm njq rjlbhjdrb

перевод с латиници
Сделать той кодировки

[Skynin]

...а возможно и не того формата

Сделать нужно той кодировки и того формата что "кушает" клиент-банк.