SPED Contábil - Layout 4

[Leandro Paixão]

Bom dia a todos!

Estão sabendo do layout 4 do SPED Contábil?

Já temos algum andamento em relação a atualização desse novo layout?

 

Um abraço.

[Juliomar Marchetti]

Agora, Leandro Paixão disse:

Bom dia a todos!

Estão sabendo do layout 4 do SPED Contábil?

Já temos algum andamento em relação a atualização desse novo layout?

 

Um abraço.

Não! mas fique a vontade

contribuições são sempre bem vindas

[Anderson Nunes Kovaski]

Bom dia pessoal,

Aqui onde trabalho, estou precisando implementar o Layout 4, mas não usaremos a funcionalidade na sua totalidade. Há um novo campo IDENT_MF (identificador de moeda funcional) no registro 0000, em que, caso alimentado com 'S', é necessário alimentar os registros   I155, I157, I200, I250, I310 e I355. Mas, utilizaremos este campo com 'N', sendo assim não necessário alimentar estes registros. Outra alteração é necessária no registro J150, dois campos novos.

A dúvida é, posso contribuir parcialmente com o projeto (apenas alteração nos registros 0000 e J150)? E se sim, como proceder.

Abraço...

[Juliomar Marchetti]

implemente, teste e depois anexe aqui os fontes que fazemos o merge e conferimos

22 horas atrás, Anderson Nunes Kovaski disse:

Bom dia pessoal,

Aqui onde trabalho, estou precisando implementar o Layout 4, mas não usaremos a funcionalidade na sua totalidade. Há um novo campo IDENT_MF (identificador de moeda funcional) no registro 0000, em que, caso alimentado com 'S', é necessário alimentar os registros   I155, I157, I200, I250, I310 e I355. Mas, utilizaremos este campo com 'N', sendo assim não necessário alimentar estes registros. Outra alteração é necessária no registro J150, dois campos novos.

A dúvida é, posso contribuir parcialmente com o projeto (apenas alteração nos registros 0000 e J150)? E se sim, como proceder.

Abraço...

 

[Anderson Nunes Kovaski]

Olá! Segue arquivos alterados.

ACBrSPEDContabil.zip

[Juliomar Marchetti]

38 minutos atrás, Anderson Nunes Kovaski disse:

Olá! Segue arquivos alterados.

ACBrSPEDContabil.zip

Obrigado já está no svn a contribuição!

[ALUISIO]

os registros j100 e j150, estão com o contador de registros duplicados, como resolvo?

 

[Leandro Paixão]

11 minutos atrás, ALUISIO disse:

os registros j100 e j150, estão com o contador de registros duplicados, como resolvo?

 

Bom dia Aluisio,

Pela implementação que temos aqui na empresa, não estamos com esse problema. Será que no seu fonte não está realizando duas chamadas ou algo parecido?

Editado 29 Abril, 2016 por Leandro Paixão

[Dalvan]

Boa Tarde,

Fiz uma alteração no SPED Contábil  no Registro J150: Demonstração do Resultado do Exercício, existem campos novos somente para lay-out 4.00 a partir de 2015, em anos anteriores, não deve existir os campos.

Também tem uma otimização na Totalização dos Termos referente a quantidade de linhas do arquivo.

Anexo alterações.
 

acbr_SpedContabil_J150.zip

[Dalvan]

Em 20/05/2016 at 14:42, Dalvan disse:

Boa Tarde,

Fiz uma alteração no SPED Contábil  no Registro J150: Demonstração do Resultado do Exercício, existem campos novos somente para lay-out 4.00 a partir de 2015, em anos anteriores, não deve existir os campos.

Também tem uma otimização na Totalização dos Termos referente a quantidade de linhas do arquivo.

Anexo alterações.
 

acbr_SpedContabil_J150.zip

 

[Juliomar Marchetti]

     3.2 - Não faça "bump" de forma excessiva (postar simplesmente para que um tópico vá para o topo da lista). Isso é considerado flooding.

Favor leia as regras do fórum.

Esse trecho não ficou bom!

No caso mudou de TFileStream pra TStringList!

 

procedure TACBrSPEDContabil.TotalizarTermos;
var
  txtIn,txtOut: TextFile;
  sTotal,sLinha,sFileNameTmp: String;
begin
  sTotal := FACBrTXT.LFill(Bloco_9.Registro9999.QTD_LIN, 9, false);
  sFileNameTmp := FACBrTXT.NomeArquivo + '.tmp';
  // Renomear Arquivo gerado e abrir no TxtIn
  RenameFile(FACBrTXT.NomeArquivo, sFileNameTmp);
  AssignFile(TxtIn, sFileNameTmp);
  Reset(TxtIn);
  // Novo Arquivo a ser gerado e abrir no TxtOut
  AssignFile(TxtOut, FACBrTXT.NomeArquivo);
  Rewrite(TxtOut);
  // Trocar [*******] somente nas linhas que existem
  try
    while not Eof(TxtIn) do
    begin
      Readln(TxtIn, sLinha);
      if Copy(sLinha,1,6)='|I030|' then
        sLinha:=StringReplace(sLinha,'[*******]',sTotal,[rfReplaceAll]);
      if Copy(sLinha,1,6)='|J900|' then
        sLinha:=StringReplace(sLinha,'[*******]',sTotal,[rfReplaceAll]);
      Writeln(TxtOut, sLinha);
    end;
  finally
    CloseFile(TxtIn);
    CloseFile(TxtOut);
    DeleteFile(sFileNameTmp)
  end;
end;

 

[Dalvan]

Boa tarde,

desculpe por reenviar o post, cliquei em citar indevidamente.

No caso da sped contábil, temos clientes com grande movimentação, que geram arquivos enormes, a função atual faz uma leitura caracter por caracter usando o TFileStream ,
para gerar nosso maior cliente, levou cerca de 10 minutos, somente nesse trecho, para totalizar as linhas.

Fiz um teste e estou usando essa função modificada usando o TextFile que faz a leitura linha a linha.

Att
Dalvan

[EMBarbosa]