Magnus R. Souza

Boa tarde a todos; Segundo foi promulgado no Diário oficial de União o Governo Federal concedeu beneficio ás empresas da área de eventos e afins, conforme a Lei nº 14.148/2021 intitulada de "Programa Emergencial de Retomada do Setor de Eventos (Perse)", os artigos de 4 á 6 foram inicialmente vetados pelo Presidente, porém o Senado derrubou o veto e promulgou no Diário oficial da União na data de 18/03/2022 e edição extra, trazendo para as empresas o benefício de aliquota zero para PIS, COFINS, CSLL e IRPJ. Conforme anexos. Muito bem, como o ERP da empresa está todo configurado para aplicação do imposto e todos os produtos com os quais trabalhamos estão com suas configurações e tributos associados de forma a tributar pis e cofins quando for necessário, achei mais fácil alterar o arquivo TXT do SPED Contribuição para contemplar esse benefício. Escrevi um código que basicamente altera os cst de saída de "tributado a alíquota básica" para "Operação Tributável a Alíquota Zero". em resumo altera os CST 01 para 06 e zera as bases de cálculo, alíquotas e valor do imposto. além disso já escritura a natureza da receita, sob o código 920 - perse, no Bloco M - Registro M400 e M410 e Registro M800 e M810. Segue em anexo o arquivo .pas e .dfm este é um formulário secundário de uma aplicação maior onde o componente TACBrSPEDPisCofins está no formulário principal da aplicação. Espero estar contribuindo para que outros possam fazer uso deste como um exemplo de implementação. Abraço a todos. 2022_03_18_ASSINADO_do1_extra_B.pdf LEI Nº 14.148, DE 3 DE MAIO DE 2021 - L...MAIO DE 2021 - DOU.pdf U_Perse.dfm U_Perse.pas

Boa noite, perdoem pelo lapso de tempo para retornar, recompilei a minha ferramenta de EFD ICMS IPI e está tudo funcionando perfeitamente, as importações e exportações de dados estão consistentes e sem distorções ou faltas nos resultados. Agradeço a equipe e sempre que eu puder ajudar, estou a disposição.

Boa tarde a todos; Estou adicionando aqui os arquivos ACBrEFDBloco_1_Importar.pas e ACBrEFDBloco_1.pas com alterações e implementação de importação do Registro 1601. Mais uma vez agradeço a este fórum e ao ProjetoACBr. ACBrEFDBloco_1.pas ACBrEFDBloco_1_Importar.pas

Bom dia. Sim, o que está no outro tópico com os fontes do programa exemplo contempla todas as correções feitas. Se quiser, pode excluir este tópico.

Boa tarde. Depois do meu primeiro tópico aqui no fórum, onde eu buscava uma solução para a importação do BLOCO_G gerado por empresa terceirizada, Agora venho lhes trazer a aplicação que desenvolvi para tal função. Essa aplicação não só importa o Bloco G, mas também insere o crédito no Registro E110, calcula o valor do ICMS apurado e atualiza o valor do ICMS a ser pago no Registro E110 e no E116, também insere o código de Ajuste RS... no Registro E111 (Vale lembrar que este código varia de UF para UF). De quebra, como o ERP que usamos não zera as DANFEs REFERENCIADAS de cupons fiscais ao exportar o arquivo do SPED, então criei uma rotina para zerar as Danfes com CFOP 5929. Registros C100 e C190 de saída. Estou deixando aqui a minha contribuição para com esta comunidade que me foi muito útil, deixo os fontes (COMENTADOS) da aplicação e a atualização do ACBrEFDBloco_G_Importar. ACBrEFDBloco_G_Importar.pas Ciap.dpr Ciap.dproj Ciap.dproj.local Ciap.identcache Ciap.res Ciap_Icon.ico Principal.dfm Principal.pas

Boa tarde; Estou deixando novamente o Arquivo pois a versão que está no SVN não tem os campos de importação DT_INI e DT_FIN para o Registro G110 o que causa erro nos dados do arquivo importado. ACBrEFDBloco_G_Importar.pas

Bom dia. Detectei uma incompatibilidade de tipos no arquivo ACBrEFDBloco_G_Importar.pas na linha 109, Atribuição incompátivel - NUM_PARC := ValorFV; Atribução correta - NUM_PARC := ValorI; Estou anexando o Arquivo corrigido. ACBrEFDBloco_G_Importar.pas

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

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

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

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.

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.

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;