PHSYS - Wiki

Conceito

Os scripts de sistema podem ser definidos diretamente no script da tela principal do sistema, permitindo associar procedimentos personalizados a eventos internos da aplicação. Esses eventos são disparados automaticamente em momentos específicos, como o fechamento do sistema ou de cadastros, possibilitando executar ações complementares, validações ou outras rotinas personalizadas.

Procedimentos Disponíveis

• OnCloseFormPrincipal: Este evento é acionado no momento em que o formulário principal do sistema está sendo encerrado. Pode ser utilizado para executar rotinas de finalização, gravação de logs, validações ou bloquear o fechamento do sistema sob determinadas condições.
  • Parâmetros:
    • CadastrosAbertos: String contendo a lista dos cadastros que estavam abertos no momento do fechamento. O formato é um JSON com informações sobre o nome do cadastro e os identificadores selecionados. Exemplo de formato:

[
 {"Nome": "BOLETOS", "IDs": "459,160"},
 {"Nome": "LANCAMENTOSTESOURARIA", "IDs": "186"}
] 

• • Exemplo: O exemplo abaixo demonstra como utilizar o ponto de execução OnCloseFormPrincipal para impedir o fechamento do sistema caso existam lançamentos de tesouraria não confirmados.

procedure OnCloseFormPrincipal(CadastrosAbertos:String);
var 
  pJson:TPHJson;
  I:Integer;
  Q:TPHQuery;                          
begin                                      
  if not (CadastrosAbertos = ) then  
  begin    
    pJson := TPHJson.Create;
    try
      pJson.LerJson(CadastrosAbertos);               
      for I := 0 to pJson.Count - 1 do
      begin
        { Tela de Lançamento da Tesouraria Aberta }                  
        if (pJson.Linha(I).ElementoDoNome('Nome').Texto = 'LANCAMENTOSTESOURARIA') then
          if not (pJson.Linha(I).ElementoDoNome('IDs').Texto = ) then                 
          begin
            Q := NewPHQuery;
            try
              Q.Add('SELECT ID '+
                    'FROM LANCAMENTOSTESOURARIA ' +
                    'WHERE SITUACAO = 1 '+
                    'AND ID IN ('+pJson.Linha(I).ElementoDoNome('IDs').Texto+')');
              Q.Open;

              if not (Q.Vazia) then
                ErroValidacao('não é possível fechar com lançamento da tesouraria não confirmado.'); 
            finally
              Q.Free;                                                
            end;              
          end;          
      end;                                        
    finally
      pJson.Free;                            
    end;
  end;
end;

• OnCloseFormCadastro: Este evento é acionado no momento em que um formulário de cadastro é fechado. Permite executar ações específicas relacionadas a cada cadastro, como validações, atualizações de status, etc.
  • Parâmetros:
    • Cadastro: Nome do cadastro que está sendo fechado.
    • IDs: Identificadores dos registros que estavam selecionados no momento do fechamento.
  • Exemplo: O exemplo abaixo demonstra como utilizar o ponto de execução OnCloseFormPrincipal para impedir o fechamento do sistema caso existam lançamentos de tesouraria não confirmados.

procedure OnCloseFormCadastro(Cadastro:String; IDs:String);
var 
  Q:TPHQuery;
begin
  if (Cadastro = 'LANCAMENTOSTESOURARIA') then
  begin
    if  not (IDs = ) then
    begin
      Q := NewPHQuery;
      try
        Q.Add('SELECT ID '+
              'FROM LANCAMENTOSTESOURARIA ' +
              'WHERE SITUACAO = 1 '+
              'AND ID IN ('+IDs+')');
        Q.Open;
        
        if not (Q.Vazia) then
          ErroValidacao('não é possível fechar com lançamento da tesouraria não confirmado.');    
      finally
        Q.Free;                                                
      end;                            
    end;      
  end;  
end;