VCM600AI - Confirmação da Tela de Inclusão/Alteração da rotina Reg Satisfac/Insat.

Este Ponto de entrada é executado no momento da confirmação na Tela de Inclusão/Alteração da rotina Reg Satisfac/Insat. (VEICM600).

User Function VCM600AI()

Local cTipOpe := ParamIXB[1]

If cTipOpe == "I"
MsgInfo("Operação de Inclusão","Atenção")
ElseIf cTipOpe == "A"
MsgInfo("Operação de Alteração","Atenção")
EndIf

Return

Português(Brasil)

Todas

Todos

Todas

I - Inclusão
A - Alteração

n/a

DbSelectArea("VAO")
cReclam := M->VAO_RECLAM
If AxAltera(cAlias,nReg,nOpc,aCampos,,,,cTudOK) == 1
If ExistBlock("VCM600AI")
ExecBlock("VCM600AI",.f.,.f., \{ "A" \} )
EndIf
EndIf
Return

e


cTudOK := "ML600IVal()"
CAMPOM600()
If AxInclui(cAlias,nReg,nOpc,aCampos,,,cTudOK) == 1
If ExistBlock("VCM600AI")
ExecBlock("VCM600AI",.f.,.f., \{ "I" \} )
EndIf
DbSelectArea("VAO")
RecLock("VAO",.f.)
M->VAO_RECLAM := Alltrim(M->VAO_RECLAM)+Chr(13)+Chr(10)+"*** "+left(Alltrim(UsrRetName(__CUSERID)),15)+" "+Transform(dDataBase,"@D")+"-"+Transform(time(),"@R 99:99")+STR0025+" ***"+Chr(13)+Chr(10)+Repl("_",nReclam)+Chr(13)+Chr(10)
MSMM(VAO->VAO_RECLAO,TamSx3("VAO_RECLAM")[1],,&(aMemos[1][2]),1,,,"VAO","VAO_RECLAO")
MsUnlock()
EndIf
Return

VEICM600.PRW