Histórico da Página
PE MNTA2652 Executado no momento de gravação da rotina Alteração
de O.S.de OS permitindo a implementação de regras específicas.
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Manufatura |
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas |
Rotina: | MNTA265 - Alteração de O.S. |
Chamados Issues Relacionados | MNG-4235 |
País(es): | Todos |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Aviso | ||
---|---|---|
| ||
Ressaltamos que a implementação de regras específicas devem ser realizadas cuidadosamente para que não ocorram corrompimentos de registros na base de dados do cliente. Ao realizar customizações no processo padrão através do presente PE, o cliente deve atentar-se aos possíveis impactos como desvio de fluxos, corrompimentos de dados com módulos integrados ao Manutenção de Ativos e Gestão de Frotas (SIGAMNT). |
Descrição: | A utilização do presente ponto de entrada permite que o usuário efetue a execução de regras específicas, onde essas serão consolidadas no momento da confirmação da rotina de Alteração de O.S. (MNTA265). | Descrição: | Permite alterar conteúdo dos campos de ordem de serviço na gravação da rotina de alteração de O.S. | |||||||
Localização: | SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno | |||||||||
Programa Fonte: | MNTA265.prx | |||||||||
Função: | MNTA2652() | |||||||||
Parâmetros: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA2652() Local nRecOscOrdem := ParamIxb[1] Local cPlano := ParamIxb[2] dbSelectArea("STJ") dbGoTo(nRecOs) dbSetOrder(1) If dbSeek(xFilial("STJ")+cOrdem+cPlano) If FieldPos("TJ_XPTO") > 0 Reclock("STJ",.F.) STJ->TJ_SITUACAXPTO := "P"Registro alterado em " + DTOC(dDataBase) MsUnLock() EndIf EndIf Return |