Histórico da Página

#INCLUDE "PROTHEUS.CH"  

user function PBENEAPI()
local aBenef    := paramixb[1]
local aRet      := {}
local nX        := 1

for nX:=1 to len(aBenef)
    //Só adiciono beneficiarios do plano PF
    if aBenef[nX]:hasProperty('beneficiary') .and. aBenef[nX]['beneficiary']['healthInsurance']['code'] == '0001'
        aadd(aRet,aBenef[nX])
    endif
next

if len(aRet) == 0
    oObj := PLSBenefElegDao():new()
    oObj:elegibility(nil, "Nenhum beneficiario encontrado")
    aRet := oObj:aBeneficiaries
endif

return aRet