Linha Microsiga Protheus

Árvore de páginas

PE MNTA2652 Executado no momento de gravação da rotina Alteração 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.

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).

Localização:

SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno

Programa Fonte:

MNTA265.prx

Função:

MNTA2652()

Parâmetros:

Nome

Tipo

Descrição

cOrdemCaracter

Representa o código da ordem de serviço que está sendo alterada.


cPlanoCaracterRepresenta o código do plano de manutenção referente a ordem de serviço que está sendo alterada.

 

Exemplo PE MNTA2652
User Function MNTA2652()

    Local cOrdem := ParamIxb[1]
    Local cPlano := ParamIxb[2]

    dbSelectArea("STJ")
    dbSetOrder(1)
    If dbSeek(xFilial("STJ")+cOrdem+cPlano)
		If FieldPos("TJ_XPTO") > 0
        	Reclock("STJ",.F.)
        	STJ->TJ_XPTO := "Registro alterado em " + DTOC(dDataBase)
        	MsUnLock()
		EndIf
    EndIf

Return