Descrição

Ponto de entrada realiza o tratamento especifico no recalculo da variação dia.

Observações

Exemplos

#INCLUDE "Protheus.ch"

User Function NGATUBAN()

//------------------------------------------------------------------
//OBS.: Return .T., não executa o incremento da banda no fonte padrão
// o unico incremento sera pelo ponto de entrada
// Return .F., executa o incremento da banda no fonte padrão
//------------------------------------------------------------------

Local aOldArea := GetArea()

cVBem := PARAMIXB[1] // Codigo do pneu 
nVDIF := PARAMIXB[2] // Valor do incremento
nTIPOC := PARAMIXB[3] // Tipo de incremento ( incrementa ou decrementa)

DbSelectArea("TQS")
DbSetOrder(1)
// Quando o bem for pneu e possuir banda superior que cinco
If dbSeek(xFilial("TQS")+cVBem) .And. TQS->TQS_BANDAA $ "6/7/8/9/A"

//----------------------------------------------
// Tratamento especifico para atualização de contador
// ...
// ...
//----------------------------------------------

RestArea(aOldArea)
Return .T.
EndIf
RestArea(aOldArea)
Return .F.

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

PARAMIXB[1] // Codigo do pneu
PARAMIXB[2] // Valor do incremento
PARAMIXB[3] // Tipo de incremento ( incrementa ou decrementa)

Retorno

.F. - Realiza o recalculo pelo padrão.
.T. - Não realiza o recalculo pelo padrão.

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

NGUTIL04.PRX