Добрый день.
ЗУП 2.5.87. Кто-то сказал бухгалтерше, что они из своей 1с-ки могут делать выгрузку реестра сотрудников по зарплатному проекту в клиент-банк ВТБ. Теперь, соответственно, и у нас должен быть такой импорт :) Звонил в ВТБ, спрашивал про формат загружаемого файла: [ИНН]_[номер фин института]_[УНК]_[Дата]_[Номер реестра].txt Никакой подобной выгрузки в 1С-ке не нашел. Есть кто уже сталкивался с данной проблемой?

(0) Напиши или с инфостарта скачай.

(1) На инфостарте не нашел. Писать незнаю как :) Шаблон выгрузки не дают :)

А что, в договоре с банком не описан формат файла реестра и правила его заполнения?

(2) попроси шаблон у того, кто сказал бухгалтерше

ФайлРеестра = Новый ЗаписьТекста(ИмяВременногоФайла,КодировкаТекста.ANSI);

    НомерДокумента = СсылкаНаОбъект.Номер;
    
    НомерДокумента = ПолучитьНомерДляПечати(НомерДокумента);
    
    СтрокаРеестра = "START;" + Формат(СсылкаНаОбъект.Дата,"ДФ=ddMMyyyy") +    ";" +
                    Формат(НомерДокумента,"ЧЦ=3; ЧВН=") + ";CREDIT;Дорожная клиническая больница";
    
    ФайлРеестра.ЗаписатьСтроку(СтрокаРеестра);
    
    
    РезультатЗапроса = СформироватьЗапрос();
    
    //Выборка = РезультатЗапроса.Выбрать();
    Выборка = РезультатЗапроса.Выгрузить();
    
    //Выборка.Свернуть("НомерЛицевогоСчета","Сумма");
    
    СуммаПоРеестру = 0;
    КоличествоСтрок = 0;
    
    //Пока Выборка.Следующий() Цикл
    Для Каждого СтрокаТЗ Из Выборка Цикл
        
        СтрокаРеестра = "";
        
        СтрокаРеестра = СтрокаРеестра + СокрЛП(СтрокаТЗ.НомерЛицевогоСчета) + ";";
        СтрокаРеестра = СтрокаРеестра + Формат(СтрокаТЗ.Сумма,"ЧДЦ=2; ЧРД=,; ЧГ=0") + ";";
        СтрокаРеестра = СтрокаРеестра + СокрЛП(СтрокаТЗ.Фамилия) + " ";//Фамилия
        СтрокаРеестра = СтрокаРеестра + СокрЛП(СтрокаТЗ.Имя) + " ";//Имя
        СтрокаРеестра = СтрокаРеестра + СокрЛП(СтрокаТЗ.Отчество);//Отчетсво
        
        ФайлРеестра.ЗаписатьСтроку(СтрокаРеестра);
        
        СуммаПоРеестру = СуммаПоРеестру + СтрокаТЗ.Сумма;
        КоличествоСтрок = КоличествоСтрок + 1;
            
    КонецЦикла;
    
    СтрокаРеестра = "END;" + Формат(КоличествоСтрок,"ЧГ=0") + ";" + Формат(СуммаПоРеестру,"ЧДЦ=2; ЧРД=,; ЧГ=0")+";RUR";
    
    ФайлРеестра.ЗаписатьСтроку(СтрокаРеестра);
    
    ФайлРеестра.Закрыть();
    
    ФайлРеестра = Новый ДвоичныеДанные(ИмяВременногоФайла);
    
    ИмяФайла = "" + СсылкаНаОбъект.Организация.ИНН + "_01868_00GZ7771_" +Формат(СсылкаНаОбъект.Дата,"ДФ=ddMMyyyy") + "_" + Формат(НомерДокумента,"ЧЦ=3; ЧВН=");
    
    ИмяФайла = КаталогСохраненияФайлов + "\" + ИмяФайла + ".TXT";
    
    ФайлРеестра.Записать(ИмяФайла);

(5) Спасибо, добрый человек :)

(5) А можно еще внутренности функции СформироватьЗапрос()?

ytn - z e;t pfrhsk rjyabuehfnjh

(8) Ну хотяб на этом спасибо :)