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.
