Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para validações de alteração de data e presença de insumos realizados na rotina de Programação de O.S. (MNTA990)

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA990

Programação de O.S.

Rotina(s) envolvida(s)

Nome Técnico

MNTA990D

Ponto de Entrada

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de Entrada chamado na rotina de Programação de O.S. (MNTA990), ao alterar a data prevista da O.S. ou acionar o botão "Excluir"/"Excluir Todos", para validar a alteração de data e a presença de insumos realizados na O.S.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Programação de O.S.

Programa Fonte:

MNTA990.prx

Função:

MNTA990D()

Parâmetros:
Nome TipoDescriçãoPode Alterar
ParamIXB[1]CaracterNúmero da O.S.Sim
ParamIXB[2]DataData Prevista.Sim
ParamIXB[3]Caracter
Sequência do insumo, quando é maior que '0' indica que o insumo está realizado.
Sim

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Indica se a validação foi feita

Sim

 

Exemplo do Ponto de Entrada MNTA990D
#Include 'Totvs.ch'
    
User Function MNTA990D()
    
    Local dDtPrev := ParamIXB[2]
    Local cOrdem  := ParamIXB[1]
    Local cReal   := ''
    Local lRet    := .T.
    // Verifica se existe o terceiro parametro
    If Type( 'ParamIXB[3]' ) != 'U'
        cReal := ParamIXB[3]
        // Verifica se o insumo está realizado
        If cReal > '0'
            MsgInfo( 'Existem insumos realizados', 'Atenção') 
            lRet := .F.
        EndIf
    EndIf
    // Verifica se a data prevista é menor que a data base
    If lRet .AND. dDtPrev < dDataBase
        MsgInfo(" A data não pode ser alterada ", 'Atenção')
        lRet := .F.
    EndIf
Return lRet