Descrição: | QIEIntAPI - Eventos de Integração do SIGAQIE 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:
|
Retorno: | xReturn, varia de acordo com o Evento (ParamIXB[4]), por exemplo:
|
| Eventos de chamada de Ponto de Entrada: | Varia de acordo com o Evento (ParamIXB[4]):
|
| Programa Fonte: | QualityAPIManager.prw QIELaudosEnsaios.prw InspecoesDeEntradasAPI.prw ResultadosEnsaiosInspecaoDeEntradasAPI.prw EnsaiosInspecaoDeEntradasAPI.prw FichasNaoConformidadesAPI.prw |
|
#DEFINE X5_CHAVE 3
User Function QIEINTAPI()
Local xReturn := Nil
Local aSX5 := Nil
Local cClasseAPI := Nil
Local cEndPoint := Nil
Local cEvento := Nil
Local oDados := Nil
If ParamIXB != Nil
oDados := ParamIXB[1]
cEndPoint := ParamIXB[2]
cClasseAPI := ParamIXB[3]
cEvento := ParamIXB[4]
EndIf
If cEvento == "laboratoriosRelacionadosAoUsuario"
xReturn := {}
If !Empty(oDados['loginUsuario']) .AND. oDados['loginUsuario'] == "USUARIO01"
aAdd(xReturn, "LABQUI")
Else
aSX5 := FWGetSX5( "Q2" )
aEval(aSX5, {|aItem| aAdd(xReturn, aItem[X5_CHAVE]) })
EndIf
ElseIf cEvento == "bloqueiaDataInspecao"
xReturn := .T.
ElseIf cEvento == "bloqueiaHoraInspecao"
xReturn := .T.
ElseIf cEvento == "complementoAmostra"
//Meu complemento de amostra
ElseIf cEvento == "complementoResultados"
//Meu complemento de resultados
ElseIf cEvento == "complementoLaudo"
//Meu complemento de laudo
EndIf
Return xReturn |