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
nAuxCalc := NoRound(aRateio[nX,4], 2)
nDSFrete := ( aRateio[nX,4] - nAuxCalc )
nDAFrete += nDSFrete
aRateio[nX,4] := NoRound(aRateio[nX,4], 2)
If Round(nDAFrete, 2) >= 0.01
aRateio[nX,4] += 0.01
nDAFrete -= 0.01
EndIf
// Seguro
nAuxCalc := NoRound(aRateio[nX,5], 2)
nDSSeguro := ( aRateio[nX][5] - nAuxCalc )
nDASeguro += nDSSeguro
aRateio[nX,5] := NoRound(aRateio[nX,5], 2)
If Round(nDASeguro,2) >= 0.01
aRateio[nX,5] += 0.01
nDASeguro -= 0.01
EndIf
// Despesa
nAuxCalc := NoRound(aRateio[nX,6], 2)
nDSDespesa := ( aRateio[nX][6] - nAuxCalc )
nDADespesa += nDSDespesa
aRateio[nX,6] := NoRound(aRateio[nX,6], 2)
If Round(nDADespesa, 2) >= 0.01
aRateio[nX,6] += 0.01
nDADespesa -= 0.01
EndIf
// Desconto
nAuxCalc := NoRound(aRateio[nX,8], 2)
nDSDescont := ( aRateio[nX][8] - nAuxCalc )
nDADescont += nDSDescont
aRateio[nX,8] := NoRound(aRateio[nX,8], 2)
If Round(nDADescont,2) >= 0.01
aRateio[nX,8] += 0.01
nDADescont -= 0.01
EndIf
Next nX
Return aRateio
