Bloco X Estoque - Lentidao

[leandro.rezende]

Não sei se estou fazendo algo errado, mas quando estou gerando o arquivo de estoque do BlocoX está demorando muito, mas muito mesmo.

A base de dados de teste que estou usando tem +-15.000 produtos, está levando mais de 30 minutos pra gerar o XML

A demora está dentro do GerarXML no laço de repetição

for I := 0 to Produtos.Count - 1 do
    begin
      FGerador.wGrupo('Produto');
      FGerador.wCampo(tcStr, '', 'Descricao', 0, 0, 1, Produtos.Descricao);
      FGerador.wCampo(tcStr, '', 'Codigo', 0, 0, 1, Produtos.Codigo.Numero, '', True, 'Tipo="' + TipoCodigoToStr(Produtos.Codigo.Tipo) + '"');
      FGerador.wCampo(tcStr, '', 'Quantidade', 1, 20, 1, Produtos.Quantidade);
      FGerador.wCampo(tcStr, '', 'Unidade', 0, 0, 1, Produtos.Unidade);
      FGerador.wCampo(tcStr, '', 'ValorUnitario', 1, 20, 1, FloatToIntStr(Produtos.ValorUnitario, 2));
      FGerador.wCampo(tcStr, '', 'SituacaoTributaria', 1, 1, 1, SituacaoTributariaToStr(Produtos.SituacaoTributaria));
      FGerador.wCampo(tcStr, '', 'Aliquota', 4, 4, 1, FloatToIntStr(Produtos.Aliquota, 2));
      FGerador.wCampo(tcStr, '', 'IndicadorArredondamento', 1, 1, 1, IfThen(Produtos.IndicadorArredondamento, '1', '0'));
      FGerador.wCampo(tcStr, '', 'Ippt', 1, 1, 1, IpptToStr(Produtos.Ippt));
      FGerador.wCampo(tcStr, '', 'SituacaoEstoque', 1, 1, 1, IfThen(Produtos.Quantidade >= 0, 'P', 'N'));
      FGerador.wGrupo('/Produto');
    end;

ps. para fazer os testes de desenvolvimento de interface etc, comentei tudo pq ficou inviável esperar o processamento.

 

[Daniel Simoes]

Muitos Itens... provavelmente o ACBr não conseguirá gerar um XML tão grande... nem mesmo assiná-lo... Ele não foi projetado para lidar com XMLs como "Stream"... ele gera e manipula todo o XML em um "AnsiString"

Leve em conta ainda, o tempo necessário para subir no WebService um XML tão grande...

[leandro.rezende]

Daniel, o arquivo foi gerado e assinado, ficou em +-5MB.

Essa base de dados é de um deposito de material de construção, supermercados vao ter mais de 15.000 com certeza.

Gerar um arquivo texto "normal" é rapidinho,  as funções wgrupo e wcampo que deixaram o processo lento.

 

[Daniel Simoes]

Como disse.. essas rotinas não foram projetadas para uma base desse tamanho... Você pode gerar o XML usando as classes do Delphi, e apenas usar o ACBr para assinar e enviar...

Agora... Será praticamente impossível, transmitir um arquivo desse tamanho para o WebService do fisco...

 

O fato é... Essa exigência de envio do Estoque total, por parte do fisco de "SC", é mais um capítulo das estórias de horror, que eles nos impõe... Exigências sem pé nem cabeça, mal projetadas, e sem um debate sincero e real com os contribuintes e Software Houses... Não vejo isso funcionando na prática...

Em vez de facilitar a vida, de quem quer agir de forma correta ao emitir documentos fiscais,... Ficam inventando esses requisitos "nonsense"

 

[leandro.rezende]

É oque vou fazer de momento Daniel, gerar o o XML "manualmente" e assinar pelo ACBr,

Quanto a exigência, penso igual a você, inventam cada coisa, e soltam a batata quente para nós.

obrigado pela atençao.

 

[Juliomar Marchetti]

 Conforme repassei não é de conhecimento de todos mas estão recrutando empresas para fazer testes com eles!

não tenho o e-mail aqui do fiscal que mandou para pedir quem quer participar.

[Daniel Simoes]

Passa o endereço dele... assim podemos mandar para o "Unabomber"...

[Juliomar Marchetti]

ahahahahahahahaha tive que rir Daniel

[Anderson Eccker]

Leandro o arquivo ficou 5MB já zipado? Conseguiu transmitir para o fisco?
Temos um cliente com mais de 100mil produtos cadastrados, quero só ver como vai ficar isso.