BTAPI910ZA - Api para login

CONTEÚDO

01. Visão geral

       O programa btb/btapi910za.p permite realizar o login no Produto Datasul, inicializando o ambiente, configurando as variáveis globais do sistema, validando a senha do usuário e registrando quaisquer erros encontrados neste processo.

02. Considerações Gerais

• A execução desta API não é de forma persistente, portanto, sua chamada é direta ao próprio programa e não a procedures internas.
• A API faz a autenticação de usuários internos e externos. O que difere os dois tipos de autenticação é o parâmetro do Código do usuário, onde se o mesmo possuir o caractere “/” (por exemplo: domínio/usuario), subentende-se que é um usuário externo e que deve ser validado no AD via LDAP. Além disso, o usuário externo informado deve existir no cadastrado na extensão de algum usuário. É importante que esse usuário externo consiga logar normalmente no Datasul via login padrão do produto.
• Por padrão não há controle de abertura de clientes Progress. Mas, caso seja necessário, é disponibilizada uma técnica para este controle.

03. Implementação

Parâmetros

Definição da temp-table

Define Temp-table tt-erros

    Field cod-erro  As Integer

    Field desc-erro As Character Format "x(256)":U

    Field desc-arq  As Character.

Exemplo de chamada da API (usuário interno)

Run btb/btapi910za.p ( Input "super":U, /* Usuário Interno do produto */
                       Input "super@123":U,
                       Output Table tt-erros).
For Each tt-erros:
    Message "Erro: "
            String(tt-erros.cod-erro) + " - ":U +
            tt-erros.desc-erro
            View-as Alert-box Information.
End.

Exemplo de chamada da API (usuário externo)

Run btb/btapi910za.p ( Input "totvs/fulano":U, /* Usuário externo/rede */
                       Input "senhafulano":U,
                       Output Table tt-erros).
For Each tt-erros:
    Message "Erro: "
            String(tt-erros.cod-erro) + " - ":U +
            tt-erros.desc-erro
            View-as Alert-box Information.
End.

Exemplo de chamada da API com controle de abertura do cliente Progress (usuário interno)

DEFINE VARIABLE hTeste AS HANDLE      NO-UNDO.

IF NOT VALID-HANDLE(hTeste) THEN
	RUN fwk/utils/ValidateClientExec.p PERSISTENT SET hTeste.

// True indica a opção por controlar a abertura de clients Progress
RUN isValidateClientExec IN hTeste (INPUT TRUE).

Run btb/btapi910za.p ( Input "super":U, /* Usuário Interno do produto */
                       Input "super@123":U,
                       Output Table tt-erros).
For Each tt-erros:
    Message "Erro: "
            String(tt-erros.cod-erro) + " - ":U +
            tt-erros.desc-erro
            View-as Alert-box Information.
End.
IF VALID-HANDLE(hTeste) THEN
    DELETE OBJECT hTeste.

Autenticação AD via LDAP UNIX

• Requisitos:
  • Biblioteca “libldap.so” (encontrada no pacote “openldap”).
  • A máquina em questão deve permitir comunicação com o servidor LDAP, através dos comandos “ldapsearch” ou “ldapwhoami”, é possível confirmar se o pacote “openldap” foi instalado com sucesso e está funcional.
    
    

• Variáveis de ambiente para autenticação UNIX no AD via LDAP :

• Em algumas implementações de servidor AD, o acesso ou leitura anônima não é possível. Nesses casos, é necessário fornecer um usuário e senha para permitir esse acesso ou leitura. As variáveis de ambiente a seguir são opcionais e devem ser utilizadas apenas quando o servidor AD apresenta essa restrição.