|
| I've this code write in delphi 7 and rave 5 but not work correctly
the report in report design have a databand div in 5 columns:
procedure TForm1.RvDataSetConnection1GetRow(
Connection: TRvCustomConnection);
var
pagerv : TRavePage;
rvRegion: TRaveRegion;
rvDBand: TRaveDataBand;
rvBar: TRaveEANBarCode;
rvText : TRaveText;
rvRect : TRaveRectangle;
rvBaseRep : TBaseReport;
testo:string;
begin
With RvProject1.ProjMan do
begin
pagerv := FindRaveComponent('Report1.Page1',nil) as TRavePage;
rvRegion := FindRaveComponent('Region1',pagerv) as TRaveRegion;
rvDBand := FindRaveComponent('DataBand1',pagerv) as TRaveDataBand;
if ( pagerv<>NIL) then
begin
rvText := TRaveText(pagerv.FindComponent('EANBarCode1'));
rvBar := FindRaveComponent('EANBarCode1',pagerv) as TRaveEANBarCode;
rvRect := FindRaveComponent('Rect1',pagerv) as TRaveRectangle;
if (rvText<>NIL) then begin
//rvText.Text:= '0000000000208';
//testo:=rvText.Text;
//messagedlg(IntToStr(rvDBand.CurrentColumn) +
rvText.Text,mtInformation,[mbOK],0);
if rvText.Text <> '000000000001' then begin
//rvRect.FillColor := clWhite;
rvRect.MoveBehind;
//rvRect.MoveForward;
//rvBar.BringToFront;
//rvBar.MoveBehind;
end
else begin
rvRect.BringToFront;
end;
end;
end;
end;
RvDataSetConnection1.DoNext;
end;
but only first time is execute this proc.
I want print barcode in labels starting from col and row particulary,
and i've found this method for remove from print the barcode not desire.
sorry for my english.
Omega
|
|