|
ЗиК бюдж учрежд | ☑ | ||
---|---|---|---|---|
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
|
а не легче накатать на них телегу чтобы они пришли к единому формату. пусть будет как в армии хоть и не красиво зато единообразно. если их задосить этой проблемой они решат проблему. стопудово начальство даже о ней не в курсе. форма жалобы есть на сайте.мне проще-есть выход на начальника ОПЕРО. да и нас они вроде готовы к внедрению новых технологий
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |