Este exemplo de uso mostra o fluxo de utilização do Componente SPED em VB6. Faça o download de nossos projetos no GitHub.
- Como utilizar o GitHub
- Link download do Projeto no Git: https://github.com/tecnospeed/Componente_Sped.git
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"
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
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
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
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
Comentários
0 comentário
Por favor, entre para comentar.