MI330001 - Permite atualização dentro do nó UnitValues do XML para cada moeda

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Estoque e Custos (SIGAEST)
Função:	MATI330 - tratamento para o recebimento/envio de mensagem

02. DESCRIÇÃO

O Ponto de entrada MI330001 permite que o cliente customize o tratamento no momento da geração do XML e antes de preencher o nó UnitValues de um produto e custo.
Este ponto de entrada irá receber os parâmetros: Código da filial, código do produto, código do local de estoque, moeda do custo, valor do custo, valor de labor e overhead em uma variável do tipo array.
Elementos dentro do nó UnitValues que poderão ser editados: paramIXB[5], paramIXB[6] e paramIXB[7].
E para atualização dos novos valores deverá ser retornado da mesma estrutura indicada.

03. PARÂMETROS

Nome	Tipo	Descrição
paramIXB[1]	Caractere	Código da filial
paramIXB[2]	Caractere	Código do produto
paramIXB[3]	Caractere	Código do local de estoque
paramIXB[4]	Caractere	Moeda do custo
paramIXB[5]	Numérico	Valor do custo (MaterialValue)
paramIXB[6]	Numérico	Valor de labor (LaborValue)
paramIXB[7]	Numérico	Overhead (OverHeadValue)

04. RETORNO

Nome	Tipo	Descrição	Conteúdo
uRet	Array	Devolve o array alterado pelo ponto de entrada.	Array paramIXB

05. EXEMPLO DE UTILIZAÇÃO

MI3300001

#Include 'PROTHEUS.CH'

/*/{Protheus.doc} MI330001
Ponto de entrada executado no nó UnitValues do XML para cada moeda 
@type  User Function
@author TOTVS
@since 27/10/2021
@version version
/*/
User Function MI330001() 

Local aUnitValues := PARAMIXB[1] 
Local cFilialProc 
Local cProduto 
Local cLocalEst 
Local cMoeda1 
Local nCusto 
Local nLabor 
Local nOverHead 

// estrutura do XML ate chegar ao nó UnitValues 
// BusinessContent\ListOfSites\SiteItemCosting\BatchAverageCosting\ListOfBatchAverageCosts\UnitValues 

// Codigo da filial que esta sendo processada 
cFilialProc := aUnitValues[1] 

// Codigo do produto 
cProduto := aUnitValues[2] 

// Codigo do local de estoque do produto 
cLocalEst := aUnitValues[3] 

// Codigo da moeda do custo (1 a 5) 
cMoeda1 := aUnitValues[4] 

// Custo do produto 
nCusto := aUnitValues[5] 

nLabor := aUnitValues[6] 
nOverHead := aUnitValues[7] 

If cMoeda1 == "1" // Custo do produto na moeda1 
aUnitValues := {} 
aUnitValues := {cFilialProc, cProduto, cLocalEst, cMoeda1, nCusto, nLabor, nOverHead} 
EndIf 

return aUnitValues

Árvore de páginas