| Produto: | TOTVS BackOffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | BackOffice |
| Módulo: | TOTVS BackOffice (Linha Protheus) - Estoque e Custos (SIGAEST) |
| Função: | SIGACUSA - Genérica do estoque |
| País: | Brasil |
LOCALIZAÇÃO : Function PegaCmDev() - Retorna o custo de devolução de venda, se não houver a nota original, devolve o custo atual.
EM QUE PONTO : É chamado na função genérica PEGACMDEV quando não é encontrada a Nota Fiscal original digitada no movimento. Serve para alterar o custo da Nota Fiscal caso o usuário não queira utilizar o custo sugerido pelo sistema.
PARÂMETROS
| Nome | Tipo | Descrição |
| PARAMIXB[1] | Array | Uma variável lógica que indica se o custo utilizado ‚ FIFO (.T.) ou não (.f.) |
| PARAMIXB[2] | Array | Array com o custo da Nota Fiscal nas 5 moedas do sistema. O custo do MOVIMENTO INTEIRO, NÃO O CUSTO MÉDIO UNITÁRIO. |
| PARAMIXB[3] | Array | String com a somatória da NF original + Série original pesquisada. |
RETORNO
Nome | Tipo | Descrição |
|---|---|---|
aCustoBlock | Array | Deve retornar um array com os custos do movimento em todas as moedas. |
EXEMPLO DE UTILIZAÇÃO ADVPL
#INCLUDE "PROTHEUS.CH"
#INCLUDE "PRTOPDEF.CH"
User Function MTCNFDV( )
Local aArea := GetArea()
Local aAreas := {aArea}
Local cFifo := ParamIXB[1] // Calculo do Fifo - True ou False
Local aCusNf := ParamIXB[2] // Array com custo de todas moedas
Local cNotaSer := ParamIXB[2] // Nota+Serie
Local aCustoBlock := {0,0,0,0,0}// Array customizado
//Customização do Cliente
aCustoBlock := {50,0,0,0,0} //Inclui o custo de Todas moedas.
AEval(aAreas, {|x| RestArea(x)})
Return(aCustoBlock) |