Frxadoquery и хранимая процедура

Комментарии

• gpi

  October 2010 отредактировано 16:19

  Попробуйте привязать параметры к переменным отчёта, для которых можно задать значения по умолчанию
• VAbramyak

  October 2010 отредактировано 16:19

  gpi написал: »

  Попробуйте привязать параметры к переменным отчёта, для которых можно задать значения по умолчанию

  Привязал, все равно в профайлере сиквела параметр null. Может где исходник подправить?
• gpi

  October 2010 отредактировано 16:19

  Можете привести пример (шаблон + база Access)?
• VAbramyak

  November 2010 отредактировано 16:19

  gpi написал: »

  Можете привести пример (шаблон + база Access)?

  
  нашел кажется проблему:
  в FrxCustomDB.pas
  

  procedure frxParamsToTParams(Query: TfrxCustomQuery; Params: TParams);
  var
    i: Integer;
    Item: TfrxParamItem;
  begin
    for i := 0 to Params.Count - 1 do
      if Query.Params.IndexOf(Params[i].Name) <> -1 then
      begin
        Item := Query.Params[Query.Params.IndexOf(Params[i].Name)];
        Params[i].Clear;
        Params[i].DataType := Item.DataType;
        // Bound should be True in design mode }
        if not (Query.IsLoading or Query.IsDesigning) then
          Params[i].Bound := False
        else
        begin
          if Item.Expression <> '' then
            Params[i].Value := Item.Expression;
            Params[i].Value := 0;
          Params[i].Bound := True;
        end;
  
        if Trim(Item.Expression) <> '' then
           if not (Query.IsLoading or Query.IsDesigning) then
            if Query.Report <> nil then
            begin
              Query.Report.CurObject := Query.Name;
              Item.Value := Query.Report.Calc(Item.Expression);
            end;
        if not VarIsEmpty(Item.Value) then
        begin
          Params[i].Bound := True;
          if Params[i].DataType in [ftDate, ftTime, ftDateTime] then
            Params[i].Value := Item.Value
          else
            Params[i].Text := VarToStr(Item.Value);
        end;
  
      end;
  end;
  

  
  обнуляется параметр
  Params.Value := 0;
  
  после комментария этой строки вроде работает, но если в значениях параметров есть переменная, то датасет не открывается. Я так понял все через эту строку
  

  if not (Query.IsLoading or Query.IsDesigning) then
  

  параметр не просчитывается

  Item.Value := Query.Report.Calc(Item.Expression);
  

  
  Можно это как-то исправить?