PEVM060B - Regras no momento de bloquear o veículo.

Este Ponto de entrada foi disponibilizado para que o cliente possa criar regras no momento de bloquear o veículo.

User Function PEVM060B()

MsgInfo("Ponto de entrada PEVM060B executado com sucesso!")

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

N/A

Logico = .t. ou .f.

Local aParamBox := \{\} // ParamBox
Local aRet := \{\}
Local cMotDes := space(100)
Local lRet := .t.
If cTipo == "1" // Bloqueio

If ExistBlock("PEVM060B")
if !ExecBlock("PEVM060B",.f.,.f.)
Return(.f.)
Endif
EndIf

DbSelectArea("VV1")
DbSetOrder(2)
If !DbSeek( xFilial("VV1") + cChassi )
lRet := .f.
MsgAlert(STR0015+" "+cChassi,STR0010)
oChassi:SetFocus()
Return()
EndIf

VEIVM060