DT PE MDT2751 Incluir Campos em Exames para Admissão

01. DADOS GERAIS

Produto:	TOTVS Medicina e Segurança do Trabalho
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	Medicina e Segurança do Trabalho
Função:	Exames por Admissão (MDTA275)
Ticket:	Não há.
Issue:	Não há.

02. SITUAÇÃO/REQUISITO

Na rotina de Exames por Admissão (MDTA275), criar um ponto de entrada ao selecionar a opção Outras Ações/Exames para que seja possível incluir novos Compomentes.

03. SOLUÇÃO

Criado ponto de entrada MDT2751 na rotina de Exames por Admissão (MDTA275), que será executado ao acessar a opção Outras Ações/Exames.

Exemplo

#include "protheus.ch"

User Function MDT2751()

	dbSelectArea("SRA")
	dbSetOrder(1)
	dbSeek(xFilial("SRA")+TM0->TM0_NUMFIC)

	@ 50,7   SAY OemToAnsi("Função") Pixel
	@ 48,45   MSGET SRA->RA_CODFUNC Picture "@!" SIZE 40,8 WHEN .F. Pixel

	dbSelectArea("SRJ")
	dbSetOrder(1)
	dbSeek(xFilial("SRJ")+SRA->RA_CODFUNC)

	@ 50,100  SAY OemToAnsi("Descrição") Pixel
	@ 48,130  MSGET SRJ->RJ_DESC Picture "@!" SIZE 130,8 WHEN .F. Pixel

Return

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS