Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


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:MNTA280E()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Solicitação (MNTA280) que realiza a validação da exclusão dos registros da rotina.

Localização:

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

Programa Fonte:

MNTA280.prx

Função:

MNTA280E()

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoCaso as informações estejam de acordo com o cadastro, retorna verdadeiro (.T.) e permite a exclusão, caso contrário, retorna falso (.F.) e a exclusão não é feitaX

03. DEMAIS INFORMAÇÕES

Exemplo MNTA280E()
#Include 'Protheus.ch'
 
/* É possível realizar qualquer tipo de exclusão das solicitações de serviço.
O exemplo a seguir verifica se o usuário é o mesmo que realizou a abertura das
solicitações de serviço ou se faz parte do grupo de administradores. */
 
User Function MNTA280E()
 
    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 excluir mesmo assim?" )
    EndIf
 
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.