Циклится Detail таблица

Комментарии

• gpi

  May 2006 отредактировано 08:39

  Вероятно, датасет фильтруется в самом отчёте, и первая запись постоянно отображается при формировании отчёта
• Nicht_Shiessen

  May 2006 отредактировано 08:39

  Эм.. извините, если честно, не очент понял как оно может фильтроваться в самом отчете, и тем более не очень понятно что с этим делать.
  
  Фильтр накладывается, ну скажем, при открытии формы в виде Dataset.filter := 'data_receipt>=a and data_receipt <=b';
  Также часть записей отбрасывается в событии OnFilterRecord. Дочерняя таблица никак не фильтруется (кроме того что она дочерняя).
  
  Может для самого фастРепорта нужно как то эту "дочерность" настраивать?
  Но опять таки - чего же он в режиме редактора все замечательно показывает?
  
  
  И еще вопрос, чтобы нового топика не создавать.
  Можно ли заставить фаст репорт печатать записи не таблицей, а подряд, в строчку.
• gpi

  May 2006 отредактировано 08:39

  Приведите код установки фильтра на таблицу, код OnFilterRecord, шаблон отчёта (fr3) и получившийся результат (fp3)
• Nicht_Shiessen

  May 2006 отредактировано 08:39

  Код установки фильтра на таблицу

  function SetFilterRec(Adate,Bdate:string):boolean;
  var fieldname: string;
  
  begin
     FormBestMain.LDataSet.Filtered:=false;
     FormBestMain.LDataSet.Filter:='';
     DM.LD_bo_order.Filtered:=false;
     DM.LD_bo_order.Filter:='';
    if  FormBestMain.LDataSet.Name = 'bo_order' then
      begin
        fieldname:='datetime_receipt';
      end
    else
      begin
        fieldname:='datetime_receipt_money';
      end;
     FormBEstMain.LDataSet.Filtered:=false;
   if (Adate = '') and (Bdate = '') then
      begin
        Bdate:='31.12.2555 23:59:59.000';
        Adate:='01.01.1900 00:00:00.000';
      end;
   if (Adate <> '') and (Bdate = '') then
      begin
        Bdate:= Adate+' 23:59:59.000';
        Adate:=Adate+' 00:00:00.000';
       end
    else if (Adate <> '') and (Bdate <> '') then
      begin
         Bdate:=Bdate+' 23:59:59.000';
         Adate:=Adate+' 00:00:00.000';
      end;
    FormBEstMain.LDataSet.DisableControls;
  
      FormBEstMain.LDataSet.Filter:='('+ fieldname + ' >=' + #39 + Adate + #39 + ') and ('+fieldname+' <=' + #39 + Bdate + #39+')';
      FormBEstMain.LDataSet.Filtered:=true;
      FormBEstMain.LDataSet.Refresh;
      if FormBestMain.LDataSet.Name = 'bo_receipt_money' then
        begin
          fieldname:='datetime_receipt';
          DM.LD_bo_order.Filter:='('+ fieldname + ' >=' + #39 + Adate + #39 + ') and ('+fieldname+' <=' + #39 + Bdate + #39+')';
          DM.LD_bo_order.Filtered:=true;
          DM.LD_bo_order.Refresh;
        end;
      FormBEstMain.LDataSet.EnableControls;
  end;
  

  
  
  
  Код На событие OnFilterRecord

  procedure TDM.bo_orderFilterRecord(DataSet: TDataSet; var Accept: boolean);
  var v,Value:variant; S:string;
  begin
    Accept:=true;
    Accept:=Check_job_title(DataSet);
    if not Accept then exit;
    Accept:=Check_emp_manager(DataSet);
    if not Accept then exit;
  
    if not bShowCancelledOrders then 
     Accept:=not CheckOnCancelledOrder(DataSet);
    if not Accept then exit;
    if not bShowTransferredOrders then
      Accept:= CheckOnCompleteOrder(DataSet); 
     if not Accept then exit;
  
  end;
  

  
  А fp3 файл получить не удалось, так как прога на этом циклится.
• Nicht_Shiessen

  May 2006 отредактировано 08:39

  Эм.. изивните за бескойство вроде все заработало - повесил еще один датасет на ту же таблицу.
  
  Но вот второй вопрос: как бы распечатать содержимое бенда в строчку?
  Есть предположение, что можно попробовать это делать так же как делают когда хотят футер загнать наверх, через скрипт. но может есть более гуманное решение?