Histórico da Página

User Function EDCRE400()
Local cParamIXB
Local aItPositivo:={}
Local aItNegativo:={}
    If ValType(ParamIXB) == "A"
        cParamIXB:= ParamIXB[1]
        aItPositivo:=ParamIXB[2]
        aItNegativo:=ParamIXB[3]
    Else
        cParamIXB:= ParamIXB
    EndIf
 
    Do Case
        Case cParamIXB == "RE400GRVANT_EXIBEMSG"
             if empty(aItNegativo)
                lExibeMsg1:=.F.             
             endIf   
    EndCase
 
Return