import.css=/download/attachments/327912/newLayout.css

Boletim Técnico: Campos para filtros na rotina de Vacinas - MP11

Ocorrência

Melhoria

Resumo

Implementadas as seguintes melhorias nas respectivas rotinas: Vacinas (MDTA520) que consiste na criação dos campos Sexo, Centro Custo, Função e Funcionário, com o objetivo de filtrar as vacinas.Criação de pastas Centro de Custo com os campos Código e Nome; pasta Função com os campos Código e Descrição e pasta Funcionário com os campos Matrícula e Nome com o objetivo de selecionar o centro de custo, função e funcionário para filtro de vacina.Ajuste em Gerar Prog. Vacina (MDTA535) visando à geração de vacinas filtrando-as de acordo com os novos campos criados na rotina Vacinas (MDTA520) e assim, facilitando a inclusão e geração de vacinas.

ID do Chamado

SDHLC3

Produtos


  • Microsiga 11


Módulos
  • SIGAMDT
Portais
  • nenhum
Países
  • Brasil
Sistema Operacional

  • todos


Bancos de Dados
  • todos
Nome + Fonte
GPE010 – Funcionários; MDTA005 - Ficha Médica; GPEA030 – Funções; CTBA180 - Centro Custos; MDTA520 – Vacinas; MDTA525 - Calendário Vacinaç; MDTA535 - Gerar Prog. Vacina; MDTR900 – Vacinas.
Número da FNC
000000059052011
Ajustes no Compatibilizador
Não
Integridade Referencial
Não
Aplicação de Patch
Não
Compatibilizador 1
- UPDMDT27
Procedimentos para Implementação


·         Aplicar atualização do(s) programa(s) UPDMDT27, MDTUTIL, MDTA520, MDTA535.
·         Para que as alterações sejam efetuadas, é necessário executar a função U_UPDMDT27.
 Importante:
Antes de executar o compatibilizador U_UPDMDT27 imprescindível:
a)    Realizar o backup da base de dados do produto que será executado o compatibilizador (“\PROTHEUS11_DATA\DATA”) e dos dicionários de dados "SXs" (“\PROTHEUS11_DATA\SYSTEM”).
b)    Os diretórios acima mencionados correspondem à instalação padrão do Protheus®, portanto, devem ser alterados conforme o produto instalado na empresa.
c)    Essa rotina deve ser executada em modo exclusivo, ou seja, nenhum usuário deve estar utilizando o sistema.
d)    Se os dicionários de dados possuírem índices personalizados (criados pelo usuário), antes de executar o compatibilizador, certifique-se de que estão identificados pelo nickname. Caso o compatibilizador necessite criar índices, irá adicioná-los a partir da ordem original instalada pelo Protheus®, o que poderá sobrescrever índices personalizados, caso não estejam identificados pelo nickname.
1.    Em Microsiga Protheus ByYou Smart Client, digite U_UPDMDT27 no campo Programa Inicial .
2.    Clique em OK para continuar.
3.    Ao confirmar, é apresentada uma mensagem de advertência sobre o backup e a necessidade de sua execução em modo exclusivo.
4.    Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.
É apresentada uma mensagem explicativa na tela.
5.    Em seguida, é apresentada a janela de Atualização concluída com o histórico (log) de todas as atualizações processadas. Nesse log de atualização, são apresentados somente os campos atualizados pelo programa. O compatibilizador cria os campos que ainda não existem no dicionário de dados.
6.    Selecione a empresa e dê duplo clique para visualizar o histórico (log).
7.    Clique em Salvar para gravar o histórico (log) apresentado.
8.    Clique em Ok para encerrar o processamento.
Descrição de Ajustes


1.   Inclusão de tabela(s) no Dicionário de Dados - SX2:
Chave
TKF
Nome
Centro Custo x Vacina
Modo
Exclusivo
Único
TKF_FILIAL+TKF_CODVAC+TKF_CODCC
Pyme
Não
Módulo
35

Chave
TKG
Nome
Função x Vacina
Modo
Exclusivo
Único
TKG_FILIAL+TKG_CODVAC+TKG_CODFUN
Pyme
Não
Módulo
35

Chave
TKH
Nome
Funcionário x Vacina
Modo
Exclusivo
Único
TKH_FILIAL+TKH_CODVAC+TKH_MATFUN
Pyme
Não
Módulo
35
2.   Inclusão de campo(s) no Dicionário de Dados - SX3.
·         Tabela TL6 - Vacinas:
Ordem
Conforme última ordem da tabela TL6
Conforme última ordem da tabela TL6
Conforme última ordem da tabela TL6
Conforme última ordem da tabela TL6
Campo
TL6_SEXO
TL6_CC
TL6_FUNC
TL6_FNCR
Tipo
Caracter
Caracter
Caracter
Caracter
Tamanho
1
1
1
1
Decimal
0
0
0
0
Formato
@!
@!
@!
@!
Form. Variável




Contexto
Real
Real
Real
Real
Propriedade
Alterar
Alterar
Alterar
Alterar
Título
Sexo
Centro Custo
Função
Funcionário
Descrição
Vac. para deter. sexo
Filtro por Centro de Cust
Filtro por Função
Filtro por Funcionário
Help
Informe se a Vacina é determinada por Sexo ou para Ambos
Informe se deseja filtrar por Centro de Custo
Informe se deseja filtrar por Função
Informe se deseja filtrar por Funcionário
Lista Opções
1=Masculino;2=Feminino;3=Ambos
1=Sim;2=Não
1=Sim;2=Não
1=Sim;2=Não
Inic. Padrão
3
2
2
2
Inic. Browse




Modo Edição




Cons. Padrão




Val. Usuário




Val. Sistema
PERTENCE('123')
PERTENCE('12') .And. VLDCC520()
PERTENCE('12') .And. VLDFUNC520()
PERTENCE('12') .And. VLDFNCR520()
Nível
1
1
1
1
Obrigatório
Sim
Sim
Sim
Sim
Usado
Sim
Sim
Sim
Sim
Browse
Sim
Sim
Sim
Sim
Módulos
Todos
Todos
Todos
Todos



·         Tabela TKF – Vacina x Centro de Custo:
Ordem
01
02
03
Campo
TKF_FILIAL
TKF_CODVAC
TKF_NOMVAC
Tipo
Caracter
Caracter
Caracter
Tamanho
Conforme o grupo de campo 033
10
30
Decimal
0
0
0
Formato
@!
@!
@!
Form. Variável



Contexto
 Real
Real
Virtual
Propriedade
Alterar
Alterar
Visualizar
Título
Filial
Cod. Vacina
Nome Vacina
Descrição
Filial
Codigo da Vacina
Nome Vacina
Help
Filial do Sistema
Informe Código da Vacina
Nome da Vacina
Lista Opções



Inic. Padrão


IF(INCLUI,' ',POSICIONE( 'TL6', 1, xFilial('TL6') + TKF->TKF_CODVAC, 'TL6_NOMVAC') )
Inic. Browse



Modo Edição



Cons. Padrão

Vacinas

Val. Usuário



Val. Sistema

EXISTCPO('TL6',M->TKF_CODVAC)

Nível
1
1
1
Obrigatório
Não
Sim
Não
Usado
Não
Sim
Sim
Browse
Não
Sim
Sim
Módulos
Todos
Todos
Todos

Ordem
04
05
Campo
TKF_CODCC
TKF_NOMCC
Tipo
Caracter
Caracter
Tamanho
Conforme o grupo de campo 004
40
Decimal
0
0
Formato
@!
@!
Form. Variável


Contexto
Real
Virtual
Propriedade
Alterar
Visualizar
Título
Código
Nome
Descrição
Código do Centro de Custo
Nome do Centro de Custo
Help
Informe Código do Centro de Custo
Nome do Centro de Custo
Lista Opções


Inic. Padrão


Inic. Browse


Modo Edição


Cons. Padrão
Centro Custo

Val. Usuário


Val. Sistema
EXISTCPO('CTT',M->TKF_CODCC)
IF(INCLUI,' ',POSICIONE( 'CTT', 1, xFilial('CTT') + TKF->TKF_CODCC, 'CTT_DESC01') )
Nível
1
1
Obrigatório
Sim
Não
Usado
Sim
Sim
Browse
Não
Sim
Módulos
Todos
Todos

·         Tabela TKG – Vacina x Função:
Ordem
01
02
03
Campo
TKG_FILIAL
TKG_CODVAC
TKG_NOMVAC
Tipo
Caracter
Caracter
Caracter
Tamanho
Conforme o grupo de campo 033
10
30
Decimal
0
0
0
Formato
@!
@!
@!
Form. Variável



Contexto
 Real
Real
Virtual
Propriedade
Alterar
Alterar
Visualizar
Título
Filial
Cod. Vacina
Nome Vacina
Descrição
Filial
Codigo da Vacina
Nome Vacina
Help
Filial do Sistema
Informe Código da Vacina
Nome da Vacina
Lista Opções



Inic. Padrão


IF(INCLUI,' ',POSICIONE( 'TL6', 1, xFilial('TL6') + TKG->TKG_CODVAC, 'TL6_NOMVAC') )
Inic. Browse



Modo Edição



Cons. Padrão

Vacinas

Val. Usuário



Val. Sistema

EXISTCPO('TL6',M->TKG_CODVAC)

Nível
1
1
1
Obrigatório
Não
Sim
Não
Usado
Não
Sim
Sim
Browse
Não
Sim
Sim
Módulos
Todos
Todos
Todos

Ordem
04
05
Campo
TKG_CODFUN
TKG_DESFUN
Tipo
Caracter
Caracter
Tamanho
5
20
Decimal
0
0
Formato
@!
@!
Form. Variável


Contexto
Real
Virtual
Propriedade
Alterar
Visualizar
Título
Código
Descrição
Descrição
Código da Função
Descrição da Função
Help
Informe Código da Função
Descrição da Função
Lista Opções


Inic. Padrão

IF(INCLUI,' ',POSICIONE( 'SRJ', 1, xFilial('SRJ') + TKG->TKG_CODFUN, 'RJ_DESC') )
Inic. Browse


Modo Edição


Cons. Padrão
Função

Val. Usuário


Val. Sistema
EXISTCPO('SRJ',M->TKG_CODFUN)

Nível
1
1
Obrigatório
Sim
Não
Usado
Sim
Sim
Browse
Não
Sim
Módulos
Todos
Todos



·         Tabela TKH – Vacinas x Funcionário:
Ordem
01
02
03
Campo
TKH_FILIAL
TKH_CODVAC
TKH_NOMVAC
Tipo
Caracter
Caracter
Caracter
Tamanho
Conforme o grupo de campo 033
10
30
Decimal
0
0
0
Formato
@!
@!
@!
Form. Variável



Contexto
Real
Real
Virtual
Propriedade
Alterar
Alterar
Visualizar
Título
Filial
Cod. Vacina
Nome Vacina
Descrição
Filial
Codigo da Vacina
Nome Vacina
Help
Filial do Sistema
Informe Código da Vacina
Nome da Vacina
Lista Opções



Inic. Padrão


IF(INCLUI,' ',POSICIONE( 'TL6', 1, xFilial('TL6') + TKH->TKH_CODVAC, 'TL6_NOMVAC') )
Inic. Browse



Modo Edição



Cons. Padrão

Vacinas

Val. Usuário



Val. Sistema

EXISTCPO('TL6',M->TKH_CODVAC)

Nível
1
1
1
Obrigatório
Não
Sim
Não
Usado
Não
Sim
Sim
Browse
Não
Sim
Sim
Módulos
Todos
Todos
Todos

Ordem
04
05
Campo
TKH_MATFUN
TKH_NOMFUN
Tipo
Caracter
Caracter
Tamanho
6
30
Decimal
0
0
Formato
@!
@!
Form. Variável


Contexto
Real
Virtual
Propriedade
Alterar
Visualizar
Título
Matricula
Nome
Descrição
Matrícula do Funcionário
Nome do Funcionário
Help
Informe Matrícula do Funcionário
Nome do Funcionário
Lista Opções


Inic. Padrão

IF(INCLUI,' ',POSICIONE( 'SRA', 1, xFilial('SRA') + TKH->TKH_MATFUN, 'RA_NOME') )
Inic. Browse


Modo Edição


Cons. Padrão
Funcionário

Val. Usuário


Val. Sistema
EXISTCPO('SRA',M->TKH_MATFUN)

Nível
1
1
Obrigatório
Sim
Não
Usado
Sim
Sim
Browse
Não
Sim
Módulos
Todos
Todos



3.   Inclusão de gatilho(s) no Dicionário de Dados - SX7:
·         Tabela TKF – Vacina x Centro de Custo:
Campo
TKF_CODCC
Sequência
001
Regra
CTT->CTT_DESC01
Campo Domínio
TKF_NOMCC
Tipo
Primário
Posiciona?
Sim
Proprietário
S
·         Tabela TKG – Vacina x Função:
Campo
TKG_CODFUN
Sequência
001
Regra
SRJ->RJ_DESC
Campo Domínio
TKG_DESFUN
Tipo
Primário
Posiciona?
Sim
Proprietário
S
·         Tabela TKH – Vacina x Funcionário:
Campo
TKH_MATFUN
Sequência
001
Regra
SRA->RA_NOME
Campo Domínio
TKH_NOMFUN
Tipo
Primário
Posiciona?
Sim
Proprietário
S



4.   Inclusão de índice(s) no Dicionário de Dados - SIX:
Índice
TKF
Ordem
1
Chave
TKF_FILIAL+TKF_CODVAC+TKF_CODCC
Descrição
Vacina + Centro de Custo
Proprietário
S

Índice
TKG
Ordem
1
Chave
TKG_FILIAL+TKG_CODVAC+TKG_CODFUN
Descrição
Vacina + Função
Proprietário
S

Índice
TKH
Ordem
1
Chave
TKH_FILIAL+TKH_CODVAC+TKH_MATFUN
Descrição
Vacina + Funcionário
Proprietário
S
5.   Inclusão de consulta(s) padrão no Dicionário de Dados - SXB:
Alias
SRAVAC
Tipo
1
Sequência
01
Coluna
DB
Descrição
Funcionário
Contém
SRA


Alias
SRAVAC
Tipo
2
Sequência
01
Coluna
01
Descrição
Matricula
Contém


Alias
SRAVAC
Tipo
4
Sequência
01
Coluna
01
Descrição
Matricula
Contém
SRA->RA_MAT

Alias
SRAVAC
Tipo
4
Sequência
01
Coluna
02
Descrição
Nome
Contém
SRA->RA_NOME

Alias
SRAVAC
Tipo
5
Sequência
01
Coluna

Descrição

Contém
SRA->RA_MAT

Alias
SRAVAC
Tipo
6
Sequência
01
Coluna

Descrição

Contém
SRA->RA_SEXO $ If(M->TL6_SEXO=="1","M",If(M->TL6_SEXO=="2","F","MF"))


Procedimentos para Utilização


Cadastros Prévios
Para a visualização desta melhoria será necessário ter os seguintes cadastros:
·         Funções (GPEA030);
·         Centros de Custos (CTBA180);
·         Funcionário (GPE010) com dois funcionários, relacionando a cada um deles uma das funções e centro de custos cadastrados anteriormente.
·         Fichas Médicas (MDTA005) com as matrículas dos funcionários criados anteriormente.Informe os dados conforme orientação do help de campo e confirme.
1.    No Medicina e Segurança do Trabalho (SIGAMDT) acesse Atualizações / Medicamentos / Vacinas(MDTA520).
2.    Clique em Incluir.
3.    Informe cinco vacinas e para cada vacina informe uma das seguintes condições:
·         1° - Preencha os campos do cadastro de acordo com orientações do help de campo e confirme.
·         2° - Informe o novo campo Sexo (TL6_SEXO) com a opção Feminino, preencha os campos do cadastro de acordo com orientações do help de campo e confirme.
·         3° - Informe o novo campo Centro Custo (TL6_CC) como Sim e na pasta Centro de Custo informeo campo Código (TKF_CODCC) com o centro de custo criado nos passos iniciais, preencha os campos do cadastro de acordo com orientações do help de campo e confirme.
·         4° - Informe o novo campo Função (TL6_FUNC) como Sim e na pasta Função informeo campo Código (TKG_CODFUN) com a função criada inicialmente, preencha os campos do cadastro de acordo com orientações do help de campo e confirme.
·         5° - Informe o novo campo Funcionário (TL6_FNCR) como Sim e na pasta Funcionário informeo campo Matricula (TKH_MATFUN) com os funcionários criados nos passos anteriores, preencha os campos do cadastro de acordo com orientações do help de campo e confirme.

4.    Selecione Atualizações / Medicamentos / Calendário Vacinaç (MDTA525).
5.    Clique em Incluir.
6.    Informe um calendário para cada vacina criada no passo 3, informando o campo Cód. Vacina (TL7_VACINA) com o código das vacinas criadas, informe também os campos De idade (TL7_IDADEI) como 0 e Até Idade (TL7_IDADEF) como 99, preencha os campos do cadastro de acordo com orientações do help de campo e confirme.
7.    Selecione Atualizações / Processos / Gerar Prog. Vacina (MDTA535).
8.    Clique em Incluir.
9.    Informe os dados de acordo com orientações do help de campo e confirme.
10. Selecione Relatórios / Medicamentos / Vacinas (MDTR900).
11. Informe os parâmetros no quadro Parâmetros conforme orientação do help de campo e confirme.
12. Observe que o relatório impresso é filtrado de acordo com o que foi informado nas vacinas criadas na rotina de Vacinas (MDTA520) no passo 3.


Informações Técnicas


Tabelas Utilizadas
SRA – Funcionários;TM0 - Ficha Médica; CTT – Centro de Custo; SRJ – Funções; TL6 – Vacinas; TKF – Centro Custo x Vacina; TKG – Função x Vacina; TKH – Funcionário x Vacina; TL7 – Calendário de Vacinação; TLE – Convocação de Vacinação;