| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Funcionário x EPI (MDTA695) |
| País: | Brasil |
| Ticket: | 15127976 |
| Issue: | DNG-18185 |
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 | Cadastro de EPI e Funcionário. |
| Evento | Não gerar evento S-2240 na entrega do EPI. |
| Retorno | Impede a geração do evento S-2240. |
| Função | MDTA695B() |
|---|---|
| Parâmetros | lImpede, Lógico, Impede ou não a geração do evento S-2240. É necessário estar como verdadeiro para impedir a geração. l695Auto, Lógico, Caso seja uma execução automática o processo é considerado como verdadeiro. |
| Retorno | lImpede, Lógico, Quando o retorno é .T., não retorna o evento S-2240 nas rotinas. |
#Include 'protheus.ch'
User Function mdta695b()
Local lImpede := .F.
Default l695Auto := .F.
If l695Auto // Caso seja execução automática
lImpede := .T.
EndIf
Return lImpede |