Página 1 de 1
Validação de PIS
Enviado: 10 Ago 2007 01:39
por Maligno
PIS = Programa de Integração Nacional
Código: Selecionar todos
//****************************************************************************
function ValidPIS(cPIS)
return Len(cPIS:=StrTran(cPIS," "))=11 .and. Modulo11(cPIS,2,9)==Right(cPIS,1)
Re: Validação de PIS
Enviado: 27 Set 2010 15:01
por Darth GTB
Maligno, que function é essa MODULO11(,,)? o que ela faz? imagino que seja uma função que criaste para definir o módulo de um valor, mas tem 3 parâmetros, então nao entendi mais nada...
se puderes me ajudar, agradeço. Estou fazendo em FoxPro um validador PIS.
Obrigado
Re: Validação de PIS
Enviado: 27 Set 2010 15:07
por Maligno
Essa função estava separada, em outra
thread. Segue:
Código: Selecionar todos
//************************************************************
// Módulo 11, com pesos nPeso1 (inicial) a nPeso2 (final), que
// serão utilizados no multiplicador dos dígitos, apanhados da
// direita para a esquerda. Tal multiplicador será reciclado e
// voltará para nPeso1, quando o limite (nPeso2) for atingido.
//************************************************************
function Modulo11(cStr,nPeso1,nPeso2)
local nTot := 0
local nMul := nPeso1
local i
*
for i := Len(cStr) to 1 step -1
nTot += Val(SubStr(cStr,i,1)) * nMul
nMul := if(nMul=nPeso2, nPeso1, nMul+1)
next
return if(nTot%11 < 2, "0", Str(11-(nTot%11),1))
Re: Validação de PIS
Enviado: 27 Set 2010 16:51
por lugab
Bravo, Maligno, muito legal....
gaqbriel