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
