ConsultarApuracao(aProtocolo, aCaminhoArquivos)
Para consultar o arquivo SPED que solicitamos a geração, utilizaremos o método ConsultarApuracao e informaremos o número de protocolo de uma apuração válida.
Método
ConsultarApuracao(aProtocolo: WideString, aCaminhoArquivos: WideString): IspdRetConsultarApuracao;
Parâmetros
| Argumento | Tipo | Detalhes |
| aProtocolo | WideString | Protocolo de controle, recebido ao iniciar uma apuração |
| aCaminhoArquivos | WideString | Caminho que será utilizado para salvar os arquivos de retorno |
Retorno
Este método retornará um objeto do tipo IspdRetConsultarApuracao com os seguintes atributos:
- Protocolo
- Mensagem
- NomeArquivo
- Código
Requisitos
Para consultar uma apuração, é necessário referenciar um número de protocolo de uma apuração válida.
Exemplos
Delphi
var
Retorno: IspdRetConsultarApuracao;
begin
Retorno := SPED.ConsultarApuracao(edtProtocolo.Text, SPED.DiretorioArquivo);
mmRetorno.Lines.Add(' Retorno:');
mmRetorno.Lines.Add(' Protocolo: ' + Retorno.Protocolo);
mmRetorno.Lines.Add(' Mensagem: ' + Retorno.Mensagem);
mmRetorno.Lines.Add(' Nome do arquivo: ' + Retorno.NomeArquivo);
mmRetorno.Lines.Add(' Código: ' + Retorno.Codigo);
C#
SpedClientX.IspdRetConsultarApuracao Retorno;
Retorno = Sped.ConsultarApuracao(edtProtocolo.Text, Sped.DiretorioArquivo);
mmRetorno.Text = "Retorno:" + Environment.NewLine;
mmRetorno.Text += " Protocolo: " + Retorno.Protocolo + Environment.NewLine;
mmRetorno.Text += " Mensagem: " + Retorno.Mensagem + Environment.NewLine;
mmRetorno.Text += " Nome do arquivo: " + Retorno.NomeArquivo + Environment.NewLine;
mmRetorno.Text += " Código: " + Retorno.Codigo + Environment.NewLine;
Visual Basic 6
Dim Retorno As IspdRetConsultarApuracao
Set Retorno = SPED.ConsultarApuracao(edtProtocolo.Text, SPED.DiretorioArquivo)
mmRetorno.Text = " Retorno:" & vbNewLine
mmRetorno.Text = mmRetorno.Text & " Protocolo: " & Retorno.Protocolo & vbNewLine
mmRetorno.Text = mmRetorno.Text & " Mensagem: " & Retorno.Mensagem
mmRetorno.Text = mmRetorno.Text & " Nome do arquivo: " & Retorno.NomeArquivo
mmRetorno.Text = mmRetorno.Text & " Código: " & Retorno.Codigo
Comentários
0 comentário
Por favor, entre para comentar.