Barcode generator v2

Savatage · **Posted:** Fri Jan 27, 2006 12:25 am

Great Tool! Finally got a chance to give a whirl works great.

KAD_ICS · **Posted:** Fri Feb 10, 2006 9:18 pm

Thank you for posting the download.

I am trying to use the tool to print a Delivery Point Bar Code (which I understand relates to the PostNet option.)

I have formulated the DPBC and the Check Digit, but when I print the report to test, instead of the bar code, I see SIZE.

An example Bar Code Value is 60130250816 and the Check Digit is 8.

This is the code I am using:

ok:= SHELL(STRSUBSTNO('%1%2%3%4%5%6',
'c:\temp\Navibar.exe',
' ' + "DPBC Code" + FORMAT("DPBC Check Digit") +'{',
'18'+'{',
'120'+'{',
'60'+'{',
'c:\temp\bild.bmp'));
Picture.IMPORT('c:\temp\bild.bmp');

I have no problem generating the ean-nr bar code in the test report supplied with the download.

I'd appreciate any advice anyone can offer. Thanks in advance,

Kristine
](*,)

Savatage · **Posted:** Fri Feb 10, 2006 10:19 pm

Quote:

The Postal Service developed the POSTNET (POSTal Numeric Encoding Technique) barcode to encode zip code information on letter mail for rapid and reliable sorting by barcode sorters (BCSs).

The POSTNET barcode can represent a five-digit ZIP Code (32 bars), a nine-digit ZIP+4 code (52 bars), or an eleven-digit delivery point code (62 bars).

Your number is larger that 11 digits - maybe that's your SIZE problem.

Maybe PostNet is the incorrect option :-k

KAD_ICS · **Posted:** Fri Feb 10, 2006 10:52 pm

Thanks for your reply, but I do believe postnet is the right option. I am trying to use a 11 digit delivery point code (tried both as a field variable, or a literal) And, I get the same error whether I include the check digit or not.

I'm afraid time contstraints are going to force me to purchase a font. But, I'm still interested in any response that anyone might have.

Thanks.

K.

Savatage · **Posted:** Fri Feb 10, 2006 11:10 pm

KAD_ICS wrote:

'18'+'{', <----Barcode Type
'120'+'{', <----Width in pixels
'60'+'{', <-----Height in pixels

I did some testing and it turns out 120 is just too small for the width!

I changed mine to 400 and it worked fine.

Play around with that # until you find what you need.

Did someone yell "Sweeeeeeet!"? :D

KAD_ICS · **Posted:** Fri Feb 10, 2006 11:12 pm

Bingo! Thank you kindly.

Mauddib · **Posted:** Tue Aug 15, 2006 6:06 pm

I'm not getting any errors from this but I am also not getting a BMP file generated. There is no indication that the program didnt run, it just simply doesnt output a BMP. If I use the picture.import line it errors saying file not found.

Savatage · **Posted:** Tue Aug 15, 2006 11:51 pm

Infact - it doesn't delete until next time you run the report.
unless you added a FILE.ERASE('c:\barcode\temp.bmp'); line
It should still be there is it ever was created.
see the destination BMP file location

example below..

Code: Select all

OnAfterGetRecord()
IF Item."Item UPC/EAN Number" <> '' THEN BEGIN
CreateBarcode:= SHELL(STRSUBSTNO('%1%2%3%4%5%6',
    'i:\navision attain\Navibar.exe',       // Program location
    ' ' + Item."Item UPC/EAN Number"+'{',   // code to generate from Nav
    '05'+'{',                               // barcode type "code" you want
    '120'+'{',                             // width in pixel
    '50'+'{',                               // high in pixel
    'c:\temp\barcode.bmp'));      // destination for the .bmp-file

Picture.IMPORT('c:\temp\barcode.bmp');
END;

In the report section - Add a Picture Box w/sourceexpr; Picture

I have globals
CreateBarcode -> Integer
Dataitem
Item

Note: possible Barcode Types Codes
00-ISBN
01-EAN 13
02-EAN 8
03-EAN 5
04-EAN 2
05-UPC A <-------------the one I used in the above example
06-Code 39
07-Code 25 interleaved
08-CodeBar
09-Code 25
10-Code 39 Extended
11-Code 128 A
12-Code 128 B
13-Code 128 C
14-Code 128
15-EAN 128
16-EAN 99
17-UPC E
18-PostNet
19-Royal Mail
20-MSI
21-Code 93
22-Code 93 Extended
23-PZN
99-None
-----------------------
I needed to create a sheet of UPC labels depending on an Item# I selected (may not be crystal clear but you get the idea)
**edit link dead**
Updated the Var's to be more readable****

carmen1234 · **Posted:** Wed Aug 16, 2006 5:36 pm

Hello!

Do I need to purchase a license for this executable? I have to use it for a client and it would be a real problem if, at some point, I would get a license issue.

Can anyone answer me? I need an answer a.s.a.p.

Thank you

Savatage · **Posted:** Wed Aug 16, 2006 5:47 pm

it's a free download

craig.s · **Posted:** Wed Sep 06, 2006 7:49 am

Ok. Clearly I am doing something stupid here.

When I run this from the command line it works great!

When I try and run it from Navision (v4.02 on XP) I get

Quote:

You are about to run the following executable for the first time:

Executable: C:\Navision\Tools\Navibar\Navibar.exe,123456789098{01{120{60{C:\barcode.bmp
Parameter:

Please be aware that you may be running an executable that could potentially harm your computer.

Do you trust this executable and its parameter?

Now, I read what was written earlier by philippegirod about having to split the parameters into two arguments and have tried to do this but as you can see from above it is not working - the parameters and executable are all run together on one line and the parameter line is blank.

This is my code

Code: Select all

IF "Cross-Reference Type" = "Item Cross Reference"."Cross-Reference Type"::"Bar Code" THEN BEGIN
  IF "Cross-Reference No." <> '' THEN BEGIN
    lIntOk := SHELL(STRSUBSTNO('%1%2%3%4%5%6',
         '''C:\Downloads\navibar2\Navibar.exe''',          // Programm
         ',''' + "Cross-Reference No." + '{',              // code to generate
         '01' + '{',                                       // EAN13
         FORMAT(gIntWidth) + '{',                          // width in pixel
         FORMAT(gIntHeight) + '{',                         // high in pixel
         'c:\barcode.bmp'''));                             // destination for the .bmp-file

    "Bar Code".IMPORT('c:\barcode.bmp');

  END;
END;

Can anyone please help me find what I am doing wrong?

Thanks
Craig ](*,)

craig.s · **Posted:** Wed Sep 06, 2006 9:37 am

OK. I think I have got it working - only having read back through this post a dozen times :lol:

Here is my code now...(a report based on a single DataItem - Item Cross Reference)

Code: Select all

Globals
Name   DataType   Subtype   Length
gTxtPath   Text      250
gIntWidth   Integer      
gIntHeight   Integer      

Code: Select all

Item Cross Reference - OnAfterGetRecord()
==========================
Name   DataType   Subtype   Length
lAutWSHOM   Automation   'Windows Script Host Object Model'.WshShell   
lTxtParam   Text      1024
==========================
lTxtParam := 'C:\Downloads\navibar2\Navibar.exe ' +             // Program
             "Cross-Reference No." +'{' +                       // code to generate
             '01'+'{' +                                         // barcodetype
             FORMAT(gIntWidth) +'{' +                           // width in pixel
             FORMAT(gIntHeight) +'{' +                          // high in pixel
             gTxtPath + '\' + "Cross-Reference No." + '.bmp';              // destination for the .bmp-file

CREATE(lAutWSHOM);
lAutWSHOM.Run(lTxtParam);

CheckFileCreated;

CLEAR(lAutWSHOM);

"Bar Code".IMPORT(gTxtPath + '\' + "Cross-Reference No." + '.bmp');
FILE.ERASE(gTxtPath + '\' + "Cross-Reference No." + '.bmp');

MODIFY;

Code: Select all

CheckFileCreated()
==========================
Name   DataType   Subtype   Length
lBolExit   Boolean      
lRecFile   Record   File   
lIntCount   Integer      
==========================
lBolExit := FALSE;
lIntCount := 0;

REPEAT
  lIntCount += 1;
  lRecFile.RESET;
  lRecFile.SETRANGE(Path,'c:\barcode');
  lRecFile.SETRANGE("Is a file",TRUE);
  lRecFile.SETRANGE(Name,"Item Cross Reference"."Cross-Reference No." + '.bmp');
  IF lRecFile.FIND('-') THEN
    lBolExit := TRUE
  ELSE BEGIN 
    lRecFile.SETRANGE(Path,'c:\');
    IF lRecFile.FIND('-') THEN;
      SLEEP(100); 
  END; 
UNTIL lBolExit OR (lIntCount > 1000);

Thanks all for your previous posts and thanks Ralph for putting this together in the fist place - Long live mibuso!!

Navsyst2 · **Posted:** Fri Feb 02, 2007 1:38 pm

Hi,
is it possible to print text as barcode with this barcode generator? For example 'test 123'.

TomK · **Posted:** Thu Jul 12, 2007 9:30 am

Is it possible that the Barcode Generator doesn't work on Vista?

wq · **Posted:** Tue Oct 30, 2007 11:50 am

Dear all,

I am quite new to this forum, just joined in 2 hours ago. Currently I need to print the barcode of "Invoice No." on my customized posted Sales Invoice document. My question is more or less the same as the one that was posted by "Navsyst2" dated Feb 02, 2007 "Is it possible to print text as barcode...?"

I understood that barcode generator basically creates the barcode in "bmp" file format and attaches it to "BLOB" field (in this example, the author uses "Picture" field in Item table).

I have reviewed some other barcode objects that were uploaded by some members here - i.e. "Barcode 128 with fonts + sample", EAN13 Barcode Generator (2 other topics). Basically they are able to produce printed barcodes. The barcode for "Invoice No." was nicely printed on my posted Invoice document. However, my problem is that my scanner does not recognize these printed barcodes. When I tried to scan it, nothing was written or produced on my text editors (Notepad, Word, Excel, etc.). For your information, I use cheap "handheld barcode scanner" that is normally used in small retail shop.

Is there anybody experienced this and how to solve it? If I use "proper" barcode printer and print it, my "cheap" scanner is able to recognize this barcode. Do we need to do some adjustments on the barcode scanner itself?

Thanks if anybody could help and give some comments.

mibuso.com

Barcode generator v2

Who is online