Importar Bloco G de Terceiros no arquivo SPED Fiscal existente???

[Magnus R. Souza]

Boa noite, 

Na empresa em que trabalho utilizamos um ERP que gera o arquivo TXT do SPED Fiscal, porém o Ativo Imobilizado é gerado por uma empresa terceirizada, sendo assim todos os meses eu preciso incluir manualmente as informações dos grupos 0300, 0500, 0600 e Bloco _G. Para tentar agilizar essa operação estou desenvolvendo uma aplicação que importe esses grupos e mais o Bloco_G para o arquivo existente que foi exportado pelo ERP.

Estou tentando através das funções e preoperties do componente SpedFiscal.Bloco_G porém não estou obtendo sucesso, quando mando salvar o TXT ele salva, porém não consta os dados do Bloco G, somente os que já existiam no arquivo original.

Se alguém puder me dar uma dica de como fazer, se não terei que me utilizar de ClientDataSet para armazenar os dados e posteriormente efetuar a inserção no Componente SpedFiscal, o que vai ser muito mais trabalhoso e demorado.

Segue abaixo o código que estou utilizando em Delphi 10.4.2:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenFile.Execute then
  begin
     Edit1.Text := OpenFile.FileName;
     SpedImporta.Arquivo := Edit1.Text;
     SpedImporta.Importar;
     SpedFiscal.Arquivo := 'NEW_'+ExtractFileName(Edit1.Text);
     SpedFiscal.Path := ExtractFileDir(Edit1.Text);
     SpedFiscal.DT_INI := spedFiscal.Bloco_0.Registro0000.DT_INI;
     SpedFiscal.DT_FIN := spedFiscal.Bloco_0.Registro0000.DT_FIN;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenFile.Execute then
  begin
    Edit2.Text := OpenFile.FileName;
  end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Spedfiscal.IniciaGeracao;
    Spedfiscal.Bloco_G.LimpaRegistros;
    Spedfiscal.Bloco_G.NomeArquivo := Edit2.Text;
    Spedfiscal.Bloco_G.LoadFromFile;
    Spedfiscal.WriteBloco_G;
    Spedfiscal.SaveFileTXT;
end;
 

[Juliomar Marchetti]

Existe um componente ou mais que fazem a importação do sped para o componente

já viu eles?

[Magnus R. Souza]

12 horas atrás, Juliomar Marchetti disse:

Existe um componente ou mais que fazem a importação do sped para o componente

já viu eles?

Bom dia;

Eu utilizei o TACBrSpedfiscalImportar, tentei fazer a importação do arquivo do Bloco_G individualmente através deste, mas também não obtive resultado positivo. Como o SPED em questão é o EFD ICM-IPI, não utilizei o TACBrSpedPCImportar por ser para EFD Contribuição (PIS/COFINS).

Se existe outro componente que possa fazer a importação individualmente do BLOCO_G para o arquivo SPED já importado, por favor me ajude!!!!!!

Obrigado.

[Juliomar Marchetti]

que saiba tem para os dois

[Magnus R. Souza]

7 minutos atrás, Juliomar Marchetti disse:

que saiba tem para os dois

Agradeço pela informação. Porém como já relatei, não funcionaram para o problema em questão. Não sei se faltou alguma outra instrução ou se realmente não é possível.

 

[BigWings]

Seria o ACBrSpedFiscalImportar, mas não tem o bloco G implementado nele, nem está 100% para os blocos já implementados.

unit ACBrEFDImportar;

interface

uses
  Classes,
  SysUtils, ACBrBase,
  {$IFDEF FPC}
    LResources,
  {$ENDIF}
  ACBrUtil, ACBrSpedFiscal, ACBrEFDBlocos,
  ACBrEFDBase,
  ACBrEFDBloco_0_Importar,
  ACBrEFDBloco_C_Importar,
  ACBrEFDBloco_D_Importar,
  ACBrEFDBloco_E_Importar,
  ACBrEFDBloco_H_Importar,
  ACBrEFDBloco_1_Importar,
  ACBrEFDBloco_K_Importar;

 

[Juliomar Marchetti]

4 minutos atrás, Magnus R. Souza disse:

Agradeço pela informação. Porém como já relatei, não funcionaram para o problema em questão. Não sei se faltou alguma outra instrução ou se realmente não é possível.

 

Então se quiser contribuir com o projeto basta implementar o que falta e anexar que validamos

[Magnus R. Souza]

9 minutos atrás, BigWings disse:

Seria o ACBrSpedFiscalImportar, mas não tem o bloco G implementado nele, nem está 100% para os blocos já implementados.

unit ACBrEFDImportar;

interface

uses
  Classes,
  SysUtils, ACBrBase,
  {$IFDEF FPC}
    LResources,
  {$ENDIF}
  ACBrUtil, ACBrSpedFiscal, ACBrEFDBlocos,
  ACBrEFDBase,
  ACBrEFDBloco_0_Importar,
  ACBrEFDBloco_C_Importar,
  ACBrEFDBloco_D_Importar,
  ACBrEFDBloco_E_Importar,
  ACBrEFDBloco_H_Importar,
  ACBrEFDBloco_1_Importar,
  ACBrEFDBloco_K_Importar;

 

Muito Obrigado, vou tentar alguma solução e posteriormente posto aqui o que consegui.

9 minutos atrás, Juliomar Marchetti disse:

Então se quiser contribuir com o projeto basta implementar o que falta e anexar que validamos

Obrigado pelos comentários, vou tentar alguma solução e posteriormente posto aqui o que conseguir.

[Magnus R. Souza]

Boa tarde.

Consegui resolver o meu problema e ao mesmo tempo implementar nos fontes do projeto a importação do Bloco_G, bem como do grupo de registros 0300 também, pois deste a importação também não havia sido implementado ainda. Com essa implementação consegui fazer a importação não só do Bloco_G mas também dos registros 0300, 0305, 0500 e 0600, que são responsáveis pela escrituração de todo o Ativo Imobilizado mais o CIAP. 

Deixo em anexo os arquivos fontes para que sejam testados e validados pelos moderadores.

ACBrEFDBloco_G.pas ACBrEFDBloco_G_Class.pas ACBrEFDBloco_0_Importar.pas ACBrEFDBloco_G_Importar.pas ACBrEFDImportar.pas

[Juliomar Marchetti]

Em 28/05/2021 at 15:55, Magnus R. Souza disse:

Boa tarde.

Consegui resolver o meu problema e ao mesmo tempo implementar nos fontes do projeto a importação do Bloco_G, bem como do grupo de registros 0300 também, pois deste a importação também não havia sido implementado ainda. Com essa implementação consegui fazer a importação não só do Bloco_G mas também dos registros 0300, 0305, 0500 e 0600, que são responsáveis pela escrituração de todo o Ativo Imobilizado mais o CIAP. 

Deixo em anexo os arquivos fontes para que sejam testados e validados pelos moderadores.

ACBrEFDBloco_G.pas 16 kB · 1 download ACBrEFDBloco_G_Class.pas 15 kB · 1 download ACBrEFDBloco_0_Importar.pas 9 kB · 0 downloads ACBrEFDBloco_G_Importar.pas 5 kB · 0 downloads ACBrEFDImportar.pas 9 kB · 0 downloads

Então temos que manter compatibilidade.

necessário rever os dois primeiros arquivos.

[Juliomar Marchetti]

Consegue validar isso , senão alguém que precisar gerar arquivos retroativos vai ter problemas

[Magnus R. Souza]

Bom dia;

Fiz a revisão dos arquivos, mantive as compatibilidades, o campo VL_PARC_APROP do registro G125 na versão 103 está comentado por não fazer parte do Layout, estava causando erro de quantidade de campos na importação no Validador EFD-ICMS-IPI. Após os ajustes o arquivo TXT está sendo importado e validado com sucesso no Validador EFD ICMS IPI. Estou anexando novamente todos os fontes trabalhados para avaliação. 

ACBrEFDBloco_G.pas ACBrEFDBloco_G_Class.pas ACBrEFDBloco_0_Importar.pas ACBrEFDBloco_1_Importar.pas ACBrEFDBloco_G_Importar.pas ACBrEFDImportar.pas

[Juliomar Marchetti]

No svn. obrigado