Tengo el siguiente codigo que lo he reconstruido de ejemplos en este foro.
Los codigos definidos solo por numeros los identifica bien ( en la parte de abajo del code-bar), no asi los que contienen caracteres, ej: "SERX005", de los cuales identifica bien unicamente los numericos. Los caracteres los presenta como numeros; en este caso SERX005 lo transforma a 3568005.
Cual sería la forma de que los presente bien?
Este es el codigo:
- Code: Select all Expand view
- Function VerCodeBar()
local oFont1, oFont2, oFont3, cCode := "SERX005", cCode2:= StrZero(123,4)
local oDlg, oSay1, oSay2, oSay3, oSay4, oSay5, oSay6
AddFontResource( ".\EAN-13.ttf" ) //cuando font no esta instalada en windows
DEFINE FONT oFont1 NAME "Arial" SIZE 00, -36
DEFINE FONT oFont2 NAME "EAN-13" SIZE 00, -36
DEFINE FONT oFont3 NAME "EAN-13" SIZE 20, -36
DEFINE DIALOG oDlg FROM 0, 0 TO 630, 660 TITLE "Test" PIXEL
@ 020, 100 SAY oSay1 PROMPT cCode PIXEL FONT oFont1 SIZE 100, 40
@ 050, 100 SAY oSay2 PROMPT cCode PIXEL FONT oFont2 SIZE 200, 60
@ 090, 100 SAY oSay3 PROMPT cCode PIXEL FONT oFont3 SIZE 200, 60
@ 160, 100 SAY oSay4 PROMPT cCode2 PIXEL FONT oFont1 SIZE 100, 40
@ 190, 100 SAY oSay5 PROMPT cCode2 PIXEL FONT oFont2 SIZE 200, 60
@ 230, 100 SAY oSay6 PROMPT cCode2 PIXEL FONT oFont3 SIZE 200, 60
ACTIVATE DIALOG oDlg CENTERED
oFont1:End()
oFont2:End()
oFont3:End()
RemoveFontResource( ".\EAN-13.ttf" ) //cuando font no esta instalada en windows
Return nil
Agradezco cualquier comentario.
