Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
1C_pr77_Lang1.doc
Скачиваний:
12
Добавлен:
20.11.2019
Размер:
2.43 Mб
Скачать

ВвестиДату

Вызов диалога для ввода даты.

Синтаксис:

ВвестиДату(<Дата>, <Подсказка>, <Таймаут>)

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

InputDate

Параметры:

<Дата>

Имя переменной, ранее объявленной в про­граммном модуле. В эту переменную будет по­мещено введенное значение даты.

<Подсказка>

Текст заголовка окна диалога ввода. Может ис­пользоваться в качестве подсказки конечному пользователю.

<Таимаут>

Необязательный параметр. Числовое выражение ин­тервала времени ожидания ответа в секундах, в тече­ние которого система будет ожидать ответа пользова­теля. Если данный параметр опущен или равен 0, то время ожидания бесконечно. Значение по умолчанию — 0.

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

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

Описание:

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

Пример:

Процедура ВводДатыСсуды()

Если ВидРасчета = ВидРасчета.БеспроцентнаяСсуда Тогда

ДатаСсуды = Дата(0);

Возврат;

КонецЕсли;

Если ДатаСсуды = Дата(0) Тогда

ДатаСсуды = ДатаДок + 30;

КонецЕсли;

Д = ДатаСсуды;

Если ВвестиДату(Д, "Введите дату ссуды") = 1 Тогда

ДатаСсуды = Д;

Иначе

ВидРасчета = ВидРасчета.БеспроцентнаяСсуда;

КонецЕсли;

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

ВвестиПериод

Ввод периода в виде диалога.

Синтаксис:

ВвестиПериод(<НачалоПериода>, <КонецПериода>, <Подсказка>)

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

InputРег1od

Параметры:

<НачалоПериода>

Идентификатор переменной, в которую функция возвращает дату начала периода.

<КонецПериода>

Идентификатор переменной, в которую функция возвращает дату конца периода.

<Подсказка>

Необязательный параметр. Строковое выра­жение, содержащее строку, которая будет выводиться в заголовке окна диалога. Если не указано — стандартная подсказка.

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

Числовое значение: 1 — выбор осуществлен , 0 — выбор не осуществлен (пользователем нажата кнопка «Отмена», клавиша <Esc> или закрыто окно диалога).

Описание:

Функция ВвестиПериод выдает на экран диалог специального вида, при помощи которого пользователь может выбрать период. Выбранный пользовате­лем период записывается в переменные, передаваемые как параметры при вы­зове метода.

Пример:

Дата1 = '01.01.97';

Дата2 = '31.03.97';

Если ВвестиПериод(Дата1, Дата2, "Введите период отчета") <> 1 Тогда

Возврат 0;

КонецЕсли;

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

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

Синтаксис:

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

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

InputEnum

Параметры:

<3начение>

Имя переменной, ранее объявленной в программном модуле. Переменная должна содержать значение типа «Перечисление» или строковое значение. Если тип передаваемого в качестве параметра значения — пере­числение, то вызывается диалог со списком заданного вида перечисления. Если тип передаваемого в качестве параметра значения — строка, то в ней должен быть идентификатор требуемого вида перечисления, как он задан в конфигураторе. В эту же переменную будет помещено выбранное в диалоге значение перечисле­ния.

<Подсказка>

Текст заголовка окна диалога ввода. Может ис­пользоваться в качестве подсказки конечному пользователю.

<Таймаут>

Необязательный параметр. Числовое выражение ин­тервала времени ожидания ответа в секундах, в тече­ние которого система будет ожидать ответа пользова­теля. Если данный параметр опущен или равен 0, то время ожидания бесконечно. Значение по умолчанию — 0.

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

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

Описание:

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

Пример:

*

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

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

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

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

Иначе

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

КонецЕсли;

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

*

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

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

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

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

Иначе

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

КонецЕсли;

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]