CODE39 & Checksum

rbuser

Hi,

I use:
RB 10.07 Enterprise Edition 10.07 (serial number DM-0710-Ent1007-012)
D2007 Enterprise (December 2007 update)
Vista business Edition

I have a problem with barcode CODE39 and checksum.
If the check digit is a Space, the check digit is not included (printed) in
barcode.
I have replaced Space by _ (underscore) but it's not good.

Jean-Pierre

nicocizik

Hi Jean-Pierre,

In my testing, appending a space to the end of a Code 39 barcode seemed to
include the space correctly. When are you adding the check digit to the
data string? Please give me some steps I can take to recreate this issue.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hi Nico,

Sorry for my error, the problem is in my datafield. The propertie TrimChar
(remove space) was active.

Jean-Pierre

rbuser

Hi,

I want to calculate the checksum for barcode 39, but I have a problem,
compiler send a error on instruction txt[i].

This is my code:


{ Calcul du checksum pour code 39 (modulo 43) }
procedure BarCode_OPOnPrint;
const
CharSet = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%';
var x,i:integer;
txt,s :String;
begin
x :=0;
txt := pera['Txtcbarre'];
s :='';

for i:=1 to Length(txt) do
begin
x := x + (Pos(txt[i],CharSet)-1);

s := CharSet[(x mod 43)+1];
end;
BarCode_OP.Data :=txt+s;
end;

Jean-Pierre

nicocizik

What error are you receiving? If you trace into this code, what is the
value of txt[i]?

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

This is a multi-part message in MIME format.

nicocizik

Hi Jean-Pierre,

For future reference please send all attachments to
support@digital-metaphors.com. Also please define which features of
ReportBuilder you are using. If you are using RAP (Code workspace) either
post in the RAP newsgroup or tell us at the beginning of the thread. This
helps us understand exactly what you are doing and why a problem may occur
more quickly and easily.

RAP does not support indexing into strings. You will need to either extract
the character using the Copy routine or create a pass-thru function that
does this for you in Delphi.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com