[RESOLVIDO] Erro de conexão com o gerenciador de licenças EMS 506

Antes da API do EMS, você tem que executar uma API de login e esta retorna uma tabela de erros:

Código:

Def Temp-table tt_erro_login No-undo
    Field ttv_num_cod_erro   As Integer
    Field ttv_cod_desc_erro  As Character.

RUN prgtec/btb/btb432zd.r (INPUT "usuario":U, INPUT "senha":U, OUTPUT TABLE tt_erro_login).

For Each tt_erro_login:
    Message "Erro: " 
            tt_erro_login.ttv_num_cod_erro skip
            tt_erro_login.ttv_cod_desc_erro 
            View-as Alert-box Information.
End.

/*--- Aqui vai a API do EMS ---*/