Daniel Anzolin

Posso fazer isso sem problemas, apenas levei em consideração uma opção que acredito ser muito útil para quem utiliza e somente efetua a validação dentro do sistema para fazer determinada situação e não necessitar da comparação via string. Sendo assim com o código fica mais otimizado e limpo.

O método que você utiliza não foi modificado. Apenas foi adicionado um novo método para que não seja necessário fazer a comparação via string. Só é necessário saber se é valido ou não. A function ValidarDocumento que hoje é utilizada não foi modificada.

Não testei no Delphi 7. Não me atentei a esse caso. Estou enviando em anexo a unit com a function atualizada e funcional. Obrigado pela atenção. Function DocumentoValido(const TipoDocto : TACBrValTipoDocto; const Documento : String): Boolean; begin Result := ValidarDocumento(TipoDocto, Documento) = ''; end; ACBrValidador.pas

Function DocumentoValido(const TipoDocto : TACBrValTipoDocto; const Documento : String): Boolean; begin Result := ValidarDocumento(TipoDocto, Documento).IsEmpty; end; Foi adicionado esse método para ter um retorno booleano da validação. Com isso, é possível validar documentos de forma mais direta e prática.

Bom dia, Ao utilizar o componente ACBrValidador, percebi que não há uma função que retorne diretamente um valor booleano indicando a validade de um documento. Por isso, implementei um método adicional que encapsula a validação e retorna True ou False conforme o resultado, em vez de uma String. Com isso, é possível validar documentos de forma mais direta e prática utilizando DocumentoValido(...). ACBrValidador.pas

@Giovani Mazuchelli Del Col Trocando para "Id" deu certo para esse caso, vou fazer testes com envios e outros tipos de registros, assim que conclui os testes lhe informo se deu certo. Att.,

@Giovani Mazuchelli Del Col Pois é, pensei em mudar, lhe questionei pois havia passado um bom tempo dessa situação. Vou seguir o conselho e alterar manualmente a informação, pois realmente ele está pegando a informação errada. Obrigado pelo retorno. Att.,

Boa tarde, Chegou a essa conclusão ? Estou com minha situação onde está atribuindo o id da TEvtTotal. Att.,