Слиент-сервер передача параметров

отредактировано 05:26 Раздел: FastReport 4.0
Есть такой вот скрипт
var
  DateFrom: string;
  DateTo: string;
    
procedure mTitleOnBeforePrint(Sender: TfrxComponent);
begin
  if DateFrom = '' then 
    mTitle.text := 'Ведомость клиента за период до [DateTo]';
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
   if DateTo = '' then 
    DateTo := <Date>;    
  try
    StrToDate(DateTo);
    if DateFrom <> '' then
      StrToDate(DateFrom);
  except
    RaiseException('Неверно задана дата!')      
  end         
end;

begin
  DateFrom := '20.01.2008';  
  DateTo := '';                
end.

Нормально работает. Если написать DateFrom := 'qqq'; то получаю ошибку. Но это в дизайнере
Теперь пробуем получить отчет по web.
Строка отправляемая на сервер
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=22.02.2008&DateTo=22.03.2008&AFS=-1&Product=-1

Выводится mTitle.text = Ведомость клиента за период до 22.03.2008
Пробую так
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=qqq&DateTo=22.03.2008&AFS=-1&Product=-1
Заголовок тот же!
Пробую так
192.168.4.39/result?report=DetailedReport.fr3&Client=2&Account=1&DateFrom=qqq&DateTo=www&AFS=-1&Product=-1
Получаю mTitle.text = Ведомость клиента за период до www

Начинаю танцевать с бубном делаю такой код
procedure mTitleOnBeforePrint(Sender: TfrxComponent);
begin
 if DateTo = '' then 
    DateTo := <Date>;    
  try
    StrToDate(DateTo);
    if DateFrom <> '' then
      StrToDate(DateFrom);
  except
    RaiseException('Неверно задана дата!')      
  end;      
  if DateFrom = '' then 
    mTitle.text := 'Ведомость клиента за период до [DateTo]';
end;

Получаю: Ведомость клиента за период с qqq до www

Что я не так или не там делаю? Это проявляется именно при работе клиент-сервер. Кэширование у сервера отключено.
FR4.2 D7

Комментарии

  • отредактировано 05:26
    minva написал: »
    Получаю: Ведомость клиента за период с qqq до www

    Вдогонку
    начальное значение mTitle.Text = Ведомость клиента за период с [DateFrom] до [DateTo]

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.