Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Informações
titleATENÇÃO
  • Este Ponto de Entrada somente irá funcionar a partir da versão 12.1.17!
  • Para casos onde deseja-se manter o custo calculado pelo sistema, o ponto de entrada deverá retornar o valor repassado no parâmetro PARAMIXB[1] (Valor calculado pelo sistema).


Possibilita manipular cálculo de custos do insumo

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

ProjectMNTUTIL01Util Genérico V12

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.
de Planos Preventivos
MNTA275Liberação de O.S.
MNTA295Distribuição de S.S
MNTA331Plano de Manutenção
MNTA340Confirmação do
MNTA330
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 Reabre 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

Issues Relacionadas

INOVBANCO-14439                        

DNG-1146

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, acionado após o calculo do sistema, sendo assim poderá alterar o valor de cálculo do custo do insumo, permitindo a alteração deste custo de acordo com a necessidade.

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/Plano de Manutenção/Confirmaçã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: Atualizações/Controle de Oficina/Bens/Estrutura de Bens

SIGAMNT: Atualizações/Controle de Oficina/Bens/Rodízio

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

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

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

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/Retorno de O.S./Apontamento M.D.O.

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/Ordem De Serviço/Historico

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

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

SIGAMNT: Atualizações/Controle de Oficina/Check List/Retorno Check List

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

SIGAMNT: Atualizações/Controle de Pneus/Inspeção/Atualização

SIGAMNT: Atualizações/Controle de Riscos/Controle de Riscos/Sinistro

SIGAMNT: Atualizações/Controle de Riscos/Controle de Riscos/Complemento de Sinistro

SIGAMNT: Atualizações/Controle de Abastecimento/Abastecimento/Consistência de abastecimento

SIGAMNT: Atualizações/Controle de Abastecimento/Abastecimento/Abastecimento Lote Posto Interno

SIGAMNT: Atualizações/Construção Civil/Abastecimento Comboio/Controle de Abastecimento

SIGAMNT: Atualizações/Controle de Oficina/Lubrificação/Planejamento

SIGAMNT: Atualizações/Controle de Oficina/Lubrificação/Retorno

SIGAMNT: Atualizações/Controle de Oficina/Contador/Retorno Produção

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

SIGAMNT: Consultas/Controle de Oficina/Gráfico Custos/Serviço

SIGAMNT: Relatórios/Controle de Oficina/Custos/Centro de Custos

SIGAMNT: Relatórios/Controle de Oficina/Custos/Plano

SIGAMNT: Relatórios/Controle de Oficina/Custos/Bem

SIGAMNT: Relatórios/Controle de Oficina/Custos/Serviço

SIGAMNT: Relatórios/Controle de Oficina/Custos/Ordem de Serviço

SIGAMNT: Relatórios/Controle de Oficina/Custos/Resumo Mês

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

SIGAMNT: Miscelânea/Historico/Acum. Histórico Manutenção

SIGAMNT: Miscelânea/Gera Bens/Pneus a partir de Txt

SIGAMNT: Miscelânea/Bandag/Importação de Custos

SIGAMNT: Miscelânea/Arquivos/Project

Eventos:

Project (MNTPROJ)
Estrutura de Bens (MNTA090)-
Rodizio de Componentes (MNTA098)-
Rodizio de Pneus Através do desenho (MNTA230)-
Movimentação do Esquema de Pneus (MNTA231)-
Esquema de Rodados Modelo 2 (MNTA232)-
Importação de Custos (MNTA245)-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)(MNTA265)-
Liberação de O.S. (MNTA275)-
Distribuição de S.S (MNTA295)-
Plano de Manutenção (MNTA331)-
Confirmação do Plano de Manutenção (MNTA340)-
Planejamento de Lubrificação (MNTA350)-
Retorno de Lubrificação (MNTA360)-
Retorno Produção (MNTA380)-
Retorno de Acompanhamento (MNTA390)-
Retorno de Manutenção (MNTA400)-
Retorno em Lote (MNTA401)-
Rateio de Insumo (MNTA402)-
O.S. Manual (MNTA410)-
Retorno Simplificado (MNTA415)-
O.S. Corretiva (MNTA420)-
Apontamento de M.O. (MNTA422)-
Cadastro de Histórico de O.S. (MNTA430)-
Retorno Mod. 2 (MNTA435)-
O.S. de Reforma Pai (MNTA450)-
Retorno por Etapas (MNTA480)-
Liberação de O.S. (MNTA490)-
Cadastro de Sinistro (MNTA540)-
Cadastro de Complemento de Sinistros (MNTA545)-
Consistência do Abastecimento (MNTA635)-
Abastecimento Posto Interno (MNTA656)-
Construção Civil (MNTA681)-
Construção Civil (MNTA688)
O.S. em Lote para Serviços de Pneus (MNTA720)-
Cadastro de Check-List (MNTA735)-
Atualizar Posição final da Inspeção (MNTA760)-
Salvar Histórico da Manutenção (MNTA825)-
Reabre Reabre uma O.S. Encerrada (MNTA880)-
Recalcula o Custo das Manutenções (MNTA901)
Programação de O.S. (MNTA990)-
Importação de Pneus (MNTA998)-
Integração do SIGAMNT com o MS-PROJECT (MNTC130)-
Gráfico Custo de O.S. (MNTC920)-
Resumo de Custo do Mês (MNTR250)-
Relatório de Custos por Centro de Custo (MNTR750)-
Relatório Custo do Plano de Manutenção (MNTR830)-
Relatório Custo do Bem (MNTR840)-
Relatório Custo do Centro de Custos (MNTR850)-
Relatório de Custo da O.S. (MNTR860)-
Mapa de Manutenção por Bem (MNTR990)-
Painel de Gestão (MNTPG)

Programa Fonte:

MNTUTIL_OS.prw

Função:

NGCALCUSTONGCALCUSTI()

Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]NuméricoCusto total calculado pelo sistema
CarácterCódigo do InsumoSimPARAMIXB[2]CarácterTipo do Insumo
SimPARAMIXB[3]NúmericoQunatidadeCarácterCódigo do InsumoSim
PARAMIXB[4]CarácterLocal de Estoque ( Almoxarifado )Quantidade do insumo
NãoPARAMIXB[5]CarácterTipo Quantidade de Unidade de HoraRecursoSim
PARAMIXB[6]CarácterCódigo da EmpresaNãoValor unitário
PARAMIXB[7]CarácterCódigo da FilialNãoLocal de estoque (Almoxarifado)
PARAMIXB[8]NuméricoQuantidade de RecursoNãoTipo da unidade de hora
PARAMIXB[9]CarácterPrevisto/Realizado (Referência ao campo _SEQRELA)
Moeda Utilizada para ConversãoNãoPARAMIXB[10]CarácterIndica o _SEQRELA que será validadoNãoEmpresa
PARAMIXB[11]NuméricoValor de custo calculado pelo sistema referente ao insumoSimFilial
Retorno:
NomeTipoDescriçãoObrigatório

nCusto

NuméricoConteúdo informando o custo total do insumoSim

 

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

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

@author  Eduardo Henrique Mussi
@since   18/05/18
@version P12
/*/
//-------------------------------------------------------------------
User Function NGCALCUSTONGCALCUSTI()
 
	    Local nVALORUNInCustoIns := 0.00
PARAMIXB[1]  // Valor de custo calculado pelo sistema referente ao insumo
	    Local cCodIns cCODINSUM  := IIf( PARAMIXB[2]  == 'P',3]  // Codigo do insumo
	    Local nQuantIns := PARAMIXB[1], Substr(4]  // Quantidade do insumo
	    Local cEmpIns   := PARAMIXB[110], 1,// 6Empresa )do )insumo
	    Local cFilIns nQUANTCON  := PARAMIXB[3]
11] // Filial do insumo
	    Local nQTDRec   := IIf( PARAMIXB[8] == Nil .Or. PARAMIXB[8] == 0, 1, PARAMIXB[8])
    Local nCusto    := 0

    If PARAMIXB[2] == "M"
nCustoHora

	    Local aAreaST1

	    // Para insumos do tipo M (Mao de obra)
	    If PARAMIXB[3] == "M"
        
	        // Caso o insumo seja referente à empresa logada
        	If Valtype(cEmpIns) <> "C" .Or. Empty(cEmpIns) .Or. cEmpIns == FWGrpCompany()
	
        	    // Caso a filial não seja repassada como por parametro
        	    cFilIns := Iff( ValType(cFilIns) == "C" .And. Empty(cFilIns), Nil, cFilIns )
	
	            aAreaST1 := ST1->( GetArea() )
        	    cCodIns  := SubStr( cCodIns, 1, TAMSX3("T1_CODFUNC") )

	        nVALORUNI    // Busca valor/hora do funcionário
        	    nCustoHora := Posicione("ST1", 1, xFilial("ST1", cFilIns) + cCODINSUMcCodIns, "T1_SALARIO")
	            nCustoIns  := nCustoHora * EndIfnQuantIns

	      nCusto := (nVALORUNI*nQUANTCON*nQTDRec)

Return nCusto      RestArea(aAreaST1)

	        Endif
        
	    EndIf
	
	Return nCustoIns