Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescriçãoObrigatório
cNumFicCaracterRetorna a Ficha Médica do FuncionárioSim
Exemplo
#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