Consistência do Endereço IP da Estação

Este documento descreve os procedimentos necessários para a implementação de uma consistência que somente permite que o usuário efetue determinados procedimentos nos sistemas Web a partir de uma estação com um endereço IP específico ou com um endereço IP dentro de uma determinada faixa.

1º Passo: Criação de um campo de usuário na tabela R034FUN. Após a criação deste campo, ele deve ser habilitado na ficha cadastral (Shift + F9 na tela). Quando for informado um endereço IP, ele deve ser digitado sem zeros à esquerda e com todos os pontos, como 10.0.1.137, por exemplo.

2º Passo: Criação da regra que fará a consistência. Observar na regra abaixo as linhas destacadas em negrito, que explicam como proceder para obter faixa de IP:

Definir Cursor CUR_R034FUN;
Definir Alfa Xip;
Definir Alfa Ip_usu;

RetColabPorCodUsu(CodUsu, xNumEmp, xTipcol, xNumCad);
WRemoteAddr(xip);

/* Caso queira obter a faixa de IP, utilizar a função CopiarAlfa para obter a faixa, conforme abaixo */
/* CopiarAlfa (xip, 1, 2); */

Cur_R034FUN.SQL "SELECT R034FUN.USU_IP FROM R034FUN WHERE NUMEMP = :xNumEmp AND \
                 TIPCOL = :xTipCol AND NUMCAD = :xNumCad";

Cur_R034FUN.AbrirCursor();
se (Cur_R034FUN.Achou)
  inicio
    ip_usu = Cur_R034FUN.USU_IP;
    se (Xip <> ip_usu)
      Cancel(101);
fim;
Cur_R034FUN.FecharCursor();

3º Passo: Associação da regra criada acima à regra por processo ou por evento desejada.