Fórum Dígito verificador do CRM #229631
03/05/2004
0
Alguem tem a rotina que calcula o dv do CRM (conselho regional de medicina) ?
Motta
Curtir tópico
+ 0
Responder
Posts
03/05/2004
Aroldo Zanela
Colega,
Fiz algumas pesquisa na Web e não encontrei nada. Você tentou junto ao mesmo de sua região?
Fiz algumas pesquisa na Web e não encontrei nada. Você tentou junto ao mesmo de sua região?
Responder
Gostei + 0
04/05/2004
Motta
Um colega da equipe ficou de tentar lá.
O pior é que acho que cada UF tem um cálculo diferente...
De qq forma grato.
O pior é que acho que cada UF tem um cálculo diferente...
De qq forma grato.
Responder
Gostei + 0
06/05/2004
Chico Gois
Esta função calcula o digito verificador.
Funcionou com Pis/Pasep, conta corrente, agência bancária.
Talvez fucione com o CRM.
function DV11(Matr : string): string;
var
X, Cont, Soma, DV, NMatr, nTaman : integer;
begin
Cont := 9;
Soma := 0;
nTaman:=length(matr);
For X := nTaman downto 1 do
begin
NMatr := StrToInt(Copy(Matr,X,1));
Soma := Soma + (NMatr * Cont);
dec(Cont);
if cont=1 then
Cont := 9;
end;
DV := Soma mod 11;
if DV > 9 then DV := 11 - DV;
Result := IntToStr(DV);
end;
T+
Funcionou com Pis/Pasep, conta corrente, agência bancária.
Talvez fucione com o CRM.
function DV11(Matr : string): string;
var
X, Cont, Soma, DV, NMatr, nTaman : integer;
begin
Cont := 9;
Soma := 0;
nTaman:=length(matr);
For X := nTaman downto 1 do
begin
NMatr := StrToInt(Copy(Matr,X,1));
Soma := Soma + (NMatr * Cont);
dec(Cont);
if cont=1 then
Cont := 9;
end;
DV := Soma mod 11;
if DV > 9 then DV := 11 - DV;
Result := IntToStr(DV);
end;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)