| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Entrega de EPI (MDTA695 e MDTA630) |
| País: | Brasil |
| Ticket: | 15127976 |
| Issue: | DNG-18185 |
Criado Ponto de Entrada MDTA695B nas rotinas de Entrega de EPI (MDTA695 e MDTA630) para impedir a geração do evento S-2240.
| Ponto de Entrada | MDTA695B() |
|---|---|
| Chamada | Na entrega de EPI para o funcionário. |
| Pré-Requisito | Não há. |
| Evento | Não gera evento S-2240 na entrega do EPI. |
| Retorno | Impede a geração do evento S-2240. |
| Função | MDTA695B() |
|---|---|
| Parâmetros | Local lImpede, booleano, impede ou não a geração do evento S-2240. É necessário estar como True (verdadeiro) para impedir a geração. |
| Retorno | Local lImpede, booleano, quando o retorno é True, não retornou o evento S-2240 nas rotinas. |
#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 |