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


02. DESCRIÇÃO

Ponto de entrada MDTA3332 é chamado na rotina de Recibo (biometria) (MDTA333) após a impressão do recibo de entrega do EPI.


Procedimento para Utilização

  1. Entrar no  Configurador (SIGACFG) .
  2. Em  Base de Dados > Dicionário > Bases de Dados > Parâmetros . Pesquise os seguintes parâmetros: 
       -  MV_BIOVLDR  alterando seu valor para  1.
       -  MV_BIOWERE  alterando seu valor para  1.
       -  MV_NG2BIOM  alterando seu valor para  1.
  3. Entrar no módulo de  Medicina e Segurança do Trabalho (SIGAMDT).
  4. Em  Atualizações \ Cadastros Gerais \ Funcionários e incluir um funcionário.
  5. Em  Atualizações \ Cadastros Gerais \ Produto(epi) e realize a inclusão de um epi.
  6. Em  Atualizações \ Cadastros Gerais \ Fornecedores  e incluir um fornecedor. 
  7. Em  Atualizações \ Atendimento Médico \ Ficha Médica  e incluir uma ficha médica para o funcionário utilizado, preenchendo o campo  Biometria (TM0_INDBIO) como 1=Sim.
  8. Em  Atualizações\Epi\Epi x Fornecedor e relacione o epi em um fornecedor.
  9. Em  Atualizações \ Epi \ Epi x  Funcionários e realizar a entrega do epi para o funcionário.
  10. Em  Atualizações \ Epi \ Recibo (biometria) e Ir em  Epis, realizando a entrega do epi. Certifique-se de confirmar a tela e imprimir o recibo que será entregue no ponto de entrada MDTA3332. 



Ponto de EntradaMDTA3332
ChamadaApós a impressão do recibo de entrega do EPI.
Pré-RequisitoJá ter cadastrado no sistema um funcionário + Ficha Médica, EPI e Fornecedor.
EventoAo realizar a impressão do recibo após a entrega de EPI.
Retorno

Apresenta a chamada do ponto de entrada.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA3332()
ParâmetroslDevol, Array, determina se é uma devolução de EPI
RetornoNulo.
Exemplo
#Include "Protheus.ch"

User Function MDTA3332()

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

	RecLock("TNF",.F.)

    TNF->TNF_DTRECI := STOD("")

	TNF->(MsUnLock())

Return

04. ASSUNTOS RELACIONADOS