PEULTKIL - Última Quilometragem do Veículo

Descrição

Este Ponto de Entrada está localizado no fonte funções gerais VEIFUNC.PRW, sendo executado no momento em que o Sistema realiza o levantamento da última quilometragem do veículo na concessionária. Seu objetivo é permitir uma personalização da regra de cálculo da última quilometragem do veículo.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Função ³ PEULTKIL³ Autor ³ MIL ³ Data ³ / / ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ PE para manipular a regra padrão de busca do última KM ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function PEUltKil()

Local cRet := ParaIxb1

cQuery := "SELECT VO1.VO1_KILOME AS KM FROM "RetSqlName("VO1")" VO1 WHERE VO1.VO1_FILIAL IN "cFilVO1" AND VO1.VO1_CHAINT='"cChaInt"' AND VO1_KILOME <> 0 AND VO1.D_E_L_E_T_=' ' ORDER BY VO1.R_E_C_N_O_ DESC"

return cRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga Protheus10_Microsiga Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

cRet - Expressão para o novo filtro

Retorno

cRet - Expressão para o novo filtro

Eventos de chamada do Ponto de Entrada

Function FG_UltKil(cChaInt)
Local nRet := 0
Local nRecno := Recno()
Local cSelect := alias()
Local nOrder := indexord()
Local cQuery := ""
Local aFilAtu := FWArrFilAtu()
Local aSM0 := FWAllFilial( aFilAtu3 , aFilAtu4 , aFilAtu1 , .f. )
Local cBkpFilAnt := cFilAnt
Local nCont := 0
Local cFilVO1 := "("
For nCont := 1 to Len(aSM0)
cFilAnt := aSM0nCont
cFilVO1 = "'"+xFilial("VO1")"',"
Next
cFilAnt := cBkpFilAnt
if (Left(GetNewPar("MV_VKILHOR","SN"),1) == "N")
return 0
endif
cFilVO1 := left(cFilVO1,len(cFilVO1)-1)+")"
cQuery := "SELECT VO1.VO1_KILOME AS KM FROM "RetSqlName("VO1")" VO1 WHERE VO1.VO1_FILIAL IN "cFilVO1" AND VO1.VO1_CHAINT='"cChaInt"' AND VO1_KILOME <> 0 AND VO1.D_E_L_E_T_=' ' ORDER BY VO1.R_E_C_N_O_ DESC"
if ExistBlock("PEULTKIL") // Ponto de entrada para manipulacao do valor da hora.
cQuery := ExecBlock("PEULTKIL",.f.,.f.,{cQuery})
Endif
nRet := FM_SQL(cQuery)
If nRet == 0
nRet := 1
Endif

Variáveis

Programa Fonte

VEIFUNC.PRW