PE MDTA3331 Recibo EPI Por Biometria

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:	Recibo (biometria) (MDTA333)
País:	Brasil
Ticket:	Não há.
Issue:	Não há.

Ponto de Entrada MDTA3331 chamado na rotina de Recibo (biometria) (MDTA333) após a confirmação da entrega de epi.

Procedimentos para Utilização:

Entrar no Configurador (SIGACFG).
Em Base de Dados > Dicionario > Bases de Dados > Parâmetros.
Pesquisar os seguintes parâmetros:
- MV_BIOVLDR alterando o seu valor para 1.
- MV_BIOWERE alterando o seu valor para 1.
- MV_NG2BIOM alterando o seu valor para 1.
Entrar no modulo de Medicina e Segurança do Trabalho (SIGAMDT).
Em Atualizações \ Cadastros Gerais \ Funcionários. Incluir um funcionário.
Em Atualizações \ Cadastros Gerais \ Produto(epi). Realizar a inclusão de um epi.
Em Atualizações \ Cadastros Gerais \ Fornecedores. Incluir um fornecedor.
Em Atualizações \ Atendimento Médico \ Ficha Médica. Incluir uma ficha médica para o funcionário utilizado, preencher o campo Biometria (TM0_INDBIO) como 1=Sim.
Em Atualizações \ Epi \ Epi x Fornecedor. Relacionar o epi em um fornecedor.
Em Atualizações \ Epi \ Epi x Funcionários. Realizar a entrega do epi para o funcionário.
Em Atualizações \ Epi \ Recibo (biometria). Ir em Epis e realizar a entrega do epi. Verificar que ao confirmar a tela o ponto de entrada MDTA3331 será chamado.

Ponto de Entrada	MDTA3331()
Chamada	Ao confirmar a tela de entrega de EPIs na rotina, o ponto de entrada MDTA3331 será chamado.
Pré-Requisito	Realizar os cadastros conforme listado acima.
Evento	Confirmação da Entrega de EPI.
Retorno	Ponto de entrada executado quando a entrega de EPI for realizada com sucesso na rotina.

Função

MDTA3331()

Parâmetros

lRet, booleano, retorna verdadeiro ou falso.

Len(aEpiProg), Array, array que armazena os EPIs.

Retorno

lRet, booleano, retorna verdadeiro ou falso.

Exemplo

#Include "Protheus.ch"

User Function MDTA3331()

	Local lRet := .F.

	If Len(aEpiProg) > 0 //Array com os Epis
    	lRet := .T.
	EndIf

Return lRet