Слиент-сервер передача параметров
Есть такой вот скрипт
Нормально работает. Если написать 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
Начинаю танцевать с бубном делаю такой код
Получаю: Ведомость клиента за период с qqq до www
Что я не так или не там делаю? Это проявляется именно при работе клиент-сервер. Кэширование у сервера отключено.
FR4.2 D7
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
Комментарии
Вдогонку
начальное значение mTitle.Text = Ведомость клиента за период с [DateFrom] до [DateTo]