Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Bloq/desbloq Veic (VEIVM060), executado após gravação do Bloqueio/Desbloqueio de um Veículo, tem como finalidade possibilitar customizações após gravação.

Localização:

Atualizações \ Mov Gerencial \ Bloq/desbloq Veic (VEIVM060)

Eventos:

If lRet

// Ponto de Entrada para verificações customizadas após Bloqueio/Desbloqueio realizado com sucesso

If ExistBlock("VM060DPGR")

ExecBlock("VM060DPGR", .f., .f., {cTipo, nRecNoVB0})

EndIf


FS_VERCHASSI(1)


cChaInt := space(tamsx3("VV1_CHAINT")[1])

cChassi := space(25)

cDesVei1 := cDesVei2 := cDesVei3 := space(200)

cMotivo := space(100)

dDatVal := ctod("")

EndIf

Return

Programa Fonte:

VEIVM060.PRW

Função:

FS_BLOCHASSI()

Parâmetros:
NomeTipoDescrição

cTipo

Caracter

Tipo de Operação: 0 - Desbloqueio / 1 - Bloqueio

nRecNoVB0

Numérico

RecNo da tabela VBO - Veiculos Bloqueio Desbloqueio

Retorno:

N/A

Exemplo:

Include totvs.ch

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ VM060DPGR º Autor ³ MIL º Data ³ 12/06/2020 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ PE executado na rotina Bloq/desbloq Veic (VEIVM060) para º±±

±±º ³ verificações customizadas após Bloqueio/Desbloqueio do º±±

±±º ³ Veículo realizado com sucesso º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function VM060DPGR()

Local cTipo := ParamIXB[01] // Tipo de Operação: 0 - Desbloqueio / 1 - Bloqueio

Local nRecNoVB0 := ParamIXB[02] // RecNo da tabela VBO - Veiculos Bloqueio Desbloqueio


MsgAlert("Ponto de Entrada VM060DPGR executado com sucesso!", "Atenção")

Return .t.