Bloco X Estoque - Itens que vão

[willmesquita]

Boa tarde, quanto aos itens que irão no arquivo, são somente os que foram feitos compra, ou também os que foram tiveram somente saídas no período irão aparecer?

Edited February 10, 2020 by willmesquita

[Juliana Tamizou]

Boa tarde.

Pelo que me recordo, só ficam fora do arquivo de estoque os itens sem estoque.

Att.

[Djean Carlos Duarte]

Boa Tarde, 

Estou com problemas na geração do Arquivo de Estoque. A quantidade de itens com estoque ultrapassa 2 mil registros. 

Ao tentar gerar o arquivo através da função 'SaveToFile' me apresenta "Out of memory."

[Juliomar Marchetti]

Hum. não era pra dar problemas .

isso em debug? ou em runtime?

[Djean Carlos Duarte]

Boa Tarde, 

Em runtime.

[Juliomar Marchetti]

Digo que é estranho pois rodo com mais de 40 mil itens e não tenho o problema relatado.

[Djean Carlos Duarte]

bom dia Juliomar, 

estou com os fontes atualizados. com menos registros, uns 500 por exemplo consigo gerar.

Tens alguma luz ou dia pra mim? estou com este problema em vários clientes, que começaram a enviar o arquivo agora em março.

[Juliomar Marchetti]

Tem como postar um trecho do código que tu alimenta os itens do bloco X? pode ser um print

[Djean Carlos Duarte]

boa tarde, sim, segue o trecho do código:

          with ACBrBlocoX do
          begin
            CabecalhoBlocoX();

            // arquivo de Estoque
            with Estoque do
            begin
              //dataInicial := dataInicial;
              //dataFinal   := dataFinal;
              DataReferencia := dataFinal;

              Qaux := getQaux;
              Qaux.Close;
              Qaux.SQL.Text := '     select produto.procodigo,                               '+
                               '            produto.procodncm,                               '+
                               '            produto.pronome,                                 '+
                               '            produto.protipo,                                 '+
                               '            propreco.pprvalor,                               '+
                               '            classe.clasittrib,                               '+
                               '            coalesce(produto.proaliqicms,0) proaliqicms,     '+
                               '            produto.proiss,                                  '+
                               '            unidade.uninome,                                 '+
                               '            produto.proestoque                               '+
                               '       from produto                                          '+
                               ' inner join unidade                                          '+
                               '         on unidade.unicodigo = produto.unicodigo            '+
                               ' inner join classe                                           '+
                               '         on classe.clacodigo = produto.clacodigo             '+
                               ' inner join propreco                                         '+
                               '         on propreco.procodigo = produto.procodigo           '+
                               '        and propreco.precodigo = (select preco.precodigo     '+
                               '                                    from preco               '+
                               '                                   where preco.prepadrao = 1)'+
                               '      where produto.proestoque > 0                           '+
                               '   order by produto.procodigo                                ';
              Qaux.Open;

              Produtos.Clear;
              iRegistros:=0;
              while (not qAux.Eof) do
              begin
                with Produtos.Add do
                begin
                    Codigo.Tipo             := tpcProprio;
                    Codigo.CodigoProprio    := qAux.FieldByName('procodigo').AsString;
                    Codigo.CodigoNCMSH      := qAux.FieldByName('procodncm').AsString;
                    Descricao               := qAux.FieldByName('pronome').AsString;
                    ValorUnitario           := qAux.FieldByName('pprvalor').AsFloat;
                    Ippt                    := ipptTerceiros;

                    if (qAux.FieldByName('uninome').AsString = 'F') then
                      SituacaoTributaria      := stSubstTributaria
                    else if (qAux.FieldByName('uninome').AsString = 'I') then
                      SituacaoTributaria      := stTributado
                    else if (qAux.FieldByName('uninome').AsString = 'N') then
                      SituacaoTributaria      := stNaoTributado
                    else if (qAux.FieldByName('uninome').AsString = 'N') then
                      if (qAux.FieldByName('protipo').AsInteger = 2) then
                        begin
                            SituacaoTributaria := stISSQN;
                            Aliquota           := qAux.FieldByName('proiss').AsFloat;
                        end
                      else
                        SituacaoTributaria      := stTributado;
                    Unidade                 := qAux.FieldByName('uninome').AsString;
                    Quantidade              := qAux.FieldByName('proestoque').AsFloat;
                    IndicadorArredondamento := False;
                end;
                iRegistros := iRegistros+1;
                qAux.Next;
              end;
              SaveToFile(sNomeArqXML);
            end;
          end;
 

[Juliomar Marchetti]

Fiz um teste e gerou com 10k de registros. mas é claro não tenho certificado para assinar o arquivo.

tu consegue fazer a geração e no deploy tu pular a assinatura? basta ao chamar o evento

procedure TACBrBlocoX_Estoque.SaveToFile(

nele tem um outro método

GerarXML(AAssinar);

em debug altere o AAssinar para False veja se gera

[Djean Carlos Duarte]

Boa tarde Juliomar, 

Fiz o teste que solicitastes e apresentou "Out of memory" mesmo com AAssinar = false. Alguma outra luz ou teste que eu possa fazer? Obs.: acontece tanto em homologação como em produção.

[Juliomar Marchetti]

22 minutos atrás, Djean Carlos Duarte disse:

Boa tarde Juliomar, 

Fiz o teste que solicitastes e apresentou "Out of memory" mesmo com AAssinar = false. Alguma outra luz ou teste que eu possa fazer? Obs.: acontece tanto em homologação como em produção.

Então seu problema é ai, pois pelo seguinte, eu fiz o teste com 10 mil itens no XML, claro que com o exemplo e foi.

[EMBarbosa]

Em 17/03/2020 at 13:33, Djean Carlos Duarte disse:

boa tarde, sim, segue o trecho do código:

Quantos itens são? Qual a versão do seu Delphi? Testou com o aplicativo de exemplo?

[Djean Carlos Duarte]

7 minutos atrás, EMBarbosa disse:

Quantos itens são? Qual a versão do seu Delphi? Testou com o aplicativo de exemplo?

bom dia, 

se trata do Delphi 7. São 2800 itens aproximadamente.

[EMBarbosa]

2 minutos atrás, Djean Carlos Duarte disse:

bom dia, 

se trata do Delphi 7. São 2800 itens aproximadamente.

Você usa o FastMM? Se sim, qual versão?

[Djean Carlos Duarte]

41 minutos atrás, EMBarbosa disse:

Você usa o FastMM? Se sim, qual versão?

Sim, foi usado o FastMM, o Juliomar me auxiliou, mas não obtivemos sucesso.

A versão eu não saberia informar.

[EMBarbosa]

3 horas atrás, Djean Carlos Duarte disse:

Sim, foi usado o FastMM, o Juliomar me auxiliou, mas não obtivemos sucesso.

A versão eu não saberia informar.

Nesse caso deve ser a versão mais atual. O que limita então a ter que procurar o que realmente está causando o "Out of memory".

Talvez uma fragmentação da memória. Mas daí já complica...

[Djean Carlos Duarte]

19 horas atrás, EMBarbosa disse:

Nesse caso deve ser a versão mais atual. O que limita então a ter que procurar o que realmente está causando o "Out of memory".

Talvez uma fragmentação da memória. Mas daí já complica...

Bom dia, 

Resolvi da seguinte forma por sugestão do Juliomar, criei uma VM com Windows 10 e o Delphi 10.3.2 Rio, recompilei o PAF e consegui gerar o arquivo normalmente.

Obrigado.

[Juliomar Marchetti]

Só complementar, é algo do compilador do Delphi 7. ele tem limitações. e daqui uns dias nem o executável vai funcionar mais nas próximas atualizações ou versões do windows