выгрузить файл в кодировке DOS 866 из ЗиК 7.7 рел.282
12.09.2008
10:55
#1
Для Росбанка нужно реестр перечисляемой зарплаты с лиц.счетами и суммами отправлять в кодировке DOS 866. Через отчет Список плательщиков в банк в платежных ведомостях сохраняю файл в текстовом формате. Как сделать его в кодировке DOS 866?
12.09.2008
11:24
#2
"Если не хотите коверкать конфигурацию, то через какой нибудь текстовый редактор. Открыть, "сохранить как", выбрать формат... Желательно иметь текстовый редактор, который не добавит в файл дополнительные данные. Я бы сделал через Far manager.
Если же меняная конфигурация для вас не беда и вы легко сможете ее поддерживать и обновлять до актуальных релизов не теряя своих доработок, то в текст модуля формы документа ВыплатаЗаработнойПлаты нужно добавить что то вроде такого:
ищем кусок, где авторы делают сохранение данных в текстовый файл (вы пишете, что сохраняете данные в текстовом формате, я так понял, что вы чуть уже изменили алгоритм, так как авторы выносят сведения в формате mxl):
Если СохранятьОтчетыНаДиске = 1 Тогда
Таблица.Записать(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)),3);
КонецЕсли;
Таблица.Показать("Перечень перечисляемых сумм");
ниже этих строк добавляем:
//================
ТекстИсточник=СоздатьОбъект("Текст");
ТекстИсточник.Открыть(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)));
ТекстПриемник=СоздатьОбъект("Текст");
ТекстПриемник.КодоваяСтраница(1);
Для i=1 По ТекстИсточник.КоличествоСтрок() Цикл
ТекстПриемник.ДобавитьСтроку(ТекстИсточник.ПолучитьСтроку(i));
КонецЦикла;
ТекстПриемник.Записать(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)));
//================
P.S. Привет банку... На дворе конец 2008 года. DOS в прошлом. Актуален формат xml. А вообще, Отсутствие внятных стандартов на обмен с банковскими системами удручает. Сколько версий "Банк-Клиент"-ов, столько и особенностей... В одной так, в другой эдак... В итоге постоянно какие то нюансы"
Если же меняная конфигурация для вас не беда и вы легко сможете ее поддерживать и обновлять до актуальных релизов не теряя своих доработок, то в текст модуля формы документа ВыплатаЗаработнойПлаты нужно добавить что то вроде такого:
ищем кусок, где авторы делают сохранение данных в текстовый файл (вы пишете, что сохраняете данные в текстовом формате, я так понял, что вы чуть уже изменили алгоритм, так как авторы выносят сведения в формате mxl):
Если СохранятьОтчетыНаДиске = 1 Тогда
Таблица.Записать(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)),3);
КонецЕсли;
Таблица.Показать("Перечень перечисляемых сумм");
ниже этих строк добавляем:
//================
ТекстИсточник=СоздатьОбъект("Текст");
ТекстИсточник.Открыть(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)));
ТекстПриемник=СоздатьОбъект("Текст");
ТекстПриемник.КодоваяСтраница(1);
Для i=1 По ТекстИсточник.КоличествоСтрок() Цикл
ТекстПриемник.ДобавитьСтроку(ТекстИсточник.ПолучитьСтроку(i));
КонецЦикла;
ТекстПриемник.Записать(КаталогПользователя()+"Перечень перечисляемых в банк сумм №"+СокрЛП(НомерДок)+" за "+СокрЛП(ЖрнЗарплата.ОписательПериода(ДатаПериода)));
//================
P.S. Привет банку... На дворе конец 2008 года. DOS в прошлом. Актуален формат xml. А вообще, Отсутствие внятных стандартов на обмен с банковскими системами удручает. Сколько версий "Банк-Клиент"-ов, столько и особенностей... В одной так, в другой эдак... В итоге постоянно какие то нюансы"
Выгрузка из ЗиК v7.7 в Бухгалтерию 8.1Очень нужна помощь [промодерировано ] Могу ли я восстановить удаленный документ
Читают тему
(гостей: 1)