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

Ускорение продвижения
Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.



Иллюстрированный самоучитель по языку системы 1С:Предприятие

Функции для вызова диалога ввода данных

ВвестиПеречисление

Вызов диалога для ввода перечисления.

Синтаксис:

ВвестиПеречисление(<3начение>, <Подсказка>, <Таймаут>)

Англоязычный синоним:

InputEnum

Параметры:

<3начение> Имя переменной, ранее объявленной в программном модуле. Переменная должна содержать значение типа "Перечисление" или строковое значение. Если тип передаваемого в качестве параметра значения – перечисление, то вызывается диалог со списком заданного вида перечисления. Если тип передаваемого в качестве параметра значения – строка, то в ней должен быть идентификатор требуемого вида перечисления, как он задан в конфигураторе. В эту же переменную будет помещено выбранное в диалоге значение перечисления.
<Подсказка> Текст заголовка окна диалога ввода. Может использоваться в качестве подсказки конечному пользователю.
<Таймаут> Необязательный параметр. Числовое выражение интервала времени ожидания ответа в секундах, в течение которого система будет ожидать ответа пользователя. Если данный параметр опущен или равен 0, то время ожидания бесконечно. Значение по умолчанию – 0.

Возвращаемое значение:

Числовое значение: 1 – если в диалоге нажата кнопка "ОК", 0 – если нажата кнопка "Отмена"; -1 (минус единица) – если закончилось время ожидания ответа.

Описание:

Функция ВвестиПеречисление выполняет вызов диалога для ввода перечисления.

Пример:

*

Процедура УстПризнак1()

ВыбПризн = Перечисление.ТипСотрудника.Штатный;

Если ВвестиПеречисление(ВыбПризн, "Выберите тип") > 0 Тогда

Тип = ВыбПризн;

Иначе

Тип = Перечисление.ТипСотрудника.Штатный;

КонецЕсли;

КонецПроцедуры

*

Процедура УстПризнак2()

ВыбПризн = "ТипСотрудника";

Если ВвестиПеречисление(ВыбПризн, "Выберите тип") > 0 Тогда

Тип = ВыбПризн;

Иначе

Тип = Перечисление.ТипСотрудника.Штатный;

КонецЕсли;

КонецПроцедуры
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.