Histórico da Página

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS	TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs

Segmento	Distribuição
Region	Construção Projetos
Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Serviços

Módulo:

Medicina e Segurança do Trabalho (SIGAMDT)

Função:

Prontuário Médico

Ticket:

18748160

Issue:

DNGRHUMDT-27

02. SITUAÇÃO/REQUISITO

Solicitação de criação de um Ponto de Entrada na rotina de Prontuário Médico (MDTA410) permitindo a inclusão de novos campos.

03. SOLUÇÃO

Ponto de Entrada	MDTA4104()
Chamada	Ao acessar a rotina Prontuário Médico (MDTA410) equando clicar para mudar de aba.
Pré-Requisito	N/A
Evento	Ao selecionar o funcionário e alterar entre as abas
Retorno	Array com os campos que não serão ou não exibidos em tela.

04. DEMAIS INFORMAÇÕES

Função

MDTA4104()

Parâmetros

nOption, Numérico, Traz o valor a ser comparado com o folder selecionado.

aNao, Array, Traz os campos que serão retirados da exibição em tela.

Retorno

aNao, Array, Traz os campos que serão retirados da exibição em tela.

Bloco de código

theme	Eclipse
title	Exemplo

#Include 'Totvs.ch'    
 
User Function MDTA4104()
 
    Local aNao    := ParamIXB[1]
    Local nOption := ParamIXB[2]
 
    Do Case
 
        Case nOption == 02 //Consultas
 
            aNao := { "TMJ_NUMFIC", "TMJ_NOMFIC", "TMJ_MAT", "TMJ_PCMSO", "TMJ_DTATEN", "TMJ_DTPROG", "TMJ_CONVOC" }
 
        Case nOption == 03 //Programa de Saude
 
            aNao := {"TMN_NUMFIC", "TMN_NOMFIC"}
 
        Case nOption == 04 //Restricoes
 
            aNao := {"TMF_NUMFIC", "TMF_NOMFIC"}
 
        Case nOption == 05 //Doenças
 
            aNao :={"TNA_NUMFIC", "TNA_NOMFIC"}
 
        Case nOption == 06 //Exames
 
            aNao := {"TM5_NUMFIC", "TM5_NOMFIC"}
 
        Case nOption == 07 //ASO'S
 
            aNao := {"TMY_NUMFIC", "TMY_NOMFIC", "TMY_DESPAR", "TMY_DESNAT"}
 
        Case nOption == 08 //Atestado
 
            If AliasInDic( "TYZ" ) //Caso possua a tabela de afastamentos.
                aNao    := {"TNY_NUMFIC", "TNY_NOMFIC", "TNY_DTSAID", "TNY_DTALTA", "TNY_DTSAI2", "TNY_DTALT2", "TNY_DTSAI3", "TNY_DTALT3" }
            Else
                aNao    := {"TNY_NUMFIC", "TNY_NOMFIC" }
            EndIf
 
        Case nOption == 09 //Acidentes
 
            aNao := {"TNC_NUMFIC", "TNC_NOMFIC"}
 
            If AliasInDic( "TYE" )
                aAdd( aNao, "TNC_CODOBJ" )
                aAdd( aNao, "TNC_DESOBJ" )
                aAdd( aNao, "TNC_CODPAR" )
                aAdd( aNao, "TNC_DESPAR" )
            EndIf
 
        Case nOption == 10 //Diagnósticos Médicos
 
            aNao := {"TMT_NUMFIC", "TMT_NOMFIC", "TMT_MAT"}
 
            If cReleaseRPO < '12.1.2310'
 
                aAdd( aNao, "TMT_QUESYP" )
                aAdd( aNao, "TMT_DATSYP" )
                aAdd( aNao, "TMT_DIASYP" )
                aAdd( aNao, "TMT_HDASYP" )
                aAdd( aNao, "TMT_HISSYP" )
                aAdd( aNao, "TMT_CABSYP" )
                aAdd( aNao, "TMT_OLHSYP" )
                aAdd( aNao, "TMT_OUVSYP" )
                aAdd( aNao, "TMT_PESSYP" )
                aAdd( aNao, "TMT_APRSYP" )
                aAdd( aNao, "TMT_APDSYP" )
                aAdd( aNao, "TMT_APCSYP" )
                aAdd( aNao, "TMT_APUSYP" )
                aAdd( aNao, "TMT_MISSYP" )
                aAdd( aNao, "TMT_PELSYP" )
                aAdd( aNao, "TMT_EXFSYP" )
                aAdd( aNao, "TMT_ORFSYP" )
                aAdd( aNao, "TMT_OTSSYP" )
                aAdd( aNao, "TMT_ABDSYP" )
                aAdd( aNao, "TMT_AUCSYP" )
                aAdd( aNao, "TMT_AUPSYP" )
                 
            EndIf
 
        Case nOption == 11 //Vacinas
 
            aNao := {"TL9_NUMFIC", "TL9_NOMFIC"}
 
        Case nOption == 13 //Questionário
 
            aNao := {"TMI_NUMFIC", "TMI_NOMFIC", 'TMI_QUESTA', 'TMI_PERGUN', 'TMI_RESPOS', 'TMI_DESRES', 'TMI_QTRESP', 'TMI_COMRES', 'TMI_DESCRI' }
 
        OtherWise //Ficha Médica
 
            aNao := { 'TM0_ALTCOT','TM0_ALTJOE','TM0_ALTOLH','TM0_ALTPUB','TM0_ALTURA','TM0_BITMAP','TM0_CCDESC',;
            'TM0_CLIENT','TM0_CODCID','TM0_COMPPE','TM0_CORCAB','TM0_COROLH','TM0_CORPEL','TM0_CTPCD ','TM0_DEPTO ',;
            'TM0_DESCDP','TM0_DESCFU','TM0_DESCRI','TM0_DOADOR','TM0_DOENCA','TM0_DTDOAC','TM0_ESTCIV','TM0_FATORH',;
            'TM0_FICANT','TM0_FILIAL','TM0_FUMA  ','TM0_INDBIO','TM0_LMAMIL','TM0_LOJA  ','TM0_MASSA ','TM0_NOMCLI',;
            'TM0_NOMSOC','TM0_NUMCAL','TM0_NUMDEP','TM0_PESO  ','TM0_QTCIG ','TM0_QTTEMP','TM0_REGBIO','TM0_SANGUE',;
            'TM0_TAMANT','TM0_TAMBRA','TM0_TAMMAO','TM0_TIPDEF','TM0_TIPFIS' }
 
    EndCase
 
Return aNao

05. ASSUNTOS RELACIONADOS.

Não há.

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

02. SITUAÇÃO/REQUISITO

05. ASSUNTOS RELACIONADOS.