rafael.andrade

Procedures e Funções Úteis 2015-01-23

Procedures e Funções Úteis

  1. rafael.andrade
    Include criada para facilitar o dia-a-dia com as seguintes Procedures e Funções:

    - PrintFile: Usado pelo XPrint
    - CriaMsg: Cria mensagem numa tabela temporária NO-UNDO para exibir depois da transação, desta forma os registros e a transação não fica bloqueada.
    - ExibirMensagens: Ao chamar esta procedure exibe as mensagens armazenadas pelo CriaMsg e limpa a tabela temporária em seguida.
    - TcpIP: Obtem o nome na rede e IP da máquina que executou o programa chamando esta procedure.
    - Sleep: Como o próprio nome diz, cria um tempo de Delay. Ao contrário do comando PAUSE essa procedure via API do Windows pausa em milissegundos.
    - EhNumero: Verifica se o caracter é número, ótimo para tratativa de strings, para remover números de uma String ou deixar só números.
    - EhPastaValida: Verifica se a caminho enviado é de uma pasta que existe fisicamente no disco.
    - ExisteArquivo: Verifica se o arquivo realmente existe no disco através do Propath.
    - Selecionar Pasta: Abre caixa de seleção de pasta.
    - UsuarioValido: Verifica se o Usuário e senha é válido no EMS sem precisar logar o usuário.
    - Logar: Realiza o login do usuário via API
    - EhIP: Validação de IP
    - Split: Quebra uma cadeia de caracteres em blocos e retorna uma variável Extent.
    - NumEntry: Retorna o número de entradas de uma cadeia de caracteres para usar com a Function ENTRY().
    - CountChar: Realiza a contagem de um caracter específico numa cadeia de caracteres

    Para usar esta include do jeito que está, basta mencioná-la antes do comando CREATE WIDGET-POOL (Numa WINDOW) e no topo se for uma procedure (.p).

    Exemplo:
    Código:
       {includes\procedures_functions.i}
       CREATE WIDGET-POOL.
    
    Abraço

    Rafael A. Andrade

    Não esquece de Avaliar ai do lado direito ====>
    avaliacao.png