Вопрос по 1С

Кто-нибудь подскажет, что нужно добавить в модуль обработки Печать ценника, чтобы вывести на ценник страну-производителя?

 

Я конечно не такой умный, как Гость, но в детстве на бейсике и турбо-паскале чего-то писал, так что планирую разобраться. А то, что ,верссию не указал - извиняюсь, недоглядел. 7.7Торговля + склад

 

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

 

SAshock, ю-опечатка, просто чаще пользуюсь латиницей.
ошибку ищу

добавлено через 48 минут
Убей Бог, не пойму, что не так:

Форма элемента справочника номенклатуры

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

Если глВернутьЦену(Товар, ТипЦены, РабочаяДата(), ВремЦена, ВремЕдиница, ВремВалюта) = 1 Тогда
Табл.НоваяСтрока();
Табл.Товар = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Артикул), "");
Табл.Цена = ВремЦена;
Табл.Валюта = ВремВалюта;
Табл.Единица = ВремЕдиница;
Табл.Страна = Товар.СтранаПроисхождения;
Иначе
Сообщить("У товара """ + Товар.ПолнНаименование + """ отсутствует цена """ + ТипЦены + """");
КонецЕсли;

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

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

Перем ТабТМЦ, ДанныеДляПечати;

Если Выбран() = 0 Тогда
Предупреждение("Печать можно выполнять только для записанных номенклатурных позиций", 60);
Возврат;
КонецЕсли;

ТипЦены = СоздатьОбъект("Справочник.ТипыЦен");
Если ТипЦены.Выбрать("Типы цен",) = 0 Тогда
Возврат;
КонецЕсли;
ТипЦены = ТипЦены.ТекущийЭлемент();

ТабТМЦ = СоздатьОбъект("ТаблицаЗначений");
ТабТМЦ.НоваяКолонка("Товар");
ТабТМЦ.НоваяКолонка("Цена","Число");
ТабТМЦ.НоваяКолонка("Единица");
ТабТМЦ.НоваяКолонка("Валюта");
ТабТМЦ.НоваяКолонка("Страна");

ВыбТМЦ = ТекущийЭлемент();

ДобавитьВтаблицу(ТабТМЦ, ВыбТМЦ, ТипЦены);

// упакуем данные в список
ДанныеДляПечати = СоздатьОбъект("СписокЗначений");

Фирма = СокрЛП(глЗначениеПоУмолчанию("ОсновнаяФирма").ЮрЛицо.ПолнНаименование);
ДанныеДляПечати.ДобавитьЗначение(Фирма , "Фирма");
ДанныеДляПечати.ДобавитьЗначение(ТипЦены.Валюта , "Валюта");
ДанныеДляПечати.ДобавитьЗначение(ТабТМЦ , "Таблица");

ОткрытьФормуМодально("Обработка.ПечатьЦенников", ДанныеДляПечати);

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

Обработка Печать Ценников

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



добавлено через 1 час 35 минут

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

 

с радостью бы это сделал и без подсказки и не морочил бы голову другим, если бы такая возможность была!

 

dj, буквы все русские 100% т.к. латиницей пользуюсь на другом компе, на этом ее почти не бывает.
SAshock, спасибо за совет, завтра буду пробовать, на свежую голову

добавлено через 17 часов 41 минуту
SAshock, запустил отладчик, точку остановки поставил.
Печать ценника из 1С производить? Если из отладчика, то как? (Извините юзера! Он играет как может!)
Из 1С пытался - та же ошибка, а в отладчике ничего.
Вот еще нашел ссылочку, попытался сделать по ней - не получилось, все работает, без запинок, но страну так и не выдает.

добавлено через 17 часов 42 минуты
По рецепту Гиви

добавлено через 20 часов 39 минут
Чего-то не пойму логику, может здесь ошибка:

а ссылка идет потом на ТаблицаТоваров.Товар

хотя колонка "Страна" создавалась в таблице значений.

добавлено через 20 часов 42 минуты
UPS... т.е.на ТаблицаТоваров.Страна

 

насколько я понимаю, форма элемента - для единицы номенклатуры, т.е. печать вызывается для самого элемента, а форма списка - соответственно из списка номенклатуры....или я ошибаюсь?

 

buffoon, я мазохист...

 

Лучше

не могу сказать!