QuickReport

procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  _zkr:=ListZKR.Create();
  _zkr.SearchResult;
  PrintReport:=Length(_zkr.zk)>0;
end;
 
procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  MoreData:= i<Length(_zkr.zk);
  if MoreData then
  begin
    j:=0;
    qrlblext_req_number.Caption:=_zkr.zk[i].invoice_id;
   ...
    add_bcc1_code.Caption:=_zkr.zk[i].add_bcc1_code;
    receiver_subsidy_code.Caption:=_zkr.zk[i].receiver_subsidy_code;
    amount.Caption:=_zkr.zk[i].amount;
    bc_doc_reg_number.Caption:=_zkr.zk[i].bc_doc_reg_number;
    ind:=i;
    inc(i);
  end;
      sum.Caption:=FloatToStr(_zkr.general_sum);
      kbk_num.Caption:=IntToStr(_zkr.kbk_count);
      qrlbl45.Caption:=Form1.edt2.text;
      qrlbl53.Caption:=Form1.edt1.text;
      qrlbl55.Caption:=Form1.edt3.text;
      User.Caption:=Form1.edt1.Text;
      dateOfResult.Caption:=DateToStr(Now);
end;
 
procedure TQuickReport2.qrsbdtl1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand:=Length(_zkr.zk[ind].invoice_type)>0;
end;
 
procedure TQuickReport2.qrsbdtl1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
   MoreData:= j<Length(_zkr.zk[ind].invoice_type);
  if MoreData then
  begin
     invoice_type.Caption:=_zkr.zk[ind].invoice_type[j];
...
     invoice_subject.Caption:=_zkr.zk[ind].invoice_subject[j];
     inc(j);
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    DateFrom:=DateToStr(dtpFrom.Date);
    DateTill:=DateToStr(dtpTill.Date);
    if dtpTill.Date < dtpFrom.Date then
      MessageBox(0,'Некорректно указан временной интервал!','Ошибка', MB_OK+MB_ICONERROR)
    else
    begin
    Business_status:=edtB_status.Text;
    Su_code:=edtSu_code.Text;
    end;
 
    if edtSu_code.Text='' then
      MessageBox(0,'Введите значение для отбора данных (лицевой счет или код бюджетополучателя)','Ошибка', MB_OK+MB_ICONERROR)
    else
    QuickReport.Preview
end;