Histórico da Página

#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