Check Digits

Comments

• billywalton

  April 2012 edited 6:35AM

  I think I have found the culprit
  
  frxBarCode.pas
  function TfrxBarcode.Code_EAN8:AnsiString;
  
  Its not setting FText correctly to include the check digit in the text.
  
  Does anyone agree with this ? If so, will we see it fixed in a future build ?
  
  Thanks
  Bill.
  
• OlliWW

  October 2013 edited 6:35AM

  I know its a long time but FastReport send me a fix for this problem (frxBarcod.pas):

  procedure TfrxBarcode.DrawBarcode(Canvas: TCanvas; ARect: TRect; ShowText: Boolean); 
  ... 
  procedure OutText; 
  var 
  TxtWidth: Integer; 
  FontHandle, OldFontHandle: HFont; 
  begin 
  with EMFCanvas do 
  begin 
  {Font.Name := 'Arial'; 
  Font.Size := 9; } 
  Font.Assign(FFont); 
  FontHandle := CreateRotatedFont(Font, Round(FAngle)); 
  OldFontHandle := SelectObject(Handle, FontHandle); 
  Brush.Color := Color; 
  SetBkMode(Handle, Transparent); 
  
  case FTyp of 
  bcCodeEAN8: // 8 digits, 4+4 
  begin 
  //fix begin 
  if FCheckSum then 
  begin 
  TextOutR(3, 3, 30, Copy(DoCheckSumming(copy(FText,length(FText)-6,7)), 1, 4)); 
  TextOutR(35, 35, BarWidth - 4, Copy(DoCheckSumming(copy(FText,length(FText)-6,7)), 5, 4)); 
  end 
  else 
  begin 
  TextOutR(3, 3, 30, Copy(FText, 1, 4)); 
  TextOutR(35, 35, BarWidth - 4, Copy(FText, 5, 4)); 
  end 
  ///fix end
  

  It works, i also requested to include this fix to the next FastReport Version, because its apparently a bug.