Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M460CUST - Tratamento de custo


Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês


Descrição:

Este ponto de entrada pertence à rotina de geração de notas fiscais, MATA461(). Está localizado na rotina de atualização dos acumulados dos itens da nota, MAAVALSD2().
É usado para tratamento do custo antes de sua gravação, para itens que atualizam estoque.


Programa Fonte
MATA461.PRW
Sintaxe

M460CUST - Tratamento de custo ( < aCusto> ) --> aNovCusto

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aCusto

Vetor

Array com os valores do custo.

aCusto[1] = B2_CM1

aCusto[2] = B2_CM2

aCusto[3] = B2_CM3

aCusto[4] = B2_CM4

aCusto[5] = B2_CM5






X





Retorno
aNovCusto
    (vetor)
  • Array com os novos valores do custo.

Exemplo:

User function M460CUST()

Local aNovCusto:= ParamIxb[1]

If Len(aNovCusto) > 0
  aNovCusto[1] := aNovCusto[1] + ( aNovCusto[1] * (10/100))
  aNovCusto[2] := aNovCusto[2] + ( aNovCusto[2] * (10/100))
  aNovCusto[3] := aNovCusto[3] + ( aNovCusto[3] * (10/100))
  aNovCusto[4] := aNovCusto[4] + ( aNovCusto[4] * (10/100))
  aNovCusto[5] := aNovCusto[5] + ( aNovCusto[5] * (10/100))
EndIf

Return aNovCusto