В начало

Процедура проверки клиентов

 

Процедура ПроверитьКлиентов (СписокГруппКлиентов)

 

   // в качестве параметра Процедуры передается список значений

   // в котором записаны как элементы справочника Клиенты, так и

   // группы этого справочника

 

   Док = СоздатьОбъект ("Документ.Накладная");

   Док.ВыбратьДокументы ();

   Пока Док.ПолучитьДокумент () = 1 Цикл

      Если СписокГруппКлиентов.Принадлежит (Док.Клиент) = 1 Тогда

         Сообщить (Док.Клиент.Наименование + " " + Док);

      КонецЕсли;

   КонецЦикла;

КонецПроцедуры