Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M460RAT - Adicionar informações ao Array


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)


Descrição:
O ponto de entrada M460RAT será executado depois do rateio das despesas acessórias. Utilizado para possibilitar ao usuário inserir informações adicionais ao array aRateio.
Programa Fonte
MATA461.prx
Sintaxe

M460RAT - Adicionar informações ao Array ( [ aRateio ] ) --> aRateio

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aRateio

Array of Record

Array com informações das despesas acessórias.











Retorno
aRateio
    (array_of_record)
  • Array modificado


Exemplo:

User Function M460RAT()

Local a Rateio := ParamIxb[1] 

Local nX := 0

For nX := 1 to Len(aRateio)
   // Frete
   aRateio[nX,4] := NoRound(aRateio[nX,4], 2)
   aRateio[nX,4] += 0.01
   

  // Seguro
   aRateio[nX,5] := NoRound(aRateio[nX,5], 2)
   aRateio[nX,5] += 0.01
   
   // Despesa
   aRateio[nX,6] := NoRound(aRateio[nX,6], 2)
   aRateio[nX,6] += 0.01

   // Desconto
   aRateio[nX,8] := NoRound(aRateio[nX,8], 2)
   aRateio[nX,8] += 0.01

Next nX

Return aRateio