Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao consultar uma NFce e ao enviar


  • Este tópico foi criado há 2641 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia, estou com um problema para autorizar NFC-e, ao enviar a nota exibe a mensgaem de exceção da função GerarException mas não exibe nada, e ao tentar consultar a NFC-e não define a URL de consutla, a versão do serviço sempre retorna "0", e dessa forma a URL não é encontrada (DEFINIRURL), depois desse erro se tentar enviar a NFC-e novamente exibe mensagem de nota duplicada já autorizada, ele esta enviando corretamente, autorizando na sefaz mas nao recebe o retorno.

 

consulta.png

Editado por HRomano
inseri uma imagem

Ricardo Hakme Romano

 

Link para o comentário
Compartilhar em outros sites

estou configurando o componente da seguinte forma:

 {$REGION 'CONFIGURAÇÕES ACBR NFE'}
    {$REGION 'CONFIGURAÇÕES CERTIFICADO'}
    if FmMain.wPathCertificado_NFe <> EmptyStr then
    begin
      FmMain.ACBrNFe.Configuracoes.Certificados.ArquivoPFX  := FmMain.wPathCertificado_NFe;
      FmMain.ACBrNFe.Configuracoes.Certificados.Senha       := FmMain.wSenhaCertficado_NFe;
    end
    else
      FmMain.ACBrNFe.Configuracoes.Certificados.NumeroSerie := FmMain.wNumSerieCertificado_NFe;
    {$ENDREGION}

    {$REGION 'CONFIGURAÇÕES GERAIS'}
    FmMain.ACBrNFe.Configuracoes.Geral.ExibirErroSchema := True;
    FmMain.ACBrNFe.Configuracoes.Geral.RetirarAcentos   := True;
    FmMain.ACBrNFe.Configuracoes.Geral.FormatoAlerta    := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';
    FmMain.ACBrNFe.Configuracoes.Geral.FormaEmissao     := teNormal;
    FmMain.ACBrNFe.Configuracoes.Geral.ModeloDF         := FModeloDF;

    if FModeloDF = moNFe then
    begin
      if FmMain.Versao_NFe = '2.00' then
        FmMain.ACBrNFe.Configuracoes.Geral.VersaoDF := ve200
      else
        if FmMain.Versao_NFe = '3.10' then
          FmMain.ACBrNFe.Configuracoes.Geral.VersaoDF := ve310
        else
          if FmMain.Versao_NFe = '4.00' then
            FmMain.ACBrNFe.Configuracoes.Geral.VersaoDF := ve400;
    end;

    if FModeloDF = moNFCe then
    begin
      if FmMain.Versao_NFe = '3.10' then
        FmMain.ACBrNFe.Configuracoes.Geral.VersaoDF := ve310
      else
        if FmMain.Versao_NFe = '4.00' then
          FmMain.ACBrNFe.Configuracoes.Geral.VersaoDF := ve400;
    end;


    QryLerCsc.Close;
    QrylerCsc.ParamByName('CdFilial').AsInteger := FmMain.QryFiliaisAcessoCdFilial.AsInteger;
    QryLerCsc.Open;

    if (Fmmain.Ambiente_NFe + 1 = 2) then
    begin
      //GERAR O CODIGO NO SITE "http://homologacao.sefaz.mt.gov.br/nfce/codigosegurancactbn/ViewCadastroPublicoCSC.jsp"
      FmMain.ACBrNFe.Configuracoes.Geral.IdCSC := '000001';
      FmMain.ACBrNFe.Configuracoes.Geral.CSC := 'b74e9153f6e96f790da6e416d45af26b';
    end
    else
    begin
      FmMain.ACBrNFe.Configuracoes.Geral.IdCSC := Formatar(QryLerCsccIdToken.Value, 7, False, '0');
      FmMain.ACBrNFe.Configuracoes.Geral.CSC := QryLerCscCsc.Value;
    end;
    QryLerCsc.Close;

    FmMain.ACBrNFe.Configuracoes.Geral.Salvar := False; //Salvar Arquivos de Envio e Resposta

    if FmMain.wPathCertificado_NFe <> EmptyStr then
      FmMain.ACBrNFe.Configuracoes.Geral.SSLLib := libOpenSSL
    else
      FmMain.ACBrNFe.Configuracoes.Geral.SSLLib := libCapicom;
    {$ENDREGION}

    {$REGION 'WEBSERVICES'}
    if (Fmmain.Ambiente_NFe + 1 = 1) then
      FmMain.ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao
    else
      FmMain.ACBrNFe.Configuracoes.WebServices.Ambiente := taHomologacao;

    FmMain.ACBrNFe.Configuracoes.WebServices.UF := FmMain.QryFiliaisAcessoCdSigla.Value;
    FmMain.ACBrNFe.Configuracoes.WebServices.Visualizar := false;
    FmMain.ACBrNFe.Configuracoes.WebServices.Salvar := False; //estava True
    FmMain.ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
    FmMain.ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet := 1 + 1000;
    FmMain.ACBrNFe.Configuracoes.WebServices.Tentativas          := 5;
    FmMain.ACBrNFe.Configuracoes.WebServices.IntervaloTentativas := 1 + 1000;
    FmMain.ACBrNFe.Configuracoes.WebServices.ProxyHost := EmptyStr;
    FmMain.ACBrNFe.Configuracoes.WebServices.ProxyPort := EmptyStr;
    FmMain.ACBrNFe.Configuracoes.WebServices.ProxyUser := EmptyStr;
    FmMain.ACBrNFe.Configuracoes.WebServices.ProxyPass := EmptyStr;
    {$ENDREGION}

//    wPathSchemas := '\\SERVIDORBG\SaaSql\DDSG-NFe\Schemas\NFe';

    {$REGION 'ARQUIVOS'}
    MontaCaminho;
    FmMain.ACBrNFe.Configuracoes.Arquivos.Salvar := True; //Salvar Arquivos em Pastas Separadas
    FmMain.ACBrNFe.Configuracoes.Arquivos.SepararPorMes      := False; //Criar Pastas Mensalmente
    FmMain.ACBrNFe.Configuracoes.Arquivos.AdicionarLiteral   := False; //Adicionar Literal no nome das pastas
    FmMain.ACBrNFe.Configuracoes.Arquivos.EmissaoPathNFe     := False; //Salvar NFe pelo campo Data de Emissão
    FmMain.ACBrNFe.Configuracoes.Arquivos.SalvarEvento       := False; //Salvar Arqs de Eventos
    FmMain.ACBrNFe.Configuracoes.Arquivos.SepararPorCNPJ     := False; //Separar Arqs pelo CNPJ do Certificado
    FmMain.ACBrNFe.Configuracoes.Arquivos.SepararPorModelo   := False; //Separar Arqs pelo Modelo do Documento
    FmMain.ACBrNFe.Configuracoes.Arquivos.PathSalvar         := wPath + 'Enviadas\'; //Salvar Arquivos de Envio e Resposta
    FmMain.ACBrNFe.Configuracoes.Arquivos.PathSchemas        := wPathSchemas; //Pasta Schemas
    FmMain.ACBrNFe.Configuracoes.Arquivos.PathNFe            := wPathXML; //Pasta Arquivos NFe
    FmMain.ACBrNFe.Configuracoes.Arquivos.PathInu            := wPath + 'Inutilizadas\';
    FmMain.ACBrNFe.Configuracoes.Arquivos.PathEvento         := wPath + 'Eventos\';
    {$ENDREGION}

    {$REGION 'DANFE'}
    if FmMain.ACBrNFe.DANFE <> nil then
    begin
      FmMain.ACBrNFe.DANFE.TipoDANFE  := tiRetrato;
      FmMain.ACBrNFe.DANFE.Logo       := fmMain.auxStr + fmMain.QryFiliaisAcessoCdFilial.AsString+'.bmp';
    end;
    {$ENDREGION}
  {$ENDREGION}

 

a parte do envio está no codigo abaixo:

          FmMain.ACBrNFe.NotasFiscais.Clear;
          FmMain.ACBrNFe.NotasFiscais.LoadFromString(XMLNFe_NaoAssinado);
          ChaveNFe := Copy(FmMain.ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);
          FmMain.ACBrNFe.NotasFiscais.GerarNFe;
          FmMain.ACBrNFe.Enviar('1', False);

Estou utilizando a SSL para enviar a nota. Esse problema está tando em produção quanto em homologação,

esotu utilizando o WebService de MT

 

Caso necessite de mais informações me avise

 

51170111404058000206650010000400011140400010-nfe.xml

Ricardo Hakme Romano

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2641 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.