Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function GEM410LI()

Local aArea       := GetArea()
Local aParam    := PARAMIXB
Local nCntFor   := aParam[1]
Local lReturn     := .T.

If aParam <> Nil

      Alert( 'Passou pelo ponto de entrada GEM410LI / Linha: '+nCntFor )
      lReturn := MsgYesNo( 'Aceita os valoreslReturn := MsgYesNo( 'Confirma a inclusão do item'+Alltrim(STR(nCntFor))+'?', 'Validação de da linha.') 

EndIf

RestArea(aArea)

Return lReturn