Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada na confirmação de Entrega de Epi por Biometria após impressão do recibo.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Medicina e Segurança do Trabalho.

Rotina:

Rotina

Nome Técnico

MDTA333 

Recibo(biometria) 

Cadastros Iniciais:

- Funcionario
- Epi
- Fornecedor
- Ficha Médica

Parâmetro(s):

MV_BIOVLDR = 1
MV_BIOWERE = 1
MV_NG2BIOM = 1

Ponto de Entrada:

MDTA3332

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SRA - Funcionários
TM0 - Ficha Médica
SB1 - Produtos
SA2 - Fornecedores
TNF - EPI Entregues Funcionários

Sistema(s) Operacional(is):

Windows e Linux

Descrição

Ponto de Entrada MDTA3332 criado é chamado na rotina de Recibo (biometria) (MDTA333) após a impressão do recibo de 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 e imprimir o recibo será trazido o ponto de entrada MDTA3332. 

 

Ponto de Entrada

Descrição:

Atualizações

Localização:

Epi

Eventos:

Recibo (biometria)

Programa Fonte:

MDTA333

Função:

Medicina e Segurança do Trabalho

 

Exemplo:

#Include "Protheus.ch"

User Function MDTA3332()

lDevol := PARAMIXB[1] //Determina se é devolução. 

RecLock("TNF",.F.)

    TNF->TNF_DTRECI := STOD("")

TNF->(MsUnLock())

Return