Histórico da Página

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

(vetor)
• Deve retornar um array com os custos unitarios em cada uma das cinco moedas.

UserFunctionM330CD2 ()
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

Return

aCusto