01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:
Rotinas EnvolvidasNome Técnico

MNTPROJ

Project
MNTA265Alteração das O.S.
MNTA330Plano de Manutenção
MNTA340Confirmação
MNTA400Retorno
MNTA401Retorno em Lote
MNTA402Rateio de Insumo
MNTA410O.S. Manual
MNTA415Retorno Simplificado
MNTA420O.S. Corretiva
MNTA435Retorno Mod. 2
MNTA450O.S. de Reforma Pai
MNTA480Retorno por Etapas
MNTA490Liberação de O.S.
MNTA901Recalcula o Custo das Manutenções
MNTA990Programação de O.S.
MNTR990Mapa de Manutenção por Bem
MNTNGAplicativo


02. DESCRIÇÃO

Descrição

Ponto de entrada executado no programa de Funções Padrão (NGUTIL) utilizado para realizar consistências finais da função genérica NGCAD02 (Construção de Tela de Cadastro - Mod. 2)

Programa Fonte:

MNTUTIL_OS.prw

Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]NuméricoCusto total calculado pelo sistemaSim
PARAMIXB[2]CarácterTipo do InsumoSim
PARAMIXB[3]CarácterCódigo do InsumoSim
PARAMIXB[4]Numérico
Quantidade do insumoSim
PARAMIXB[5]Numérico
Quantidade de RecursoNão
PARAMIXB[6]Numérico
Valor unitárioSim
PARAMIXB[7]CarácterLocal de estoqueNão
PARAMIXB[8]CarácterTipo da unidade de horaSim
PARAMIXB[9]CarácterPrevisto/Realizado (Referência ao campo _SEQRELA)Não
PARAMIXB[10]CarácterEmpresaNão
PARAMIXB[11]CarácterFilialNão
PARAMIXB[12]CarácterCusto total informado no campo TL_CUSTO antes de passar pelo calculo do sistema.Não


Retorno:

TipoDescrição
NuméricoConteúdo informando o custo total do insumo

03. DEMAIS INFORMAÇÕES

#Include 'Protheus.ch'
 
User Function NGCALCUSTI()
  
        Local nCustoIns := PARAMIXB[1]  // Valor de custo calculado pelo sistema referente ao insumo
        Local cCodIns   := PARAMIXB[3]  // Codigo do insumo
        Local nQuantIns := PARAMIXB[4]  // Quantidade do insumo
        Local nCustoHora
        Local aAreaST1
 
        // Para insumos do tipo M (Mao de obra)
        If PARAMIXB[2] == "M"
         
            aAreaST1 := ST1->( GetArea() )
 
            cCodIns    := SubStr( cCodIns, 1, TAMSX3("T1_CODFUNC")[1] )
            nCustoHora := Posicione("ST1", 1, xFilial("ST1") + cCodIns, "T1_SALARIO")
            nCustoIns  := nCustoHora * nQuantIns
 
            RestArea(aAreaST1)
 
        Endif
 
    Return nCustoIns


04. ASSUNTOS RELACIONADOS