[RESOLVIDO] Rotina Trocar Empresa Datasul 12

Recortei do meu menu progress, veja se te ajuda, a parte referente a conexão de banco de dados basta chamar
run btb/btapi910za.p(usuario,senha, output table tt-erros).
que a api já conecta e desconecta tudo que precisa.

Código:

{utp/ut-glob.i}

{include/i-prgvrs.i CHAMADOR 1.00.00.000}

{include/i_dbinst.i}
{include/i_dbtype.i}

    find first fnd_usuar_univ exclusive-lock
         where fnd_usuar_univ.cod_usuario = v_cod_usuar_corren
               no-error.
    if not avail fnd_usuar_univ then do:
        create fnd_usuar_univ.
        assign fnd_usuar_univ.cod_usuario = v_cod_usuar_corren.
    end.

    assign fnd_usuar_univ.cod_empresa = string(empresa)
           fnd_usuar_univ.cod_livre_1 = i-ep-codigo-usuario
           fnd_usuar_univ.log_livre_1 = yes
           fnd_usuar_univ.log_livre_2 = no.

    release fnd_usuar_univ.
    empty temp-table ttErrosConexao.

    run piEmpresa  in hSPContexto.
    run getTTErros in HSPContexto (output table ttErrosConexao).
    if can-find(first ttErrosConexao) then do:
        message substitute('Erro conexão empresa &1', empresa)
            view-as alert-box info buttons ok.
        return 'NOK'.
    end.
    return 'OK'.