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)
==============================================
