[RESOLVIDO] Rotina troca empresa

Olá.
Alguém tem a rotina ou procedimento do troca empresa ano TOTVS11 ?
Ou API de login passando usuário e empresa a contactar.

Bom dia Weiss_sbs

pode explicar melhor, o que precisa?

Olá Igor, já achei oque precisava obrigado.
Segue abaixo rotina para trocar empresa no TOTVS11.

def new global shared var v_cod_estab_usuar as char FORMAT "x(03)" no-undo.
def new global shared var v_cod_usuar_corren as char FORMAT "x(12)" no-undo.
def new global shared var v_cod_empres_usuar as char FORMAT "x(03)" no-undo.

Define Temp-table ttErrosConexao No-undo
Field i-sequen As Integer
Field cd-erro As Integer
Field mensagem As Character Format "x(255)".

Run btb/btb910za.p.

ASSIGN v_cod_empres_usuar = '1'.

Run btb/btb962za.p (Input '1',
Input v_cod_empres_usuar,
Input 1, /*(1-Login, 2-Consultar, 3-Transferir)*/
Input 1, /*Se a opção for Transferir, é possivel: 1-Conectar ou 2-Desconectar*/
Input '',
Output Table ttErrosConexao).