[Access violation] - Lista de enumeration não preenchidos

[Jeihcio Francis]

Um problema que eu estava tendo era "Access violation" depois que eu tentava enviar o eSocial e o REINF para o servidor. O motivo disto era que eu pegava os dados do meu sistema e colocava direto no objeto de exportação do ACBr sem uma validação prévia das propriedades que eram de algum tipo de enumeration. Internamente o componente da ACBr gera erro quando algum enumeration contém o valor de "bound out", e não gera o XML. Pensando nisso eu fiz uma classe que retorna uma lista de enumeration que não contém um valor válido.

 

Coloquei no GitHub e coloquei explicações extras:

https://github.com/jeihcio/Validar-Enumeration-ACBrReinf

 

obs: Essa classe tem que ser colocada depois que já deu o erro na hora de enviar.

[Jeihcio Francis]

EXEMPLO

 

var
  validaDados: TValidarEventosController;
  todosErros: String;
  nTabela: Integer;
  
Begin 
  Try
    ACBrReinf1.Enviar();
  Except
    On E: Exception Do
      Begin
         If (Pos(UpperCase('Access violation'), UpperCase(E.Message)) > 0) Then
            Begin
                validaDados := TValidarEventosController.Create(ACBrReinf1);
                Try
                   nTabela := 1000;
                   validaDados.fValidarDadosExportacao(nTabela, todosErros);
                   If (Trim(todosErros) <> '') Then
                      ShowMessage(todosErros);
                Finally
                   validaDados.Destroy;
                End;
            End; 
      End;
  End;
End;