Помогите сделать выгрузку файла TXT в Сбербанк
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Помогите сделать выгрузку файла TXT в Сбербанк, для перечисления зарплаты на карточки....
Может у кого есть готовая обработка?Поделитесь пожалуйста...
Формат текстового файла должен быть следующий:
в DOS кодировке...построчно через ТАБ должно быть сначала номер счета(числовой 20 значный),
потом Ф.И.О.(полностью) и сумма зарплаты(причем разряды не отделяются, копейки через точку)
вот и все.....
Может у кого есть готовая обработка?Поделитесь пожалуйста...
Формат текстового файла должен быть следующий:
в DOS кодировке...построчно через ТАБ должно быть сначала номер счета(числовой 20 значный),
потом Ф.И.О.(полностью) и сумма зарплаты(причем разряды не отделяются, копейки через точку)
вот и все.....
попробую тебе дать текст примерной программы, т.к. не сказано для какой конфиги нужен код.
Здесь эту процедуру надо бы повесить на кнопку выгрузки файла в документе.
Процедура Выгрузить()
ТХТ=СоздатьОбъект("Текст");
ТХТ.Очистить();
ТХТ.КодоваяСтраница(1);//дос-кодировка
СЗ=СоздатьОбъект("СписокЗначений");
СЗ.УдалитьВсе();
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
СЗ.ДобавитьЗначение(НомерСчета);
СЗ.ДобавитьЗначение(ФИО(Сотрудник));
СЗ.ДобавитьЗначение(Сумма); //наверное надо поиграться с формат(Сумма,"Ч15.2");
ТХТ.ДобавитьСтроку(СЗ.ВСтрокуСРазделителями());
СЗ.УдалитьВсе();
КонецЦикла;
имяПапки=""; имяФайла="";
фс.ВыбратьФайл(1,имяФайла,имяПапки,"Выберите файл для сохранения","Все файлы (*.txt) |*.txt","txt");
ПолнИмя=имяПапки+"\"+имяФайла;
ТХТ.Записать(ПолнИмя);
КонецПроцедуры
Здесь эту процедуру надо бы повесить на кнопку выгрузки файла в документе.
Процедура Выгрузить()
ТХТ=СоздатьОбъект("Текст");
ТХТ.Очистить();
ТХТ.КодоваяСтраница(1);//дос-кодировка
СЗ=СоздатьОбъект("СписокЗначений");
СЗ.УдалитьВсе();
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
СЗ.ДобавитьЗначение(НомерСчета);
СЗ.ДобавитьЗначение(ФИО(Сотрудник));
СЗ.ДобавитьЗначение(Сумма); //наверное надо поиграться с формат(Сумма,"Ч15.2");
ТХТ.ДобавитьСтроку(СЗ.ВСтрокуСРазделителями());
СЗ.УдалитьВсе();
КонецЦикла;
имяПапки=""; имяФайла="";
фс.ВыбратьФайл(1,имяФайла,имяПапки,"Выберите файл для сохранения","Все файлы (*.txt) |*.txt","txt");
ПолнИмя=имяПапки+"\"+имяФайла;
ТХТ.Записать(ПолнИмя);
КонецПроцедуры
O-Planet Написал:
-------------------------------------------------------
> У меня есть. Писал для бюджетки, а какая,
> собственно, разница. Думал, что вопрос не
> актуален, потому что в ЗиК что-то такое наваяли.
> Впрочем, моя удобнее будет. Если надо - вышлю.
>
Ну, конечно же надо...Вышлите пожалуйста на мыло (yurec@freemail.ru)
Очень буду благодарен....
-------------------------------------------------------
> У меня есть. Писал для бюджетки, а какая,
> собственно, разница. Думал, что вопрос не
> актуален, потому что в ЗиК что-то такое наваяли.
> Впрочем, моя удобнее будет. Если надо - вышлю.
>
Ну, конечно же надо...Вышлите пожалуйста на мыло (yurec@freemail.ru)
Очень буду благодарен....
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот