TRM050GR - Validação do cadastro de treinamentos

Descrição

Este ponto de entrada permite a inclusão de validações adicionais ao calendário de treinamentos.

É utilizado ao salvar o cadastro de um calendário de treinamentos, ou na confirmação da geração de turmas para treinamento, após as validações padrão do sistema.

Exemplos

#INCLUDE 'PROTHEUS.CH'

User Function TRM050GR()

Local lRet := .T.
Local nParam := PARAMIXB[1]    // Operação realizada
Local nX := 0

    For nX := 1 to Len(aCols)

        If aCols[nX][GdFieldPos("RA2_CURSO")] == '0007'
            Help("",1,"Curso indisponível",,"Este curso não pode ser utilizado",1,0)
            lRet := .F.
            Exit
        EndIf

    Next nX

Return lRet