Dígito verificador do CRM
Alguem tem a rotina que calcula o dv do CRM (conselho regional de medicina) ?
Motta
Curtidas 0
Respostas
Aroldo Zanela
03/05/2004
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?
GOSTEI 0
Motta
03/05/2004
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.
GOSTEI 0
Chico Gois
03/05/2004
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+
GOSTEI 0