Jo�o, Apesar dos arquivos serem aparentemente id�nticos, n�o posso assegurar com certeza que � a mesma, apenas testando. Aqui no escrit�rio n�o tenho como testar, pois estou sem a leitora. De qualquer forma, estou mandando em anexo a fonte que eu uso e que j� funciona com certeza. Veja a� se serve.
Sds, Henrique > Henrique, > > Esta fonte que voce se refere e esta em anexo. > > Jo�o B. Sesconetto. > > -----Mensagem original----- > De: Henrique Salles de Carvalho [mailto:[EMAIL PROTECTED] > Enviada em: s�bado, 1 de maio de 2004 13:02 > Para: [EMAIL PROTECTED] > Assunto: Re: [sqlwin] C�digo de Barras > > > Jo�o, > > Voc� tem que utilizar a seguinte fun��o pra formatar o c�dogo antes de > colocar o field na fonte: > > !!CB!! 279 > Function: fCode25 > Description: Esta Fonte � freeware. Para instal�-la, deve-se copiar o > arquivo CODE_2_5.TTF > no diret�rio Fonts do windows > Returns > String: > Parameters > String: psCodigo > Static Variables > Local variables > Number: nTamanho > String: sTmp > Number: nTmp > Number: nii > Number: njj > String: sCod > Actions > Set nTamanho = SalStrLength( psCodigo ) > If SalNumberMod( nTamanho, 2 ) != 0 > If nTamanho = 1 > Set psCodigo = '000'||psCodigo > Else > Set psCodigo = '0'||psCodigo > Else If nTamanho = 2 > Set psCodigo = '00'||psCodigo > ! > Set sTmp = '' > Set nTmp = 0 > Set nii = 0 > Set njj = SalStrLength( psCodigo ) > Set sCod = '' > ! > While nii < njj > ! Separando os d�gitos 2 a 2 > Set sTmp = SalStrMidX( psCodigo, nii, 2 ) > Set nii = nii + 2 > Set nTmp = SalStrToNumber( sTmp ) > ! > If (nTmp <= 49) > Set nTmp = nTmp + 48 > Else > Set nTmp = nTmp + 142 > ! > Set sCod = sCod || SalNumberToChar ( nTmp ) > ! > Set sCod = '(' || sCod || ')' > ! > Return sCod > > > []'s > > Henrique > > > > >> Pessoal do Centura, >> Estou necessitando com muita urg�ncia, ajustar o c�digo de barras para >> boleto banc�rio I25 "2 de 5 Intercalado", caso alguem possa me ajudar eu >> ficarei muito grato. >> O que j� fiz: >> 1 - Consegui a fonte do Codigo >> 2 - Instalei a fonte devidamente como deve ser feito >> 3 - Coloquei a fonte tambem onde esta o execut�vel (se fosse necess�rio. >> imagino que n�o) >> O que n�o esta dando certo: >> 1 - N�o consigo ajustar o comprimento e a largura conforme recomenda o >> Febraban. >> 103mm de comp. e 13mm de altura. >> Questionamentos para utilizar esta fonte: >> 1 - Apenas coloco o data field no report builder e seleciono a fonte ? >> 2 - Tem alguma dll que dever ser utilizada para impress�o deste tipo de >> fonte ? >> Qualquer ajuda ser� bem vinda, e aos que j� contribuir�o muito obrigado. >> Jo�o B. Sesconetto. >> >> >> =============================================> Lista de Centura >> SQLWindows >> Administrador : [EMAIL PROTECTED] >> [ http://www.centuraexplorer.com ] >> Para sair desta lista mande mensagem para: >> [EMAIL PROTECTED] sem nada no Subject e >> com o comando a seguir no corpo da msg: >> "unsubscribe sqlwin" (sem as aspas) >> =============================================> > > =============================================Lista de Centura SQLWindows > Administrador : [EMAIL PROTECTED] > [ http://www.centuraexplorer.com ] > Para sair desta lista mande mensagem para: > [EMAIL PROTECTED] sem nada no Subject e > com o comando a seguir no corpo da msg: > "unsubscribe sqlwin" (sem as aspas) > =============================================
Code_2_5.ttf
Description: Binary data
