Histórico da Página
DESVIO DA REGRA DO PLANO DE MANUTENÇÃO
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
Chamados Relacionados | |||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita alterar regra do plano de manutenção. | ||||||
Localização: | SIGAMNT: Atualizações/Plano de Manutenção/Plano | ||||||
Eventos: | Plano (MNTA330) | ||||||
Programa Fonte: | MNTA330.PRX | ||||||
Função: | MNTA330G() | ||||||
Variáveis: |
|
|
|
|
_CUMDOIS
| |||||||||||||||
Retorno: |
|
Informações | ||
---|---|---|
| ||
O ponto de entrada é chamado após estar posicionado na tabela STF, sendo assim é possível acessar suas informações. Ao utilizar este ponto de entrada, todos os tipos de manutenções deverão ser tratadas neste ponto de entrada. |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Protheus.ch' /* Neste exemplo de ponto de entrada está sendo tratado apenas as manutenções do tipo "C" - Contador. Por se tratar de um exemplo não está sendo considerado outros tipos de acompanhamento. É de responsabilidade do usuário adequá-lo para sua necessidade. Caso seja utilizado em um ambiente com outros tipos de acompanhamento, sem o tratamento necessário, nenhuma manutenção será gerada para tais. */ User Function MNTA330G() Local _TIPO := PARAMIXB[1] // retorna o tipo de controle da manutenção Local _CUMDOIS := PARAMIXB[2] //retorna se tipo do contador Local lRet := .F. If _TIPO == "C" .And. _CUMDOIS == 1 //Verifica se a manutenção é controlada por contador e primeiro contador If _CONPROX == 0 //neste exemplo irá gerar apenas uma ordem de serviço para cada manutenção com a data atual e contador a 100 _CONPROX := 100 STF->TF_CONMANU + STF->TF_INENMAN // _DTPROX := dDatabase ((_CONPROX - M->T9_CONTACU) / M->T9_VARDIA) ReturnlRet := .tT. EndIf EndIf Return lRet .F. |