procedure TFM_QR_SOD_E.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var f, g, h: integer;
begin
  if Bigmark_DescDBM.Lines.Count - 1 >= Good_DescDBM.Lines.Count - 1 then
  begin
    f := Bigmark_DescDBM.Lines.Count - 1;
  end
  else
  begin
    f := Good_DescDBM.Lines.Count - 1;
  end;      g := 0;
  repeat
    if Bigmark_DescDBM.Lines.Strings[g] <> '' then
    begin
      QRMARK.Lines.Add(Bigmark_DescDBM.Lines.Strings[g]);
    end;        if Good_DescDBM.Lines.Strings[g] <> '' then
    begin
      QRDESCRIPTION.Lines.Add(Good_DescDBM.Lines.Strings[g]);
    end;
    if g = 0 then
    begin
      if SodDet_Q3.FieldByName('claimed_ctn').AsString <> '0' then
      begin
        QRPKGS.Lines.Add(SodDet_Q3.fieldbyname('claimed_ctn').AsString   SodDet_Q3.fieldbyname('unit_desc').AsString);
      end;
      if SodDet_Q3.fieldbyname('our_kgs').AsString <> '0' then
      begin
        QRKGS.Lines.Add(SodDet_Q3.fieldbyname('our_kgs').AsString);
      end;
      if SodDet_Q3.fieldbyname('our_cbm').AsString <> '0' then
      begin
        QRCBM.Lines.Add(SodDet_Q3.fieldbyname('our_cbm').AsString);
      end;
    end;
    g := g   1;
    s := s   1;//行數
    if s = 20 then
    begin
      break;
      ShowMessage('90');//只是測試用
    end;
  until
    g = f   1;
  if s = 20 then
  begin
    s := 0;
    QuickRep1.NewPage;
    ShowMessage(inttostr(d   1));//顯示頁數
  end;
end;