| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Exames P/ Admissao (MDTA275) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
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 Entrada | MDT2751() |
|---|---|
| Chamada | Não há. |
| Pré-Requisito | Possuir cadastro de funcionários. |
| Evento | Campos personalizados na tela de Exames da rotina. |
| Retorno | Novos campos personalizados conforme necessidade da empresa. |
| Função | MDT2751() |
|---|---|
| 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. |
| Retorno | Não há. |
#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 |