How to get the good barcode with

Comments

• gordk St.Catherines On. Canada.

  February 2004 edited 6:46PM

  I assume tou are trying to center the barcode on a label.
  barcode centering on a label
  since the barcode object does not have its width untill it gets its data
  and it doesn't build around it's center point.
  we have to modify it on the fly.
  This is not perfect but gets close enough
  based on a zoom factor of 1
  first report must be 2pass
  
  obp event mdband code
  
  begin
  
  recid :=[Table2."Idno"];
  // index for array is set
  //retrive val from array if on final pass and store in myval
  // the value is actually loaded into the array in the script of the
  // barcode memo
  if finalpass then myval := arrbcw[recid]
  else myval:= 0 ;
  if finalpass then
  begin
  if (myval = 1) then bar1.left:= 119;
  if (myval > 1) and (myval <7) then bar1.left := (119 - [ROUND((myval*5))]);
  if (myval > 6) and (myval <11) then bar1.left := (115 - [ROUND((myval*5))]);
  if (myval > 10) and (myval <13) then bar1.left := (110 - [ROUND((myval*5))]);
  if (myval > 12) and (myval <15) then bar1.left := (107 - [ROUND((myval*5))]);
  if (myval > 14) and (myval <=16) then bar1.left := (104 - [ROUND((myval*5))]);
  end
  end
  
  script of barcode memo code
  // get length of the datastring and store in array
  begin
  if not finalpass then
  arrbcw[recid]:=[LENGTH([Table2."Bcstring"])]
  end
  
  or you can rewrite the barcode units code
  
  regards
• tokkie

  February 2004 edited 6:46PM

  I use the code to center the barcode in a rectangle. The report prints an X number of articles with barcodes.
  
  Each barcode could be a different type and has a different number.
• tokkie

  February 2004 edited 6:46PM

  Is it possible to go through the report (all pages) after the report is prepared and then center the barcode, because the barcode has its good width?
• tokkie

  March 2004 edited 6:46PM

  I found the solution. On all pages of the report I use the same type of barcode.
  
  In my program I create an instance of TfrBarcode.
  
  In the OBP event of the barcode I have this code:

    if finalpass then
      bar_Artikel.Left := Shape55.Left + (((shp_OmtrekArtikel.Left + shp_OmtrekArtikel.Width - Shape55.Left) - GetBarWidth([frm_BestelboekAfdrukken.cldtst_Bestelboek."ARTIKELNUMMER"])) / 2);
  

  
  
  The userdefined function GetBarWidth:

  procedure Tfrm_Reports.fstrp_MainUserFunction(const Name: String; p1, p2, p3: Variant; var Val: Variant);
  var ArtikelNummer: String;
  begin
    if Name = 'GETBARWIDTH' then
    begin
      ArtikelNummer := frParser.Calc(p1);
      frm_Main.Barcode.Text := ArtikelNummer;
      Val := frm_Main.Barcode.GetWidth;
    end;
  end;