Erro Ao Autorizar Nota Após Atualização Do Componente

[jocimar]

Boa tarde.

 

Atualizei o ACBR hoje de manhã. Troquei os Schemas, porém quando fui autorizar uma nota deu o seguinte erro e a mesma não foi autorizada.

Precisa setar alguma nova flag no componente? O que pode ser?

 

 

---------------------------

Debugger Exception Notification

---------------------------

Project ErpSoft.exe raised exception class EACBrNFeException with message ''.

---------------------------

Break   Continue   Help   

---------------------------

 

Este erro ocorre na seguinte função:

 

function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;

begin

//retirado por recomendação do documento disponível em http://www.nfe.fazenda.gov.br/PORTAL/docs/Consumo_Indevido_Aplicacao_Cliente_v1.00.pdf

{  if not(Self.StatusServico.Executar) then

     begin

       if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

          TACBrNFe( FACBrNFe ).OnGerarLog(Self.StatusServico.Msg);

       raise EACBrNFeException.Create(Self.StatusServico.Msg);

     end;      }

 

  self.Enviar.FLote := ALote;

  self.Enviar.FSincrono := ASincrono;

 

  if not(Self.Enviar.Executar) then

     begin

       if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

          TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg);

       raise EACBrNFeException.Create(Self.Enviar.Msg);

     end;

 

  //if (FConfiguracoes.Geral.ModeloDF = moNFe) or (not ASincrono) then

  if (FConfiguracoes.Geral.ModeloDF = moNFe) and (not ASincrono) then

   begin

    Self.Retorno.Recibo := Self.Enviar.Recibo;

    if not(Self.Retorno.Executar) then

       begin

         if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

            TACBrNFe( FACBrNFe ).OnGerarLog(Self.Retorno.Msg);

         raise EACBrNFeException.Create(Self.Retorno.Msg);

       end;

   end;

 

  Result := true;

end;

Editado 2 Abril, 2014 por jocimar

[jocimar]

Desculpe por não ter visto antes mas acredito que já tem um tópico com o mesmo problema:

 

 

do M_Albuquerque