| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Prog. Entrega Epi (MDTA800) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Ponto de entrada MDTA8001 que permite filtrar os funcionários a serem exibidos na lista de marcação para Programação de Entrega de EPI na rotina Prog. Entrega Epi (MDTA800).
| Ponto de Entrada | MDTA8001 |
|---|---|
| Chamada | Ao realizar a busca de funcionários para exibição na listagem de marcação. |
| Pré-Requisito | Realizar os cadastros abaixo:
|
| Evento | Filtro de funcionários. |
| Retorno | Indica se o funcionário deve ser exibido de acordo com o filtro específico. |
| Função | MDTA8001() |
|---|---|
| Parâmetros | cFunSRA, Array, Armazena o código de identificação da função do funcionário na tabela SRA. lRet, Lógico, Validação da função do funcionário conforme dados da SRA. |
| Retorno | lRet, Lógico, Indica se o funcionário deve ser exibido de acordo com o filtro específico. |
#Include 'Protheus.ch'<font></font> <font></font> User Function MDTA8001()<font></font> <font></font> Local cFunSRA := '00001'<font></font> Local lRet := .F.<font></font> <font></font> If SRA->RA_CODFUNC == cFuncSRA//Valida para trazer funcionários apenas da função 00001<font></font> <font></font> lRet := .T.<font></font> <font></font> EndIf<font></font> <font></font> Return lRet |