Histórico da Página

Este Ponto de entrada na rotina Reg Satisfac/Insat (VEICC590),é executado após a Alteração do registro.

#include 'protheus.ch'

User function VC590ALT
alert('PE executado com sucesso!')
return Nil

Português(Brasil)

Todas

Todos

Todas

N/A

N/A

...
Function FS_ALTERAR()
Local cBkpUsu := cUsuRes
Local cBkpDep := cDepart
Local cBkpTip := cTipRec
//
dbSelectArea("VAO")
dbGoto(aVet[oLbVet:nAt,19])
cAlias := "VAO"
nReg := recno()
nOpc := 4
VC590A(cAlias,nReg,nOpc)
//
if ExistBlock("VC590ALT")
ExecBlock("VC590ALT",.f.,.f.)
endIf
//
cUsuRes := cBkpUsu
cDepart := cBkpDep
cTipRec := cBkpTip
Return(.t.)
...

VEICC590.PRW