Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 minutos


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

Criação do 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

Local cFunSRA, Array, armazena o código de identificação da função do funcionário na tabela SRA.

Local lRet, booleano, validação da função do funcionário conforme dados da SRA.

RetornolRet, booleano, indica se o funcionário deve ser exibido de acordo com o filtro específico.



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


04. ASSUNTOS RELACIONADOS