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