Erro de Enviar NFe

[Ariboni]

Bom dia,

Estou iniciando os testes de Enviar as notas pelo ACbrNfe. e ocorreu o seguinte erro:

"Não existem mais arquivos. - URL:https://homologacao.nfe.fazenda.sp.gov.br/ws/nfeautorizacao.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao"

  // *** Atribui os Dados da Nota Fiscal para o Componente ACBr ***
  ProNfeToACBr;
  ACBrNFe1.Configuracoes.Arquivos.PathSalvar      := wArqXML;
  eExn.Free;
  wErro := 'N';
  try
    ACBrNFe1.Enviar(1,True);
    MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
    MemoResp.Lines.Add('***  Retorno  WS  ***');
    MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
    LoadXML(MemoResp, WBResposta);
    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
    MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
    MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
    MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
    MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
    MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
    MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
  except
     on eExn : exception do  begin
        wErro := 'S';
        Application.MessageBox(PChar(eExn.Message), 'Atenção', MB_ICONWARNING + MB_OK);
        MemoResp.Lines.Add('Exception: ' + eExn.Message);
        MemoResp.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
        MemoResp.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);  // Útil para gravar em arquivos de LOG
     end;
  end;

desde ja obrigado.

[Rodrigo Cardilo]

Oi amigo,

 

Seu post é muito vago.. Você está preenchendo o compontente ACBRNFe corretamente?

No envie o xml gerado para analisarmos. Pelo erro, aparentemente, seu sistema não está gerando o xml.

Atc,

[Daniel Simoes]

Estude os fontes do Demo do ACBrNFe, na pasta "Exemplos"

[Ariboni]

Ola Daniel, obrigado por me ajudar.

Ja fiz teste de Assinar e Validar em separado e deu certo

Gostaria de tirar uma duvida ? a linha abaixo: Salva o xml automatico ou nao ?

ACBrNFe1.Enviar(1,True);

[Daniel Simoes]

Depende como você configurou o componente em ACBrNFe.Configuracoes.Arquivos

[Ariboni]

So estou passando os caminhos no acbr:

 ACBrNFe1.Configuracoes.Arquivos.PathSalvar      := wArqXML;
 ACBrNFe1.Configuracoes.Arquivos.PathSchemas     := wArqSchema;

 

[Ariboni]

Ola pessoal,

Segue esquema dos codigos que estou usando para enviar, mas esta retornando a mensagem

''Não existem mais arquivos. - URL:https://homologacao.nfe.fazenda.sp.gov.br/ws/nfeautorizacao.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao"

  ACBrNFe1.NotasFiscais.Clear;
  with ACBrNFe1.NotasFiscais.Add.NFe do begin
     // *** Atribui os Campos da Nota  no  Componente ACBr ***
     Ide.cNF      := TblTemp.FieldByName('NrNota').AsInteger;
     Ide.natOp    := TblTemp.FieldByName('NatOper').AsString;
     Ide.indPag   := StrToIndpag(wOk,wPag);
     Ide.modelo   := 55;
     Ide.serie    := 1;
     Ide.nNF      := TblTemp.FieldByName('NrNota').AsInteger;
     //...
  end;
  ACBrNFe1.NotasFiscais.GerarNFe;
  ACBrNFe1.NotasFiscais.GravarXML(wArqXML + 'NFeTeste.xml');
  eExn.Free;
  wErro := 'N';
  try
    ACBrNFe1.Enviar(1,False);
    MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
    MemoResp.Lines.Add('***  Retorno  WS  ***');
    MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
    LoadXML(MemoResp, WBResposta);
    MemoDados.Lines.Add('');
    MemoDados.Lines.Add('Envio NFe');
    MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
    MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
    MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
    //...
  except
     on eExn : exception do  begin
        wErro := 'S';
        MemoResp.Lines.Add('Exception: ' + eExn.Message);
        MemoResp.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
        MemoResp.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);  // Útil para gravar em arquivos de LOG
     end;
  end;

alguem pode me ajudar ?

[Régys Silveira]

Veja se este post lhe ajuda:

 

[Ariboni]

Boa Tarde Regys.

Era isso mesmo o problema, alterei a propriedade SSLLib  para  libCapicom  e funcionou !

Abraço e Obrigado.