Linha Microsiga Protheus

Árvore de páginas

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

Ponto de entrada que permite executar validações ao acionar o processo de cancelamento de uma O.S.

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

MNTA435

Retorno Mod. 2

Issues Relacionadas

12.1.17 / DNG-2952

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de Entrada executado antes do cancelamento de uma Ordem de Serviço, permitindo a inclusão de novas validações no processo.

Localização:

SIGAMNT: Atualizações/Controle de Oificina/Retorno O.S./Retorno Mod. 2

Eventos:

Retorno Mod. 2 (MNTA435)

Programa:

MNTA435.prx

Função:

MNT435Can()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]Carácter

Número da Ordem de Serviço para cancelamento.

Retorno:

.T. - Permitido a operação de cancelamento da O.S.

.F. - Operação de cancelamento da O.S. interrompido.

 

#include "Protheus.ch"
User Function MNTA435F()

    Local cCodUser := AllTrim( RetCodUsr() )
    Local aAllUser := AllUsers()
    Local aPosit   := aScan( aAllUser, { |x| Trim( x[1][1] ) == cCodUser } )
    Local nNvlMNT  := aScan( aAllUser[aPosit][3], { |x| SubStr( x, 1, 2 ) == '19' } )
    Local lRet     := .T.
    Local cOrdem   := ParamIXB[1]
    
    If SubStr( aAllUser[aPosit][3][nNvlMNT], 3, 1 ) > '5'
        lRet := .F.
        MsgInfo( 'Usuário não possui acesso ao processo de cancelamento de O.S.', 'Atenção' )
    EndIf

Return lRet