Consulta Cadastro

[Arnaldo Cruz]

Cosultante PB

Consultado BA

 

No ACBr NFe de demonstração estou tentando usar a função abaixo de consulta,m porem só volta o nome do contribuinte

 

xNome >>>> Este Volta

xLgr  >>> Volta Vazio

nro  >>> Volta Vazio
xRegApur >>> Volta Vazio
xBairro >>> Volta Vazio
xMun >>> Volta Vazio

 

procedure TForm1.btnConsCadClick(Sender: TObject);
var
 UF, Documento : String;
begin
 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(DFeUtil.LimpaNumero(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 :=  UTF8Encode(ACBrNFe1.WebServices.ConsultaCadastro.RetWS);
  //memoRespWS.Lines.Text :=  UTF8Encode(ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS);
  //LoadXML(MemoResp, WBResposta);

  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.xMotivo);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].nro);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xRegApur);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xBairro);
  ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xMun);
end;

Editado 19 Agosto, 2014 por Arnaldo Cruz

[Italo Giurizzato Junior]

Bom dia Arnaldo,

 

Post como anexo o XML retornado pela SEFAZ ao realizar a consulta ao cadastro.

[Arnaldo Cruz]

- <retConsCad xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">

- <infCons>

  <verAplic>4.00</verAplic>

  <cStat>111</cStat>

  <xMotivo>Consulta cadastro com uma ocorrencia</xMotivo>

  <UF>BA</UF>

  <CNPJ>20381113000191</CNPJ>

  <dhCons>2014-08-19T22:13:16</dhCons>

  <cUF>29</cUF>

- <infCad>

  <IE>117369409</IE>

  <CNPJ>20381113000191</CNPJ>

  <UF>BA</UF>

  <cSit>1</cSit>

  <indCredNFe>1</indCredNFe>

  <indCredCTe>0</indCredCTe>

  <xNome>JOSE ORLANDO ELIAS - ME</xNome>

  </infCad>

  </infCons>

  </retConsCad>

[Italo Giurizzato Junior]

Boa noite Arnaldo,

 

Como você pode ver pelo conteúdo do XML de retorno da SEFAZ as únicas informações retornadas são:

 

Nome, IE, CNPJ, UF, código da Situação, indicador de credenciado a emitir NF-e e indicador de credenciado a emitir CT-e.