Linha Microsiga Protheus

Árvore de páginas

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)

Eventos


 

Programa Fonte
MATA330.PRX
Sintaxe

M330CD2 - Altera o custo médio unitário da Nota Fiscal de Saída ( < PARAMIXB> ) --> aRet

Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB 1Vetorarray com os custos unitários médio ou FIFO
X
PARAMIXB 2VetorIndicação logica se esta tratando o custo FIFO 
X


Retorno
aRet
    (vetor)
  • Deve retornar um array com os custos unitários em cada uma das cinco moedas (Custo Médio ou FIFO)
Observações


 

Exemplos

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