Ponto-de-Entrada: M330CD2 - Altera o custo médio unitário da Nota Fiscal de Saída
| 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 |
Descrição: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)
SintaxeM330CD2 - Altera o custo médio unitário da Nota Fiscal de Saída ( < PARAMIXB> ) --> aRet
Parâmetros:
| 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 |
|
RetornoaRet(vetor)- Deve retornar um array com os custos unitarios em cada uma das cinco moedas.
ExemplosUserFunctionM330CD2 ()
LOCALaCusto:=PARAMIXB[1]
LOCALlFIFO :=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
IfMSGYESNO ('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
ReturnaCusto
