PHSYS - Wiki

Para o acompanhamento da execução de script pelo cadastro de processos, podemos utilizar alguns procedimento para atualizar o andamento do processo durante sua execução.

Procedimentos

• SetTotalProcesso(valor: Double): Definir o valor total do processo, que será correspondente a 100% do processo. Quando informado o total, o percentual de execução será calculado de acordo com a proporção do percentual informado sobre o total.
• SetPercentualProcesso(valor: Double): Quantidade proporcional ao percentual do processo. Informar o percentual, ou a quantidade proporcional em relação ao total para que seja calculado automaticamente o percentual de execução.
• AddLogProcesso(pLog: String): Adicionar registro de log ao processo.

Observação: esses procedimentos só têm efeito quando o script está de fato sendo executado como um processo (via agendamento ou por TPHProcScript.ExecutarProcesso, conforme abaixo). Se chamados fora desse contexto, são ignorados silenciosamente, pois dependem de um processo em andamento associado à execução.

Exemplo

 { Exemplo aplicação do script  }
 
 procedure ProcessoTeste;
 var
   I:Integer;
 begin
   SetTotalProcesso(100);
   try
     for I := 0 to 99 do
     begin
       SetPercentualProcesso(I);
       Sleep(100);
     end;
   except
     AddLogProcesso(MensagemErro);
     
     ErroValidacao(MensagemErro);
   end;
 end;

Para que o script seja executado diretamente no servidor, é necessário que a chamada seja por agendamento ou por script iniciado no cliente conforme descrito em TPHProcScript com o procedimento ExecutarProcesso.