Histórico da Página
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: |
| ||||||||
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: |
|
| |||||||||||||||||
Retorno: |
|
Bloco de código | ||
---|---|---|
| ||
/* 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
|