Erro ao consultar uma NFce e ao enviar

[HRomano]

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.

 

Editado 3 Janeiro, 2017 por HRomano
inseri uma imagem

[Celso Marigo Junior]

Forneça os passos para reproduzir o erro usando a demo do ACBr_NFe.

[HRomano]

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

[HRomano]

Descobri o problema, no momento da consutla eu estava passando a versão errada. corrigi na funcao que configura o componente, mas tinha esquecido de corrigir na função de consutla. 

[Celso Marigo Junior]

Ok... Obrigado pelo retorno. Sempre que postar algum código poste como anexo!

[HRomano]

OK