Mudança No Acbrnfeutil.pas

[Pportellaa]

Boas a todos,

 

Hoje fiz update dos fontes ACBr (total) e mesmo assim eu não conseguia fazer transmissão de NFe na versão 3.10, com emissão de origem Londrina/Paraná.

Me fazia aparecer a mensagem:""URL não disponível para o estado solicitado.""

 

Então analisando o código fonte, fiz uma implementação básica acrescentando as URLs de Produção na função "class function NotaUtil.GetURLPR" da unit ACBrNFeUtil.pas.

 

Espero ter ajudado, segue-a:

 

 

    if AVersaoDF = ve200 then
     begin
      case ALayOut of
        LayNfeRecepcao      : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeRecepcao2',            'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeRecepcao2');
        LayNfeRetRecepcao   : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeRetRecepcao2',         'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeRetRecepcao2');
        LayNfeCancelamento  : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeCancelamento2',        'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeCancelamento2');
        LayNfeInutilizacao  : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeInutilizacao2',        'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeInutilizacao2');
        LayNfeConsulta      : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeConsulta2',            'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeConsulta2');
        LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/NFeStatusServico2',       'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/NFeStatusServico2');
        LayNfeCadastro      : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe/CadConsultaCadastro2',    'https://homologacao.nfe2.fazenda.pr.gov.br/nfe/CadConsultaCadastro2');
        LayNFeCCe,
        LayNFeEvento        : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe2.fazenda.pr.gov.br/nfe-evento/NFeRecepcaoEvento''https://homologacao.nfe2.fazenda.pr.gov.br/nfe-evento/NFeRecepcaoEvento');
      end;
     end
     else begin
      case ALayOut of

        // Aqui eu fiz acrescentar o 2o.Parâmetro adicionando as URLs de Produção.
        LayNfeAutorizacao    : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeAutorizacao3',         'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeAutorizacao3');
        LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeRetAutorizacao3',      'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeRetAutorizacao3');
        LayNfeInutilizacao   : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeInutilizacao3',        'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeInutilizacao3');
        LayNfeConsulta       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeConsulta3',            'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeConsulta3');
        LayNfeStatusServico  : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeStatusServico3',       'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeStatusServico3');
        LayNfeCadastro       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/CadConsultaCadastro2',    'https://homologacao.nfe.fazenda.pr.gov.br/nfe/CadConsultaCadastro2');
        LayNFeCCe,
        LayNFeEvento         : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.fazenda.pr.gov.br/nfe/NFeRecepcaoEvento',       'https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeRecepcaoEvento');
      end;
     end;
   end
 

[Italo Giurizzato Junior]

Boa tarde,

 

Se você teve que informar as URLs, isso significa que os seus fontes estão desatualizados.

 

Favor atualizar todos os fontes de todas as pastas.

[Pportellaa]

Boas Ítalo,

Quando levantei esse post, eu já tinha feito a atualização completa do ACBr.

Depois fui ver a função que informei ( "class function NotaUtil.GetURLPR" ) do arquivo "ACBrNFeUtil.pas" e lá não tinha o primeiro parâmetro ( de ambiente produção ), somente o 3o.parãmetro (do ambiente homologação)

Veja isso na parte que colei.

 

Depois que fiz essa alteração, testei e Funcionou.

 

Veja o anexo que estou mandando.

 

ACBrNFeUtil.pas

[Italo Giurizzato Junior]

Boa noite,

 

Vou lhe afirmar que o seus fontes estão desatualizados, visto o que o seu fonte possui varias function comentadas, function estas que foram movidas para uma nova unit.

 

Eu mesmo removi os códigos comentados.

 

Outra coisa o seu fonte não possui as URLs do novo Web Services NFeDistribuicaoDFe e que esta disponível no SVN contem as referidas URLs.

 

Sugiro você excluir a pasta que contem os fontes ACBr e baixar novamente.

[Pportellaa]

Tá Ok

Vou fazer então.

Depois volto e informo.

Obrigado.