Переход с версии 2.х на 4.х

Комментарии

• -=Den=-

  March 2009 отредактировано 03:13

  Модуль frx2xto30 нужен только для конвертации отчетов, из проекта его лучше исключить.
  Отчеты работают потому, что модуль использует свою обработку события OnGetValue и для всех переменных которые не определены в отчете, возвращает пустое значение.
  Это может в дальнейшем привести к проблемам в рабочих отчетах, и будет сложно определить ошибку.
  
• Zoran

  March 2009 отредактировано 03:13

  А как это лечить?
  
  Отключил модуль. Создал обработчик события OnGetValue

  procedure TSPReportDM.frxReport1GetValue(const VarName: String;
    var Value: Variant);
  begin
    Value := VarName +' = Unknown';
  end;
  

  
  Выдается ошибка: Identifier expected; До процедуры даже не доходит.
• Zoran

  March 2009 отредактировано 03:13

  Zoran написал: »

  А как это лечить?
  
  Отключил модуль. Создал обработчик события OnGetValue

  procedure TSPReportDM.frxReport1GetValue(const VarName: String;
    var Value: Variant);
  begin
    Value := VarName +' = Unknown';
  end;
  

  
  Выдается ошибка: Identifier expected; До процедуры даже не доходит.
• -=Den=-

  March 2009 отредактировано 03:13

  Zoran написал: »

  А как это лечить?
  
  Отключил модуль. Создал обработчик события OnGetValue

  procedure TSPReportDM.frxReport1GetValue(const VarName: String;
    var Value: Variant);
  begin
    Value := VarName +' = Unknown';
  end;
  

  
  Выдается ошибка: Identifier expected; До процедуры даже не доходит.

  
  В скрипте onGetValue не срабатывает.
  То что раньше в двойке было как Имя_переменной_отчета , теперь должно быть как <Имя_переменной_отчета>.
  Конвертер же создает функции в скрипте с аналогичными именами, чтобы можно было обращаться к ним без <>.
  Посмотрите на функцию DoPrepareScript в Frx2xto30.pas ю
• Zoran

  April 2009 отредактировано 03:13

  написал: »

  В скрипте onGetValue не срабатывает.
  То что раньше в двойке было как Имя_переменной_отчета , теперь должно быть как <Имя_переменной_отчета>.
  Конвертер же создает функции в скрипте с аналогичными именами, чтобы можно было обращаться к ним без <>.
  Посмотрите на функцию DoPrepareScript в Frx2xto30.pas ю

  
  Уже смотрел.
  Вопрос был не в этом! Проблема в том, что переменная может быть не определена в массиве frxReport.Variable. И тогда выскакивает окно, что переменная отсуствует. Раньше если переменная отсутствует, тогда просто это значение заполняется пустой строкой. Мне так и надо.
  
  В конечном итоге мне удалось переопределить событие OnGetValue, но в итоге отвалились значения в функцией SUM

  procedure TSPReportDM.frxReport1GetValue(const VarName: string;
    var Value: Variant);
  var
    Index: integer;
    VName: string;
  begin
    if AnsiStartsText('<', VarName) and AnsiEndsText('>', VarName) then
    begin
      VName := Copy(VarName, 2, Length(VarName) - 2);
      Index := frxReport1.Variables.IndexOf(VName);
      if Index = -1 then
        Value := ''
      else
      begin
        Value := frxReport1.Variables.Items[Index].Value
      end;
    end
    else
      inherited;
  
  end;
  

  
  Т.е. теперь если переменная не определена, то вместо нее подставляется пустая строка, но объекты, в которых задано например "[SUM(<_frBC_OrderPrint."NETTO_OUT">,MasterData1)]" - пустые, хотя если эту функцию убрать - то все работает.
• Zoran

  April 2009 отредактировано 03:13

  Заработало.
  
  событие GetValue не использовал.
  Переменные, на которые выдавалось сообщение об их отсутствии, объявили в коде в области VAR.
  
  В принципе такое решение тоже устраивает.