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

[Manoel Valen�a]

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 ----- From: Alexandre Augusto Teixeira To: Lista SqlWindows 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