Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Exames P/ Admissao (MDTA275)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Ponto de entrada MDT2751 criado para que seja possível adicionar componentes na tela de Exames da rotina de Exames p/ Admissão (MDTA275).


Ponto de EntradaMDT2751()
ChamadaNão há.
Pré-RequisitoPossuir cadastro de funcionários.
EventoCampos personalizados na tela de Exames da rotina.
RetornoNovos campos personalizados conforme necessidade da empresa.

03. DEMAIS INFORMAÇÕES

FunçãoMDT2751()
Parâmetros

xFilial, Função, recebe como parâmetro as tabelas SRJ e SRA.

dbSelectArea, recebe as tabelas SRA e SRJ.

dbSetOrder, define a ordem de acesso dos dados.

dbSeek, realiza a busca de exames por filial.

RetornoNão há.



Exemplo
#include "protheus.ch"
 
User Function MDT2751()
    dbSelectArea("SRA")
    dbSetOrder(1)
    dbSeek(xFilial("SRA") + TM0->TM0_NUMFIC)
     
    @ 31,096  
    SAY OemToAnsi("Função")
    Pixel @ 29,120  
    MSGET SRA->RA_CODFUNC Picture "@!" SIZE 40,8 WHEN .f. Pixel
     
    dbSelectArea("SRJ")
    dbSetOrder(1)
    dbSeek(xFilial("SRJ") + SRA->RA_CODFUNC)
     
    @ 31,165 
    SAY OemToAnsi("Descrição")
    Pixel @ 29,195 
    MSGET SRJ->RJ_DESC Picture "@!" SIZE 130,8 WHEN .f. Pixel
     
Return


04. ASSUNTOS RELACIONADOS