Histórico da Página
onto de Entrada para filtro dos funcionários exibidos para marcação dos EPI's a serem entregues.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT). | ||||
Rotina: |
| ||||
Cadastros Iniciais: |
| ||||
Ponto de Entrada: | MDTA8001 | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | SRA - Funcionarios | ||||
Sistema(s) Operacional(is): | Windows e Linux |
Descrição
Ponto de Entrada que permite filtrar os funcionários a serem exibidos na listagem de marcação para Programação de Entrega de EPI.
Ponto de Entrada
Descrição: | Ponto de Entrada para filtrar os funcionários a serem selecionados. | ||||||||
Localização: | SIGAMDT: Atualizações\EPI\Prog. Entr. EPI | ||||||||
Eventos: | Ao realizar a busca de funcionários para exibição na listagem de marcação. | ||||||||
Programa Fonte: | MDTA800 | ||||||||
Função: | MDTA8001 | ||||||||
Retorno: |
|
Bloco de código | ||||
---|---|---|---|---|
|
#Include 'Protheus.ch' |
User Function MDTA8001() |
Local cFunSRA := '00001' |
Local lRet := .F. |
If SRA->RA_ |
CODFUNC == cFuncSRA//Valida para trazer funcionários apenas da função |
00001 lRet := .T. |
EndIf
ReturnEndIf Return lRet |