Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSDSCOP - Valores de Faixa Etária
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLSDSCOP - Valores de Faixa Etária
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada PLSDSCOP na função PLSVALOPC, após a aplicação de desconto nos opcionais.

Objetivo: Permite manipular os valores de faixa etária e valor de desconto na apuração dos valores a serem cobrados dos opcionais no lançamento de faturamento 102.
Programa Fonte 
PLSMCOB2.PRW
Sintaxe

PLSDSCOP - Valores de Faixa Etária ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> , < ParamIxb[4]> , < ParamIxb[5]> , < ParamIxb[6]> , < ParamIxb[7]> , < ParamIxb[8]> , < ParamIxb[9]> , < ParamIxb[10]> , < ParamIxb[11]> , < ParamIxb[12]> , < ParamIxb[13]> ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Caracter Nível de cobrança (1=Grupo Empresa;2=Contrato;3=Subcontrato;4=Família). X
ParamIxb[2] Caracter Chave do nível de cobrança de acordo com o nível. X
ParamIxb[3] Caracter Array aUsuarios do usuário corrente. X
ParamIxb[4] Caracter Mês de competência. X
ParamIxb[5] Caracter Ano de competência. X
ParamIxb[6] Data Data base de comparação entre o nascimento do usuário para fins de idade para consulta a faixa etária. X
ParamIxb[7] Numérico Recno do registro da tabela BF4 (opcionais do usuário). X
ParamIxb[8] Caracter Forma de cobrança do opcional. X
ParamIxb[9] Numérico Valor da faixa etária calculado pelo sistema. X
ParamIxb[10] Caracter Código da faixa etária calculado pelo sistema. X
ParamIxb[11] Caracter Tipo do usuário (BA1_TIPUSU). X
ParamIxb[12] Caracter Grau de parentesco (BA1_GRAUPA). X
ParamIxb[13] Array of Record Array aUsuarios de todos os usuários da família. X
Retorno
    aRet(array_of_record)
  • Array conforme discriminado em observações.
Observações

Array de retorno na estrutura abaixo:

[1] Valor da faixa etária alterado ou não de acordo com a regra de negocio da customização

[2] Valor do desconto que foi aplicado sobre o valor da faixa etária de acordo com a regra de negocio da customização

Exemplos 
User Function PLSDSCOP()LOCAL aUsuarios    := aClone(Paramixb[3])LOCAL cAno         := ParamIxb[4]LOCAL cMes         := ParamIxb[5]LOCAL dDatBasIda   := ParamIxb[6]  LOCAL nRegBF4      := ParamIxb[7] LOCAL cCodFor      := ParamIxb[8] LOCAL nValorFaixa  := ParamIxb[09] LOCAL cCodFai      := ParamIxb[10]LOCAL cTipUsu      := ParamIxb[11]LOCAL cGraupa      := ParamIxb[12]LOCAL aUsrGer      := If(Len(ParamIxb)>=13,ParamIxb[13],{})LOCAL cMatUsu      := Substr(aUsuarios[13],1,16)LOCAL nValorDesc   := 0 LOCAL nIdade       := Calc_Idade(dDatBasIda,aUsuarios[2])LOCAL aRet         := {}   LOCAL nRecBF4      := BF4->(Recno()) //Posiciona no BF4   BF4->(DbGoTo(nRegBF4))//altere nValorFaixa ou nValorDesc de acordo    nValorFaixa := aRet[1]   nValorDesc  := aRet[2]//Restaura recno   BF4->(DbGoTo(nRecBF4))//Retorno da funcao              Return({nValorFaixa, nValorDesc})