Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada verifica se o usuário tem permissão para utilizar a rotina Rastreamento de Veículo (VEIVC140).

Localização:

Consultas \ Gerais \ Rastream. Veiculo (VEIVC140)

Eventos:

Private lReqOS := .f.

Private lBotBloq := .f.

Private lBotDesB := .f.

Default cParCHASSI := cPesq

 

//Ponto de entrada para verificação se permite utilizar a rotina.

if ExistBlock("VC140VRF")

if !ExecBlock("VC140VRF",.f.,.f.)

Return()

Endif

Endif

 

Programa Fonte:

VEIVC140.PRW                                                                                                                                          

Função:

VEIVC140

Retorno:

Lógico

 

Exemplo:

 

User Function VC140VRF()

 

MsgInfo("Ponto de entrdada VC140VRF executado com sucesso!")

 

Return(.f.)