Argument Out of Range em TNFeRecibo.GerarMsgLog

[Matheus]

Bom dia.

Ao realizar a consulta de um recibo, caso seja recebido um status diferente de 104, está ocorrendo erro na procedure TNFeRecibo.GerarMsgLog (ACBrNFeWebServices.pas) pois a collection ProtNFe não possui nenhum elemento e nessa procedure é acessado a propriedade FRetorno.ProtNFe.Items[0].xMotivo.

Acredito que esteja errado acessar essa propriedade nesse método. Ao invés de acesar FRetorno.ProtNFe.Items[0].xMotivo deveria ser FRetorno.xMotivo, Caso seja essa a implementação correta, deveria ser verificado se existem itens na collection ao acessar a propriedade.

Em minha alteração deixei a procedure da seguinte maneira:

function TNFeRecibo.GerarMsgLog: String;
begin
  {(*}
  Result := Format(ACBrStr('Versão Layout: %s ' + LineBreak +
                           'Ambiente: %s ' + LineBreak +
                           'Versão Aplicativo: %s ' + LineBreak +
                           'Recibo: %s ' + LineBreak +
                           'Status Código: %s ' + LineBreak +
                           'Status Descrição: %s ' + LineBreak +
                           'UF: %s ' + LineBreak),
                   [FNFeRetorno.versao, TpAmbToStr(FNFeRetorno.TpAmb),
                   FNFeRetorno.verAplic, FNFeRetorno.nRec,
                   IntToStr(FNFeRetorno.cStat),
                   FNFeRetorno.xMotivo,
                   CodigoParaUF(FNFeRetorno.cUF)]);
  {*)}
end;

 

[Daniel Simoes]

De mais detalhes.. qual é a msg de erro ?

[Matheus]

Argument out of range.

[Daniel Simoes]

Ok... compreendi o problema... vou enviar a correção para o SVN... obrigado pelo BugReport