[sqlwin] =?iso-8859-1?Q?Re:_=5Bsqlwin=5D_Re:_=5Bsqlwin=5D_VALIDA=C7=C3O_PIS/PASE_E?==?iso-8859-1?Q?_NIT?=

Mon, 27 Jan 2003 12:36:14 -0800

Manoel,
 
Muito obrigado pela f�rmula.
 
Alexandre.
----- Original Message -----
Sent: Monday, January 27, 2003 5:17 PM
Subject: [sqlwin] Re: [sqlwin] VALIDA��O PIS/PASE E NIT

Caro Alexandre , a� vai a rotina para c�lculo Valida��o do PIS.  Caso tenha alguma d�vida, me contate pela lista.
Um abra�o
 
 
Manoel Valen�a
Analista de Sistemas
DETRAN-PE
 
Function : vpis
    Description
    Returns
        Boolean:
    Parameters:
        String: sDado
    Static Variables
    Local Variables
        Number: i
        Number: nSoma
        Number: nm11
        Number:ndv
        Number: nDigito
        Boolean: bRetorno
    Actions
        If SalStrTrimX( sDado ) != ''
            Set ndv = SalStrToNumber( SalStrMidX( sDado,10,1) )
            Set nSoma = 0
            Set nm11 = 2
            Set i = 0
            While i <= 9
                Set nSoma = nSoma + ( nm11 * SalStrToNumber(SalStrMidX(sDado,10-i,1) ) )
                If nm11 < 8
                    Set nm11 = nm11 + 1
                Else
                    Set nm11 = 2
                Set i = i + 1
            Set nDigito = 11 - ( SalNumberMod( nSoma , 11 ) )
            If nDigito > 9
                Set nDigito = 0
            If ndv = nDigito
                Set bReturno = TRUE
            Else
                Set bReturno = FALSE
        Else
              bReturn = FALSE
        Return bReturno
 
                           
----- Original Message -----
Sent: Monday, January 27, 2003 3:08 PM
Subject: [sqlwin] VALIDA��O PIS/PASE E NIT

E-mail Premium BOL
Antiv�rus, anti-spam e at� 100 MB de espa�o. Assine j�!
http://email.bol.com.br
Amigos,
 
Gostaria de saber se algu�m sabe a f�rmula para validar os n�meros de PIS/PASEP e NIT.
 
Agrade�o desde j� a colabora��o.
 
Obrigado,
 
Alexandre Augusto Teixeira
Miu Assessoria de Projetos
Tel.: (11) 3284-1472

Responder a