VX000TOK - Validar os dados da janela.

Descrição

Este Ponto de Entrada está localizado nas rotinas de Entradas Movimentação de Veiculos (VEIXX000), executado no momento do OK da janela, tem como finalidade validar os dados da janela.

Observações

Exemplos

#INCLUDE 'Protheus.ch'
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VX000TOK ºAutor ³ MIL º Data ³ 16/07/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Validacao no OK da janela º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Gestão de Concessionarias - Veiculos º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VX000TOK()
Local lRet := .t.
MsgAlert("Ponto de Entrada 'VX000TOK' executado com sucesso!","Atenção")
Return(lRet)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

lRet = Retorno logico, .t. = continua a execução da rotina.

Eventos de chamada do Ponto de Entrada

// VERIFICA ARMAZENS
For nCntFor = 1 to len(aCols)
If !aColsnCntFor,len(aHeader)+1
DBSelectArea("SBE")
If !DBSeek(xFilial("SBE") + aColsnCntFor,FG_POSVAR("VVG_LOCPAD"))
If !(MsgYesNo(STR0046+" '"aColsnCntFor,FG_POSVAR("VVG_LOCPAD");
"' "STR0047+CHR(10)+CHR(13);
STR0048+" '"+;
Alltrim(aColsnCntFor,FG_POSVAR("VVG_CHASSI"))+"' ?"))//O armazem # nao existe no sistema # Deseja cria-lo para o chassi
Return .f.
EndIf
EndIf
EndIf
Next
//
// Ponto de Entrada para validacao
If ( ExistBlock("VX000TOK") )
lRet := ExecBlock("VX000TOK",.F.,.F.)
If !lRet
return .f.
EndIf
EndIf

Variáveis

Programa Fonte

VEIXX000.PRW