не получается обратиться к перечислению

[Сергей Федоров]

wise,     Если  СтруктурнаяЕдиница.ТипСтруктурнойЕдиницы =Перечисления.ТипыСтруктурныхЕдиниц.Розница
            Тогда
      ТекстСообщения = НСтр("ru='На данном складе нельзя продавать услуги '");
      Пока СтрокаТабЧасти Цикл  НазваниеТабличнойЧастиДокумента
    Если СтрокаТабЧасти.Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда
        СообщениеОбОшибке = "в стороке "+СтрокаТабЧасти.НомерСтроки+" ОШИБКА !! нельзя провести этот документ !!!";
    КонецЕсли;
КонецЦикла;
Если НЕ ПустаяСтрока(СообщениеОбОшибке) Тогда
      УправлениеНебольшойФирмойСервер.СообщитьОбОшибке(ЭтотОбъект,ТекстСообщения,,,"Склад",Отказ);
   КонецЕсли;
не работает

[wise]

не работает

Вы ведь, Сергей изменили?? ЗДЕСЬ:

Пока СтрокаТабЧасти Цикл  НазваниеТабличнойЧастиДокумента

ТОГДА что НЕ работает ??

[Сергей Федоров]

wise,
Если  СтруктурнаяЕдиница.ТипСтруктурнойЕдиницы =Перечисления.ТипыСтруктурныхЕдиниц.Розница Тогда    
Пока СтрокаТабЧасти Из Запасы Цикл
Если СтрокаТабЧасти.Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда
СообщениеОбОшибке = "в стороке "+СтрокаТабЧасти.НомерСтроки+" ОШИБКА !! так НИЗЯ !!!";
КонецЕсли;
КонецЦикла;
Если НЕ ПустаяСтрока(СообщениеОбОшибке) Тогда
УправлениеНебольшойФирмойСервер.СообщитьОбОшибке(ЭтотОбъект,СообщениеОбОшибке,,,"Склад",Отказ);
КонецЕсли;
КонецЕсли;



Обнаружено логическое завершение исходного текста модуля
КонецЕсли;<<?>> (Проверка: Сервер)

Добавлено: 19 мая 2017, 10:37

wise,  что здесь не так?
Если  СтруктурнаяЕдиница.ТипСтруктурнойЕдиницы =Перечисления.ТипыСтруктурныхЕдиниц.Розница
         Тогда
         ТекстСообщения = НСтр("ru='На данном складе нельзя продавать услуги '");
         Пока Номенклатура ИЗ  Запасы Цикл
            Если СтрокаТабЧасти.Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда
               СообщениеОбОшибке = "в стороке "+СтрокаТабЧасти.НомерСтроки+" ОШИБКА !! нельзя провести этот документ !!!";
            КонецЕсли;
         КонецЦикла;
         Если НЕ ПустаяСтрока(СообщениеОбОшибке) Тогда
            УправлениеНебольшойФирмойСервер.СообщитьОбОшибке(ЭтотОбъект,ТекстСообщения,,,"Склад",Отказ);
         КонецЕсли;      

[wise]

(22) а ГДЕ очистка: СообщениеОбОшибке = "";

Обнаружено логическое завершение исходного текста модуля
КонецЕсли;<<?>> (Проверка: Сервер)

смотри по ВСЕЙ процедуре/функции