GerarApuracao(aProtocolo)

Para gerar o arquivo SPED, utilizaremos o método GerarApuracao e informaremos o número de protocolo de uma apuração válida.

Método

GerarApuracao(aProtocolo: WideString):IspdRetGerarApuracao;

Argumento	Tipo	Detalhes
aProtocolo	WideString	Protocolo de controle, recebido ao iniciar uma apuração

Este método retornará um objeto do tipo IspdRetGerarApuracao com os seguintes atributos:

Para gerar uma apuração, é necessário referenciar um número de protocolo de uma apuração válida.

var

Retorno: IspdRetGerarApuracao;

begin

Retorno := SPED.GerarApuracao(edtProtocolo.Text);

mmRetorno.Lines.Add(' Retorno:');

mmRetorno.Lines.Add(' Protocolo: ' + Retorno.Protocolo);

mmRetorno.Lines.Add(' Mensagem: ' + Retorno.Mensagem);

SpedClientX.IspdRetGerarApuracao Retorno;

Retorno = Sped.GerarApuracao(edtProtocolo.Text);

mmRetorno.Text = "Retorno:" + Environment.NewLine;

mmRetorno.Text += " Protocolo: " + Retorno.Protocolo + Environment.NewLine;

mmRetorno.Text += " Mensagem: " + Retorno.Mensagem + Environment.NewLine;

Dim Retorno As IspdRetGerarApuracao

Set Retorno = SPED.GerarApuracao(edtProtocolo.Text)

mmRetorno.Text = " Retorno:" & vbNewLine

mmRetorno.Text = mmRetorno.Text & " Protocolo: " & Retorno.Protocolo & vbNewLine

mmRetorno.Text = mmRetorno.Text & " Mensagem: " & Retorno.Mensagem