01. DADOS GERAIS
Produto: | Solucoes_totvs_cross |
---|
SolucaoCross | TOTVS Backoffice |
---|
|
Solucoes_totvs_parceirosexptotvs |
---|
|
|
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: | Modulos_cross_segmentos |
---|
ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Estoque e Custos (SIGAEST) |
---|
|
Modulos_totvs_prestadores_de_servicos |
---|
|
---|
Função: | RECALCULO DO CUSTO MÉDIO (MATA330) |
---|
País: | Brasil |
---|
02. DESCRIÇÃO
LOCALIZAÇÃO: Function A330Recalc - Função utilizada para recalcular o custo médio dos movimentos.
...
Atenção: Não será alterado o custo do movimento na tabela (SD3) - Movimentos Internos, e sim o custo na (SB2) - Saldos Físico e Financeiro. Ao executar o recalculo com o ponto de entrada, o movimento de requisição faz uma subtração do B2_VFIM1 que é onde o ponto de entrada vai atuar. |
---|
PARÂMETRO
Nome | Tipo | Descrição | Obrigatório | Retorno |
---|
PARAMIXB | Vetor | Vetor contendo o custo médio do produto para as 5 moedas. PARAMIXB[1] = Custo Moeda 1; PARAMIXB[2] = Custo Moeda 2; PARAMIXB[3] = Custo Moeda 3; PARAMIXB[4] = Custo Moeda 4; PARAMIXB[5] = Custo Moeda 5. | Sim | Vetor |
...
Bloco de código |
---|
language | vb |
---|
theme | Midnight |
---|
firstline | 1 |
---|
title | MA330C3 (ADVPL) |
---|
linenumbers | true |
---|
|
#Include 'totvs.ch'
User Function MA330C3()
Local aCusto := PARAMIXB
Local aRet := aCusto
// Validações do Usuário
If SD3->D3_COD = "000001"
If Alltrim(SD3->D3_CF) == "RE0" .Or. Alltrim(SD3->D3_CF) == "DE0"
aRet[1] := 100 // Custo Unitário Moeda 1
aRet[2] := 200 // Custo Unitário Moeda 2
aRet[3] := 300 // Custo Unitário Moeda 3
aRet[4] := 400 // Custo Unitário Moeda 4
aRet[5] := 500 // Custo Unitário Moeda 5
EndIf
EndIf
Return aRet |
04. ASSUNTOS RELACIONADOS
...