Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Eduardo H. Mussi

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Eduardo H. Mussi

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Informações
titleAtenção!

Ao utilizar esse ponto de entrada serão desconsiderados os calculos do custo dos insumos realizados pelo sistema.

Calcula Custos de Insumos

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

MNTUTIL_OS

Funções Genéricas Relacionadas à O.S.

Rotina(s) envolvida(s)

Nome Técnico

NGMUUTIL

Funções Genéricas para Integração Mensagem Única

MNTPROJ

Project
MNTUTIL01Util Genérico V12
MNTA265Alteração das O.S. de Planos Preventivos
MNTA330Plano de Manutenção
MNTA400Retorno de Manutenção
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.
MNTC130Integração do SIGAMNT com o MS-PROJECT
MNTR990Mapa de Manutenção por Bem

Issues Relacionadas

INOVBANCO-14439                        

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada que possibilita efetuar calculo referente ao custo dos insumos.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Alteração de O.S.

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Plano

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno em Lote

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Rateio de Insumo

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Simplificado

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno por Etapas

SIGAMNT: Atualizações/Controle de Oficina/Ordem De Serviço/Manual

SIGAMNT: Atualizações/Controle de Oficina/Ordem De Serviço/Corretiva

SIGAMNT: Atualizações/Controle de Oficina/Reforma/Ordem de Serviço

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Liberação de O.S.

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Programação de O.S.

SIGAMNT: Relatórios/Controle de Oficina/Planos/Mapa Manutenção Por Bem

SIGAMNT: Miscelânea/Arquivos/Project

Eventos:

Funções Genéricas para Integração Mensagem Única (NGMUUTIL)
Project (MNTPROJ)
Útil Genérico V12 (MNTUTIL01)
Alteração das O.S. de Planos Preventivos (MNTA265)
Plano de Manutenção (MNTA330)
Retorno de Manutenção (MNTA400)
Retorno em Lote (MNTA401)
Rateio de Insumo (MNTA402)
O.S. Manual (MNTA410)
Retorno Simplificado (MNTA415)
O.S. Corretiva (MNTA420)
Retorno Mod. 2 (MNTA435)
O.S. de Reforma Pai(MNTA450)
Retorno por Etapas (MNTA480)
Liberação de O.S. (MNTA490)
Recalcula o Custo das Manutenções (MNTA901)
Programação de O.S. (MNTA990)
Integração do SIGAMNT com o MS-PROJECT (MNTC130)
Mapa de Manutenção por Bem (MNTR990)

Programa Fonte:

MNTUTIL_OS.prw

Função:

NGCALCUSTO()

Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]CarácterCódigo do InsumoSim
PARAMIXB[2]CarácterTipo do InsumoSim
PARAMIXB[3]NúmericoQunatidadeSim
PARAMIXB[4]CarácterLocal de Estoque ( Almoxarifado )Não
PARAMIXB[5]CarácterTipo de Unidade de HoraSim
PARAMIXB[6]CarácterCódigo da EmpresaNão
PARAMIXB[7]CarácterCódigo da FilialNão
PARAMIXB[8]NuméricoQuantidade de RecursoNão
PARAMIXB[9]CarácterMoeda Utilizada para ConversãoNão
PARAMIXB[10]CarácterIndica o _SEQRELA que será validadoNão
Retorno:
NomeTipoDescriçãoObrigatório

nCusto

NuméricoConteúdo informando o custo do insumoSim

 

Bloco de código
languagesql
titleExemplo
#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} NGCALCUSTO
Calcula custo do insumo

@author  Eduardo Henrique Mussi
@since   18/05/18
@version P12
/*/
//-------------------------------------------------------------------
User Function NGCALCUSTO()

    Local nVALORUNI := 0.00
    Local cCODINSUM := IIf( PARAMIXB[2]  == 'P', PARAMIXB[1], Substr( PARAMIXB[1], 1, 6 ) )
    Local nQUANTCON := PARAMIXB[3]
    Local nQTDRec   := IIf( PARAMIXB[8] == Nil .Or. PARAMIXB[8] == 0, 1, PARAMIXB[8])
    Local nCusto    := 0

    If PARAMIXB[2] = "M"
        nVALORUNI := Posicione("ST1", 1, xFilial("ST1") + cCODINSUM, "T1_SALARIO")
    EndIf

    nCusto := (nVALORUNI*nQUANTCON*nQTDRec)

Return nCusto