Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VCA580MOD - Validações no campo Modelo do Veículo
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Ponto de entrada na rotina Frota de Veículos (VEICA580), executado no campo Modelo do Veículo, com a finalidade de validar o conteúdo informado no campo.
Eventos
Function VA580FOK()
if ReadVar()=="M->VC3_CODMAR"
return FG_Seek("VE1","M->VC3_CODMAR",1,.f.,"M->VC3_DESMAR","VE1_DESMAR")
endif
 
If ReadVar()=="M->VC3_MODVEI"
If ExistBlock("VCA580MOD")
Return( ExecBlock("VCA580MOD",.F.,.F.,) )
    Else
If !(FG_Seek("VV2","M->VC3_CODMAR+M->VC3_MODVEI",1,.f.,"VC3_DESMOD","VV2_DESMOD"))
Help("  ",1,"VALIDADE")
return .F.
EndIf
EndIf
 
EndIf
 
if ReadVar()=="M->VC3_CHASSI"
DBSelectArea("VV1")
DBSetOrder(2)
if !DBSeek(xFilial("VV1")+M->VC3_CHASSI)
Help("  ",1,"VALIDADE")
return .F.
endif
if M->VC3_CODMAR != VV1->VV1_CODMAR .or. M->VC3_MODVEI != VV1->VV1_MODVEI
return .f.
endif
endif
 
if ReadVar()=="M->VC3_TERPAG"
if Val(Left(M->VC3_TERPAG,2)) < 1 .or. Val(Left(M->VC3_TERPAG,2)) > 12 .or. Val(Right(M->VC3_TERPAG,4)) < 1900
return .f.
endif
endif
 
return .t.
Programa Fonte 
VEICA580.PRW
Sintaxe

VCA580MOD - Validações no campo Modelo do Veículo ( [ lRet ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lRet Lógico Retorna se o modelo digitado pode ser utilizado.
Retorno
    ()
Observações
User Function VCA580MOD()
Local lRet := .t.
FG_Seek("VV2","M->VC3_CODMAR+M->VC3_MODVEI",1,.f.,"VC3_DESMOD","VV2_DESMOD")
// Retornar .T. mesmo que nao posicionar no modelo do veiculo //
Return(lRet)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não