PLVALAD2 - Alteração de Valor

Ponto-de-Entrada: PLVALAD2 - Alteração de Valor

Descrição:

O ponto de entrada PLVALAD2 em conjunto com o PLVALAD1 permite alterar o valor que será cobrado de Taxa de Adesão para um usuário.
Os pontos são chamados nas rotinas de Cobrança de Faturamento, botão "Valor Cobrança" da Família/Usuário, ou seja, em todas as rotinas que apuram o valor de cobrança de um usuário para o Mês/Ano informado.
No ponto de entrada PLVALAD1 é retornado um Array com as informações desejadas, e no PLVALAD2 é retornado o novo valor de cobrança para a Taxa de Adesão do usuário.

Programa Fonte

PLSMCOB2

Sintaxe

PLVALAD2 - Alteração de Valor ( [ cMatric ], [ nValorFaixa ], [ aEspecifico ] ) --> nValorFaixa

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cMatric

Caracter

Matrícula do usuário

nValorFaixa

Array of Record

Valor da faixa calculada pelo sistema.

aEspecifico

Array of Record

Array específico retornado pelo Ponto de Entrada PLVALAD1
* Verificar documentação desse ponto de entrada.

Retorno

nValorFaixa

Valor da faixa que será cobrado do usuário

Exemplos

User Function PLVALAD2Local cMatric     := paramixb[1]Local nValorFaixa := paramixb[2]Local aEspecifico := paramixb[3]Local cAno        := aEspecifico[2]Local cMes        := aEspecifico[3]                                      //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Neste exemplo estarei utilizando o Array aEspecífico        ³//³ enviado do exemplo do PE PLVALAD1, verificar a documentação ³   //³ do mesmo.                                                   ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙIf cMatric == "9999999999999999"   //Nao irei cobrar se for Fevereiro ou Março de 2010   If (cMes == "02" .And. cAno == "2010") .Or. (cMes == "03" .And. cAno == "2010")      nValorFaixa := 0   EndIfEndIfReturn (nValorFaixa)

Home

Linha Microsiga Protheus

Páginas filhas