Ponto de entrada TRM070DG

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

Descrição

• Este ponto de Entrada será executado após a gravação do curso para cada funcionário baixado, podendo alterar os dados da tabela RA4, já que no fonte já é dado o RecLock(.F.) antes de chamar o ponto de entrada;
  

• Não é obrigatório retorno para esse ponto de entrada.

Trecho de chamada do ponto de entrada no fonte:

IF ExistBlock("TRM070DG")

RecLock("RA4",.F.)        

ExecBlock("TRM070DG",.F.,.F.)

RA4->( MsUnlock() )

EndIF

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function TRM070DG()

RA4->RA4_FILIAL := "D MG 01 "

RA4_CURSO := "001"

Return