"Контрагент відсутній у довіднику"
Как при єкспорте накладной в МеДок Проверить наличие в нем контрагента? и по необходимости выгрузить?
Нужна функция типа "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();
КонецЦикла;
сообщить("Контрагент "+ЕДРПУО+"Не обнаружен" )