Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 no momento da busca pela Ficha Médica do Funcionário quando existir ele for recadastrado e já possuir uma Ficha previamente cadastradaMédica.

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
Bloco de código
titleExemplo
#Include 'Protheus.ch'

User Function MDTA0056()

	Local cNumFic := ""


	dbSelectArea( "TM0" )
	dbSetOrder( 10 )
	dbSeek( xFilial( "TM0" ) + M->RA_CIC )
	dbGoBottom()
	cNumFic := TM0->TM0_NUMFIC

Return cNumFic