Mod to CU for EAN 8/13 Code 39/128 Barcode Creator v1.5

Administrator

Mod to CU for EAN 8/13 Code 39/128 Barcode Creator v1.5
This upload contains a modified codeunit to address the speed issue with printing multiple barcodes.

Thanks to Stijn Bossuyt and Igor Pchelnikov for their contributions.

http://www.mibuso.com/dlinfo.asp?FileID=1456

Discuss this download here.

Kowa

I just tested this out on 2 classic client databases (5.01 and 2009 SP1) encoding 2 barcodes each with 12 characters in Code 39/128 respectively but the client crashes instantly after starting the report. The original "slow" version works fine.

mschneider

The same happened on my 2009 R2 Client

mschneider

with the following Version it works:

CreateBarcodeDetail(pintLines : Integer;pintBars : Integer;pintSize : Integer;pblnVertical : Boolean;VAR poutBmpHeader : OutStream)
IF pblnVertical THEN BEGIN
  FOR lintBarLoop := 1 TO (bxtBarcodeBinary.LENGTH) DO BEGIN

    FOR lintLineLoop := 1 TO (pintLines * pintSize) DO BEGIN
      bxtBarcodeBinary.GETSUBTEXT(ltxtByte,lintBarLoop,1);

      IF ltxtByte = '1' THEN
        lchar := 0
      ELSE
        lchar := 255;

      poutBmpHeader.WRITE(lchar,1);
      poutBmpHeader.WRITE(lchar,1);
      poutBmpHeader.WRITE(lchar,1);
    END;

    FOR lintChainFiller := 1 TO (lintLineLoop MOD 4) DO BEGIN
      //Adding 0 bytes if needed - line end
      lchar := 0;
      poutBmpHeader.WRITE(lchar,1);
    END;
  END;
END ELSE BEGIN

  CLEAR(_bt);

  FOR lintBarLoop := 1 TO bxtBarcodeBinary.LENGTH DO BEGIN
    bxtBarcodeBinary.GETSUBTEXT(ltxtByte,lintBarLoop,1);
    IF ltxtByte = '1' THEN
      lchar := 0
    ELSE
      lchar := 255;
    FOR lintSize := 1 TO pintSize DO BEGIN
      // add pixel: black or white
      // Original
      //_bt.ADDTEXT(FORMAT(lchar));
      //_bt.ADDTEXT(FORMAT(lchar));
      //_bt.ADDTEXT(FORMAT(lchar));

      _bt.ADDTEXT(FORMAT(lchar,1));
      _bt.ADDTEXT(FORMAT(lchar,1));
      _bt.ADDTEXT(FORMAT(lchar,1));
    END
  END;

  // add 0 bytes if needed - line end

  lchar := 0;
  FOR lintChainFiller := 1 TO ((lintBarLoop* pintSize) MOD 4) DO
    // _bt.ADDTEXT(FORMAT(lchar)); Original   
    _bt.ADDTEXT(FORMAT(lchar,1));

  // write to outstream

  FOR lintLineLoop := 1 TO pintLines * pintSize DO
    _bt.WRITE(poutBmpHeader);
  // AP0001 <<
END;

crisnicolas

Hello all,

I've used this barcode creator to print Code128 barcodes.

In NAV2013 I get an image with grey backcolor, which cannot be read by the scanner.
The exact same codeunit in NAV2009R2 classic client generates the correct image (with white backcolor).

Does anyone know why this is happening in NAV2013? Anyone found a solution to this issue?

It is not only with this barcode creator, actually. I've tried some other barcode generatos that I've found here at mibuso and the same happens to all of them (the ones I have tried at least).

KTA

Hi crisnicolas,

I've used this barcode creator to print Code128 barcodes.

In NAV2013 I get an image with grey backcolor, which cannot be read by the scanner.

I have the same problem.
Did you find a way to solve this?

Thanks for your help.

crisnicolas

Not yet

mdPartnerNL

see here viewtopic.php?t=42229, last reply says set it to 160

hemantOne

Hi,

We are using this tool to generate Code 128 barcodes for jewellery tags. Client is using NAV 2009 Sp1 Classic.
We are converting barcodes to print in Picture box.

Now we are facing issue while scanning the barcodes.
The barcode on tags is very small (3cm * 1cm tag size).
We are passing pintsize - 1 and barcode contains 14 digit.

Please let us know how we can reduce font size for barcode to adjust in tag.
For barcode with 4-5 characters(alpha numeric) scanner is working.

Any help would be appreciated.

Many Thanks
Hem