Если Макет.Области.Найти("ОбластьШтрихкода") <> Неопределено Тогда
// Проверить картинку штрихкода в области "Штрихкод" ОбластьМакетаШтрихкод = Макет.ПолучитьОбласть("ОбластьШтрихкода"); Если ЕстьКартинкаШтрихкодаВОбластиМакета(ОбластьМакетаШтрихкод) Тогда ОбластьМакета = ОбластьМакетаШтрихкод; ВыводитьШтрихкодВОтдельнуюОбласть = Истина; Иначе Возврат; КонецЕсли; Иначе Возврат; КонецЕсли;
Для каждого ДанныеОбъекта Из ДанныеОбъектовПечати Цикл
СкладВШапке = (НЕ ЕстьПоложениеСклада ИЛИ ДанныеОбъекта.ПоложениеСклада<>Перечисления.ПоложениеРеквизитаНаФорме.ВТабличнойЧасти); ПечатьДокументовУНФ.ПередНачаломФормированияДокумента(ТабличныйДокумент, ПервыйДокумент, НомерСтрокиНачало, ДанныеПечати);
МассивОбластейМакета.Добавить("Комментарий"); //}АСВ 08.09.2020 19:16:01 Если СкладВШапке Тогда МассивОбластейМакета.Добавить("Склад"); КонецЕсли; МассивОбластейМакета.Добавить("ВремяПечати");
Если печНакладные <> "" Тогда ДанныеПечати.Вставить("печНакладные",печНакладные); ДанныеПечати.Вставить("текДень",Формат(ДанныеОбъекта.ДатаДокумента, "ДЛФ=D")); Иначе МассивОбластейМакета.Удалить(МассивОбластейМакета.Найти("НакладныеТекущегоДня")); КонецЕсли; //}АСВ 08.09.2020 19:17:47
Если СкладВШапке И ПолучитьФункциональнуюОпцию("УчетПоЯчейкам") Тогда МассивОбластейМакета.Вставить(2, "Ячейка"); ДанныеПечати.Вставить("ПредставлениеЯчейки", ДанныеОбъекта.ПредставлениеЯчейки); КонецЕсли;
ВремяПечати = НСтр("ru='Дата и время печати: ';uk='Дата і час друку: '", КодЯзыкаПечать) + ТекущаяДатаСеанса() + НСтр("ru='. Пользователь: ';uk='. Користувач: '", КодЯзыкаПечать) + Пользователи.АвторизованныйПользователь(); ДанныеПечати.Вставить("ВремяПечати", ВремяПечати);
Для каждого ИмяОбласти Из МассивОбластейМакета Цикл
ОбластьМакета = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, ИмяОбласти, "", Ошибки); Если ОбластьМакета <> Неопределено Тогда ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабличныйДокумент, Макет, ОбластьМакета, ДанныеОбъекта.Ссылка); ОбластьМакета.Параметры.Заполнить(ДанныеПечати); ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЕсли;
КонецЦикла;
ОбластьМакета = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, "Строка", "", Ошибки); ОбластьМакетаШапка = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, "ШапкаТаблицы", "", Ошибки); Если ОбластьМакета <> Неопределено И ОбластьМакетаШапка <> Неопределено Тогда
Группа: Пользователи
Сообщений: 324
Спасибо сказали: 1 раз
Рейтинг: 1
alex-l1904 @ Сегодня, 12:26
,
Функция ПолучитьОбластьБезопасно(Макет, ИмяОбласти, ПредставлениеОбласти, Ошибки) Экспорт Перем ОбластьМакета;
Если Макет.Области.Найти(ИмяОбласти) = Неопределено Тогда
ТекстСообщения = НСтр("ru='ВНИМАНИЕ! Не обнаружена область макета %1. Возможно используется пользовательский макет.';uk='УВАГА! Не виявлено ділянку макета %1. Можливо використовується користувацький макет.'"); ТекстСообщения = СтрШаблон(ТекстСообщения, ?(ПустаяСтрока(ПредставлениеОбласти), ИмяОбласти, ПредставлениеОбласти));
Группа: Пользователи
Сообщений: 67
Спасибо сказали: 11 раз
Рейтинг: 11
Цитата(burza @ 07.06.23, 12:36)
НСтр("ru='ВНИМАНИЕ! Не обнаружена область макета %1. Возможно используется пользовательский макет.';uk='УВАГА! Не виявлено ділянку макета %1. Можливо використовується користувацький макет.'");
Группа: Пользователи
Сообщений: 324
Спасибо сказали: 1 раз
Рейтинг: 1
alex-l1904 @ Вчера, 16:37
, нет.
по причине: Область не найдена: ОбластьШтрихкода
alex-l1904 @ Вчера, 16:47
, нет ссылка идет правильно на макет. више кидал фото
Оно вроде должно но нет, мистика блин
burza @ Сегодня, 9:55
,
При начале захвата макета в области должна попадать областьштрихкода(это донор там все ок) а в моем случае что не делаю обасть не попадает поэтому и найти не может
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!