Постановка задачи

Необходимо выполнить запрос даты, числа и записей справочников, которые впоследствии будут установлены по умолчанию.

Программный код

 

Dialog = CreateInputDialog('Дата|Цена|Пользователи и группы'; '01.01.1999|23.88'; 'дата|число:2|аналитикаМ:ПОЛ#ГПЛ';;;;;;'Date|Number|Users#Groups')

Dialog.Form.Show

Date = Dialog.Requisites('Date').AsString

Number = Dialog.Requisites('Number').AsString

UsersString = ''

if Dialog.DetailDataSet(1).RecordCount > 0

  Users = Dialog.DetailDataSet(1).Requisites('Users')

  Dialog.DetailDataSet(1).First

  while not Dialog.DetailDataSet(1).EOF

    if not Users.IsNull

      UsersString = UsersString & Users.AsString & ';'

    endif

    Dialog.DetailDataSet(1).Next

  endwhile

endif

/* Если оставить значения по умолчанию, то в наборе данных диалога будут значения '01.01.1999' и '23.88'.

   Если же очистить значение поля "Цена", то соответствующий реквизит будет пустым'.

   Если выбрать несколько значений поля "Пользователи и группы", то в переменную UsersString будут записаны коды выбранных записей справочника "Пользователи", разделенные символом ";".

*/

© 2016 Компания DIRECTUM

Сообщество пользователей DIRECTUM