PEVBABON - Manipulação do Valor Base para Cálculo do Bônus

Este Ponto de Entrada está localizado na rotina Bônus (VEIVA620), que permite a manipulação do Valor Base para Cálculo do Bônus, apenas quando no cadastro do Bônus for informado um percentual para cálculo.

#include "Protheus.ch"

//Parametro 1 - Codigo do Bonus na Tabela VZQ
//Parametro 2 - Valor da Base Atual do Bonus
//Parametro 3 - Chassi do Veiculo

User Function PEVBABON()
Local cCodBon := ParamIxb[1]
Local nValBas := ParamIxb[2]
Local cChassi := ParamIxb[3]
Local aVetor := FGX_VEIMOVS( cChassi , "E", "0" ) // Retorna a ultima Entrada por Compra do Veiculo
Local cTraCpa := aVetor[1,3]

// Este Seek só funciona apara casos onde só existe Entrada de NF pa um único Veículo
DbSelectArea("VVF")
DbSetOrder(1)
If DbSeek(xFilial("VVF")+aVetor[1,3])
nValBas := VVf->VVF_VALMOV // Valor Total da Entrada
Endif

Return (nValBas)

Português(Brasil)

Todas

Todos

Todas

Parametro 1 - Codigo do Bonus na Tabela VZQ
Parametro 2 - Valor da Base Atual do Bonus
Parametro 3 - Chassi do Veiculo

retorno numérico -> nValBas

DbSelectArea("VZR")
DbSetOrder(1)
If DbSeek(xFilial("VZR") + ( _cAlias )->( VZQ_CODBON ) + _cChassi )
( _cAlias )->( DbSkip() )
Loop
EndIf
//
nValor := ( _cAlias )->( VZT_VALBON )
If lPerBon
If ExistBlock("PEVBABON")
nCustoVEI := ExecBlock("PEVBABON",.f.,.f.,\{( _cAlias )->( VZQ_CODBON )\})
Endif
nValor += ( _cAlias )->( VZT_PERBON ) * nCustoVEI / 100
EndIf

VEIXFUNA