Consulta de NFes destinadas ao CNPJ

[GR7 AUTOMACÃO COMERCIAL ME]

Ainda estamos tendo problemas em utilizar o ACBr para Consultar Nfes destinadas a um CNPJ. Sempre retorna que não foi encontrado nenhum processo.

Observamos que outras pessoas também estão com o mesmo problema e já faz algum tempo. como temos conhecimento que outras empresas conseguem ter esse

acesso de um modo rápido e que não compromete o tempo de atendimento do webservice, gostaríamos de saber se já adequaram a rotina exemplo para não precisar

mais de informar a chave também e somente o CNPJ.

Segue abaixo a rotina que estamos utilizando para a consulta sem sucesso.

    Contador := '0';

    repeat

        if ACBrNFe1.ConsultaNFeDest(CNPJ ,StrToIndicadorNFe(ok,indNFe) ,StrToIndicadorEmissor(ok,IndEmi),UltNSu ) Then
        begin
            {lIndCont := (ACBrNFe1.WebServices.ConsNFeDest.RetornoWS, 'indCont');
            if (ACBrNFe1.WebServices.ConsNFeDest.RetornoWS, 'cStat') = '138' then
            begin
               **** Aqui processo o retorno mas pelo ACBR não está havendo retorno......
            end;}

            ggProcesso.Progress := ggProcesso.Progress + 1;
            if ggProcesso.Progress >= ggProcesso.MaxValue then
            begin
                lblProcesso.Font.Color := clRed;
                lblProcesso.Caption := 'PROCESSADO'
            end
            else
            begin
                lblProcesso.Font.Color := clBlue;
                lblProcesso.Caption := 'PROCESSANDO'
            end;

            Contador := ACBrNFe1.WebServices.ConsNFeDest.ultNSU;
            lMsg := ACBrNFe1.WebServices.ConsNFeDest.Msg;
            edNsu.Text := Contador;  // pega o ultimo número do contador do webservice
        end;

    until (Contador = '0');

[tiagoshimizu]

Bom dia.

Bom, não sei se está na categoria certa pois sua dúvida é com relação a NFe e não a NFSe, mas vamos lá.

Utilizo da seguinte forma:

ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; // Só retorna notas em produção

repeat
  ACBrNFe.ConsultaNFeDest(Empresa.CNPJ, IndNFe, IndEmi, ultNSU);
  for I := 0 to ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Count - 1 do  
  begin
    // Trata as notas aqui
  end;
  ultNSU := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU;
until ((ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.cStat = 137) and
          (ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.indCont <>
            icPossuiMaisDocumentos));

Tem funcionado 100% já a algum tempo.

 

Espero ter ajudado.

[Daniel Paixão-Cascavel]

Cara, eu faço assim, mas sempre retorna que não tem Nenhum documento localizado para o destinatario.

Estou fazendo algo errado? O que preciso fazer antes pra isso funcionar?

procedure TNFCeEmissao.ConsultarNFeDestinadas(var ALista:TStringList);
var Loop:Integer;
    Ret:TRetCollectionItem;
begin
   Self.Configurar;
   NFE.ConsultaNFeDest(TDesktop.DadosEmpresa.CNPJ,inTodas,ieTodos,'5');
   ALista.Text := NFE.WebServices.ConsNFeDest.retConsNFeDest.xMotivo;
   for Loop := 0 to NFE.WebServices.ConsNFeDest.retConsNFeDest.ret.Count - 1 do
   begin
      Ret := TRetCollectionItem(NFE.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[Loop]);
      ALista.Add('Chave: '+Ret.resNFe.chNFe+' Emissao: '+DateToStr(Ret.resNFe.dEmi));
   end;
      
end;