УТ 11 - печать ценников

@start_kmv · Регистрация: 27.04.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. помогите пож-та решить проблему:
есть обработка ПечатьЦенников (встроенная в конфигурацию), в ней есть 4 макета (Большой, Средний, Маленький, МаленькийБезХарактеристик), есть форма, в которой при выборе нужного вида ценника (Вид ценника - это перечисления) (при выборе которого должен выбираться правильный макет и выводиться на печать). вот, что написал в модуле менеджера обработки:

1C

        ВидЦенника = Перечисления.ВидыЦенников;
        
        Если ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Большой");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Средний");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Маленький");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда   
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("МаленькийБезХарактеристик");
        КонецЕсли;

но, при этом коде у меня выводятся все 4 макета сразу

1C

Макет = ПолучитьМакет("Большой");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        
        
        Макет = ПолучитьМакет("Средний");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        
        
        Макет = ПолучитьМакет("Маленький");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        
 
        Макет = ПолучитьМакет("МаленькийБезХарактеристик");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);

@Joker_vad · 03.05.2014, 13:49

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

@duk337 · 03.05.2014, 14:01

1C

1	ВидЦенника = Перечисления.ВидыЦенников;

этой строчкой вы убиваете ВидЦенника как значение. А ВидЦенника - реквизит формы, обработки?

Добавлено через 1 минуту
Ну и Joker_vad прав: надо говорить, что не получается.

Добавлено через 2 минуты

Сообщение от start_kmv

при этом коде у меня выводятся все 4 макета сразу

раз так написано. Вы макет по виду ценника уже получили. Хватит.

@GreenkA · 03.05.2014, 14:06

Сообщение от start_kmv

но, при этом коде у меня выводятся все 4 макета сразу

вы и выводите все 4-ре макета сразу.

1C

  
        Если ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Большой");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Средний");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Маленький");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда   
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("МаленькийБезХарактеристик");
        КонецЕсли;
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);

думаю, этого достаточно.

@start_kmv · 03.05.2014, 14:08 **[ТС]**

Проблема в том, что я не знаю, как обработка должна понять, какой макет в ней выбран? обработку приложил.

@start_kmv · 03.05.2014, 14:27 **[ТС]**

при выборе из формы Вида ценника, обработка "не понимает", что выбран именно этот макет и нужно выводить на печать именно его, она выводит все макеты. как выводить тот макет, который выбран?

@GreenkA · 03.05.2014, 14:36

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

Вы вышеприведенный код смотрели? и был вопрос: ВидЦенника - это реквизит формы или обработки?
Строка

1C

1	ВидЦенника = Перечисления.ВидыЦенников;

явно лишняя.

@start_kmv · 03.05.2014, 14:41 **[ТС]**

GreenkO, ВидЦенника - это реквизиты обработки.
если
Код 1C
1
ВидЦенника = Перечисления.ВидыЦенников;
явно лишняя.
тогда как обработка должна выбрать выбранную в форме печатную форму?

start_kmv, почему-то лично я не смогла даже скачать вашу обработку
могу отправить на e-mail

@GreenkA · 03.05.2014, 14:45

Сообщение от start_kmv

ВидЦенника - это реквизиты обработки.

реквизитЫ?

Сообщение от start_kmv

тогда как обработка должна выбрать выбранную в форме печатную форму?

ну у вас же реквизит обработки и так типа ПеречислениеСсылка.ВидыЦенников (надеюсь?)

@start_kmv · 03.05.2014, 14:52 **[ТС]**

GreenkO, ну у вас же реквизит обработки и так типа ПеречислениеСсылка.ВидыЦенников (надеюсь?)
конечно, тип ПеречислениеСсылка.ВидыЦенников

@GreenkA · 03.05.2014, 14:53

start_kmv, можно скрин формы и полный текст модуля?

@start_kmv · 03.05.2014, 16:34 **[ТС]**

duk337, Код 1C
1
ВидЦенника = Перечисления.ВидыЦенников;
этой строчкой вы убиваете ВидЦенника как значение. А ВидЦенника - реквизит формы, обработки?

это реквизит обработки.
подскажите, а чему тогда должен быть равен ВидЦенника??

Добавлено через 20 минут
GreenkO, конечно

1C

Процедура Печать(ТабДокумент, Ном, Дата) Экспорт
     
    //-------------- ВЫВОД печатной формы --------------------
    Для каждого Строка ИЗ Ном Цикл
        Номенклатура = "("+Строка.Номенклатура.Артикул + ")" + " " + Строка.Номенклатура;
        КЗ = Строка.Номенклатура.КоэффициентЗначимости;
        Производитель = Строка.Номенклатура.Производитель;
        Описание = Строка.Номенклатура.Описание;
        Отбор = Новый Структура;
        Отбор.Вставить("Номенклатура", Номенклатура);
        Попытка
            Цена= РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(ТекущаяДата(),Отбор)[0].Цена;
        Исключение
            Цена = "";
        КонецПопытки;
        
        ВидЦенника = Перечисления.ВидыЦенников;
        
        Если ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Большой");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Средний");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Маленький");
        ИначеЕсли 
            ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда   
            Макет = Обработки.ПечатьЦенников.ПолучитьМакет("МаленькийБезХарактеристик");
        КонецЕсли;
         
        Если ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда
        Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Большой");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        ИначеЕсли
        ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда
        Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Средний");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        ИначеЕсли 
        ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда
        Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Маленький");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        ИначеЕсли 
        ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда
        Макет = Обработки.ПечатьЦенников.ПолучитьМакет("МаленькийБезХарактеристик");
        ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
        ОбластьМакета.Параметры.КЗ = КЗ;
        ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
        ОбластьМакета.Параметры.Номенклатура = Номенклатура;
        ОбластьМакета.Параметры.Производитель = Производитель;
        ОбластьМакета.Параметры.Описание = Описание;
        ТабДокумент.Вывести(ОбластьМакета);
        КонецЕсли;
        
        
        
        
    КонецЦикла;
    
КонецПроцедуры

@start_kmv · 03.05.2014, 16:35 **[ТС]**

а вот изображение

@start_kmv · 03.05.2014, 16:36 **[ТС]**

так нагляднее

@GreenkA · 03.05.2014, 16:43

start_kmv, ВидЦенника - у вас значение с формы, которое выбирается пользователем.
Меняем код:

1C

Процедура Печать(ТабДокумент, Ном, Дата) Экспорт
 
//-------------- ВЫВОД печатной формы --------------------
Для каждого Строка ИЗ Ном Цикл
Номенклатура = "("+Строка.Номенклатура.Артикул + ")" + " " + Строка.Номенклатура;
КЗ = Строка.Номенклатура.КоэффициентЗначимости;
Производитель = Строка.Номенклатура.Производитель;
Описание = Строка.Номенклатура.Описание;
Отбор = Новый Структура;
Отбор.Вставить("Номенклатура", Номенклатура);
Попытка
Цена= РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(ТекущаяДата( ),Отбор)[0].Цена;
Исключение
Цена = "";
КонецПопытки;
 
Если ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда
Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Большой");
ИначеЕсли 
ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда
Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Средний");
ИначеЕсли 
ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда
Макет = Обработки.ПечатьЦенников.ПолучитьМакет("Маленький");
ИначеЕсли 
ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда  
Макет = Обработки.ПечатьЦенников.ПолучитьМакет("МаленькийБезХарактер истик");
КонецЕсли;
 
//много лишнего, у вас дублируется код
 
ОбластьМакета = Макет.ПолучитьОбласть("Ценник");
ОбластьМакета.Параметры.КЗ = КЗ;
ОбластьМакета.Параметры.Цена = "Цена: "+Строка(Цена)+" руб.";
ОбластьМакета.Параметры.Номенклатура = Номенклатура;
ОбластьМакета.Параметры.Производитель = Производитель;
ОбластьМакета.Параметры.Описание = Описание;
ТабДокумент.Вывести(ОбластьМакета);
 
КонецЦикла;
 
КонецПроцедуры

@start_kmv · 03.05.2014, 16:45 **[ТС]**

GreenkO,
тогда вылазиет куча ошибок

{Обработка.ПечатьЦенников.МодульМенеджера(97,6)}: Переменная не определена (ВидЦенника)
Если <<?>>ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда (Проверка: Сервер)
{Обработка.ПечатьЦенников.МодульМенеджера(100,1)}: Переменная не определена (ВидЦенника)
<<?>>ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда (Проверка: Сервер)
{Обработка.ПечатьЦенников.МодульМенеджера(103,1)}: Переменная не определена (ВидЦенника)
<<?>>ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда (Проверка: Сервер)
{Обработка.ПечатьЦенников.МодульМенеджера(106,1)}: Переменная не определена (ВидЦенника)
<<?>>ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда (Проверка: Сервер)

как определить ВидЦенника???

@GreenkA · 03.05.2014, 16:54

start_kmv, ах модуль менеджера... и где вызывается процедура печати? Передавай при вызове ВидЦенника, тогда

1C

1	Процедура Печать(ТабДокумент, Ном, Дата, ВидЦенника) Экспорт

@Joker_vad · 03.05.2014, 17:21

видЦенника заменить на Объект.ВидЦенника

@duk337 · 03.05.2014, 19:24

Сообщение от GreenkO

почему-то лично я не смогла даже скачать вашу обработк

а незачем. Тип перечисления конвертнётся в строку, а текст в конфе, в модуле менеджера

. Но самое главное:
ВСЁ УЖЕ ПОДСКАЗАНО!

Не по теме:

Не верите - не надо.

Добавлено через 1 минуту
Joker_vad, так ведь он опять присвоит ПеречислениеМенеджер, Хоть Объект, Хоть Элемент...

Добавлено через 2 минуты
Так, щас...

1C

Процедура Печать(Команда)//ПараметрКоманды, ПараметрыВыполненияКоманды)
    //Вставить содержимое обработчика.
    //ПараметрыФормы = Новый Структура("", );
    //ОткрытьФорму("Обработка.ПечатьЦенников.Форма", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно, ПараметрыВыполненияКоманды.НавигационнаяСсылка);   
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.РазмерСтраницы = "A4";
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    //ТабДок.ПолеСверху = 10;
    //ТабДок.ПолеСлева = 10;
    //ТабДок.ПолеСнизу = 10;
    //ТабДок.ПолеСправа = 10;
    Печать_(ТабДок);
    ТабДок.Показать();    
КонецПроцедуры
 
&НаСервере
Процедура Печать_(ТабДок)
    
    Обработки.ПечатьЦенников.Печать(ТабДок, Объект.Номенклатура, Объект.Дата);
    
КонецПроцедуры

Действительно, передаётся только ТЧ. ВидЦенника тоже надо. НО НЕ ПЕРЕПРИСВАИВАТЬ!

Добавлено через 6 минут
GreenkO, а че ты получение макета в цикл запихала?

Добавлено через 7 минут

Не по теме:

По-моему, размещение процедуры в модуле менеджера обработки - это троллинг. :D Блин! А мы-то тупо повелись на косяки, а там даже параметров не хватало! :black_eye.: Привыкли из объекта всё фигачить

@start_kmv · 03.05.2014, 23:12 **[ТС]**

duk337, извините за назойливость, но..

Сообщение от duk337

а незачем. Тип перечисления конвертнётся в строку, а текст в конфе, в модуле менеджера . Но самое главное:
ВСЁ УЖЕ ПОДСКАЗАНО!

не пойму - где подсказано?
очень прошу вашей помощи.

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,917
	03.05.2014, 17:21	18
	видЦенника заменить на Объект.ВидЦенника 1

УТ 11 - печать ценников

Решение

Решение

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,917
	03.05.2014, 13:49	2
	не понятна проблема, выводите что нужно, выложите обработку наглядно мб станет понятно в чем дело 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 14:27 [ТС]	6
	при выборе из формы Вида ценника, обработка "не понимает", что выбран именно этот макет и нужно выводить на печать именно его, она выводит все макеты. как выводить тот макет, который выбран? 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 14:41 [ТС]	8
	GreenkO, ВидЦенника - это реквизиты обработки. если Код 1C 1 ВидЦенника = Перечисления.ВидыЦенников; явно лишняя. тогда как обработка должна выбрать выбранную в форме печатную форму? start_kmv, почему-то лично я не смогла даже скачать вашу обработку могу отправить на e-mail 0

@GreenkA 3057 / 2004 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	03.05.2014, 14:45	9
	Сообщение от start_kmv ВидЦенника - это реквизиты обработки. реквизитЫ? Сообщение от start_kmv тогда как обработка должна выбрать выбранную в форме печатную форму? ну у вас же реквизит обработки и так типа ПеречислениеСсылка.ВидыЦенников (надеюсь?) 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 14:52 [ТС]	10
	GreenkO, ну у вас же реквизит обработки и так типа ПеречислениеСсылка.ВидыЦенников (надеюсь?) конечно, тип ПеречислениеСсылка.ВидыЦенников 0

@GreenkA 3057 / 2004 / 524 Регистрация: 25.06.2009 Сообщений: 6,964
	03.05.2014, 14:53	11
	start_kmv, можно скрин формы и полный текст модуля? 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 16:35 [ТС]	13
	а вот изображение Миниатюры 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 16:36 [ТС]	14
	так нагляднее Миниатюры 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 16:45 [ТС]	16
	GreenkO, тогда вылазиет куча ошибок {Обработка.ПечатьЦенников.МодульМенеджера(97,6)}: Переменная не определена (ВидЦенника) Если <<?>>ВидЦенника = Перечисления.ВидыЦенников.Большой Тогда (Проверка: Сервер) {Обработка.ПечатьЦенников.МодульМенеджера(100,1)}: Переменная не определена (ВидЦенника) <<?>>ВидЦенника = Перечисления.ВидыЦенников.Средний Тогда (Проверка: Сервер) {Обработка.ПечатьЦенников.МодульМенеджера(103,1)}: Переменная не определена (ВидЦенника) <<?>>ВидЦенника = Перечисления.ВидыЦенников.Маленький Тогда (Проверка: Сервер) {Обработка.ПечатьЦенников.МодульМенеджера(106,1)}: Переменная не определена (ВидЦенника) <<?>>ВидЦенника = Перечисления.ВидыЦенников.МаленькийБезХарактеристик Тогда (Проверка: Сервер) как определить ВидЦенника??? 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	03.05.2014, 23:12 [ТС]	20
	duk337, извините за назойливость, но.. Сообщение от duk337 а незачем. Тип перечисления конвертнётся в строку, а текст в конфе, в модуле менеджера . Но самое главное: ВСЁ УЖЕ ПОДСКАЗАНО! не пойму - где подсказано? очень прошу вашей помощи. 0