LoadFromFile sempre retorna true

[russocorp]

Boa tarde.

Estou modificando uma rotina de importação do xml dos fornecedores que tenho no sistema, que faz a geração do pedido de entrada e me deparei com um erro incomum. Minha cliente tentou carregar erroneamente um arquivo de CTE onde era esperado um arquivo de NFe.

Pois bem, verificando aqui os fontes para subir a mensagem de erro para o meu cliente, vi que no TNotasFiscais.LoadFromFile dentro da unit ACBrNFeNotasFiscais o retorno da função sempre é true.

No entanto, dentro do LoadFromFile é feito a chamada para o LoadFromString e esse, dentro dele faz o tratamento pelas tags e retorna false. Creio que seria o caso de mudar a função LoadFromFile para pegar como result o valor do LoadFromString e assim dentro do sistema quando necessário fazer o tratamento com o If necessário para verificar se carregou corretamente o arquivo.

Arquivo modificado em anexo, alterações comentadas com meu nick iniciando na linha 1536.

Desde já obrigado a todos.

ACBrNFeNotasFiscais.pas

[Celso Marigo Junior]

Boa tarde.

Obrigado pela correção, estou subindo no SVN. Quase igual a sua sugestão. Ficou assim:

...
Result := LoadFromString(XMLStr, AGerarNFe);

if Result then
begin
  // Atribui Nome do arquivo a novas notas inseridas //
  for i := l to Self.Count - 1 do
    Self.Items[i].NomeArq := CaminhoArquivo;
end;

SVN Rev.: [11746]