Gerar Bloco X de estoque com buffer de linhas

[magnosystem]

Boa noite pessoal.

Estou gerando um arquivo de estoque utilizando o ACBRBlocoX sendo que este arquivo tem o total de 3780 produtos com estoque. O que ocorre é que na hora de salvar o arquivo usando o método SavetoFile ocorre um erro "Out of Memory". Notei que no ACBRSPED tem como gravar concomitantemente como demonstra o exemplo. Gostaria de saber como driblar esta situação para evitar este erro.

[Juliomar Marchetti]

Bom já até temos algo informado aqui

só ainda não deu tempo para fazer os testes e poder aplicar modificações

[Daniel Simoes]

Modifiquei o "ACBrBlocoXDemo", para gerar 100.000 itens, e consegui gerar um XML de 38MB...   (porém eu uso Lazarus 1.6/FPC3.0)

Sabe me dizer em que ponto o erro ocorre ? Insira um BkPoint em "TACBrBlocoX_Estoque.GerarXML", unit ACBrBlocoX_Estoque.pas... veja se o estouro ocorre no Loop desse método... ou na Assinatura

[magnosystem]

Daniel, o erro ocorre no GERAR XML pois fiz o teste para não fazer a assinatura e deu o erro do mesmo jeito. Eu ainda tentei pegar o valor que retorna na variável Estoque.xmloriginal e jogar em uma variável TStringList que eu criei para depois fazer o arquivo txt linha a linha mas no momento em que peguei o valor de xmloriginal e joguei para minha variável já deu o erro.

[Daniel Simoes]

A correção para esse problema pode ser MUITO difícil... pois exigiria um refactoring no ACBr, para troca do PCN como gerador do XML...

Minha sugestão é você gerar o XML de outra forma (usando alguma classe do Delphi) e usar o ACBr apenas para assinar e transmitir

[Daniel Simoes]

Humm.. pensei em outro fator...

Seria praticamente impossível enviar um arquivo XML de vários Mb por um WebService... por isso a WebService da NFe limita o tamanho do lote em 500kb

Certamente os gênios que criam o PAF-ECF não pensaram nesse detalhe...

[Juliomar Marchetti]

11 minutos atrás, Daniel Simoes disse:

Humm.. pensei em outro fator...

Seria praticamente impossível enviar um arquivo XML de vários Mb por um WebService... por isso a WebService da NFe limita o tamanho do lote em 500kb

Certamente os gênios que criam o PAF-ECF não pensaram nesse detalhe...

Quase certeza!

[magnosystem]

Pois é Daniel. Sorte que por enquanto só estão validando. Quanto a correção, peguei o arquivo xsd pelo link que achei aqui no forum e pelo XML DATA BINDER do delphi vai ser tranquilo fazer. Fica a dica para se alguém ler este post e trabalhar com delphi.