Пока Докум.ПолучитьСтроку() = 1 Цикл
   СПРпартТов=СоздатьОбъект("Справочник.ПартииТовараРасчСтоим");
   СПРпартТов.ВыбратьЭлементы ();
   Пока СПРпартТов.ПолучитьЭлемент () = 1 Цикл
   Если  СПРпартТов.ПоступлениеТовара = Докум.ПартияТовара.Основание тогда
       тз.Доходность = тз.Доходность + Докум.СуммаБезНДС - (Докум.Себестоимость * СПРпартТов.ПроцКурсРазн * Докум.Количество);
   //Иначе
   //    тз.Доходность = тз.Доходность + Докум.СуммаБезНДС - (Докум.Себестоимость * Докум.Количество);  
   КонецЕсли;
   КонецЦикла;
               
           КонецЦикла;

Извините, сообщение отправил случайно. Сейчас сформулирую вопрос.

Ситуация такая, предположим есть 2 справочника (справочник А и Б) с одним общим реквизитом, нужно:
Если строка справочника А совпала по этому реквизиту со строкой из Б тогда = 1
Иначе = 2, и т.д. проверить весь справочник А по порядку на совпадение его строк с любой из строк справочника Б.

Заранее спасибо.

выбираешь строки в документе, а затем запросом ищешь совпадение в справочнике (запросом быстрее получится если справочник большой)

(5)
select
 СпрА.id,
 СпрБ.id
from $Справочник.А СпрА
inner join $Справочник.Б СпрБ on $СпрА.Реквизит like '%'+$СпрБ.Реквизит+'%'

Цикл перебора элементов по справочнику А
 Цикл перебора элементов по справочнику Б
   Если <Сравнение реквизита элемента справочника А с  реквизитом элемента справочника Б дало тошонадо> Тогда
     <Делать то, што предусмотрено для тогошонадо>;
   Иначе
     <Делать то, што предусмотрено для тогошоНЕнадо>;
   КонецЕсли;
 КонецЦикла;
КонецЦикла;

(7)Напугал парня своими прямыми запросами ))

Получается:
СпрА=СоздатьОбъект("Справочник.А");
СпрБ=СоздатьОбъект("Справочник.Б");

СпрА.ВыбратьЭлементы ();
Пока СпрА.ПолучитьЭлемент() = 1 Цикл
   
   СпрБ.ВыбратьЭлементы ();
   Пока СпрБ.ПолучитьЭлемент () = 1 Цикл
    Если  СпрА.Рекв= СпрБ.Рекв тогда
       тз.тзз = 1;
    Иначе
        тз.тзз= 2;  
    КонецЕсли;
   КонецЦикла;
КонецЦикла;

???

В этом случае получается ответ будет столько же раз сколько и строк в справочнике Б. А нужен только 1 ответ на каждую строку справочника А.

(9) действительно напугал.

Прервать;
Синтаксис:
Прервать;
Назначение:
Прерывает выполнение цикла.
Подробнее см. в документации, глава 'Управляющие операторы'

(13) Ну совсем понятно где его прервать. На сколько я понимаю это выражение нужно построить в принципе по другому, т.к. где бы его не прервал результат будет не правильный.

СпрА.ВыбратьЭлементы ();
Пока СпрА.ПолучитьЭлемент() = 1 Цикл
   флНашли=0;
   СпрБ.ВыбратьЭлементы ();
   Пока СпрБ.ПолучитьЭлемент () = 1 Цикл
    Если  СпрА.Рекв= СпрБ.Рекв тогда
         флНашли=1;
         прервать;
    КонецЕсли;
   КонецЦикла;
    Если  флНашли=1 тогда
       тз.тзз = 1;
    Иначе
        тз.тзз= 2;  
    КонецЕсли;

КонецЦикла;

(15) спасибо.