Este exemplo de uso mostra o fluxo de utilização do Componente SPED em Delphi. 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 o caminho da TLB no Library Path (por padrão, a TLB está localizada em "C:\Program Files\TecnoSpeed\SpedFiscal\Fontes\TLB"). Depois de adicionada, você já poderá executar o projeto normalmente.
Instanciar componente
No Delphi há duas formas de instanciar o componente. Você pode arrastar os ícones do componente na barra de ferramentas para dentro do seu unit ou fazê-lo de forma manual, adicionando no uses do projeto:
uses
SpedClientX_TLB
Em seguida é necessário criar as variáveis das classes, como no exemplo a baixo.
type
TForm1 = class(TForm)
public
vSpedFiscal : TspdSpedClientX;
Independente da forma com que você trouxe as classes ao projeto, agora você deve criar o objeto e direcioná-lo a uma variável:
SPED := TspdSpedClientX.Create(nil);
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.
var
Retorno: IspdRetIniciarApuracao;
begin
SPED.NomeArquivo := 'NomeDoArquivo.txt';
SPED.DataInicio := '01/01/2018';
SPED.DataFim := '30/11/2018';
SPED.CnpjEmissor := '11111111111111';
Retorno := SPED.IniciarApuracao();
mmRetorno.Lines.Add(' Retorno:');
mmRetorno.Lines.Add(' Protocolo: ' + Retorno.Protocolo);
mmRetorno.Lines.Add(' 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.
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);
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.
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);
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.
var
Retorno: IspdRetConsultarApuracao;
begin
Retorno := SPED.ConsultarApuracao(edtProtocolo.Text, SPED.DiretorioArquivo);
mmRetorno.Lines.Add(' Retorno:');
mmRetorno.Lines.Add(' Protocolo: ' + Retorno.Protocolo);
mmRetorno.Lines.Add(' Mensagem: ' + Retorno.Mensagem);
mmRetorno.Lines.Add(' Nome do arquivo: ' + Retorno.NomeArquivo);
mmRetorno.Lines.Add(' Código: ' + Retorno.Codigo);
Comentários
0 comentário
Por favor, entre para comentar.