Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Prog. Entrega Epi (MDTA800)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

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 EntradaMDTA8001
Chamada

Ao realizar a busca de funcionários para exibição na listagem de marcação.

Pré-Requisito

Realizar os cadastros abaixo:

  • Função
  • Funcionário
  • Epi
  • Fornecedor
  • Fornecedor x EPI
  • Função x EPI
  • Entrega de EPI
EventoFiltro de funcionários.
RetornoIndica se o funcionário deve ser exibido de acordo com o filtro específico.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA8001()
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.

RetornolRet, Lógico, Indica se o funcionário deve ser exibido de acordo com o filtro específico.



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.<font></font>

    EndIf

Return lRet


04. ASSUNTOS RELACIONADOS