Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Paulo Rogério Rodrigues Figueira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Paulo Rogério Rodrigues Figueira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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_CM1

aCusto[2] = B2_CM2

aCusto[3] = B2_CM3

aCusto[4] = B2_CM4

aCusto[5] = B2_CM5






X

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







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