Ponto de Entrada para manipulação dos eventos de integração do SIGAQIP com o APP Minha Produção

Descrição:

QIPIntAPI - Eventos de Integração do SIGAQIP com as APIs do APP Minha Produção

Versões:

Microsiga Protheus 12

Idioma:

Português (Brasil)

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todos

Parâmetro:

ParamIXB[1] - Objeto Json com dados correspondentes ao evento (ParamIXB[4]), por exemplo:

  1. Evento "laboratoriosRelacionadosAoUsuario":
    1. oDados['loginUsuario'] -> Login do usuário logado


ParamIXB[2] - Endpoint de execução do ponto de entrada;
ParamIXB[3] - Classe da API relacionada;
ParamIXB[4] - Evento, exemplo:

  1. "laboratoriosRelacionadosAoUsuario" - Filtra os dados do aplicativo relacionados aos laboratórios retornados no array;

Retorno:

xReturn, varia de acordo com o evento(ParamIXB[4]), por exemplo:

  1. Evento "laboratoriosRelacionadosAoUsuario":
    1. aLabsFil - Array com relação de laboratórios que o usuário faz parte;
Eventos de chamada de Ponto de Entrada:Para o Evento 
Programa Fonte:EnsaiosInspecaoDeProcessosAPI.prw
#INCLUDE "TOTVS.CH" 

User Function QIPINTAPI()
    Local oDados     := Nil
    Local cEndPoint  := Nil
    Local cClasseAPI := Nil
    Local cEvento    := Nil
    Local aLabsFil   := {}
    
    If ParamIXB != Nil
        oDados     := ParamIXB[1]
        cEndPoint  := ParamIXB[2]
        cClasseAPI := ParamIXB[3]
        cEvento    := ParamIXB[4]
    EndIf

    If  cEvento == "laboratoriosRelacionadosAoUsuario" .AND. !Empty(oDados['loginUsuario'])
        aAdd(aLabsFil, "LABQUI")
    EndIf

Return aLabsFil