Histórico da Página
...
Atenção: O ponto de entrada é executado após atualização movimentos internos (SD3) movimentos internos e antes da atualização (SB2) Saldos Físico e Financeiro .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 retorno do array será adcionado no campo B2_VFIM1 se o movimento for uma DE e subtraido do B2_VFIM1 se o movimento de requisição faz uma subtração do (B2_VFIM1) - Valor final p/transferir, onde o ponto de entrada vai atuar.for uma RE. Os campos variam no array de acordo com a moeda, sendo a moeda 1 padrão e os demais campos de acordo com as moedas configuradas no sistema. O tratamento de moedas deve ser considerados na logica de preenchimento do array. O valor B2_VFIM1,2,3,4 e B2_VFIM5 será utilizado para o processo de fechamento do estoque e este valor será transferido para o valor no inicio do proximo periodo, portanto o preenchimento da moeda no array deve ser compativel com o que é utilizado no sistema. Caso não utilize outras moedas e informar o valor no array estes serão atualizados nos campos correspondentes na tabela SB2. |
---|
03. DEMAIS INFORMAÇÕES
PARÂMETRO
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include 'totvs.ch' User Function MA330C3() Local aCusto := PARAMIXB Local aRet := aCusto Local cMoeda := SuperGetMv('MV_MOEDACM',.F.,"2345") // 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 Moeda 1 (B2_VFIM1) If "2" $ cMoeda aRet[2] := 2000 // Custo Moeda 2 (B2_VFIM2) EndIf If "3" $ cMoeda aRet[3] := 3000 // Custo Moeda 3 (B2_VFIM3) EndIf If "4" $ cMoeda aRet[4] := 4000 // Custo Moeda 4 (B2_VFIM4) EndIf If "5" $ cMoeda aRet[5] := 5000 // Custo Moeda 5 (B2_VFIM5) EndIf EndIf EndIf Return aRet |
04. ASSUNTOS RELACIONADOS
...