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: |
|
/* 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