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.
SintaxeM460CUST - 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 | X |
Obs: Caso for nota de devolução, considerar os campos B2_CMRP de 1 a 5 no lugar dos campos B2_VATU de 1 a 5, conforme exemplo acima.
RetornoaNovCusto(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 |