CONSULTA CADASTRO

[Valtenci Santos]

Ola, estou tentando consulta contribuinte do Estado do RN, e esta me retornando o seguinte erro, alguém sabe o porque ??

 

desde já agradeço.

[Amarildo de Matos]

bom dia.. 

tem como mandar para nos o xml gerado, e os logs, para os consultores analisarem?..

 

[Valtenci Santos]

Em 23/11/2018 at 05:05, Amarildo de Matos disse:

bom dia.. 

tem como mandar para nos o xml gerado, e os logs, para os consultores analisarem?..

 

O Problema e esse nao gera nenhum retorno, conforme print em anexo

[Amarildo de Matos]

Bom dia..

( consulta contribuinte do Estado do RN, )

me diz uma coisa , contribuinte de outro estado funciona?

me passe os comandos que voce esta usando, e os dados do contribuinte para testar..

blz?

tenha um otimo sabado.

[Valtenci Santos]

Em 01/12/2018 at 09:36, Amarildo de Matos disse:

Bom dia..

( consulta contribuinte do Estado do RN, )

me diz uma coisa , contribuinte de outro estado funciona?

me passe os comandos que voce esta usando, e os dados do contribuinte para testar..

blz?

tenha um otimo sabado.

ola, estou usando o codigo abaixo que peguei nos exemplos do ACBr

procedure ButtonClick(Sender: TObject);
 var
 UF, Documento : String;
begin
// use como exemplo
// UF :='PE';
// Documento :='09581721000298'; 

// UF :='RN';
// Documento :='03752712000155';

 if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:',    UF)) then
    exit;
 if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)',    Documento)) then
    exit;
  Documento :=  Trim(OnlyNumber(Documento));

  ACBrNFe1.WebServices.ConsultaCadastro.UF  := UF;
  if Length(Documento) > 11 then
     ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento
  else
     ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento;
  ACBrNFe1.WebServices.ConsultaCadastro.Executar;

  MemoResp.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetWS;
  memoRespWS.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS;

  MemoDados.Lines.Add('');
  MemoDados.Lines.Add('Consulta Cadastro');
  MemoDados.Lines.Add('versao: ' +ACBrNFe1.WebServices.ConsultaCadastro.versao);
  MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.ConsultaCadastro.verAplic);
  MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrNFe1.WebServices.ConsultaCadastro.cStat));
  MemoDados.Lines.Add('xMotivo: '  +ACBrNFe1.WebServices.ConsultaCadastro.xMotivo);
  MemoDados.Lines.Add('DhCons: ' +DateTimeToStr(ACBrNFe1.WebServices.ConsultaCadastro.DhCons));

end;

 

teste dois estados e pessiste o erro.