7.7 Как распечатать ценник со страной производителем

Подскажите пожалуйста как распечатать ценник со страной производителем, что для этого нужно изменить.
Пробовал: конфигуратор-обработки-печать ценников-таблица вставлял <ПечСтрана>, но как я понимаю нужно ещё что-то вставить в модуле (и в каком именно месте)?

Код:

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

Если Ряд > 7 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;

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

Столбик	= ?(Столбик > 3, 1, Столбик + 1);
Ряд		= ?(Столбик = 1, Ряд + 1, Ряд);

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

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

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

Столбик = 1;
Ряд     = 1;

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

//Вызов выходного отчета в окно просмотра и редактирования.
Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников");
Таб.ПараметрыСтраницы(1,,,0,0,0,0,,,,,);
Таб.ТолькоПросмотр(1);
Таб.Показать("Товарные ценники","");

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

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

СтатусВозврата(0);
ДанныеДляПечати = Форма.Параметр;

Если ТипЗначенияСтр(ДанныеДляПечати) <> "СписокЗначений" Тогда
Возврат;
КонецЕсли;

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

Сформировать(ТаблицаТоваров, ПечФирма);

КонецПроцедуры // ПриОткрытии()

Спасибо за совет (сделал как посоветовали), но выдаёт ошибку:

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

а весь модуль вынес потому, что полный ноль в программировании 1с, по этому особо не знаю, что надо выносить, а что не надо, так вернее... :unsure:

У меня тоже СтранаПроисхождения, ставил и так, но всё равно такую же ошибку выдаёт:
ПечСтрана = ТаблицаТоваров.СтранаПроисхождения;
{Обработка.ПечатьЦенников.Форма.Модуль(62)}: Поле агрегатного объекта не обнаружено (СтранаПроисхождения)

В модуле получилось так

Код:

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

Если Ряд > 7 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;

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

Столбик    = ?(Столбик > 3, 1, Столбик + 1);
Ряд        = ?(Столбик = 1, Ряд + 1, Ряд);

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

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

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

Столбик = 1;
Ряд     = 1;

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

//Вызов выходного отчета в окно просмотра и редактирования.
Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников");
Таб.ПараметрыСтраницы(1,,,0,0,0,0,,,,,);
Таб.ТолькоПросмотр(1);
Таб.Показать("Товарные ценники","");

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

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

СтатусВозврата(0);
ДанныеДляПечати = Форма.Параметр;

Если ТипЗначенияСтр(ДанныеДляПечати) <> "СписокЗначений" Тогда
Возврат;
КонецЕсли;

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

Сформировать(ТаблицаТоваров, ПечФирма);

КонецПроцедуры // ПриОткрытии()

Опять привёл весь модуль, но лишь для того, чтобы картина была ясна (он впринципе не большой)...
Вроде бы всё верно сделано, в таблице вставлена в ячейке ПечСтрана как выражение.
В чём ошибка кроется (помимо моих "кривых" рук)?

ПИШЕМ ЧЕРЕЗ ТЭГ

Код:

[/color]

А в самой ТЗ "ТаблицаТоваров" есть столбец "СтранаПроисхождения" ? Или только есть реквизит такой?

Спасибо большое это то, что нужно.

Другим способом данную проблему решил "X-Man" тут:
/index.php?act=ST&...st=0#entry31565

Если изменить ВСТРОЕННУЮ обработку, то ценники можно будет выводить в большом количестве, а также из документов "Перемещение ТМЦ", "Поступление ТМЦ" и др.

Код:

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

//*************************Добавление!!!
СпрНом = СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы(0);
Если СпрНом.НайтиПоНаименованию(ТаблицаТоваров.Товар, 0 ,0) = 1 Тогда
Комментарий = СпрНом.Комментарий;
Иначе
Комментарий = ПолучитьПустоеЗначение("Строка");
КонецЕсли;
//*****************************************

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

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

При желании думаю можно "Комментарий" заменить на что-то другое из реквизитов Номенклатуры.
Посмотреть вложение 883
Как например в текущей теме - "СтранаПроисхождения".

Ещё надо не забыть определить переменную "Перем Комментарий;"(это в моём случае) в начале модуля обработки, потому что в пределах модуля всё будет и так работать, но если эту переменную вы вставите в таблицу печати, то 1С-ка будет ругаться.

PS.
Спасибо X-Man и удачи всем!

а я написала:

ПечСтрана = ТаблицаТоваров.Единица.Владелец.СтранаПроисхождения;

Соответственно, как я понимаю надо изменить:

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

работает без ошибок

Чтобы не создавать лишнюю тему, продолжу здесь, так как суть такая же. Подскажите пожалуйста.
Делаю вывод ценников через Перемещение ТМЦ, а там идет вывод на печать через внешний модуль в файле printcen.ert.
Не могу сделать:
1. Вывод вместо двух столбцов ценников, ТРИ СТОЛБЦА.
2. И опять же вывод страны в ценнике из Номенклатуры.СтранаПроисхождения.

P.S. И если не затруднит, как можно подробнее

1.Как так ??? А можно Ваш printcen.ert посмотреть ?
У меня так выводит в два столбца (см.образно для примера)


2. А с производителем страны как быть ?

Бухгалтерский угодник
1. Нет у меня такой строчки

Код:

Столбик    = ?(Столбик > 3, 1, Столбик + 1);

есть только

Код:

Столбик	= ?(Столбик = 0, 1      , 0  );

И при замене этой строчки твоей, происходит вообще нелепость.


2.

Получается в ценнике с производителем прийдётся забыть и ничего не получится ????? И это не объяснить тут ???

Бухгалтерский угодник

В этом и проблема, что непонятно о чем конркретно говорим, не говорил что нужно где-то что то изменить, прилошлось вообще сделать методом тыка и случайно получилось.
Со столбиком вроде разобрался, попробовал в стандартном файле printcen.ert, заменил там стандартную процедуру:

Код:

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

Столбик    = ?(Столбик = 0, 1      , 0  );
Ряд        = ?(Столбик = 0, Ряд + 1, Ряд);

Если Ряд > 3 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;

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

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

на процедуру из первого поста:

Код:

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
Если Ряд > 7 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;
Если Столбик = 1 Тогда
Таб.ВывестиСекцию(\"Товар|Ценник\");
Иначе
Таб.ПрисоединитьСекцию(\"Товар|Ценник\");
КонецЕсли;
Столбик    = ?(Столбик > 2, 1, Столбик + 1);
Ряд        = ?(Столбик = 1, Ряд + 1, Ряд);
КонецПроцедуры // ДобавитьЦенник()

Отвечу не скромно .... чего делать и пожалуйста по покретнее ?
Менял процедуры на вышеуказанные (в выше постах),
выдаёт ошибку:

Vlad

Скажу тоже честно .... читал, и уже с первого поста не понятно, что делает перавый пользователь если у него процедура печати уже другая, точнее отличается от стандартной типовой конфигурации, и как он её изменил не понятно.

А я то имею стандартную типовую и хочу внести изменения сам, вот по столбцам внёс и вроде всё работает и печатает в три столбца как и хочу. А что с Производителем, куда и чего вносить и изменять.... я думаю стандартный типовой фаил printcen.ert не стоит тут прилагать, он у всех одинаковый.

Бухгалтерский угодник

Если конечно не затруднит, очень буду признателен.
Куда, что и где дописывать и подправлять. Потом буду пробавать у себя.
А если изменения коснутся файла printcen.ert, то может подправишь там сам как надо и выложи тут у тебя же должно всё в общем уже работать (включая и printcen.ert).