Histórico da Página
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: |
| ||||||||||||||||||||||||||||||||||||||||||||
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, após o calculo do sistema, sendo assim poderá alterar o valor de custo do insumo. | ||||||||||||||||||||||||||||||||||||||||||||||||
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) | ||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTUTIL_OS.prw | ||||||||||||||||||||||||||||||||||||||||||||||||
Função: | NGCALCUSTO() | ||||||||||||||||||||||||||||||||||||||||||||||||
| Parâmetros: |
| ||||||||||||||||||||||||||||||||||||||||||||||||
| Retorno: |
|
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas