'out Of Memory' Ao Salvar Arquivo Txt

[Leandro Paixão]

Bom dia pessoal!
 
Estou com o seguinte problema na empresa em que trabalho:
- Geramos o SPED Contábil para um cliente que possui muitas movimentações, assim os blocos I200 e I250 chegam a ter 2 milhões de registros. Ao gerar o SPED de 12 meses, em cerca de 50 minutos ocorre o estouro de memória. Debugando as units, identifiquei que o problema ocorre na hora de carregar as informações para a StringList, exatamente na função SaveStringList, na unit ACBrSpedContabil, quando carrega os registros na chamada :

if Bloco_I.RegistroI200.Count > 0 then AStringList.Add(Trim(WriteRegistroI200));

Para resolver este problema aqui na empresa, por enquanto, alterei a forma de salvar: em vez da StringList, estou utilizando um arquivo txt, que a cada linha informada do bloco I200 eu salvo no arquivo txt.

 

Não validamos aqui todas as informações do arquivo, mas a estrutura do arquivo já está ok.

 

Existe alguma alteração e/ou correção para este ponto? Ou alguém que utiliza a mesma rotina e tem um volume parecido de informações, já passou por isso?

 

O PC que utilizamos para teste é um Dell Vostro - Pentium Dual Core - 3 GB de Ram.

 

Desde já agradeço a atenção de todos.

[Juliomar Marchetti]

Bom dia!

iria sugerir usar a propriedade LinhasBuffer, que faz a gravação diretamente no txt, mas fui olhar e o código só está implementando ao fiscal e piscofins!

caso queira contribuir com o projeto e implementar isso no contábil se sinta a vontade para isso!

[Leandro Paixão]

Bom dia!

iria sugerir usar a propriedade LinhasBuffer, que faz a gravação diretamente no txt, mas fui olhar e o código só está implementando ao fiscal e piscofins!

caso queira contribuir com o projeto e implementar isso no contábil se sinta a vontade para isso!

Bom dia Juliomar!

Realizei algumas alterações para salvar diretamente no TXT.

Para quem posso mandar os arquivos para avaliação/teste?

 

Fico no aguardo.

Um abraço

[EMBarbosa]

Pode anexar aqui mesmo no fórum, por favor.

[Leandro Paixão]

Segue então os arquivos alterados.

Qualquer dúvida só entrar em contato.

 

Um abraço!

ACBrSpedContabil_Alterado.zip

Editado 2 Fevereiro, 2015 por leandropaixao

[Leandro Paixão]

Olá pessoal!

 

Realizei mais algumas alterações nos fontes, pois conforme o tamanho do arquivo ainda acontecia estouro de memória!

Segue em anexo, qualquer coisa só avisar!!

 

ACBrECDContabil_Alterado.zip

[Leandro Paixão]

Olá Pessoal!

Em nossos testes identificamos que o totalizador do registro I052 não estava aparecendo, realizei uma alteração no fonte para contabilizar este registro.

 

 

ACBrSPEDContabil.7z

[EMBarbosa]

Olá Leandro,

 

  Fui analisar o seu código hoje mas notei que no código anexo houve implementação de eventos. Gostaria de saber o motivo.

[Leandro Paixão]

Olá Leandro,

 

  Fui analisar o seu código hoje mas notei que no código anexo houve implementação de eventos. Gostaria de saber o motivo.

 

Bom dia Barbosa!

Já tinha comentado com o Isaque Pinheiro em outro post e estou realizando a alteração para retirada destes eventos.

 

Um abraço

[EMBarbosa]

Valeu Leandro. Assim que puder e tiver alguma novidade, avise. Bom trabalho aí!

[Leandro Paixão]

Valeu Leandro. Assim que puder e tiver alguma novidade, avise. Bom trabalho aí!

 

Boa tarde Barbosa!

 

Segue os fontes alterados conforme orientações.

Foram realizadas as seguintes alterações:

- Alteração na forma de salvar o arquivo, retirando de stringList e passando a utilizar o conceito de linhasbuffer (já implementado no Fiscal e PisCofins, na qual originou este tópico)

- Alteração no registro I051  que possui o campo COD_ENT_REF para o leiaute 2 e no leiaute 3 passou a ser COD_PLAN_REF. (alterei este nome pois conforme informações o leiaute 2 foi revogado)

 

Realizei as alterações conforme orientações nesse na qual foi passado pelo Isaque Pinheiro.

Se houver algum problema por favor me avise.

 

Um abraço.

 

ArquivosACBR.7z

 

 

 

[EMBarbosa]

Olá Leandro,

 

  Me parece que está tudo certo. Só uma pergunta, foi necessário a mudança dos métodos WriteRegistroxxxx de function para procedure, ou você fez isso mesmo para padronizar o código?

[Leandro Paixão]

Olá Leandro,

 

  Me parece que está tudo certo. Só uma pergunta, foi necessário a mudança dos métodos WriteRegistroxxxx de function para procedure, ou você fez isso mesmo para padronizar o código?

Olá Barbosa!

Foi necessário sim, pois a forma de salvar o arquivo é diferente!!!

[EMBarbosa]

Olá Barbosa!

Foi necessário sim, pois a forma de salvar o arquivo é diferente!!!

Foi pro SVN... Como eu pessoalmente não utilizo o SPED Contabil, precisamos que façam os testes.

[evandromira]

Estou com problemas ao compilar o pacote ACBrSPED

 

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas(1541) Error: Object or class type required

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas(1543) Error: Object or class type required

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBloco_0.pas(46) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas'

 

O problema é aqui comigo ou nos fontes do componente?

 

Ontem a tarde estava com outros erros, mas atualizei hoje e resolveu, só ficou esses ai citados acima

 

OBS: Delphi 7

Editado 16 Abril, 2015 por evandromira

[EMBarbosa]

 

Estou com problemas ao compilar o pacote ACBrSPED

 

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas(1541) Error: Object or class type required

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas(1543) Error: Object or class type required

C:\acbr\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBloco_0.pas(46) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBlocos.pas'

 

O problema é aqui comigo ou nos fontes do componente?

 

Ontem a tarde estava com outros erros, mas atualizei hoje e resolveu, só ficou esses ai citados acima

 

OBS: Delphi 7

 

Era no código. Corrigido na revisão 8770.

[araujolops]

Olá Leandro,

 

  Me parece que está tudo certo. Só uma pergunta, foi necessário a mudança dos métodos WriteRegistroxxxx de function para procedure, ou você fez isso mesmo para padronizar o código?

Olá Barbosa!

Foi necessário sim, pois a forma de salvar o arquivo é diferente!!!

Boa noite, tudo bem ?

Por um acaso você não teria um exemplo Do Bloco I Principalmente do Registro I052 ? Pois estou com dificuldade nesse trecho.

Obrigado.

[ESSystem]

Boa Noite !
Depois da Atualização do Trunk2 começou a ocorrer esse erro de estouro de memória. 
Em dados de clientes com muito movimento...
Pode ter havido algum problema na migração ?
Alguém mais está tendo esse problema ?

Obrigado !
Pontelo
ESSystem
 

[EMBarbosa]

Boa Noite !
Depois da Atualização do Trunk2 começou a ocorrer esse erro de estouro de memória. 
Em dados de clientes com muito movimento...
Pode ter havido algum problema na migração ?
Alguém mais está tendo esse problema ?

Obrigado !
Pontelo
ESSystem
 

Não... Você tem algum exemplo em como reproduzir o problema? Eu não utilizo o SPED Contabil.

[vipeol]

Olá,

 

  Como faço para usar o salvamento diretamente no txt para não usar tanta memória?

   Basta configurar o linhas buffer e a cada bloco criado chamar o write_blocoXXXX?

 

Obrigado