UPC - Entrar no Sistema

faz uma upc no programa seapi004aa, segue um exemplo.
No meu caso eu tenho 2 situações:
1 - um mesmo usuario com muitas sessões abertas, então eu estipulei uma quantidade de sessões por usuario, porque aqui eles abrem o datasul varias vezes comendo licença a toa.
2 - um usuario descobre a senha do outro usuario e faz merda no sistema, então, para alguns usuarios critico, só consegue se logar se estiver na sua maquina.

Código:

/*  ------------------------------------------------------------
    Programa .:
    Autor ....: Richard Edgar - Imesul
    Data .....:
    Descricao :
    ------------------------------------------------------------ */
    {grid2/error.i}

    using totvs.usuario.*.

    define variable error    as ExceptionControl no-undo.
    define variable verifica as VerificaSessoes  no-undo.

    define variable handleProc as handle no-undo.
    define variable handleWin  as handle no-undo.
   
    {utp/ut-glob.i}
    {include/i-epc200.i1}

    def input        param p-ind-event as char no-undo.
    def input-output param table for tt-epc.

    assign error    = ExceptionControl:getInstance()
           verifica = new VerificaSessoes().

    if p-ind-event = 'validation_login' then do:
        error:clearExceptions().
        do {&try}:
            verifica:processar().
        {&catch}
        error:showExceptions().
        if error:catchException() then stop.
    end.

nesse caso, quando o ponto validation_login é executado, o sistema já registrou o usuario no banco, então basta vc usar a função userid('emsfnd') pra saber qual é o usuario logado.