Имя: Пароль:
1C
1С v8
ЗиК бюдж учрежд
0 KissMas
 
26.01.12
18:46
Обмен с Сбербанком и Росбанком. Пользуюсь обработкой "Операции с лиц. счетами сотрудников" выгружаю "ведомость в банк". Выгружает в формате *.xml. А надо что бы в сбербанк выгружало в формате *.dbf, а в Росбанк в формате *.xls. Кто-нить может чего подскажет как сделать, что бы выгружало в нужных форматах?
1 Flika
 
26.01.12
19:05
ищите в интернете доп. обработки
2 KissMas
 
26.01.12
19:13
да юзаю, найти только что-то не могу
3 Flika
 
26.01.12
19:18
4 KissMas
 
26.01.12
19:42
ну почти-что хорошо, только я c infostart-а ничего скачать не могу
5 savimar
 
26.01.12
19:47
Писать самому.  Я как-то выкладывала код.
6 KissMas
 
26.01.12
19:51
И за какое время написала? Если не секрет.
7 savimar
 
26.01.12
20:10
Если честно, то не помню.
8 тоа
 
26.01.12
22:40
мне тоже позарез нужна такая обработка, может у кого есть
9 Adilgeriy
 
26.01.12
23:29
почему сбербанк требует дбф? у нас без проблем берет в XML ? какой регион
10 Vadim_37
 
26.01.12
23:34
(9) Требует в Ивановской области, например. А выгрузку в dbf в течении рабочего дня можно сделать, если конечно бухи не пристают каждые 5 минут с глупыми вопросами.
11 Adilgeriy
 
26.01.12
23:41
думаю быстрей если шаблон юзать
12 тоа
 
26.01.12
23:45
у нас токо dbf Сбер требует это в Тульской области, я не программист чтоб выгрузку сделать, нащла токо на инфостарт но там платно. может есть добрая душа и поделиться...
13 KissMas
 
27.01.12
04:47
19 регион
14 savimar
 
27.01.12
07:26
Ладно, ловите.  Выкладываю ещё раз. У меня документ и часть реквизитов - на форме, где выбирается расчетная ведомость в банк из ЗикБУ.
Меняете номер отделения ОСБ в формате F1234 и наименование организации, её ЛС и огрн,  и наименование отделения ОСБ

Номер ФИ - номер реестра (с формы)


ДБФ = Новый XBase;
   ДБФ.Кодировка = КодировкаXBase.OEM;
   
   ДБФ.поля.Добавить("A", "S", 30);
   ДБФ.поля.Добавить("B", "S", 30);
   ДБФ.поля.Добавить("C", "S", 30);
   ДБФ.поля.Добавить("D", "S", 30);
   ДБФ.поля.Добавить("E", "S", 30);
   ДБФ.поля.Добавить("F", "S", 30);
   ДБФ.поля.Добавить("G", "S", 30);
   
   ИмяПути = "";
   ИмяФайла = "";
   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
   Диалог.Каталог = ИмяПути;
   ИмяФайла = "F1234" + Строка(НомерФИ);
   Диалог.ПолноеИмяФайла = ИмяФайла;
   Диалог.Заголовок = "Укажите файл для сохранения";
   Диалог.Фильтр = "(*.dbf)|*.dbf";
   Диалог.Расширение = "dbf";
   Если Диалог.Выбрать() Тогда
       ИмяПути = Диалог.Каталог;
       ИмяФайла = Диалог.ПолноеИмяФайла;
       Сообщить(ИмяФайла);
   Иначе
       Предупреждение("Не удалось создать файл!");
       Возврат;
   КонецЕсли;
   ДБФ.СоздатьФайл(ИмяПути + "F1234" + Прав(Формат(Число(НомерФИ), "ЧЦ=4; ЧВН=; ЧГ="), 3));
   ДБФ.АвтоСохранение = Истина;
   
   //1

   ДБФ.Добавить();
   ДБФ.A = "Отделение ОСБ 1234";
   //2

   ДБФ.Добавить();
   ДБФ.A = "К платежному поручению №";
   //ДБФ.B = Поручение;

   ДБФ.C = "от";
   //ДБФ.D = Формат(Дата, "ДФ=dd.MM.yyyy");

   //3

   ДБФ.Добавить();
   ДБФ.A = "Зачисление";
   ДБФ.B = "01";
   ДБФ.C = "01";
   //4

   ДБФ.Добавить();
   ДБФ.A = "Наименование, ОГРН, № банк. счета";
   ДБФ.B = "Наименование организации"" л/с 1234567   огрн";
   ДБФ.C = Банк.ОсновнойБанковскийСчет.НомерСчета;
   //5

   ДБФ.Добавить();
   ДБФ.A = "По договору";
   ДБФ.B = ДоговорНомер;
   ДБФ.C = "от";
   ДБФ.D = Формат(ДоговорДата, "ДФ=dd.MM.yyyy");
   //6

   ДБФ.Добавить();
   ДБФ.A = "№ п/п";
   ДБФ.B = "Номер счета";
   ДБФ.C = "Фамилия";
   ДБФ.D = "Имя";
   ДБФ.E = "Отчество";
   ДБФ.F = "Сумма";
   ДБФ.G = "Примечание";
   
   ЗапросВед = Новый Запрос;
   ЗапросВед.УстановитьПараметр("Ссылка", Ссылка);
   ЗапросВед.Текст = "ВЫБРАТЬ
                     |    РеестрВБанкСписокВедомостей.Ведомость,
                     |    РеестрВБанкСписокВедомостей.Сумма
                     |ИЗ
                     |    Документ.РеестрВБанк.СписокВедомостей КАК РеестрВБанкСписокВедомостей
                     |ГДЕ
                     |    РеестрВБанкСписокВедомостей.Ссылка = &ССылка";
   ВыборкаВед = ЗапросВед.Выполнить().Выбрать();
   ВыборкаВед.Следующий();
   Ведомость = ВыборкаВед.Ведомость;
   
   ЗапросДБФ = Новый Запрос;
   ЗапросДБФ.УстановитьПараметр("Ссылка", Ведомость);
   ЗапросДБФ.Текст = "ВЫБРАТЬ
                     |    ВедомостьВБанкЗарплата.Физлицо,
                     |    ВедомостьВБанкЗарплата.Сумма,
                     |    ВедомостьВБанкЗарплата.НомерЛицевогоСчета
                     |ИЗ
                     |    Документ.ВедомостьВБанк.Зарплата КАК ВедомостьВБанкЗарплата
                     |ГДЕ
                     |    ВедомостьВБанкЗарплата.Ссылка = &Ссылка";
   ВыборкаДБФ = ЗапросДБФ.Выполнить().Выбрать();
   
   //7 по хз-1

   Н = 1;
   Пока ВыборкаДБФ.Следующий() Цикл
       ДБФ.Добавить();
       ДБФ.A = Н;
       ДБФ.B = ВыборкаДБФ.НомерЛицевогоСчета;
       Массив = ОбщегоНазначения.ПолучитьМассивФИО(ВыборкаДБФ.Физлицо.Наименование);
       ДБФ.C = Массив[0];
       ДБФ.D = Массив[1];
       ДБФ.E = Массив[2];
       ДБФ.F = Формат(Число(ВыборкаДБФ.Сумма), "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=; ЧГ=0");        
       Н = Н + 1;
   КонецЦикла;
   
   //хз

   ДБФ.Добавить();
   ДБФ.B = "ИТОГО:";
   ДБФ.F = Формат(Число(ВыборкаВед.Сумма), "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=; ЧГ=0");

   ДБФ.ЗакрытьФайл();
15 savimar
 
27.01.12
07:40
А у нас сбер в основном xml, но есть особо одаренные отделения, например в Тамбове, в Коломне, в  Волжском, которые требуют только dbf. Проблем с каждым - куча, уже на каждое такое отделение писала отдельно, один требует 01 в ячейке В-04, другой - хочет видеть её пустую,  и т.п.
16 тоа
 
27.01.12
16:37
(14) если не сложно, то пожалуйста напишите куда зайти и начать писать этот epf
17 savimar
 
27.01.12
18:40
Это не сложно, но я выше уже писала, что под каждое отделение нужно писать свою обработку. Лучше обратитесь к местному программисту.
18 Adilgeriy
 
28.01.12
16:23
а не легче накатать на них телегу чтобы они пришли к единому формату. пусть будет как в армии хоть и не красиво зато единообразно. если их задосить этой проблемой они решат проблему. стопудово начальство даже о ней не в курсе. форма жалобы есть на сайте.мне проще-есть выход на начальника ОПЕРО. да и  нас они вроде готовы к внедрению новых технологий