EnviarRegistrosJson(aProtocolo, aJson)
Para enviar os registros à uma apuração que já iniciamos, utilizaremos o método EnviarRegistrosJson.
Método
EnviarRegistrosJson(const aProtocolo: WideString, const aJson: WideString):IspdRetEnviarRegistros;
Parâmetros
| Argumento | Tipo | Detalhes |
| aProtocolo | WideString | Protocolo de controle, recebido ao iniciar uma apuração |
| aJson | WideString | Json do registro a ser enviado, seguindo o Dicionário de Dados |
Retorno
Este método retornará um objeto do tipo IspdRetEnviarRegistrosJson 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 Json 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 Json 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 Json dos registros do bloco C de acordo com a precedência de registro pai/filho
Atenção: O arquivo Json não deve ultrapassar o tamanho limite de 10MB.
Exemplos
Delphi
var
Retorno: IspdRetEnviarRegistros;
begin
Retorno := SPED.EnviarRegistrosJson(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.EnviarRegistrosJson(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 SpedClientX.spdRetEnviarRegistros
Set Retorno = SpedFiscal.EnviarRegistrosJson(edtProtocolo.Text, mmXML.Text)
mmXML.Text = " Retorno:" & vbNewLine
mmXML.Text = mmXML.Text & " Protocolo: " & Retorno.Protocolo & vbNewLine
mmXML.Text = mmXML.Text & " Mensagem: " & Retorno.Mensagem
Comentários
0 comentário
Por favor, entre para comentar.