Проверить наличие контрагента в Медке?

Закрито
NeoN
Повідомлень: 42
З нами з: 01 грудня 2011, 11:38

Проверить наличие контрагента в Медке?

Повідомлення NeoN » 24 грудня 2014, 14:40

При попвтке отправить Налоговую накладную Возникает ошибка:
"Контрагент відсутній у довіднику"
Зображення

Как при єкспорте накладной в МеДок Проверить наличие в нем контрагента? и по необходимости выгрузить?

Нужна функция типа "Select count(id) from HBPARTNER where Num='123456789' "

Вариант с перебором не предлагать так как при выгрузке 1000 накладных для каждой прийдется перебирать 1000 контрагентов :( итого 1 000 000 итераций :(

Код: Виділити все

МеДокСпр = МеДок.GetDictionary();
	МеДокКонтр = МеДокСпр.Open("HBPARTNER"); //получить справочник контрагентов
	
	ЕДРПУО = Контр.ЕДРПОУ;
	
	МеДокКонтр.First();
	Пока  МедокКонтр.EOF = 0 Цикл
		//Сообщить(МедокКонтр.FldOrigVal("Name"));
		Если МеДокКонтр.FldVal("Num")=ЕДРПУО Тогда
			фОк=1;
			Возврат;
		КонецЕсли;
		МеДокКонтр.Next();
	КонецЦикла;
	
сообщить("Контрагент "+ЕДРПУО+"Не обнаружен" )


NeoN
Повідомлень: 42
З нами з: 01 грудня 2011, 11:38

Re: Проверить наличие контрагента в Медке?

Повідомлення NeoN » 24 грудня 2014, 15:07

Всем спасибо Нашол

Код: Виділити все

МеДокКонтр.Filter =  "Num='"+ЕДРПУО+"'";
МеДокКонтр.RecordCount()

Закрито

Повернутись до “1C”