torturedmind
Programmer
Hi All,
It's been a while since my last visit here.
Anyways, I have this:
In my label, which I call immediately after the code above, I have an image control with control source "loFbc.BarcodeImage(ALLTRIM(TRANSFORM(TSample.Out_Qty, "99,999")) + " EA")". The label also have a QR code that works flawlessly.
The problem is in the generated 128 symbology. There is no problem when the TSample.Out_Qty is 9,999 or below. But when the said field is beyond that, there is where the problem show. If, for example, TSample.Out_Qty is let's say 41,875, the scanned value will always return 41,8750EA. I tested any other value and it always converts the space between the number and the "EA" string to zero (0) when the value is 10,000 and above. Am I doing something wrong? any insight/help is very much appreciated.
kilroy
philippines
"Once a king, always a king. But being a knight is more than enough."
It's been a while since my last visit here.
Anyways, I have this:
Code:
SET PROCEDURE TO FoxBarCode ADDITIVE
SET PROCEDURE TO FoxBarcodeQR ADDITIVE
SET PROCEDURE TO gpImage2 ADDITIVE
PRIVATE poFbc, loFbc
poFbc = CREATEOBJECT("FoxBarcodeQR")
loFbc = CREATEOBJECT("FoxBarcode")
WITH loFbc
.cSet128 = "*" && * - Auto, A - Set A, B- Set B, C - Set C
.lShowHumanReadableText = .F.
.nBarcodeType = 110 && Code 128
.nImageHeight = 100
.nAlignText = 2 && 0 - Left-aligned, 1 - Center, 2 - Right-aligned
ENDWITH
In my label, which I call immediately after the code above, I have an image control with control source "loFbc.BarcodeImage(ALLTRIM(TRANSFORM(TSample.Out_Qty, "99,999")) + " EA")". The label also have a QR code that works flawlessly.
The problem is in the generated 128 symbology. There is no problem when the TSample.Out_Qty is 9,999 or below. But when the said field is beyond that, there is where the problem show. If, for example, TSample.Out_Qty is let's say 41,875, the scanned value will always return 41,8750EA. I tested any other value and it always converts the space between the number and the "EA" string to zero (0) when the value is 10,000 and above. Am I doing something wrong? any insight/help is very much appreciated.
kilroy
philippines
"Once a king, always a king. But being a knight is more than enough."