Exibir origem

Tempo aproximado para leitura: 01 min

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTA005
Cadastros Iniciais:	Funcionário (SRA) Ficha Médica (TM0)
Ponto de Entrada:	MDTA0056
Tabelas Utilizadas:	SRA - Funcionário TM0 - Ficha Médica
País(es):	Todos
Banco(s) de Dados:	Todos
Sistema(s) Operacional(is):	Todos
Requisito/Story/Issue (informe o requisito relacionado) :	DNG-3788

02. DESCRIÇÃO

Criação do Ponto de Entrada MDTA0056 para que no momento do recadastro de um Funcionário que já tenha Ficha Médica previamente cadastrada, seja possível selecionar a Ficha Médica desejada.

03. PONTO DE ENTRADA

Descrição:

Ponto de Entrada para buscar a Ficha Médica do Funcionário se já existir previamente cadastrada

Localização:

SIGAMDT: Atualizações/Atendimento Medico/Ficha Medica

Eventos:

Ao recadastrar um Funcionário que já tenha uma Ficha Médica cadastrada

Programa Fonte:

Ficha Medica (MDTA005)

Função:

MDTA0056

Retorno:

Nome	Tipo	Descrição	Obrigatório
cNumFic	Caracter	Retorna a Ficha Médica do Funcionário	Sim

#Include 'Protheus.ch'

User Function MDTA0056()

	Local cNumFic := ""

	dbSelectArea( "TM0" )
	dbSetOrder( 10 )
	Set Filter To TM0->TM0_CPF == M->RA_CIC
	dbGoBottom()
	cNumFic := TM0->TM0_NUMFIC

Return cNumFic