Validar Inss

Question

Preciso de uma fun��o para validar matricula do INSS?...

Anivaldo · Answer

Se for o CEI, segue a func�o abaixo. Se for NIT, � utilizado a mesma fun��o de verifica��o do PIS.

Espero ter ajudao...

function Cei(aCei:String):Boolean;
var
Acei2,WDigito : String;
WDv,WSoma,wm,WDigit : Double;
i : Integer;
begin
if Len(aCei) <> 15 then
begin
Informacao(�N�mero de d�gitos do C.E.I. informado incorretamente!�);
Abort;
end;
wm:=0;
Acei2 := Copy(aCei,1,2) + Copy(aCei,4,3) + Copy(aCei,8,5) + Copy(aCei,14,2);
WDv := StrToFloat(Copy(aCei2,12,1));
WSoma := 0;
for i := 1 to 11 do
begin
Case i of
1 : wm:= 7;
2 : wm:= 4;
3 : wm:= 1;
4 : wm:= 8;
5 : wm:= 5;
6 : wm:= 2;
7 : wm:= 1;
8 : wm:= 6;
9 : wm:= 3;
10 : wm:= 7;
11 : wm:= 4;
end;
WSoma := WSoma + wm * StrToFloat(Copy(aCei2,i,1));
end;
WDigito := StrZero(WSoma,12,0);
WDigito := FloatToStr(StrToFloat(Copy(WDigito,11,1)) + StrToFloat(Copy(WDigito,12,1)));
WDigito := Copy(WDigito,Length(WDigito),1);
WDigit := 10 - StrToFloat(WDigito);
if WDigit > 9 then
WDigit := 0
else
WDigit := WDigit;
Result := (wdv = wdigit);
if Result = False then
Informacao(�N�mero do C.E.I. informado incorretamente!�);
end;

Vitor Rubio · Answer

essa fun��o n�o funcionou pra mim, o que a sua fun��o strzero faz? tentei substituir por uma fun��o minha mas n�o deu certo....

Flaviocont · Answer

varvpis:Boolean;i, wsoma, wm11, wdv, wdigito: integer;Dado: String;begindado:=Edit3.Text;if Trim(Dado) <> �� thenbeginwdv := StrToInt(copy(Dado, 11, 1));wsoma := 0;wm11 := 2;for i := 1 to 10 dobeginwsoma := wsoma + (wm11 * StrToInt(Copy(Dado, 11 -i, 1)));if wm11 < 9 thenwm11 := wm11 + 1elsewm11 := 2;end;wdigito := 11 - (wsoma mod 11);if wdigito > 9 thenwdigito := 0;if wdv = wdigito thenbeginApplication.MessageBox(�O valor informado � v�lido!�, �Aviso!�, mb_IconStop+mb_ok);vpis := True;endelsebeginApplication.MessageBox(�O valor informado n�o � v�lido!�, �Aten��o!�, mb_IconStop+mb_ok);vpis := false;end; end;Label3.Caption:= IntToStr(WDIGITO);/////IF (STRTOINT(COPY(Edit3.Text,0,3)) > 169) AND (STRTOINT(COPY(Edit3.Text,0,3)) < 201) THENBEGIN// ShowMessage(�PRIMEIRA�);ENDELSEIF (STRTOINT(COPY(Edit3.Text,0,4)) > 1021) AND (STRTOINT(COPY(Edit3.Text,0,4)) < 1131) THENBEGIN// ShowMessage(�PRIMEIRA�); END ELSE IF (STRTOINT(COPY(Edit3.Text,0,3)) > 119) AND (STRTOINT(COPY(Edit3.Text,0,3)) < 170) THENBEGIN// ShowMessage(�PRIMEIRA�); END ELSEIF (STRTOINT(COPY(Edit3.Text,0,3)) > 99) AND (STRTOINT(COPY(Edit3.Text,0,3)) < 102) THENBEGIN// ShowMessage(�PRIMEIRA�); END ELSE BEGIN ShowMessage(�ESSE NAO E UM NUMERO DE PIS/PASEP VALIDO eles devem iniciar com 100, 101 ou 170 a 199 para pasep� + #13 + � e de 1022 a 1130 e 120 a 169 e atualmente 200 para pis�); END;{5) Observa��esa) Os n�meros iniciados por 100,101 ou 170 a 199 se referem ac�d...

Vitor Rubio · Answer

isto � pra validar PIS, e pra validar CEI?...

Flaviocont · Answer

re � sim serve p os 2...

Vitor Rubio · Answer

vou testar, muito obrigado!...

Vitor Rubio · Answer

N�o funcionou :(O n�mero de CEI que o cliente me passou � 500149753400Ser� que ele me passou errado? ou isso nem � CEI?Valew!...

Vitor Rubio · Answer

Na verdade, ele disse que o n�mero informado � valido, mas que n�o � um pis/pasep v�lido.

s� que se eu mudar o �ltimo d�gito pra qualquer valor, ou aumentar o n�mero de d�gitos, continua sendo v�lido...

Vitor Rubio · Answer

O CEI tem 12 d�gitos, porque o d�gito verificador � o 11� e n�o importa o que voc� coloque no d�gito 12, ele nem entra nos c�lculos?grato!...

F�rum Validar Inss #288524