TRM100K3 - Validação de dados da Pasta Cursos

Descrição

Este ponto de entrada permite a validação dos dados da pasta Curso.

Exemplos

#INCLUDE 'PROTHEUS.CH'

USER FUNCTION TRM100K3()

Local nx := 0
Local nPosCur := GdFieldPos("RA4_CURSO")
Local lRet := .T.

For nx := 1 To Len(aCols)
If !aCols[nx,Len(aCols[nx])] // Verifica se o registro não está deletado.
If aCols[nx][nPosCur] == '0005'
Alert("Este curso não pode ser utilizado")
lRet := .F.
Exit
Endif
Endif
Next nx

Return lRet

Idioma

Português (Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

lRet(logico)
Deve retornar .T. (verdadeiro) caso o sistema possa gravar as informações, ou .F. (falso) caso o usuário não queira que as informações sejam gravadas, retornando à tela de dados.

Programa Fonte

TRMA100.PRW