Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar a alteração dos custos do bem na rotina de Custo Mensal (MNTA494)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA494

Custo Mensal


Rotina(s) envolvida(s)

Nome Técnico

MNTI4941

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Custo Mensal (MNTA494) que permite que seja realizado a alteração dos custos do bem

Programa Fonte:

MNTA851.prw
Localização:SIGAMNT: Atualizações/Controle de Oficina/Parte Diária/Parte Diária

Função:

MNTA851A()
Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]CaracterEmpresa de execução do processo de exportação
ParamIXB[2]CaracterFilial de execução do processo de exportação
ParamIXB[3]CaracterCódigo do bem pelo qual se está gerando custos
ParamIXB[4]CaracterCódigo do centro de custo
ParamIXB[5]CaracterMês de geração de custo
ParamIXB[6]CaracterAno de geração de custo
ParamIXB[7]Array

Array de custos, no formato:

ParamIXB[7][Numero_Da_Linha_Do_Array][1]: Nome do custo, exemplo 'RentCost'

ParamIXB[7][Numero_Da_Linha_Do_Array][2]: Valor do custo

Retorno:

Nome

Tipo

Descrição

Obrigatório

aCustosArray

Mesmo formado do ParamIXB[7], sendo:

aCustos[Numero_Da_Linha_Do_Array][1]: Nome do custo, exemplo 'RentCost'

aCustos[Numero_Da_Linha_Do_Array][2]: Valor do custo

X
Exemplo do Ponto de Entrada MNTI4941()
/* P.E. executado na rotina de exportação de custos indiretos mensais de Bens do Manutenção de Ativos, deve ser usado para alteração de valores dos seguintes custos indiretos:
	RentCost - Custo Fixo de locação do equipamento
	TotalRentCost - Custo Total de locação do equipamento
	HourRentCost - Custo Hora de locação do equipamento
	RealHourRentCost - Custo Hora Real de locação do equipamento
	BilledRentCost - Valor Faturado */

#Include 'Protheus.ch'

User Function MNTI4941()

	Local cCodBem := ParamIXB[3]
	Local cCCusto := ParamIXB[4]
	Local cAnoMes := ParamIXB[6] + ParamIXB[5]
	Local aCustos := ParamOXB[7]

	// Pesquisa para verificar se a tag de custo 'RentCost' já existe no array
	If( nPos := aScan( aCustos,{ |x| UPPER( x[1] ) == UPPER( "RentCost") } ) ) == 0
		aAdd( aCustos,{ "RentCost",0.0 } )
		nPos := Len( aCustos )
	EndIf

	// Informa valor de 50.00 na tag RentCost
	aCustos[nPos][2] := 50.00

Return aCustos