Label printing

Comments

• gordk St.Catherines On. Canada.

  October 2013 edited 1:40PM

  i posted one a long time ago in the fastreport binaries news group
  if you cant find it let me know and ill send it to you.
• welliam

  October 2013 edited 1:40PM

  Yes please gordk send me a link.
• gordk St.Catherines On. Canada.

  October 2013 edited 1:40PM

  it was produced in fr4.0.16
  and the included delphi form and unit from d2006
  everything is now totally in the report.
  
  
• welliam

  October 2013 edited October 2013

  Many Thanks. So the main idea is not to assign masterdata band to any data source but iterate through the table manually. Is not there any method to make the band repeat same label again in the next report row before the band move to next record (even from Delphi) ?
  
  Also I dont understand why we delete memo components here:
  

  procedure Memo1OnAfterData(Sender: TfrxComponent);
    var j,d: integer;
  begin
    lc:= tfrxmemoview(sender).lines.count;
    for d := lc -1 downto 0 do
    begin
     if TfrxMemoView(Sender).Lines.Strings[d] = '' then
     tfrxmemoview(sender).memo.delete(d);
    end;
  end;
  
• technisoft

  October 2013 edited 1:40PM

  welliam wrote: »

  Many Thanks. So the main idea is not to assign masterdata band to any data source but iterate through the table manually. Is not there any method to make the band repeat same label again in the next report row before the band move to next record (even from Delphi) ?
  
  Also I dont understand why we delete memo components here:

  One way of doing it is to populate a temporary table with data and use that as the source for the report.
  
  The deletion code removes blank lines.
  
• welliam

  October 2013 edited October 2013

  wrote:

  One way of doing it is to populate a temporary table with data and use that as the source for the report.

  Thanks but Iwould rather prefer to use the first example that iterate through the dataset. I am using external Query component (connected to FireBird) as the dataset so is there a way to use "NEXT" and "FIRST" from inside the report pascal script and call these methods of the query component In other word can script access external Delphi components ? or through the TfrxDBDataSet.DataSet ?
  

  wrote:

  The deletion code removes blank lines.

  Yes but I dont understand why there are blank lines ?
• technisoft

  October 2013 edited October 2013

  welliam wrote: »

  welliam wrote: »

  One way of doing it is to populate a temporary table with data and use that as the source for the report.

  Thanks but Iwould rather prefer to use the first example that iterate through the dataset. I am using external Query component (connected to FireBird) as the dataset so is there a way to use "NEXT" and "FIRST" from inside the report pascal script and call these methods of the query component In other word can script access external Delphi components ? or through the TfrxDBDataSet.DataSet ?
  

  welliam wrote: »

  The deletion code removes blank lines.

  Yes but I dont understand why there are blank lines ?

  First, you can have temporary tables in a Firebird database.
  
  TfrxDBDataSet.DataSet .Next/Prior/First/Last
  might work. Never tried it though.
  
  There may not be blank lines in your particular case, but then the code just doesn't do anything.
• welliam

  October 2013 edited 1:40PM

  Ok Thanks alot
  
• welliam

  October 2013 edited 1:40PM

  One suggestion I recall that when I made same report using Report Builder I just had to pass the skip number and repeat number to the report so it would be nice feature to have in Fast Report too.