Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Linha de Produto:Protheus
Segmento:Serviços
Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Entrega de EPI (MDTA695 e MDTA630)
Ticket:15127976
Issue:DNG-18185


02. SITUAÇÃO/REQUISITO

É desejável a criação de um Ponto de Entrada para impedir a geração do evento S-2240 na execução automática da entrega de EPI.

03. SOLUÇÃO

Criado Ponto de Entrada MDTA695B nas rotinas de Entrega de EPI (MDTA695 e MDTA630) para impedir a geração do evento S-2240.

04. DEMAIS INFORMAÇÕES

Função:U_MDTA695B()
Retorno:Nulo
Parâmetros:

Nulo

Exemplo
#Include 'protheus.ch'

//---------------------------------------------------------------------
/*/{Protheus.doc} mdta695b
Impede a geração do evento S-2240 na entrega de epi

@doc https://tdn.totvs.com/x/RTVaKg

@author Gabriel Sokacheski
@since 21/09/2022

@return lImpede, verdadeiro para impedir a geração do evento
/*/
//---------------------------------------------------------------------
User Function mdta695b()

    Local lImpede := .F.

    Default l695Auto := .F.

    If l695Auto // Caso seja execução automática
        lImpede := .T.
    EndIf

Return lImpede
  

05. ASSUNTOS RELACIONADOS