Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
LOCALIZAÇÃO : Function A330Recalc - Função utilizada para recalcular o custo medio dos movimentos.
EM QUE PONTO : Executada antes de atualizar o custo medio unitario dos itens das NFs de Saida, este ponto de entrada tem a finalidade de alterar o custo medio unitario dos itens da Nota Fiscal de Saida (SD2)
MATA330.PRX
M330CD2 - Altera o custo médio unitário da Nota Fiscal de Saída ( < PARAMIXB> ) --> aRet
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
PARAMIXB 1 | Vetor | array com os custos unitários médio ou FIFO | X | ||
PARAMIXB 2 | Vetor | Indicação logica se esta tratando o custo FIFO | X |
- (vetor)
- Deve retornar um array com os custos unitários em cada uma das cinco moedas (Custo Médio ou FIFO)
User Function M330CD2 ()
LOCAL aCusto:=PARAMIXB[1]
LOCAL lFIFO :=PARAMIXB[2]
Alert ('Filial :'+SD2->D2_FILIAL+' Tipo :'+SD2->D2_TIPO+' NF Saida :'+SD2->D2_DOC+' Serie :'+SD2->D2_SERIE+' ITEM:';
+SD2->D2_ITEM+' Custo 1 :'+cvaltochar(aCusto[1])+' Custo 2: '+cvaltochar(aCusto[2])+' Custo 3: '+cvaltochar(aCusto[3])+;
' Custo 4: '+cvaltochar(aCusto[4])+' Custo 5: '+cvaltochar(aCusto[5]))
If !lFIFO // se não esta usando o custo FIFO : Atenção o ponto de acionamento do PE pode mudar dependendo do MV_CUSFIFO
If MSGYESNO ('Atualiza o custo da nota de saida ?')
// O custo de retorno é unitário, será multiplicado pela quantidade da nota
aCusto[1]:=100
aCusto[2]:=200
aCusto[3]:=300
aCusto[4]:=400
aCusto[5]:=500
EndIf
EndIf
Return aCusto