Коллеги, нет ли опыта интеграции ЗУПы и Альфа-Банка в рамках зарплатного проекта. Речь, в частности, идет о выгрузки из ЗУПы в формате Excel анкет для открытия банковской карточки.

мне кажется, что нужно будет выгружать в csv-формате

(0) садись и смело пиши

(0) Час работы по опыту сбера и газбанка.

Просишь у Альфа-банка шаблон. и потом в шаблоне все заполняешь

ну, по сравнению с банком Москвы навороченная :(. Да мы решили несколкьо по иному пути пойти. Думал, может, уже готовое решение есть.

Док = СсылкаНаОбъект;
   
    запрос = новый запрос;
    запрос.Текст="ВЫБРАТЬ РАЗРЕШЕННЫЕ
                 |    ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,
                 |    ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета КАК НомерСчета
                 |ИЗ
                 |    Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
                 |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
                 |        ПО ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = ЛицевыеСчетаРаботниковОрганизации.ФизЛицо
                 |            И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Организация = ЛицевыеСчетаРаботниковОрганизации.Организация
                 |            И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Банк = ЛицевыеСчетаРаботниковОрганизации.Банк
                 |ГДЕ
                 |    ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка = &Док";
                 
   запрос.УстановитьПараметр("Док",док);              
   
   ТСотрудников = Запрос.Выполнить().Выгрузить();
       
   
   
   
   

   
   Попытка
       // Создать объект.
       Excel = Новый COMОбъект("Excel.Application");
   Исключение
       Сообщить("Не удалось инициализировать Excel");
       Возврат;
   КонецПопытки;

MyBook= Excel.Application.Workbooks.Add("C:\AlfaBank\Шаблон.xls");
   
  MyBook.SaveAs ("C:\AlfaBank\Ведомости\"+Строка(Формат(Док.Дата,"ДФ=dd.MM.yyyy"))+Строка(Док.ХарактерВыплаты) +".xls", 56);

    //сюда писать первый лист
    FirstSheet=MyBook.Worksheets(1);
    i=2;
    FirstSheet.Cells(1,i).Value=СокрЛП(Док.Организация);
    FirstSheet.Cells(2,i).Value=Строка(Док.Организация.ИНН);
    //    List.Cells(3,i).NumberFormat= "@";
    FirstSheet.Cells(3,i).Value=Строка("номер");
    FirstSheet.Cells(4,i).Value=" ";
    FirstSheet.Cells(5,i).Value=Строка(Формат(Док.Дата,"ДФ=dd.MM.yyyy"));
    FirstSheet.Cells(6,i).Value=Строка(Формат(Док.ПериодРегистрации,"ДФ=dd.MM.yyyy"));
    FirstSheet.Cells(7,i).Value="1";
    //    List.Cells(8,i).Value="RUR";
    //    List.Cells(9,i).Value="3";
   
   
    //сюда писать второй лист
   
   List  = MyBook.Worksheets(2);
   Excel.Workbooks(1).WorkSheets(2).Activate();
   i=2;
       
   Для Каждого Стр Из ТСотрудников Цикл
       List.Cells(i,1).Value=Строка(Стр.НомерСчета);
       List.Cells(i,2).Value=Число(Формат(Стр.Сумма,"ЧДЦ=2"));  
       i=i+1;
       
   КонецЦикла;
       
   
   //Excel.Visible = Истина;
   MyBook.Close();
   Excel.Quit();

у нас так)) прикрепила как внешнюю печатную форму к зарплате к выплате

тьфу, попутала с выгрузкой з/п - а тут оказывается анкеты нужны

(8) :) Ага, только хотел написать об этом. Но всё-равно большое спасибо.

наверное для анкет свой шаблон есть

(8) А что, в реестре на зарплату даже фамилий нет? Только номера счетом и суммы?

наши дают файл - где только номер и сумма и еще печатают реестр- там уже фамилии,номер счета и сумма. но загружают в банке именно файл. реестр тоже по их форме

Мы это делали...

Нашёл обработку для 1С Предприятия 8.0, которой мы формировали данные для Альфа-банка в конце 2006 года.

(14) Очень любопытно. Увидеть нельзя?

у меня Юникредит