Ponto de Entrada na confirmação de Entrega de Epi por Biometria.  

Características do Requisito

Descrição

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

Procedimento para Utilização

1. Entrar no Configurador (SIGACFG).
2. 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.
3. Entrar no modulo de Medicina e Segurança do Trabalho (SIGAMDT).
4. Em Atualizações \ Cadastros Gerais \ Funcionários. Incluir um funcionário.
5. Em Atualizações \ Cadastros Gerais \ Produto(epi). Realizar a inclusão de um epi.
6. Em Atualizações \ Cadastros Gerais \ Fornecedores. Incluir um fornecedor. 
7. 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.
8. Em Atualizações \ Epi \ Epi x Fornecedor. Relacionar o epi em um fornecedor.
9. Em Atualizações \ Epi \ Epi x Funcionários. Realizar a entrega do epi para o funcionário.
10. 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.

1.       

Ponto de Entrada

Exemplo:

#Include "Protheus.ch"

User Function MDTA3331()

Local lRet := .F.

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

Return lRet