Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 ноя 2024, 02:10

Упростить запись

Автор gliokker, 03 сен 2013, 16:57

0 Пользователей и 1 гость просматривают эту тему.

gliokker

Всем привет подскажите как можно упростить запись
Если ВидПЛ=Перечисления.уатВидыПЛ._4С  ИЛИ ВидПЛ=Перечисления.уатВидыПЛ._3 ИЛИ ВидТогда
у меня перечисленй штук 40 неохото все перечислять,как можно упростить?

MuI_I_Ika

Сначала записать все перечисления в короткие переменные типа Вид1, вид2 и в условии обращаться к ним.

LordWizard

А загнать в массив или Таблицу значений и спросить - есть чего нибудь оттуда? нету? Идем дальше искать перламутровые пуговицы...
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

gliokker

Цитата: MuI_I_Ika от 03 сен 2013, 18:46
Сначала записать все перечисления в короткие переменные типа Вид1, вид2 и в условии обращаться к ним.
Получается в начале модуля я пишу
Перем _4С ,(ну и так далее все перечисления)

Если ВидПЛ=Перечисления.уатВидыПЛ._4С Тогда
         ИмяМакета="_Приложение1";
         ИмяФункцииПечати = "уатПечать_4С_Приложение1(ИмяМакета, 0)";
         ТабДокумент = Вычислить(ИмяФункцииПечати);
         уатОбщегоНазначенияТиповые.уатНапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, "Приложение 1 к документу "+уатОбщегоНазначенияТиповые.уатСформироватьЗаголовокДокумента(ЭтотОбъект, ЭтотОбъект.Метаданные().Представление()), Права);
      КонецЕсли;
а вот из этого модуля нужно убрать
Перечисления.уатВидыПЛ.
а просто оставить
Если ВидПЛ=_4С , (ну и так далее все переменные которые я указал выше)
так?или я не так что то понимаю?

LordWizard

Можно и так, но по моему мнению через массив или таблицу значения данных будет легче.
Массив или таблицу можно будет заполнить циклом или через Добавить() - если все значения из Перечислений не нужны.
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

gliokker

Цитата: LordWizard от 04 сен 2013, 09:48
Можно и так, но по моему мнению через массив или таблицу значения данных будет легче.
Массив или таблицу можно будет заполнить циклом или через Добавить() - если все значения из Перечислений не нужны.
Спасибо,но я уже сделал,нужны все значения из перечисления.

LordWizard

Цитата: gliokker от 04 сен 2013, 10:13
Цитата: LordWizard от 04 сен 2013, 09:48
Можно и так, но по моему мнению через массив или таблицу значения данных будет легче.
Массив или таблицу можно будет заполнить циклом или через Добавить() - если все значения из Перечислений не нужны.
Спасибо,но я уже сделал,нужны все значения из перечисления.

Тогда проще заполнить Таблицу Значений в цикле и опросить ее по Колонке методом Найти(,) и все.
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

GRADUS

Цитата: gliokker от 03 сен 2013, 16:57
Всем привет подскажите как можно упростить запись
Если ВидПЛ=Перечисления.уатВидыПЛ._4С  ИЛИ ВидПЛ=Перечисления.уатВидыПЛ._3 ИЛИ ВидТогда
у меня перечисленй штук 40 неохото все перечислять,как можно упростить?

Установить у "ВидПЛ" тип "ПеречеслениеСсылка.уатВидыПЛ" и проверять так:
Если ЗначениеЗаполнено(ВидПЛ) Тогда
ТРали вали, абра кадабра
КонецЕсли;

LordWizard

Цитата: GRADUS от 05 сен 2013, 09:50
Цитата: gliokker от 03 сен 2013, 16:57
Всем привет подскажите как можно упростить запись
Если ВидПЛ=Перечисления.уатВидыПЛ._4С  ИЛИ ВидПЛ=Перечисления.уатВидыПЛ._3 ИЛИ ВидТогда
у меня перечисленй штук 40 неохото все перечислять,как можно упростить?

Установить у "ВидПЛ" тип "ПеречеслениеСсылка.уатВидыПЛ" и проверять так:
Если ЗначениеЗаполнено(ВидПЛ) Тогда
ТРали вали, абра кадабра
КонецЕсли;

Зачет!  :zebzdr:
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск