Histórico da Página

...

Portuguese

Pagetitle

	M460CUST - Tratamento de custo
	M460CUST - Tratamento de custo

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_VATU1/B2_QATU1CM1

aCusto[2] = B2_VATU2/B2_QATU2 B2_CM2

aCusto[3] = B2_VATU3/B2_QATU3 B2_CM3

aCusto[4] = B2_VATU4/B2_QATU4 B2_CM4

aCusto[5] = B2_VATU5/B2_QATU5 B2_CM5

X

Obs: Caso for nota de devolução, considerar os campos B2_CMRP de 1 a 5 no lugar dos campos B2_VATU CM de 1 a 5, conforme exemplo acima.

Retorno

aNovCusto

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

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave