Re: [sqlwin] Re:_[sqlwin]_VALIDA��O_PIS/PASE_E_NIT

Tue, 28 Jan 2003 04:18:41 -0800

Manoel, bom dia

Estou testando a rotina de validar o pis que voce mandou para o Alexandre s� que o que eu fiz s� esta me retornando false

Estou colando a minha rotina ser� que voce poderia dar uma olhada o que estou fazendo de errado?

Grato pela aten��o

Ricardo G. Reis

 Manoel_Valen�a <[EMAIL PROTECTED]> wrote:

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


Busca Yahoo!
O servi�o de busca mais completo da Internet. O que voc� pensar o Yahoo! encontra.

Responder a