Popular componente de forma mais rapida

[luisclaudio_jr]

Boa noite amigos.

 

Como estão?

Vejam se conseguem me auxiliar, até então a demanda maior de ctes que meus clientes tinham era em torno de 100~~200 ctes no manifesto.

Porém uma nova operação de um cliente é necessario colocar até 3mil ctes... O problema é que, hoje minha rotina atual faz basicamente um While e vem colocando um add nas chaves, protocolos, cidades de destino... Só que um while hoje de 3mil itens acaba levando um tempo... As vezes leva uns 10~~15min só pra montar o mdfe, dependendo da quantidade de registros..

Gostaria de saber se alguém ai já passou por isso e sabe de alguma forma pra agilizar o processo... Desde Já agradeço

 

 

[Italo Giurizzato Junior]

Boa tarde Luís,

MDF-e rodoviário?

3 mil CT-e informados no MDF-e?

Se é rodoviário o caminhão tem quantas carretas?

[luisclaudio_jr]

5 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Luís,

MDF-e rodoviário?

3 mil CT-e informados no MDF-e?

Se é rodoviário o caminhão tem quantas carretas?

Sim rodoviário, Então o peso final acaba sendo o peso normal, é coisinha miúda(cosméticos), as vezes nem 1kg pesa... Só que ai a emissão de cte é por nf, então acaba sendo volumosa a quantidade de informações.

 

 

[Leandro Miler Santana]

Caro amigo Luis Claudio, tenta dar uma refatorada no seu código.

Antes de popular o MDFe, desligue os controles DBware das tabelas, principalmente da tabela de CT-e principal e suas tabelas filhas ligadas a ela (Master-Detail),  segue um exemplo do site da Embarcadero:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Clear;
  ListBox1.Items[0]:= 'Destination Airports:';
  with Flights do
  begin
    DisableControls;
    try
      First;
      i:= 1;
      ListBox1.Items[0]:= 'Destination Airports:';
      while not Eof do
      begin
        ListBox1.Items[i]:= Fields[2].Value;;
        i:= i + 1;
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

Isso pode ajudar bastante.

Até mais !!

[luisclaudio_jr]

Em 10/09/2020 at 11:00, Leandro Miler Santana disse:

Caro amigo Luis Claudio, tenta dar uma refatorada no seu código.

Antes de popular o MDFe, desligue os controles DBware das tabelas, principalmente da tabela de CT-e principal e suas tabelas filhas ligadas a ela (Master-Detail),  segue um exemplo do site da Embarcadero:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Clear;
  ListBox1.Items[0]:= 'Destination Airports:';
  with Flights do
  begin
    DisableControls;
    try
      First;
      i:= 1;
      ListBox1.Items[0]:= 'Destination Airports:';
      while not Eof do
      begin
        ListBox1.Items[i]:= Fields[2].Value;;
        i:= i + 1;
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

Isso pode ajudar bastante.

Até mais !!

Opa, maravilha vou testar e comunico... Obrigado

[luisclaudio_jr]

Desabilitei algumas coisas conforme sugestão, consegui diminuir uns 3minutos... Já é alguma coisa.

 

Obrigado, podem fechar o tópico.

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.