Linha Microsiga Protheus

Árvore de páginas

Ponto 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:

Rotina

Nome Técnico

MDTA800

Programação de Entrega de EPI

Cadastros Iniciais:

  • Função
  • Funcionario
  • Epi
  • Fornecedor
  • Fornecedor x EPI
  • Função x EPI
  • Entrega de EPI

Ponto de Entrada:

MDTA8001

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SRA - Funcionarios
TN3 - Fornecedor EPI
SB1 - Produtos
SA2 - Fornecedores
TNF - EPI Entregues Funcionários
SRJ - Funções

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:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Indica se o funcionário deve ser exibido de acordo com o filtro específico.

Sim

Exemplo
#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

Return lRet