BaseLRep ̕sɂ  (2002/07/10)

}X^[\[XƂȂf[^Zbg EOF ɂȂĎy[Wɍv݂̂
ꍇAEOF ňI܂ߏo͂Ȃs
܂̂ ver.2.4.2a ŏC܂
AvP[Vł̑ΏKvƂȂ܂A萔|܂낵
肢܂m(__)m

΍ƂĂ Remained vpeB(protected)  True Zbg邱Ƃ
󎚏IɃf[^Zbg EOF łĂv݂̂̃y[W
o悤ɂĂ܂(False ɃZbgYƉiv[v^^;)
ʏ펞͏ Remained  True ɂȂ悤ɂĂāAŏI̍vڂ
󎚂 Remained  False Zbg悤ɂ΂܂ł
Ǝv܂
EOF ̌ɍvڂȂǈ󎚂鍀ڂꍇɂ Remained vpeB
삷Kv͂܂
(l False ł̂ EOF ɂȂƏI܂)

ȉ AfterPrintPanel ł̏Ă܂
 Remained  True ɂĂ -> *1
lgtSlipTotal ŏ鍇vŏI̍vȂ̂ň󎚂ɁARemained 
False ZbgĂ܂-> *2

// 쐬u[i׈ꗗv AfterPrintPanel Cxg̓ełA
// LRGridPanel  LRSubPanel  AfterPrintPanel Ăяo悤
// ݒ肵āAR[hƎɈpl̐sĂ܂

  TLRGridType = (lgtLine, lgtSlipHead, lgtSlipTotal, lgtEndNow);
  ...
  private
    { Private 錾 }
    GridType: TLRGridType;
  ...
procedure TBaseLRep1.LRGridPanel1AfterPrintPanel(Sender: TObject);
begin
  inherited;
  Remained := True;      // *1
  case  GridType  of
    lgtLine:
      begin
        if  not Linec.FindNext  then
          GridType := lgtSlipTotal;
      end;
    lgtSlipHead:
      begin
        Linec.Filtered := False;
        Linec.Filter := Format('NohinNo=%d', [MastcNohinNo.AsInteger]);
        Linec.Filtered := True;
        GridType := lgtLine;
      end;
    lgtSlipTotal:
      begin
        Mastc.Next;
        if  Mastc.Eof  then
          GridType := lgtEndNow
        else
          GridType := lgtSlipHead;
        Remained := False;        // *2
      end;
  end;
end;


  _/_/  c `(Kazuyoshi Ohta) : ohta@urban.ne.jp  _/_/
  _/_/                (Ohtaka): QZF12401@nifty.ne.jp  _/_/
