Получить список контрагентов с возможностями ЭДО

Відповісти
Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 12 березня 2015, 11:21

Необходимо получить список всех Контрагентов, с которыми возможен ЭДО.
Как это сделать без использования ИБЭксперта? Какое поле таблицы HBPARTNER (если это она) отвечает за "Документообиг"?
При выгрузке в ДБФ/ХМЛ, непонятно на какое поле ориентироваться.
У нас с десяток каталогов контрагентов. Предвкушаю удовольствие сводить это все в один файл (контрагентов с разных каталогов).

ЗображенняЗображення

Предлагаю сделать меню с выгрузкой всех контрагентов предприятия, для которых "Документообиг"=Истина, - в ДБФ файл (полей ЕДРПОУ, филиал, ИНН, короткое название, --- достаточно).

Реализуйте хотя бы выгрузку видимой части справочника Контрагентов в Ексель, как это реализовано для реестра первичных документов ("Экспорт - экспорт в Эксель").
Востаннє редагувалось 12 березня 2015, 15:36 користувачем Inkognito, всього редагувалось 3 разів.

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 12 березня 2015, 12:24

Временное решение:
1) В справочнике "Контрагентов" оставляем в отображении только нужные поля (ЕДРПОУ, филиал, название, документооборот)
2) Печатаем таблицу на виртуальный принтер в формате ПДФ
3) Заходим на сайт, указываем путь к нашему файлу, емейл, отправляем, ждем.
4) Получаем на почте файл Екселя.
5) Повторяем операцию в цикле для Н каталогов, копируем содержимое в один файл.
6) Делаем "фильтр" по "Документоборот"=Можливий
Enjoy!
Востаннє редагувалось 12 березня 2015, 15:09 користувачем Inkognito, всього редагувалось 2 разів.

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 12 березня 2015, 12:49

Sorry!
MyFile.pdf
You have converted 5 files this month, our limit on free conversions.
//-----------------------------------------------------------------------------
Получаем ограничение демо-версии :lol:
Очередной костыль найден в виде нового емейла коллеги. Еще 5 каталогов контрагентов можно переконвертировать.
Востаннє редагувалось 12 березня 2015, 15:10 користувачем Inkognito, всього редагувалось 1 раз.

agtrif
Повідомлень: 113
З нами з: 24 січня 2014, 14:31

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення agtrif » 12 березня 2015, 13:55

QRYSTT - в xml не оно?

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 12 березня 2015, 14:07

Оно практически всего незаполнено.
Методом научного тыка, - скорее всего, обрабатывается два условия:
Если LASTLICDATE> =ТекущаяДата() и LASTCERTCHECK>=ТекущаяДата() Тогда
Сообщить("Можливий");
КонецЕсли;
//Как вариант - учитывать CertState=2
Востаннє редагувалось 12 березня 2015, 15:10 користувачем Inkognito, всього редагувалось 4 разів.

agtrif
Повідомлень: 113
З нами з: 24 січня 2014, 14:31

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення agtrif » 12 березня 2015, 14:23

Проверил. Нажал "Обновить дані для документообігу"
Выгрузил в xml
Вижу
<LASTLICDATE>05.12.2015 0:00:00</LASTLICDATE>
<CERTSTATE>2</CERTSTATE>
<DFDENIED />
<LASTCH />
<MAXCERTDATE />
<LASTCERTCHECK />
<LEADFIO />
<RESPPERS />
<QRYSTT>0</QRYSTT>
а в медке для этого контрагента светиться "Можливий"

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 12 березня 2015, 15:05

Проверены варианты в запросе 1С:
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(); 
		КонецЦикла;   
	КонецЦикла;
	Сообщить("Итого с возможностями ЭДО=" + Счетчик);

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 27 березня 2015, 11:01

Вопрос передан специалисту? Сроки реализации? Контакты ответственного лица, можно в личку.
За несколько недель ситуация изменилась - кто-то отказался от Медка, кто-то банкрот, кто-то приобрел. Нужен четкий механизм, постоянно позволяюший знать, кто может с нами обмениваться первичными документами, а кто нет.

Нужен специалист, который поможет написать запрос!
Геннадий, это может сделать только разработчик! Подсказка - любой системный аналитик. Скиньте им ссылку.

Inkognito
Повідомлень: 1067
З нами з: 14 січня 2012, 14:26

Re: Получить список контрагентов с возможностями ЭДО

Повідомлення Inkognito » 27 квітня 2015, 12:01

Up.
Компания, которая берет курс на ЭДО вот уже который год, просто обязана реализовать такую выборку или продемонстрировать SQL-запрос, для его использования в сторонних программах (например, 1С) независимыми разработчиками.

Відповісти

Повернутись до “Электронний документообіг”