Bom dia,
este mesmo erro foi relatado pelo nossos clientes do estado do PR.
Ainda não atualizamos os pacotes do ACBr conforme último disponibilizado, verifiquei que houveram muitas alterações na unit ACBrNFeWebServices, mas não encontrei a correção do problema relatado acima nas atualizações, que acredito que deveria estar naquele novo bloco TNFeConsulta.DefinirServicoEAction.
Bem segue a correção, que realizamos na unit ACBrNFeWebServices ainda antiga do ACBr, no método TNFeConsulta.Executar. Agora nossos cliente não estão mais tendo este problema:
Trecho do código do ACBr sem nossa correção:
---------------------------------------------------
function TNFeConsulta.Executar: Boolean;
var
NFeRetorno: TRetConsSitNFe;
aMsg, aEventos: WideString;
AProcNFe: TProcNFe;
i, j: Integer;
Texto, SoapAction, Metodo, TAGResult: String;
wAtualiza, NFCancelada: Boolean;
begin
inherited Executar;
// Alterações realizadas por Italo em 25/08/2014
if (FConfiguracoes.WebServices.UFCodigo in [29, 41]) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 29 = BA
begin
Metodo := 'NfeConsulta';
TAGResult := 'NfeConsultaNFResult';
end
else begin
Metodo := 'NfeConsulta2';
TAGResult := 'NfeConsultaNF2Result';
end;
---------------------------------------------------
Trecho do código com nossa correção:
---------------------------------------------------
function TNFeConsulta.Executar: Boolean;
var
NFeRetorno: TRetConsSitNFe;
aMsg, aEventos: WideString;
AProcNFe: TProcNFe;
i, j: Integer;
Texto, SoapAction, Metodo, TAGResult: String;
wAtualiza, NFCancelada: Boolean;
begin
inherited Executar;
//BEGIN MODULA CHANGES: Correção nos endereços de consulta de NF-e.
if FConfiguracoes.Geral.FormaEmissao in [teSVCAN, teSVCRS] then
begin
Metodo := 'NfeConsulta2';
TAGResult := 'NfeConsultaNF2Result';
end
else
//END MODULA CHANGES
// Alterações realizadas por Italo em 25/08/2014
if (FConfiguracoes.WebServices.UFCodigo in [29]) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 29 = BA //MODULA CHANGES: Removido UF do PR, correção segue no if abaixo.
begin
Metodo := 'NfeConsulta';
TAGResult := 'NfeConsultaNFResult';
end
//BEGIN MODULA CHANGES: Correção nos endereços de consulta de NF-e.
else if (FConfiguracoes.WebServices.UFCodigo in [41]) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR
begin
Metodo := 'NfeConsulta3';
TAGResult := 'NfeConsultaNFResult'; //Verificado no https://nfe.fazenda.pr.gov.br/nfe/NFeConsulta3?wsdl, é NfeConsultaNFResult, não segue o padrao que seria NfeConsultaNF3Result.
end
//END MODULA CHANGES
else begin
Metodo := 'NfeConsulta2';
TAGResult := 'NfeConsultaNF2Result';
end;
---------------------------------------------------
Caso vc esteja com a versão atualizada dos pacotes do ACBr basta pegar esta correção e colocar nos locais devidos da unit atualizada (ACBrNFeWebServices).
Atenciosamente,
Setor de Desenvolvimento
Módula Software Ltda.
Florianópolis - SC
