PEVM060D - Criar regras no momento de desbloquear o veículo.

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

User Function PEVM060D()

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

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

N/A

Logico = .t. ou .f.

Else // Desbloqueio

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

lRet := .f.
If !Empty(aChassi[oLbVeic:nAt,1])
aAdd(aParamBox,\{1,STR0008,aChassi[oLbVeic:nAt,1],"@!S20","","",".f.",0,.f.\}) // Chassi
aAdd(aParamBox,\{1,STR0004,cMotDes,"@!S20","","","",0,.f.\}) // Motivo
If ParamBox(aParamBox,STR0018,@aRet,,,,,,,,.F.)// DESBLOQUEAR
cMotDes := MV_PAR02 // Motivo Desbloqueio
lRet := .t.
EndIf
EndIf

VEIVM060