Histórico da Página

#INCLUDE "Protheus.CH"

User Function GP265VALPEGP120RHL()
Local lRet  := .T.

    // Caso o Contribuinte Individual está sendo incluído com E-mail Principal ou alterado com o E-mail PrincipalDEPENDENTES
    If  !Empty(Alltrim(M->RA_EMAIL)) .And. SRA->RA_EMAIL <> M->RA_EMAIL
        MsgInfo(Oemtoansi("Para contribuintes individuais o campo E-mail Principal nao devera ser preenchido."))RHN->RHN_XIDENT    := RHL->RHL_XIDENT
        lRet    := .F.
    EndIf

Return lRet
Return