Linha Microsiga Protheus

Árvore de páginas

Descrição

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

Observações

Exemplos

#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)

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

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

Retorno

retorno numérico -> nValBas

Eventos de chamada do Ponto de Entrada

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.,

Unknown macro: {( _cAlias )->( VZQ_CODBON )}

)
Endif
nValor += ( _cAlias )->( VZT_PERBON ) * nCustoVEI / 100
EndIf

Variáveis

Programa Fonte

VEIXFUNA.PRW
  • Sem rótulos