Histórico da Página

Descrição

Este ponto Ponto de entrada Entrada está localizado no fonte de funções fonte funções gerais VEIFUNC.PRW. É chamado no momento , sendo executado no momento em que o sistema 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õesTodas	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

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave