Получить список контрагентов с возможностями ЭДО
Получить список контрагентов с возможностями ЭДО
Необходимо получить список всех Контрагентов, с которыми возможен ЭДО.
Как это сделать без использования ИБЭксперта? Какое поле таблицы HBPARTNER (если это она) отвечает за "Документообиг"?
При выгрузке в ДБФ/ХМЛ, непонятно на какое поле ориентироваться.
У нас с десяток каталогов контрагентов. Предвкушаю удовольствие сводить это все в один файл (контрагентов с разных каталогов).
Предлагаю сделать меню с выгрузкой всех контрагентов предприятия, для которых "Документообиг"=Истина, - в ДБФ файл (полей ЕДРПОУ, филиал, ИНН, короткое название, --- достаточно).
Реализуйте хотя бы выгрузку видимой части справочника Контрагентов в Ексель, как это реализовано для реестра первичных документов ("Экспорт - экспорт в Эксель").
Как это сделать без использования ИБЭксперта? Какое поле таблицы HBPARTNER (если это она) отвечает за "Документообиг"?
При выгрузке в ДБФ/ХМЛ, непонятно на какое поле ориентироваться.
У нас с десяток каталогов контрагентов. Предвкушаю удовольствие сводить это все в один файл (контрагентов с разных каталогов).
Предлагаю сделать меню с выгрузкой всех контрагентов предприятия, для которых "Документообиг"=Истина, - в ДБФ файл (полей ЕДРПОУ, филиал, ИНН, короткое название, --- достаточно).
Реализуйте хотя бы выгрузку видимой части справочника Контрагентов в Ексель, как это реализовано для реестра первичных документов ("Экспорт - экспорт в Эксель").
Востаннє редагувалось 12 березня 2015, 15:36 користувачем Inkognito, всього редагувалось 3 разів.
Re: Получить список контрагентов с возможностями ЭДО
Временное решение:
1) В справочнике "Контрагентов" оставляем в отображении только нужные поля (ЕДРПОУ, филиал, название, документооборот)
2) Печатаем таблицу на виртуальный принтер в формате ПДФ
3) Заходим на сайт, указываем путь к нашему файлу, емейл, отправляем, ждем.
4) Получаем на почте файл Екселя.
5) Повторяем операцию в цикле для Н каталогов, копируем содержимое в один файл.
6) Делаем "фильтр" по "Документоборот"=Можливий
Enjoy!
1) В справочнике "Контрагентов" оставляем в отображении только нужные поля (ЕДРПОУ, филиал, название, документооборот)
2) Печатаем таблицу на виртуальный принтер в формате ПДФ
3) Заходим на сайт, указываем путь к нашему файлу, емейл, отправляем, ждем.
4) Получаем на почте файл Екселя.
5) Повторяем операцию в цикле для Н каталогов, копируем содержимое в один файл.
6) Делаем "фильтр" по "Документоборот"=Можливий
Enjoy!
Востаннє редагувалось 12 березня 2015, 15:09 користувачем Inkognito, всього редагувалось 2 разів.
Re: Получить список контрагентов с возможностями ЭДО
Sorry!
MyFile.pdf
You have converted 5 files this month, our limit on free conversions.
//-----------------------------------------------------------------------------
Получаем ограничение демо-версии
Очередной костыль найден в виде нового емейла коллеги. Еще 5 каталогов контрагентов можно переконвертировать.
MyFile.pdf
You have converted 5 files this month, our limit on free conversions.
//-----------------------------------------------------------------------------
Получаем ограничение демо-версии
Очередной костыль найден в виде нового емейла коллеги. Еще 5 каталогов контрагентов можно переконвертировать.
Востаннє редагувалось 12 березня 2015, 15:10 користувачем Inkognito, всього редагувалось 1 раз.
Re: Получить список контрагентов с возможностями ЭДО
QRYSTT - в xml не оно?
Re: Получить список контрагентов с возможностями ЭДО
Оно практически всего незаполнено.
Методом научного тыка, - скорее всего, обрабатывается два условия:
Методом научного тыка, - скорее всего, обрабатывается два условия:
Если LASTLICDATE> =ТекущаяДата() и LASTCERTCHECK>=ТекущаяДата() Тогда
Сообщить("Можливий");
КонецЕсли;
//Как вариант - учитывать CertState=2
Востаннє редагувалось 12 березня 2015, 15:10 користувачем Inkognito, всього редагувалось 4 разів.
Re: Получить список контрагентов с возможностями ЭДО
Проверил. Нажал "Обновить дані для документообігу"
Выгрузил в xml
Вижу
<LASTLICDATE>05.12.2015 0:00:00</LASTLICDATE>
<CERTSTATE>2</CERTSTATE>
<DFDENIED />
<LASTCH />
<MAXCERTDATE />
<LASTCERTCHECK />
<LEADFIO />
<RESPPERS />
<QRYSTT>0</QRYSTT>
а в медке для этого контрагента светиться "Можливий"
Выгрузил в xml
Вижу
<LASTLICDATE>05.12.2015 0:00:00</LASTLICDATE>
<CERTSTATE>2</CERTSTATE>
<DFDENIED />
<LASTCH />
<MAXCERTDATE />
<LASTCERTCHECK />
<LEADFIO />
<RESPPERS />
<QRYSTT>0</QRYSTT>
а в медке для этого контрагента светиться "Можливий"
Re: Получить список контрагентов с возможностями ЭДО
Проверены варианты в запросе 1С:
1) QRYSTT=0
2) LASTLICDATE>= ТекущаяДата
3) LASTLICDATE>= ТекущаяДата и LASTCERTCHECK>=ТекущаяДата
4) CERTSTATE=2
5) LASTLICDATE>= ТекущаяДата и CERTSTATE=2
Все не то. Ни один запрос не привел к тому же результату, что и ручная выгрузка в Ексель и комбинирование в одном файле всех групп.
п.с. возможно, ошибка в запросе. Еще посмотрю варианты.
1) QRYSTT=0
2) LASTLICDATE>= ТекущаяДата
3) LASTLICDATE>= ТекущаяДата и LASTCERTCHECK>=ТекущаяДата
4) CERTSTATE=2
5) LASTLICDATE>= ТекущаяДата и CERTSTATE=2
Все не то. Ни один запрос не привел к тому же результату, что и ручная выгрузка в Ексель и комбинирование в одном файле всех групп.
п.с. возможно, ошибка в запросе. Еще посмотрю варианты.
Код: Виділити все
App = Новый COMОбъект("MEDOC.ZApplication");
orgId = App.SeekOrg(СокрЛП(НашЕдрпоу), СокрЛП(НашФилиал));
Счетчик=0;
ГруппыСправочников = Новый СписокЗначений();
DictGRP = App.GetDictionary();
tablGRP = DictGRP.Open("HBPARTNERGRP");
tablGRP.Filter=Строка("IDORG=" + СокрЛП(orgId));
tablGRP.First();
Пока НЕ tablGRP.EOF Цикл
ГруппыСправочников.Добавить(СокрЛП(tablGRP.Fields.Item("CODE").Value));
tablGRP.Next();
КонецЦикла;
Dict = App.GetDictionary();
tabl = Dict.Open("HBPARTNER");
Для Сч = 0 По ГруппыСправочников.Количество() - 1 Цикл
ГруппаСпр = ГруппыСправочников.Получить(Сч);
tabl.Filter =Строка("IDPARTNERGRP=" + СокрЛП(ГруппаСпр));
//----------------------------------------------------------------------------------------
//где-то здесь неправильный фильтр
tabl.Filter =Строка("LASTLICDATE>=2015,03,13 00,00,00");
//tabl.Filter =Строка("LASTLICDATE>"+""""+ Формат(ТекущаяДата(), "ДЛФ = ДВ")+"""");
//tabl.Filter =Строка("LASTLICDATE>"+" ' "+ Формат(ТекущаяДата(), "ДЛФ = ДВ")+ " ' ");
//tabl.Filter =Строка("LASTCERTCHECK>="+НачалоДня(ТекущаяДата()));
//tabl.Filter="QRYSTT=0";
//----------------------------------------------------------------------------------------
tabl.First();
Пока НЕ tabl.EOF Цикл
Счетчик=Счетчик+1;
tabl.Next();
КонецЦикла;
КонецЦикла;
Сообщить("Итого с возможностями ЭДО=" + Счетчик);
Re: Получить список контрагентов с возможностями ЭДО
Вопрос передан специалисту? Сроки реализации? Контакты ответственного лица, можно в личку.
За несколько недель ситуация изменилась - кто-то отказался от Медка, кто-то банкрот, кто-то приобрел. Нужен четкий механизм, постоянно позволяюший знать, кто может с нами обмениваться первичными документами, а кто нет.
Нужен специалист, который поможет написать запрос!
Геннадий, это может сделать только разработчик! Подсказка - любой системный аналитик. Скиньте им ссылку.
За несколько недель ситуация изменилась - кто-то отказался от Медка, кто-то банкрот, кто-то приобрел. Нужен четкий механизм, постоянно позволяюший знать, кто может с нами обмениваться первичными документами, а кто нет.
Нужен специалист, который поможет написать запрос!
Геннадий, это может сделать только разработчик! Подсказка - любой системный аналитик. Скиньте им ссылку.
Re: Получить список контрагентов с возможностями ЭДО
Up.
Компания, которая берет курс на ЭДО вот уже который год, просто обязана реализовать такую выборку или продемонстрировать SQL-запрос, для его использования в сторонних программах (например, 1С) независимыми разработчиками.
Компания, которая берет курс на ЭДО вот уже который год, просто обязана реализовать такую выборку или продемонстрировать SQL-запрос, для его использования в сторонних программах (например, 1С) независимыми разработчиками.