[sqlwin] =?iso-8859-1?Q?Re:_=5Bsqlwin=5D_C=F3digo_de_barra?=

Thu, 10 Jul 2003 05:49:05 -0700

Miriam,
 
Utilize a fun��o e a fonte que estou mandando em anexo.
Eu j� utilizo a muito tempo este recurso  e funciona perfeitamente,
com qualquer tipo de leitora de c�digo de barras ou impressora.
� s� vc passar o c�digo num�rico como par�metro para a fun��o,
que ela retorna o c�digo formatado para ser impresso na fonte
que voc� quer.
Atenciosamente,
 

Henrique Carvalho
AHATec Consultoria Ltda
[EMAIL PROTECTED]
http://www.ahatec.com.br
 
 
 
 
 
----- Original Message -----
From: Mirian
Sent: Wednesday, July 09, 2003 3:40 PM
Subject: [sqlwin] C�digo de barra

 
Pessoal,
 
Estamos precisando de uma solu��o que gere c�digo de barras, padrao 2 intercalado 5, visto que as m�quinas padr�o que geram os laudos em nosso hospital, leem neste padr�o. Qualquer tipo de sugest�o � bem-vinda, pois sendo um hospital exclusivamente p�blico, nos deparamos com recursos limitados aquisi��o de solu��es prontas � dif�cil! Obrigada.
 
Mirian

Attachment: Code_2_5.ttf
Description: Binary data

!!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

Responder a