Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

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écnicoMNTUTIL_OSFunções Genéricas Relacionadas à O.S.
Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Manutenção de Ativos

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoManufatura

Módulo:

Modulos_totvs_manufatura
ModulosTOTVSManufaturaTOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

02. DESCRIÇÃO

Função:
Rotinas EnvolvidasNome Técnico

MNTPROJ

Project
MNTA090Estrutura de BensMNTA098Rodizio de ComponentesMNTA230Rodizio de Pneus Através do desenhoMNTA231Movimentação do Esquema de PneusMNTA232Esquema de Rodados Modelo 2MNTA245Importação de Custos
MNTA265Alteração das O.S.
MNTA275Liberação de O.S.MNTA295Distribuição de S.SMNTA331
MNTA330Plano de Manutenção
MNTA340Confirmação
do Plano de ManutençãoMNTA350Planejamento de LubrificaçãoMNTA360Retorno de LubrificaçãoMNTA380MNTA390Retorno de Acompanhamento
Retorno de Desgaste de Produção
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 SinistroMNTA545Cadastro de Complemento de SinistrosMNTA635Consistência do AbastecimentoMNTA656Abastecimento Posto InternoMNTA681Construção CivilMNTA688Construção CivilMNTA720O.S. em Lote para Serviços de PneusMNTA735Cadastro
de
Check-ListMNTA760Atualizar Posição final da InspeçãoMNTA825Salvar Histórico da ManutençãoMNTA880Reabre uma
O.S.
Encerrada
MNTA901Recalcula o Custo das Manutenções
MNTA990Programação de O.S.
MNTA998
MNTR990
Importação
Mapa de
Pneus
Manutenção por Bem
MNTNGAplicativo


02. DESCRIÇÃO

Painel de Gestão

Nome
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

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
MNTPG
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:

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

03. DEMAIS INFORMAÇÕES

Bloco de código
languagesql
titleExemplo P.E. NGCALCUSTI
linenumberstrue
#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

...