EnviarRegistros(aProtocolo, aTX2)
Para enviar os registros à uma apuração que já iniciamos, utilizaremos o método EnviarRegistros.
Método
EnviarRegistros(const aProtocolo: WideString, const aTX2: WideString):IspdRetEnviarRegistros;
Parâmetros
| Argumento | Tipo | Detalhes |
| aProtocolo | WideString | Protocolo de controle, recebido ao iniciar uma apuração |
| aTX2 | WideString | TX2 do registro a ser enviado, seguindo o Dicionário de Dados |
Retorno
Este método retornará um objeto do tipo IspdRetEnviarRegistros com os seguintes atributos:
- Protocolo
- Mensagem
Requisitos
Para enviar um registro, é necessário referenciar um número de protocolo de uma apuração válida.
No caso de API é recomendável o envio dos blocos separadamente para que seja mais fácil a identificação de uma possível falha de envio. Pode ser feito o envio do bloco da seguinte forma:
ENVIA REGISTROS
Bloco 0: Abertura, Identificação e Referências
Obs: Enviar os tx2 dos registros do bloco 0 de acordo com a precedência de registro pai/filho.
ENVIAR REGISTROS
Bloco B: Escrituração e Apuração do ISS
Obs: Enviar os tx2 dos registros do bloco B de acordo com a precedência de registro pai/filho.
ENVIA REGUSTROS
Bloco C: Documentos Fiscais I – Mercadorias (ICMS/IPI)
Obs: Enviar os tx2 dos registros do bloco C de acordo com a precedência de registro pai/filho
Atenção: O arquivo tx2 não deve ultrapassar o tamanho limite de 10MB.
Exemplos
Delphi
var
Retorno: IspdRetEnviarRegistros;
begin
Retorno := SPED.EnviarRegistros(edtProtocolo.Text, mmRetorno.Text);
mmRetorno.Lines.Add(' Retorno:');
mmRetorno.Lines.Add(' Protocolo: ' + Retorno.Protocolo);
mmRetorno.Lines.Add(' Mensagem: ' + Retorno.Mensagem);
C#
SpedClientX.IspdRetEnviarRegistros Retorno;
Retorno = Sped.EnviarRegistros(edtProtocolo.Text, mmRetorno.Text);
mmRetorno.Text = "Retorno:" + Environment.NewLine;
mmRetorno.Text += " Protocolo: " + Retorno.Protocolo + Environment.NewLine;
mmRetorno.Text += " Mensagem: " + Retorno.Mensagem + Environment.NewLine;
Visual Basic 6
Dim Retorno As IspdRetEnviarRegistros
Set Retorno = SPED.EnviarRegistros(edtProtocolo.Text, mmRetorno.Text)
mmRetorno.Text = " Retorno:" & vbNewLine
mmRetorno.Text = mmRetorno.Text & " Protocolo: " & Retorno.Protocolo & vbNewLine
mmRetorno.Text = mmRetorno.Text & " Mensagem: " & Retorno.Mensagem
Comentários
0 comentário
Por favor, entre para comentar.