Erro Na Rotina De Consulta De Cadastro

[araujojunior]

Prezados,

 

Ao testar com o projeto de exemplo da NF-e, a rotina "Consulta Cadastro" a mesma me retornou vazia. entrei na Unit ACBrNFeWebServices, no evento function TNFeConsultaCadastro.Executar: Boolean; para tentar identificar o problema e achei a falha na linha: 3255 (OpenSSL) e 3262 (Capicom), onde troquei a tag consultaCadastro2Result do XML por cadConsultaCadastro2Result conforme abaixo:

 

Anterior:

FRetWS := '';
    {$IFDEF ACBrNFeOpenSSL}
       HTTP.Document.LoadFromStream(Stream);
       ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2"');
       HTTP.HTTPMethod('POST', FURL);


       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(HTTP.Document, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados( FRetornoWS,'consultaCadastro2Result');
       StrStream.Free;
    {$ELSE}
       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados( FRetornoWS,'consultaCadastro2Result');
       StrStream.Free;    {$ENDIF}

 

Atual:

    FRetWS := '';
    {$IFDEF ACBrNFeOpenSSL}
       HTTP.Document.LoadFromStream(Stream);
       ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2"');
       HTTP.HTTPMethod('POST', FURL);


       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(HTTP.Document, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados( FRetornoWS,'cadConsultaCadastro2Result');
       StrStream.Free;
    {$ELSE}
       ReqResp.Execute(Acao.Text, Stream);
       StrStream := TStringStream.Create('');
       StrStream.CopyFrom(Stream, 0);
       FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True));
       FRetWS := SeparaDados( FRetornoWS,'cadConsultaCadastro2Result');
       StrStream.Free;    {$ENDIF}

 

[Régys Silveira]

Anexe o arquivo alterado por favor.