- Correção de quantidade de dígitos da CNH

Author: mobius1qwe

format/FMXFormat.pas

@@ -417,7 +417,7 @@ function TFormatHelper.Formatar(Formato: TFormato; Texto: string;
       Texto := Mask('9.999', SomenteNumero(Texto));
 
     CNH:
-      Texto := Mask('#########', AlfaNumerico(Texto));
+      Texto := Mask('###########', AlfaNumerico(Texto));
 
     CNPJ:
       Texto := Mask('99.999.999/9999-99', SomenteNumero(Texto));

format/VCLFormat.pas

@@ -397,7 +397,7 @@ function TFormatHelper.Formatar(Formato: TFormato; Texto: string;
       Texto := Mask('9.999', SomenteNumero(Texto));
 
     CNH:
-      Texto := Mask('#########', AlfaNumerico(Texto));
+      Texto := Mask('###########', AlfaNumerico(Texto));
 
     CNPJ:
       Texto := Mask('99.999.999/9999-99', SomenteNumero(Texto));