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

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 ====>