01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:


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:
RotinaNome Técnico
MNTUTIL_OSFunções Genéricas Relacionadas à O.S.
Rotinas EnvolvidasNome Técnico

MNTPROJ

Project
MNTA090Estrutura de Bens
MNTA098Rodizio de Componentes
MNTA230Rodizio de Pneus Através do desenho
MNTA231Movimentação do Esquema de Pneus
MNTA232Esquema de Rodados Modelo 2
MNTA245Importação de Custos
MNTA265Alteração das O.S.
MNTA275Liberação de O.S.
MNTA295Distribuição de S.S
MNTA331Plano de Manutenção
MNTA340Confirmação do Plano de Manutenção
MNTA350Planejamento de Lubrificação
MNTA360Retorno de Lubrificação
MNTA380Retorno de Desgaste de Produção
MNTA390Retorno de Acompanhamento
MNTA400Retorno de Manutenção
MNTA401Retorno em Lote
MNTA402Rateio de Insumo
MNTA410O.S. Manual
MNTA415Retorno Simplificado
MNTA420O.S. Corretiva
MNTA422Apontamento de M.O.
MNTA430Cadastro de Histórico de O.S.
MNTA435Retorno Mod. 2
MNTA450O.S. de Reforma Pai
MNTA480Retorno por Etapas
MNTA490Liberação de O.S.
MNTA540Cadastro de Sinistro
MNTA545Cadastro de Complemento de Sinistros
MNTA635Consistência do Abastecimento
MNTA656Abastecimento Posto Interno
MNTA681Construção Civil
MNTA688Construção Civil
MNTA720O.S. em Lote para Serviços de Pneus
MNTA735Cadastro de Check-List
MNTA760Atualizar Posição final da Inspeção
MNTA825Salvar Histórico da Manutenção
MNTA880Reabre uma O.S. Encerrada
MNTA901Recalcula o Custo das Manutenções
MNTA990Programação de O.S.
MNTA998Importação de Pneus
MNTC130Integração do SIGAMNT com o MS-PROJECT
MNTC920Gráfico Custo de O.S.
MNTR250Resumo de Custo do Mês
MNTR750Relatório de Custos por Centro de Custo
MNTR830Relatório Custo do Plano de Manutenção
MNTR840Relatório Custo do Bem
MNTR850Relatório Custo do Centro de Custos
MNTR860Relatório de Custo da O.S.
MNTR990Mapa de Manutenção por Bem
MNTPGPainel de Gestão
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:

NomeTipoDescrição

nCusto

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