1С:Предприятие 8.3 (8.3.9.2309)
1С:ERP Управление предприятием 2.0 (2.0.9.66)
Не могу понять как мне создать этикетку с назначением товара, а именно что бы был номер заказа на этикетке при печати. Что бы информацию брать с назначения товара с производства. Уже все облазил не могу понять как.
XacTLa @ 25.06.18, 16:32
,
Вообщем ситуация такая , что проще создать внешнюю печатную форму в виде этикетки, и вставить туда все параметры, пока не могу понять как вставить штрих код, а именно отобразить его в модуле сам штрих код я вставил а вот как в коде его отобразить не понимаю, может кто что подскажет вот код :
Функция СформироватьПечатнуюФорму(СсылкаНаОбъект, ОбъектыПечати)
ТабличныйДокумент = Новый ТабличныйДокумент;
МакетОбработки = ПолучитьМакет("Наклейка");
ТабличныйДокумент.АвтоМасштаб = Истина;
ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ОбластьШапки = МакетОбработки.ПолучитьОбласть("Шапка");
ОбластьШапки.Параметры.НомерДокумента = СсылкаНаОбъект.Номер;
ТабличныйДокумент.Вывести(ОбластьШапки);
ОбластьПодвала = МакетОбработки.ПолучитьОбласть("Подвал");
ОбластьПодвала.Параметры.ИзделиеПредставление = СсылкаНаОбъект.Номенклатура;
ТабличныйДокумент.Вывести(ОбластьПодвала);
Возврат ТабличныйДокумент;
КонецФункции // СформироватьПечатнуюФорму()
Не пойму выдает ошибку "Значение не является значением объектного типа 1"
Функция СформироватьПечатнуюФорму(СсылкаНаОбъект, ОбъектыПечати)
ТабличныйДокумент = Новый ТабличныйДокумент;
МакетОбработки = ПолучитьМакет("Наклейка");
ТабличныйДокумент.АвтоМасштаб = Истина;
ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ОбластьШапки = МакетОбработки.ПолучитьОбласть("Шапка");
ОбластьШапки.Параметры.НомерДокумента = СсылкаНаОбъект.Номер;
ОбластьШапки.Рисунки.ШтрихКод.Объект.ТипКода = 1;
ОбластьШапки.Рисунки.ШтрихКод.Объект.Сообщение = "1234567890128";
ТабличныйДокумент.Вывести(ОбластьШапки);
ОбластьПодвала = МакетОбработки.ПолучитьОбласть("Подвал");
ОбластьПодвала.Параметры.ИзделиеПредставление = СсылкаНаОбъект.Номенклатура;
ТабличныйДокумент.Вывести(ОбластьПодвала);
Возврат ТабличныйДокумент;
КонецФункции // СформироватьПечатнуюФорму()
Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода)
Перем Значение;
Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
Значение = 0;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
Значение = 1;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
Значение = 2;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
Значение = 3;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
Значение = 4;
Иначе
Значение = -1;
КонецЕсли;
Возврат Значение;
КонецФункции
Процедура ВывестиШтрихКодВПечатнуюФорму(Кнопка)
//Для типовых конфигураций
ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8);
//Для произвольных конфигураций
ТипКода = 0; //EAN8
ТипКода = 1; //EAN13
ТипКода = 2; //EAN128
ТипКода = 3; //CODE39
ТипКода = 4; //CODE128
ТипКода = 5; //CODE16K
ТипКода = 6; //PDF417
ТипКода = 7; //Industrial2of5
ТипКода = 8; //Interleaved2of5
ТипКода = 9; //Code39FullASCII
ТипКода = 10; //CODE93
ТипКода = 11; //ITF14
ТипКода = 12; //RSS14
ТипКода = 13; //CodaBar
ТипКода = 14; //EAN13 AddOn 2
ТипКода = 15; //EAN13 AddOn 5
КонецПроцедуры
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua