01. DADOS GERAIS
| Produto: | | Solucoes_totvs_parceirosexptotvs |
|---|
| SolucaoParcsExpsTOTVS | TOTVS Medicina e Segurança do Trabalho |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_totvs_rh |
|---|
| ModulosTOTVSRH | TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT) |
|---|
|
|
|---|
| Função: | Prontuário Médico (MDTA410) |
|---|
| País: | Brasil |
|---|
| Ticket: | Não há. |
|---|
| Issue: | Não há. |
|---|
02. DESCRIÇÃO
Criado Ponto de Entradaentrada MDTA4101 chamado na rotina de Prontuário Médico (MDTA410) para possibilitar a validação da exclusão de registros.
| Ponto de Entrada | MDTA4101() |
|---|
| Chamada | Ao realizar a exclusão de qualquer registro contido na rotina do Prontuário Médico (MDTA410). |
|---|
| Pré-Requisito | Ter registros na rotina. |
|---|
| Evento | Validação da exclusão de registros contidos na rotina do Prontuário Médico (MDTA410). |
|---|
| Retorno | Indica se existe a permissão para a exclusão de registros no prontuário. |
|---|
03. DEMAIS INFORMAÇÕES
| Função | MDTA4101() |
|---|
| Parâmetros | cAlias, Caracter, Alias da tabela onde o registro está sendo excluído. |
|---|
| Retorno | lRetlRet, Lógico, indica Indica se existe a permissão para a exclusão de registros no prontuário. |
|---|
| Bloco de código |
|---|
| language | java |
|---|
| theme | Eclipse |
|---|
| firstline | 1 |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
|
#Include "Protheus.ch"
User Function MDTA4101()
Local cAlias := PARAMIXB[1]
Local lRet := .T.
If cAlias == "TM5" .And. PswAdmin(,,RetCodUsr()) != 0
MsgAlert("Esse usuário não possui permissão para executar essa exclusão", "Atenção")
lRet := .F.
EndIf
Return lRet |
04. ASSUNTOS RELACIONADOS
