[ACBR-9006] NFS-e Distribuição consulta por cnpj

galegoga · 11 Fevereiro

Boa tarde!

Foi adicionado na distribuição NFS-e a possibilidade de consultar NSU por cnpj.

Atualmente, no acbr, está consultando somente pela NSU do cnpj informado implicitamente do certificado.

Porém é preciso adicionar a consulta o cnpj para que possa consultar por outros cnpj do grupo além daquele ao qual o certificado digital foi emitido.

Atualmente a consulta no ACBrNFSeX está somente pelo link https://adn.nfse.gov.br/contribuintes/DFe/{nsu}

Mas é preciso adicionar a opção por cnpj que ficará assim quando informado https://adn.nfse.gov.br/contribuintes/DFe/{nsu}?cnpjConsulta={cnpj}

Gostaria de saber se será implementado no projeto ?

Extraído da documentação: https://adn.producaorestrita.nfse.gov.br/contribuintes/docs/index.html#tag/DistribuicaoContribuinte

galegoga · 11 Fevereiro

Efetuei as modificações nos arquivos para implementar a funcionalidade.

É necessário comparar.

Meu código não está na última revisão.

Alterações:

ACBrNFex.pas:

  TACBrNFSeX = class(TACBrDFe)
  private  
     procedure ConsultarDFe(const aCNPJ: String; aNSU: Integer); overload;
   end;

procedure TACBrNFSeX.ConsultarDFe(const aCNPJ: String; aNSU: Integer);
begin
  if not Assigned(FProvider) then
    raise EACBrNFSeException.Create(ERR_SEM_PROVEDOR);

  if (Length(aCNPJ) > 0) and (Length(aCNPJ) <> 14) then
    raise EACBrNFSeException.Create('Cnpj inválido');

  FWebService.ConsultarDFe.Clear;
  FWebService.ConsultarDFe.NSU  := aNSU;
  FWebService.ConsultarDFe.Cnpj := aCNPJ;

  FProvider.ConsultarDFe;
end;

ACBrNFSeXWebServicesResponse.pas:

  // Adição do campo Cnpj
  TNFSeConsultarDFeResponse = class(TNFSeWebserviceResponse)
  private
    FCnpj: string;
  public
    property Cnpj: String read FCnpj write FCnpj;
  end;

procedure TNFSeConsultarDFeResponse.Clear;
begin
  inherited Clear;
  FCnpj := '';
  NSU := -1;
  ChaveNFSe := '';
end;

PadraoNacional.Provider.pas

// adição da condicional Cnpj

procedure TACBrNFSeProviderPadraoNacional.PrepararConsultarDFe(
  Response: TNFSeConsultarDFeResponse);
begin
  if Response.ChaveNFSe <> '' then
    FpPath := '/NFSe/' + Response.ChaveNFSe + '/Eventos'
  else if Response.Cnpj <> '' then
    FpPath := '/DFe/' + IntToStr(Response.NSU)+'?cnpjConsulta='+Response.Cnpj
  else
    FpPath := '/DFe/' + IntToStr(Response.NSU);

  Response.ArquivoEnvio := FpPath;
  FpMethod := 'GET';
end;