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.
SintaxeM460RAT - 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. |
|
|
|
|
|
|
|
|
|
|
RetornoaRateio(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