7.7 Печать ценников

Добрый день, подскажите пожалуйста, как добавить на печатную форму ценника, наименование группы, в которой находится товар. Т.е. имеем каталог с деревом
Номенклатура
- Товары для ремонта
--Обои
---ARTShow
---Art
---Беларусь
...
Нужно, что бы последняя группа, в данном случае (артшоу, арт, Беларусь и т.д.) выводилась под наименованием товара. Внизу модуль который используется сейчас.

Код:

//******************************************************************************
// ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
//
// Параметры:
//  Таб             - таблица, в которую выполняется вывод ценника
//  ПечНаименование - наименование товара
//  ПечЕдиница      - единица измерения товара
//  ПечРозн         - цена товара
//  Столбик         - номер столбика.
//  Ряд             - номер ряда
//
// Возвращаемое значение:
//  Нет.
//
// Описание:
//  Добавляет ценник в таблицу.
//
Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование,ПечЕдиница, ПечРозн, Столбик, Ряд)
        
    Столбик    = ?(Столбик = 0, 1      , 0  );
    Ряд        = ?(Столбик = 0, Ряд + 1, Ряд);

    Если Ряд > 3 Тогда
         Таб.НоваяСтраница();
         Ряд = 1;
     КонецЕсли;
    
     Если Столбик = 0 Тогда
         Таб.ВывестиСекцию("Товар|Ценник");
     Иначе
         Таб.ПрисоединитьСекцию("Товар|Ценник");
     КонецЕсли;

КонецПроцедуры // ДобавитьЦенник()

//******************************************************************************
// Сформировать(ТаблицаТоваров, ПечФирма)
//
// Параметры:
//  ТаблицаТоваров    - таблица значений, содержащая информацию о цене товара
//  ПечФирма        - наименование фирмы, которое будет выводиться вверху ценника
//
// Возвращаемое значение:
//  Нет.
//
// Описание:
//  Формирует таблицу с ценниками.
//
Процедура Сформировать(ТаблицаТоваров,ПечФирма)

    //  Создание Таблицы для выходного отчета
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
   
    Столбик = 1;
     Ряд     = 0;

     ТаблицаТоваров.ВыбратьСтроки();
     Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
        ПечРозн    = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта);
        ПечНаименование    = ТаблицаТоваров.Товар;
        ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);
         глОживить(1);
    КонецЦикла;
    
    //Вызов выходного отчета в окно просмотра и редактирования.
    Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Товарные ценники","");
   
КонецПроцедуры

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
   
    СтатусВозврата(0);
    ДанныеДляПечати = Форма.Параметр;
                 
    Если ТипЗначенияСтр(ДанныеДляПечати) <> "СписокЗначений" Тогда
        Возврат;
    КонецЕсли;
   
    ПечФирма       = ДанныеДляПечати.Получить("Фирма");
    ТаблицаТоваров = ДанныеДляПечати.Получить("Таблица");
   
    Сформировать(ТаблицаТоваров, ПечФирма);
   
КонецПроцедуры // ПриОткрытии()

--- Объединение сообщений, 19 янв 2015 ---

Конфигурация - Торговля + склад

"Товар" это сам товар, а "Товар.Родитель" - группа в которой он находиться

Как это прописать в модуле? или в форме просто добавить?

можете тут передавать, из того места где вызываете

Код:

ДобавитьЦенник(Таб, ПечФирма, ПечГруппа, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)

ну и на форму соответственно добавить

я не очень силен в правке 1С,
Так?

почти верно,
это

Код:

ДобавитьЦенник(Таб, ПечФирма, ПечГруппа, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)

у вас откуда-то вызывается, так что и там надо прописать

так что ещё вот тут

Код:

     ТаблицаТоваров.ВыбратьСтроки();
     Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
        ПечРозн    = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта);
        ПечНаименование    = ТаблицаТоваров.Товар;
        ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);
         глОживить(1);
    КонецЦикла;

надо заменить

Код:

     ТаблицаТоваров.ВыбратьСтроки();
     Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
        ПечРозн    = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта);
        ПечНаименование    = ТаблицаТоваров.Товар;
        ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар.Родитель, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);
         глОживить(1);
    КонецЦикла;

но! сия конструкция ("через две точки")

Код:

ТаблицаТоваров.Товар.Родитель

отрицательна в производительности, особенно в цикле

так что надо ещё смотреть как эта передаваемая таблица формируется, и в ней добавить Родителя

ой беда(((

--- Объединение сообщений, 19 янв 2015 ---

так что надо ещё смотреть как эта передаваемая таблица формируется, и в ней добавить Родителя[/QUOTE]
где это исать?

ладно, если не внося реквизит в вызовы, т.е. код = коду из поста 1, просто на форму ставить реквизит (выражение) как у вас на скрине вы сделали что будет в печатной форме на просмотре?

Пользователи назаходили в 1с, пока не дает сохранить изменения, буду ждать 17:00, когда повылезают. Спасибо, отпишусь

если есть копия можете на ней проверить

к сожалению нет(

Проверил, с точкой, модуль не запускается, пишет ошибку в строке 62, и там в 18 - скобку, убрал точки, он написал - поле агрегатного не обнаружено

--- Объединение сообщений, 19 янв 2015 ---

ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.ТоварРодитель, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);
{Обработка.ПечатьЦенников.Форма.Модуль(62)}: Поле агрегатного объекта не обнаружено (ТоварРодитель)

перед
Столбик = ?(Столбик = 0, 1 , 0 );
напиши
пГруппа=ПечЕдиница.Владелец.Родитель;
в ценник впиши переменную пГруппа где ты хочешь ея видеть

печединица передается как объект

ммм... товар тоже передается как объект

ну, тогда
пГруппа=ПечНаименование.Родитель;

там и в строку можно родителя вставить, но надо начало найти, исток

--- Объединение сообщений, 20 янв 2015 ---

надо было так

Код:

ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар.Родитель, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);

да код в №1 есть, там :
в Процедура ПриОткрытии() получают таблицу товаров и вызывают формирование

Код:

ТаблицаТоваров = ДанныеДляПечати.Получить("Таблица");
  
    Сформировать(ТаблицаТоваров, ПечФирма);

отсылая суда - Процедура Сформировать(ТаблицаТоваров,ПечФирма)
а там в цикле обходим таблицу товаров,

Код:

ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);

дёргая каждый раз Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование,ПечЕдиница, ПечРозн, Столбик, Ряд)

спасибо, исправил, вечером попробую отпишусь