INPUTPROPERTY

InputProperty - это функция, написанная на Delphi ( QrAddFn.pas )

InputProperty(TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp])

Ввод значений различных типов

DescFld - массив массивов описаний полей

Примеры использования

Функция InputDateAndTime

parameters _title:='Введите дату и время', _time := 0

public d,t

if Type('_InputDateAndTime')='U'
  d := Date()
else
  d := _InputDateAndTime[1]
  t := _InputDateAndTime[2]
endif

t := _time

local fld

fld:=;
  {;
    {;
      {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},;
      {'PostBlk',"ValType(Assign)='D' and Year(Assign)>=2010 and Year(Assign)<=2025"};
    },;
    {;
      {'FldName','t'},{'FldType','N'},{'CommonTitle','1'},{'FldTitl','Время'},{'FldLen',5},{'Default',t},{'FldDec',2}, ;
      {'PostBlk','NewValue>=0 and NewValue<=23.59 and Frac(NewValue)<=0.59'};
    };
  }

if !InputProperty(_title,fld)
  result:=nil
  return
endif

result := {d,t}

if Type('_InputDateAndTime')='U'
  Global _InputDateAndTime
endif

_InputDateAndTime := result