#Include 'Protheus.ch'

User Function GP010VALPE()



Local lRet		:= .T. 		    		// Retorna que o arquivo é de inclusão
Local cMat		:= CriaVar('RA_MAT')		// Matricula do colaborador 
Local cNome	:= CriaVar('RA_NOME')			// Nome do Colaborador
Local cAutom	:= 'UPDAUTOMATICO'		//Retorna que é criado automáticamente

// Grava os compo RA_MAT e RA_NOME na tabela SZF
	
RecLock('SZF',.T.)

	SZF->ZF_MATR		:= cMat
	SZF->ZF_NOME		:= cNome
	SZF->ZF_USRINCL	:= cAutom

MsUnlock()

// Fim do Programa

Return lRet