Bar Code Types

rbuser

Hi,

I am trying to set the Bar Code Type for a DBBarCode to properly work with
the item in a table. Could anyone please tell me how to do this?

This is what I have so far.

procedure TfrmBarCodeMain.ppReport1BeforePrint(Sender: TObject);
begin
if plItems.FieldValues['Type'] = 'UPC_E' then
ppDBBarCode1.BarCodeType := bcUPC_E
else
if plItems.FieldValues['Type'] = 'UPC_A' then
ppDBBarCode1.BarCodeType := bcUPC_A
else
if plItems.FieldValues['Type'] = 'EAN_8' then
ppDBBarCode1.BarCodeType := bcEAN_8
else
if plItems.FieldValues['Type'] = 'EAN_13' then
ppDBBarCode1.BarCodeType := bcEAN_13;

ppDBBarCode1.DataField := 'PLU Num';
end;

I have it listed in my uses as well but when I compile i get the message
undeclared identifier bcUPC_E. Do I need to add something alse for this to
work?

Jonas

nicocizik

Hi Jonas,

You need to add ppTypes to your "uses" clause.

--