Histórico da Página

Descrição

Ponto de entrada para customizações de gravação específica. O ponto de entrada vai ser chamado quando for confirmada uma gravação no registro.

Observações

Exemplos

User Function MNTA5451()

 Local cAlias := PARAMIBX1PARAMIBX1
Local nRecno := PARAMIBX2PARAMIBX2
Local nOpcx := PARAMIBX3PARAMIBX3

If nOpcx == 3
dbSelectArea("ZZ1")
dbSetOrder(1)
If dbSeek(xFilial("ZZ1")+TRH->TRH_NUMSIN)
RecLock("ZZ1",.F.)
Else
RecLock("ZZ1",.T.)
ZZ1->ZZ1_FILIAL := xFilial("ZZ1")
ZZ1->ZZ1_SINIST := TRH_NUMSIN
Endif
ZZ1->ZZ1_DTEVEN := dDataBase
ZZ1->ZZ1_HREVEN := Time()
ZZ1->(MsUnLock())
EndIf

Return