Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA280H()


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que possibilita validar se podem ser canceladas as solicitações de serviço

Localização:

SIGAMNT: Atualizações/Solicitação de Serviço/Distribuição

Evento:

Solicitação (MNTA280)

Programa Fonte:

MNTA280.PRX

Função:

MNTA280H

Retorno:
NomeTipoDescriçãoObrigatório

lRet

Lógico

Indica se permite excluir.

Sim


03. DEMAIS INFORMAÇÕES

Exemplo MNTA280H()
#Include 'Protheus.ch'

User Function MNTA280H()

Local cCodUser := RetCodUsr() //Retorna o código do usuário corrente

Local lRet := .T.

 

      If AllTrim( TQB->TQB_CDSOLI ) != AllTrim( cCodUser ) .And. !FwIsAdmin() //Verifica se o usuario é o mesmo que abriu a SS.


            lRet := !MsgYesNo( "O usuário não é o mesmo que abriu a solicitação de serviço ou não pertence ao grupo de Administradores. Deseja cancelar mesmo assim?" )


      EndIf

 

Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.