| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
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.
PLSMCOB2.PRW
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
| 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 |
-
aRet(array_of_record)
- Array conforme discriminado em 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
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})