| 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 | Passa um array com dois parametros: (Vide Exemplo) | X | ||
| PARAMIXB 2 | Vetor | Indicação logica se esta tratando o custo FIFO | X |
- (vetor)
- Deve retornar um array com os custos unitarios em cada uma das cinco moedas.
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
If MSGYESNO ('Atualiza o custo da nota de saida ?')
// O custo de retorno é unitario, 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