Pular para o conteúdo principal

Exemplo de uso em VB6- SPED

Alyson Santos
Atualizado

Este exemplo de uso mostra o fluxo de utilização do Componente SPED em VB6. Faça o download de nossos projetos no GitHub.

 

Para que o projeto funcione corretamente, é necessário adicionar a OCX às referencias do projeto (por padrão, a OCX está localizada em "C:\Windows\System32\SpedClientX.ocx"). Depois de adicionada, você já poderá executar o projeto normalmente.

 

 

Instanciar componente

Primeiramente, declare o objeto pertencente à classe que faz interação com os servidores da Sefaz

Public eSocial As ESocialClientX.spdESocialClientX

Após isso, já na inicialização do Fom, instancie o objeto dentro de uma nova variável.

Set eSocial = New ESocialClientX.spdESocialClientX

 

Configurar o componente

 

As propriedades do componente devem ser configuradas antes de realizar a chamada de qualquer método. A propriedade ConfigurarSoftwareHouse espera receber o CNPJ ou CPF e o Token cadastrados na sua Conta TecnoSpeed.

 

  SPED.DiretorioArquivo = "C:\Program Files\TecnoSpeed\SpedFiscal\Arquivo\"

  SPED.DiretorioErros = "C:\Program Files\TecnoSpeed\SpedFiscal\Erros\"

  SPED.DiretorioConfiguracao = "C:\Program Files\TecnoSpeed\SpedFiscal\Arquivos\"

  SPED.ConfigurarSoftwareHouse "Seu CNPJ ou CPF", "Seu Token"

 

Saiba mais >

 

 

Iniciar a apuração

 

O método IniciarApuracao é utilizado sempre que for necessário gerar um novo arquivo SPED. Ela retornará o número de protocolo que utilizaremos para enviar os registros àquele arquivo e gerar o arquivo SPED ao fim da apuração.

 

    Dim Retorno As IspdRetIniciarApuracao

 

    SPED.NomeArquivo = "NomeDoArquivo.txt"

    SPED.DataInicio = "01/01/2018"

    SPED.DataFim = "30/11/2018"

    SPED.CnpjEmissor = "11111111111111"

 

    Set Retorno = SPED.IniciarApuracao

 

    mmRetorno.Text = " Retorno:" & vbNewLine

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

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

 

Saiba mais >

 

 

Enviar os registros

 

O método EnviarRegistros é utilizado sempre que for necessário enviar um novo registro à um arquivo SPED já iniciado.

 

    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

 

Saiba mais >

 

 

Gerar a apuração

 

O método GerarApuracao é utilizado sempre que for necessário gerar um novo arquivo SPED. Ela retornará o número de protocolo que utilizaremos para consultar o arquivo SPED.

 

    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

 

Saiba mais >

 

 

Consultar a apuração

 

O método ConsultarApuracao é utilizado sempre que for necessário consultar um arquivo SPED que a geração já foi solicitada.

 

    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

 

Saiba mais >

 

 

Artigos relacionados

Comentários

0 comentário

Por favor, entre para comentar.