#DEFINE X5_CHAVE 3
User Function QIPINTAPI()
Local aLabsFil := {}
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" .AND. !Empty(oDados['loginUsuario']) .AND. oDados['loginUsuario'] == "USUARIO01"
aAdd(aLabsFil, "LABQUI")
Else
ElseIf cEvento == "laboratoriosRelacionadosAoUsuario"
aSX5 := FWGetSX5( "Q2" )
aEval(aSX5, {|aItem| aAdd(aLabsFil, aItem[X5_CHAVE]) })
EndIf
Return aLabsFil | 