MARCO ANTONIO BIDÓIA
-
Total de ítens
1 -
Registro em
-
Última visita
MARCO ANTONIO BIDÓIA's Achievements
-
Validar Renavam No Acbrvalidador
MARCO ANTONIO BIDÓIA replied to RicardoVoigt's tópico in Dúvidas Gerais sobre o ACBr
procedure TfrmTestes.btn8Click(Sender: TObject); var Verificador: Integer; Valor: integer; Num: string; begin Num := edtRenavam.Text; Verificador := StrToInt(num[11]); Valor := ((StrToIntDef(num[1],0) * 3 + StrToIntDef(num[2],0) * 2 + StrToIntDef(num[3],0) * 9 + StrToIntDef(num[4],0) * 8 + StrToIntDef(num[5],0) * 7 + StrToIntDef(num[6],0) * 6 + StrToIntDef(num[7],0) * 5 + StrToIntDef(num[8],0) * 4 + StrToIntDef(num[9],0) * 3 + StrToIntDef(num[10],0) * 2) * 10) mod 11; if Valor = 10 then Valor := 0; if Valor = Verificador then showmessage ('Renavam nº '+ edtRenavam.Text + ' Valido!!!') else showmessage ('Renavam nº '+ edtRenavam.Text + ' invalido!!!'); end;