Histórico da Página

#INCLUDE "totvs.ch"


/*/{Protheus.doc} User Function FXIMPRC
    (Ponto de entrada permite gravar dados complementares no registro posicionado)
    @type  Function
    @author Cassio S Dias
    @since 18/12/2023
    @version 12
    @param nRecTitPai, numeric, Recno do titulo Pai
    @return Nil
    @see (https://tdn.totvs.com/x/kJ_MM)
    /*/ 
User Function FXIMPRC(nRecTitPai)

	Local nRecno as numeric
	Local cHist  as character

	cHist       := "Passou no Ponto de entrada FXIMPRC"
	nRecTitPai  := Paramixb // Recno do titulo Pai

	DbSelectArea("SE1")
	SE1->(dbGoTo(nRecTitPai) )
	RecLock("SE1", .F.)
	SE1->E1_HIST := cHist
	MsUnlock()

Return NIL