Campos para filtros na rotina de Vacinas - MP11

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;

Árvore de páginas

Campos para filtros na rotina de Vacinas - MP11