Ponto de Entrada
Descrição: | Este Ponto de Entrada está localizado na rotina Atendimento de Veículos Modelo 2 (Tela de Financiamento Próprio), executado no Tudo OK da tela de Financiamento Próprio, tem como finalidade validar as Datas e/ou Valores referente as parcelas. |
Localização: | Atualizações / Mov Atendimento / Atendimento de Veículos Modelo 2 (VEIXA018) |
Eventos: | Static Function FS_TUDOOK(nOpc) Local lRet := .t. If nOpc == 3 .or. nOpc == 4 // Incluir ou Alterar If ( ExistBlock("VXX09TOK") ) // PE para validar o Tudo OK da Tela de Financiamento Proprio lRet := ExecBlock("VXX09TOK",.F.,.F.,{aParcPro}) EndIf EndIf Return(lRet) |
Programa Fonte: | VEIXX009 |
Função: | FS_TUDOOK |
Retorno: | lRet - Retorno logico da validação |
Exemplo:
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VXX09TOK º Autor ³ MIL º Data ³ 28/03/16 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Tudo OK da Tela do Financiamento Proprio º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Veiculos -> Atendimento Modelo 2 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VXX09TOK()
Local aVetParcel := ParamIXB[01] // Vetor das Parcelas { Data de Vencimento , Valor da Parcela , Posiciao no aCols do VS9 }
Local ni := 0
Local lRet := .t.
//
For ni := 1 to len(aVetParcel)
If aVetParcel[ni,1] > (dDataBase+365) // Data de Vencimento
MsgAlert("Impossivel continuar. Vencimento da Parcela com data posterior a "+Transform(dDataBase+365,"@D"))
lRet := .f.
Exit
EndIf
Next
//
Return(lRet)