Ponto de entrada TRM070AG

Esse Ponto de Entrada é executado antes da gravação de cada item no arquivo de Cursos do Funcionário (RA4).

Descrição

Este Ponto de Entrada será executado antes da gravação da baixa de treinamento na pasta cursos do funcionário.

O retorno da customização deverá ser do tipo Lógico onde:

.T. - (Default) - Permite a gravação dos registros no arquivo RA4 (Cursos de Funcionário).

.F. - Os registros no arquivo RA4 (Cursos do Funcionário) não são gravados.

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function TRM070AG()

Local lGrava := .T.

DbSelectArea("SRA")

DbSetOrder(1)

If !( DbSeek( RA4->(RA4_FILIAL+RA4_MAT) ) )

lGrava := .F.

EndIf

Return lGrava