Linha Microsiga Protheus

Árvore de páginas

ATENÇÃO

  • Este ponto de entrada está disponível somente a partir da versão 12.1.17!


Valida se o usuário poderá liberar O.S. selecionada

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

MNTA490

Liberação de O.S.

Rotina(s) envolvida(s)

Nome Técnico

MNTA490

Liberação de O.S.

Issues Relacionadas

DNG-1117

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada acionado ao selecionar uma ou mais O.S. na rotina de liberação de O.S. para validar se o usuário poderá efetuar a liberação da O.S.

Localização:

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

Eventos:

Liberação de O.S. (MNTA490)

Programa Fonte:

MNTA490.prx

Função:

MNTA490INV() e MNTA490MAQ()

Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]Carácter
Ordem de ServiçoSim
PARAMIXB[2]CarácterPlanoSim
Retorno:
NomeTipoDescriçãoObrigatório

lRet

LógicoRetorno para validar se o usuário poderá liberar a O.S.Sim

 

Exemplo
#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA4904
Verifica se usuário pode finalizar O.S.

@author  Eduardo Henrique Mussi
@since   28/07/2018
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA4904()

    Local aArea     := GetArea()
    Local cOrdem    := PARAMIXB[1]
    Local cPlano    := PARAMIXB[2]
    Local lRet      := .T.

    // Caso encontre um insumo do Tipo Produto na O.S não deixa Usuário finalizar
    dbSelectArea( 'STL' )
    dbSetOrder( 4 ) // Filial + Ordem + Plano + Tipo Insumo
    If dbSeek( xFilial( 'STL' ) + cOrdem + cPlano + 'P' )
        lRet := .F.
    EndIf
	RestArea( aArea )
Return lRet