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 |
|
| Vetor |
|
| Passa um array com dois parametros: (Vide Exemplo) |
|
|
|
|
| X |
|
|
|
|
RetornoaRet(vetor)- Deve retornar um array com os custos unitarios em cada uma das cinco moedas.
ExemplosUserFunctionM330CD2 ()
LOCALaCusto:=PARAMIXB[1]
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 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
Return aCusto
