gifts2017

Чтение счетов за телефон из КиевСтар в XML-формате (7.7 для Украины)

Опубликовал Mark (mark_iz) в раздел Обмен - Обмен через XML

Украинский провайдер телефонной связи "КиевСтар" с недавнего времени присылает счет за пользование корпоративной тел. связью в виде XML-файла. Предлагаемая программа позволяет увидеть присланные данные в удобочитаемом виде.

Украинский провайдер телефонной связи "КиевСтар" с недавнего времени присылает счет за пользование корпоративной тел. связью в виде XML-файла. Предлагаемая программа позволяет увидеть присланные данные в удобочитаемом виде (см. картинку). 

Для учета затрат на корпоративную телефонную связь по сотрудникам ранее была создана отдельная 1С-база, в которой в справочнике "Сотрудники" были введены реквизиты для такого учета:

- ТелефонМоб - Строка 7 зн - номер телефона (без префикса 067, без разделителей-черточек), включена сортировка, чтобы по этому реквизиту можно было найти сотрудника;

- Лимит - Число 10, 2 - лимит затрат на телефон по сотруднику;

- Безлимит - Число 1 - флаг - сотрудник может быть "безлимитный".

Программка читает киевстаровский XML-файл, по номеру телефона находит в справочнике сотрудника (во входящем файле нет фамилий, только номера телефонов) и выводит соответствующие данные по нему в таблицу. 

Структура присылаемого XML-файла также приведена в архиве.

Скачать файлы

Наименование Файл Версия Размер
Программа чтения счетов КиевСтар и описание формата XML-файла 49
.zip 839,76Kb
21.06.12
49
.zip 839,76Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Петр Самчук (Frogger1971) 24.07.12 17:24
добавь еще

.....
тз.НоваяКолонка("Группа1", "Число", 10, 2, "В разрезе закрытой группы", 12);
тз.НоваяКолонка("Группа2", "Число", 10, 2, "В разрезе сети", 12);
тз.НоваяКолонка("Группа3", "Число", 10, 2, "На других операторов", 12);
тз.НоваяКолонка("Группа4", "Число", 10, 2, "Абонплата", 12);

....
ИначеЕсли УзелУр6.Наименование = "d25" Тогда
тз.Группа1 = УзелУр6.Значение;

ИначеЕсли УзелУр6.Наименование = "d2" Тогда
тз.Группа2 = УзелУр6.Значение;

ИначеЕсли УзелУр6.Наименование = "d3" Тогда
тз.Группа3 = УзелУр6.Значение;

ИначеЕсли УзелУр6.Наименование = "d1" Тогда
тз.Группа4 = УзелУр6.Значение;

ну и в табличной части
2. Mark (mark_iz) 27.07.12 16:52
(1) Frogger1971,
спасибо, конечно, но мой менеджер пользуется программкой уже несколько месяцев, и ему вполне достаточно тех данных, к-рые он получает. Может, кому-нибудь другому пригодится.
nado_hto; +1 Ответить
3. Микола Пальчиковський (kolyan_p) 24.04.13 16:21
Скажите а есть ли такая для 1с8,2
4. Mark (mark_iz) 29.04.13 13:05
(3) kolyan_p, Может быть кто-то и делал, но не я.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа