Штрих кодирование в ТОРГ12

Доброго времени суток!
понадобилось нашим контрагентам выводить ШК в ТОРГ12, сделал описание, но при выводе ругается

    ОбластьМакета.Рисунки.РисунокШтрихКод.ВыводитьНаПечать=ложь;
    Если  шк=истина тогда
        номерзаказа=сокрлп(ДокРеализация.Сделка.входящийномер);
        Пока СтрДлина(номерзаказа) <> 10 Цикл
            НомерЗаказа = НомерЗаказа + " ";
        КонецЦикла;
        // Отделяем целую часть от суммы документа
        ЦелаяЧастьЧисла = СтрЗаменить(Строка(Цел(ДокРеализация.СуммаДокумента)), " ", "");
        // Если её длина не равна 10 символам, дополняем эту строку лидирующими нулями.
        Пока СтрДлина(ЦелаяЧастьЧисла) <> 10 Цикл
            ЦелаяЧастьЧисла = "0" + ЦелаяЧастьЧисла;
        КонецЦикла;
        // Отделяем дробную часть от суммы документа
        ДробнаяЧасть = Прав(Строка(ДокРеализация.СуммаДокумента), 2);

        ШтрихКод = "";
        // Соединяем все 3 части вместе и получаем нужный нам штрих-код
        ШтрихКод = НомерЗаказа + ЦелаяЧастьЧисла + ДробнаяЧасть;

        ОбластьМакета.Рисунки.РисунокШтрихКод.ВыводитьНаПечать=истина;

        ОбластьМакета.Рисунки.РисунокШтрихКод.Объект.Сообщение = ШтрихКод;

    КонецЕсли;

{Обработка.ПечатьКомплектовДокументов.МодульОбъекта(941)}: Поле объекта не обнаружено (Сообщение)
        ОбластьМакета.Рисунки.РисунокШтрихКод.Объект.Сообщение = ШтрихКод;

ЧЯДНТ? подскажите, пожалуйста