VXX09TOK_DT_Validacao_das_Datas_e_Valores_referente_as_parcelas

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

Return(lRet)