VXX14DTBN - Manipula a data para levantamento do Bônus no Atendimento Modelo 2.

Descrição

Este Ponto de Entrada está localizado na rotina de Bonus do Atendimento de Veiculos Modelo 2 (VEIXX014), executado no momento do levantamento do Bônus, tem como finalidade manipular a data que será utilizada como referência para levantamento do Bônus.

Observações

Exemplos

#INCLUDE 'Protheus.ch'
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VXX14DTBN ºAutor ³ MIL º Data ³ 16/07/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Manipulacao da Dt de Referencia para levantamento do Bonus º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Gestão de Concessionarias - Veiculos º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VXX14DTBN()
Local dRet := dDataBase
MsgAlert("Ponto de Entrada 'VXX14DTBN' executado com sucesso!","Atenção")
Return(dRet)

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

dRet = Data que sera utilizada como referencia para o levantamento do Bonus.

Eventos de chamada do Ponto de Entrada

nTotFab := VVA->VVA_BONFAB // valor total Bonus Fabrica
nTotReg := VVA->VVA_BONREG // valor total Bonus Regional
nTotCon := VVA->VVA_BONCON // valor total Bonus Concessionaria

//////////////////////////////////////////////////////////////////////////
// PE para manipulacao da Data de Referencia para levantamento do Bonus //
//////////////////////////////////////////////////////////////////////////
If ExistBlock("VXX14DTBN")
dDatRef := ExecBlock("VXX14DTBN",.f.,.f.)
Endif

///////////////////////////////////
// BONUS DE VENDA DO VEICULO //
///////////////////////////////////
FGX_BONVEI(VVA->VVA_CHAINT,cCodMar,cModVei,,,,cEstVei,cGruMod,dDataBase,cAtend,@aBonVei,IIf(lVZS_ITETRA,VVA->VVA_ITETRA,""),"1",dDatRef)

Variáveis

Programa Fonte

VEIXX014.PRW