F�rum Aguardar procedure finalizar #616781

25/09/2021

Tenho uma tela onde realizo a importa��o de CFe e estou realizando algumas melhorias nela. Antes s� era poss�vel importar os arquivos de uma empresa por vez. "Agora estou tentando importar de 3 empresas por vez." Coloquei 3 combo box onde o usu�rio escolhe a empresa e os edits onde fica o patch dos arquivos. Fiz um for onde valida se um chebox est� true / false de cada empresa se vai importar ou n�o. Caso estiver true vai chamar a procedure que realiza a importa��o e dentro desta procedure existe uma anonymous thread apenas para o windows n�o ficar marcando o sistema como "n�o respondendo".

  for Cont := 0 to Self.ComponentCount - 1 do begin
    if (Self.Components[Cont] is TCheckBox) then begin
      if ((Self.Components[Cont] as TCheckBox).Name = 'CheckBoxUnid1') and ((Self.Components[Cont] as TCheckBox).Checked = True) then begin
        ImportacaoCFe(cmbUnidadeNegocio1,edtOrigem1);
      end;

      if ((Self.Components[Cont] as TCheckBox).Name = 'CheckBoxUnid2') and ((Self.Components[Cont] as TCheckBox).Checked = True) then begin
        ImportacaoCFe(cmbUnidadeNegocio2,edtOrigem2);
      end;

      if ((Self.Components[Cont] as TCheckBox).Name = 'CheckBoxUnid3') and ((Self.Components[Cont] as TCheckBox).Checked = True) then begin
        ImportacaoCFe(cmbUnidadeNegocio3,edtOrigem3);
      end;

    end;
  end;

O problema � que se eu tentar importar as tr�s lojas ao mesmo tempo, ele chama a procedure 3 vezes ao mesmo tempo e isso causa erro pois come�a bagun�ar as informa��es das lojas que a procedure recebe.

Existe uma forma de eu aguardar o processamento da procedure para depois ele continuar o for?

Ou de que outra maneira eu poderia fazer isso?

Paulo

Curtir t�pico

+ 0

Responder

Posts

27/09/2021

Emerson Nascimento

var
  Componente: TComponent;

for Cont := 0 to Self.ComponentCount - 1 do
begin
  Componente := Self.Components[Cont];
  if (Componente is TCheckBox) then
  begin
    if (Componente.Name = 'CheckBoxUnid1') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio1,edtOrigem1);
 
    if (Componente.Name = 'CheckBoxUnid2') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio2,edtOrigem2);
 
    if (Componente.Name = 'CheckBoxUnid3') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio3,edtOrigem3);
  end;
end;

voc� pode deixar de usar thread e usar, dentro das itera��es, o comando Application.ProcessMessages.
ou manter o uso da thread e torn�-la autossuficiente, de modo a criar os datasets necess�rios em tempo de execu��o no escopo da thread, para n�o misturar informa��es por usar datasets comuns.

Responder

Gostei + 0

27/09/2021

Paulo

var
  Componente: TComponent;

for Cont := 0 to Self.ComponentCount - 1 do
begin
  Componente := Self.Components[Cont];
  if (Componente is TCheckBox) then
  begin
    if (Componente.Name = 'CheckBoxUnid1') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio1,edtOrigem1);
 
    if (Componente.Name = 'CheckBoxUnid2') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio2,edtOrigem2);
 
    if (Componente.Name = 'CheckBoxUnid3') and TCheckBox(Componente).Checked then
      ImportacaoCFe(cmbUnidadeNegocio3,edtOrigem3);
  end;
end;

Valeu pena dica, optei por criar os datasets em tempo de execu��o assim posso fazer os 3 processos ao mesmo tempo fazendo com que eu economize muito tempo.

Responder

Gostei + 0