Eu uso esta fonte, mas para imprimir o código
é necessário transformar o número com esta função..
!!CB!! 278
Function: fGetCodigoBarras
Description:
Returns
String:
Parameters
String:
p_sCodigo
Static
Variables
Local variables
Number: nPosicao
Number: nTamanho
Number: nDigitos
String:
sCodigoBarras
Actions
Set
sCodigoBarras = ''
Set
nTamanho = SalStrLength( p_sCodigo )
Set
nPosicao = 0
!
While
nPosicao <= ( nTamanho - 2 )
Set
nDigitos = SalStrToNumber( SalStrMidX( p_sCodigo, nPosicao, 2 ) )
Set nPosicao = nPosicao + 2
!
If nDigitos
<= 49
Set
nDigitos = nDigitos + 48
Else
Set
nDigitos = nDigitos + 142
!
Set sCodigoBarras
= sCodigoBarras || SalNumberToChar( nDigitos )
!
Return '(' || sCodigoBarras
|| ')'
-----Mensagem original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Em nome
de Anderson Sakamoto
Enviada em: sexta-feira, 6 de
janeiro de 2006 13:44
Para: sqlwin@virtualand.net
Assunto: Re: [sqlwin] Codigo de
barras com a DLL u2lbcp
infelizmente nenhuma fonte que eu baixei fala isso, inclusive uma
delas eu baixei aqui no forum mesmo...
----- Original Message -----
Sent: Friday,
January 06, 2006 10:24 AM
Subject: Re:
[sqlwin] Codigo de barras com a DLL u2lbcp
Anderson, não é necessário usar essa
dll, pois existem várias fontes ttf que já fazem isso, como vc mesmo já tentou
fazer. Normalmente, o uso dessas fontes requer que vc transcreva o número a ser
codificado de uma forma adequada, ou seja, vc não aplicaria diretamente a fonte
ao número em si, mas à sua forma digamos "traduzida". Essa
informação vc deve achar no manual da fonte ttf que vc pegou.
----- Original Message
-----
Sent: Friday,
January 06, 2006 9:36 AM
Subject: [sqlwin]
Codigo de barras com a DLL u2lbcp
Eu achei na internet uma dll chamada 'u2lbcp.dll' que junto com a
fonte 'Cia_itft.ttf' dizia imprimir códigos de barras intercalado 2 de 5. Até
achei um exemplo de como usá-la, mas o exemplo era no Crystal Reports usando a
seguinte função:
BarcodeINTERLEAVED2OF5 ("ITF-0.B", sCodBarras )
tentei colocar a dll como External Function no Centura e declarei
essa função com um Returns String e 2 Parametros String.
Depois no meu código eu chamei a função assim:
Set sBarCode = BarcodeINTERLEAVED2OF5
("ITF-0.B", sCodBarras )
As vezes roda normalmente e não dá erro, mas também não retorna
nada, mas as vezes ele fecha até o centura.Gerei um executavel e coloquei um MessageBox
pra retornar o valor de sBarCode e o centura retorna que o valor da variavel
pode estar corrompido.Tentei mudar o retorno pra Long String, mas não resolveu.
Alguém daqui conhece essa dll?
Caso não, alguém sabe algum outro jeito de eu imprimir Código de
Barras intercalado 2 de 5 num QRP? tentei baixar umas fontes, mas nenhuma batia
na hora de conferir o código no leitor.
Desculpem o email enorme e obrigado.
Code_2_5.ttf