MNTA5451 - Customização de gravação no registro

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 := PARAMIBX1
Local nRecno := PARAMIBX2
Local nOpcx := PARAMIBX3

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

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

MNTA5451 -> .T.

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MNTA545.prx