Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Serviços | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Medicina e Segurança do Trabalho | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tabelas Utilizadas: | TN0 - Riscos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Windows e Linux |
A utilização de Departamento no processo de Riscos no módulo de Medicina e Segurança do Trabalho (SIGAMDT) tem o intuito de aumentar a precisão de identificação e especificação da área de abrangência do Risco, pois anteriormente era utilizado somente o Centro de Custo, o qual na maioria das vezes não era possível determinar qual a real especificidade do local físico do Risco.
Com a utilização do Departamento, é realizado uma avaliação mais criteriosa, pois se torna possível determinar o local físico do risco, assim como traz a possibilidade de determinar de forma assertiva a sua atuação.
Foi necessário alterar as rotinas de Consultas que são envolvidas no processo de risco mediante a adição do campo de Departamento, para trazer esta informação que está determinada para cada risco. Outro fator determinante foi a alteração de todos os relatórios que estão envolvidos na impressão de riscos, eles tem o objetivo de realizar a impressão do campo de Departamento de acordo com o seu cadastro.
A inclusão dos Departamentos que serão utilizados no módulo de Medicina e Segurança do Trabalho (SIGAMDT) pode ser feita através da rotina Departamentos, que foi adicionado ao menu de Medicina e Segurança do Trabalho (SIGAMDT), permitindo assim, a realização da inclusão, alteração e exclusão dos Departamentos.
Após a vinculação de um Departamento a um Risco, não será possível excluir o Departamento, somente após a exclusão do vínculo entre o Departamento e o Risco. Assim como a alteração do Departamento no cadastro de um Risco já incluso não é permitida pois o mesmo se trata de uma informação de caráter relevante.
A implementação será realizada nas rotinas:
Rotina / Relatório | Inclusão de campos / Perguntas |
---|---|
MDTA005 - Ficha Médica | Departamento e Descrição (TM0_DEPTO/TM0_DESCDP) |
MDTA180 - Riscos | Departamento e Descrição (TN0_DEPTO/TN0_DESCDP) |
MDTA200 - Atestado (ASO) | Novo Dep. (TMY_NOVDEP) |
MDTA305 - Ordem Serv. Func. | Departamento (TOB_DEPTO) e Departamento (TOC_DEPTO) |
MDTA992 - Permissão PT/PET | Departamento e Descrição (TI0_DEPTO/TI0_DESCDP) |
MNTA902 - Árvore | Departamento e Descrição (TAF_DEPTO/TAF_DESCDP) |
MDTR520 - Riscos Ambientais | Novo Departamento ? |
MDTR700 - PPP | Descr. da Lotação? / Impr. Codigo? |
MDTR715 - O.S. de Segurança | De Departamento? / Até Departamento? |
MDTR850 - Rel. Geral PPRA | Considerar Por? |
MDTR854 - Rel. Geral PPR | Considerar Por? |
MDTR870 - Rel. Geral | Considerar Por? |
MDTR475 - PCMSO Anual | Considerar Por? / De Departamento? / Até Departamento? |
MDTR980 - PT/PET | Considerar Por? |
Antes de executar o compatibilizador informe o UPDMDTC2 é imprescindível:
Atenção O procedimento a seguir deve ser realizado por um profissional qualificado como Administrador de Banco de Dados (DBA) ou equivalente! A ativação indevida da Integridade Referencial pode alterar drasticamente o relacionamento entre tabelas no banco de dados. Portanto, antes de utilizá-la, observe atentamente os procedimentos a seguir:
Contate o Help Desk Framework EM CASO DE DÚVIDAS! |
---|
Pergunta | Novo Departamento ? |
Grupo | MDT520 |
Ordem | 05 |
Tipo | C |
Tamanho | 9 |
Pergunta | Descr. da Lotação? |
Grupo | MDT700 |
Ordem | 34 |
Tipo | N |
Tamanho | 1 |
Pergunta | Impr. Código? |
Grupo | MDT700 |
Ordem | 35 |
Tipo | N |
Tamanho | 1 |
Pergunta | De Departamento? |
Grupo | MDT715 |
Ordem | 06 |
Tipo | C |
Tamanho | 9 |
Pergunta | Até Departamento? |
Grupo | MDT715 |
Ordem | 07 |
Tipo | C |
Tamanho | 9 |
Pergunta | Considerar por? |
Grupo | MDT850 |
Ordem | 10 |
Tipo | N |
Tamanho | 1 |
Pergunta | Considerar por? |
Grupo | MDTR854 |
Ordem | 3 |
Tipo | N |
Tamanho | 1 |
Pergunta | Considerar por? |
Grupo | MDT870 |
Ordem | 9 |
Tipo | N |
Tamanho | 1 |
Pergunta | Considerar por? |
Grupo | MDT475 |
Ordem | 12 |
Tipo | N |
Tamanho | 1 |
Pergunta | De Departamento? |
Grupo | MDT475 |
Ordem | 13 |
Tipo | C |
Tamanho | 9 |
Pergunta | Até Departamento? |
Grupo | MDT475 |
Ordem | 14 |
Tipo | C |
Tamanho | 9 |
Pergunta | Considerar por? |
Grupo | MDT980 |
Ordem | 08 |
Tipo | N |
Tamanho | 1 |
1. Alteração de tabela no arquivo SX2– Tabelas:
Chave | Nome | Modo | PYME |
TOC | Funcionários x Ordem Serviço | E | N |
TOB | Ordens de Serviço INSS | E | N |
2. Criação de Campos no arquivo SX3 – Campos:
Campo | TN0_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Sim |
Browse | Sim |
Val. Sistema | MDT180VCFT('TN0_DEPTO') |
When | DTVALIDA .And. (Type('lTrava902') == 'L' .AND. lTrava902) |
Help | Indica o Código do Departamento. |
Campo | TN0_DESCDP |
Tipo | Caracter |
Tamanho | 30 |
Formato | @! |
Título | Descrição |
Descrição | DescriçãoDepartamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Sim |
Help | Indica a Descrição do Departamento. |
Campo | TAF_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | Empty( M->TAF_DEPTO ) .Or. ExistCPO( 'SQB' , M->TAF_DEPTO, 1 ) |
Help | Indica o Código do Departamento. |
Campo | TAF_DESCDP |
Tipo | Caracter |
Tamanho | 30 |
Formato | @! |
Título | Descrição |
Descrição | Descrição Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Help | Indica a Descrição do Departamento. |
Campo | TI0_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | Empty( M->TI0_DEPTO ) .Or. ExistCPO( 'SQB' , M->TI0_DEPTO, 1 ) |
Help | Indica o Código do Departamento. |
Campo | TI0_DESCDP |
Tipo | Caracter |
Tamanho | 30 |
Formato | @! |
Título | Descrição |
Descrição | Descrição Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Help | Indica a Descrição do Departamento. |
Campo | TM0_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | Empty( M->TM0_DEPTO ) .Or. ExistCPO( 'SQB' , M->TM0_DEPTO, 1 ) |
When | MDT005WHEN( 1 ) |
Help | Indica o Código do Departamento. |
Campo | TM0_DESCDP |
Tipo | Caracter |
Tamanho | 30 |
Formato | @! |
Título | Descrição |
Descrição | Descrição Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Help | Indica a Descrição do Departamento. |
Campo | TMY_NOVDEP |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Novo dep. |
Descrição | Novo Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | MDT200NVF(9) |
When | MDT200NVF(10) |
Help | Indica o código do Departamento. |
Campo | TOB_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | MDTA305Val( 2 ) |
Help | Indica o Código do Departamento. |
Campo | TOC_DEPTO |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Departamento |
Descrição | Código Departamento |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Val. Sistema | Empty( M->TOC_DEPTO ) .Or. ExistCPO( 'SQB' , M->TOC_DEPTO, 1 ) |
Help | Indica a Descrição do Departamento. |
Importante:
O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.
3. Criação de Consulta Padrão no arquivo SXB – Consulta Padrão:
Alias | MDTSQB |
Tipo | 1 |
Sequência | 01 |
Coluna | DB |
Descrição | Departamento |
Contém | SQB |
Alias | MDTSQB |
Tipo | 2 |
Sequência | 01 |
Coluna | 01 |
Descrição | Departamento |
Alias | MDTSQB |
Tipo | 2 |
Sequência | 02 |
Coluna | 02 |
Descrição | Descrição |
Alias | MDTSQB |
Tipo | 4 |
Sequência | 01 |
Coluna | 01 |
Descrição | Departamento |
Contém | SQB->QB_DEPTO |
Alias | MDTSQB |
Tipo | 4 |
Sequência | 01 |
Coluna | 02 |
Descrição | Descricao |
Contém | SQB->QB_DESCRIC |
Alias | MDTSQB |
Tipo | 4 |
Sequência | 02 |
Coluna | 03 |
Descrição | Descricao |
Contém | SQB->QB_DESCRIC |
Alias | MDTSQB |
Tipo | 4 |
Sequência | 02 |
Coluna | 04 |
Descrição | Departamento |
Contém | SQB->QB_DEPTO |
Alias | MDTSQB |
Tipo | 5 |
Sequência | 01 |
Contém | SQB->QB_DEPTO |
Alias | MDTSQB |
Tipo | 6 |
Sequência | 01 |
Contém | @#MDTFilDEP() |
4. Criação de Índices no arquivo SIX – Índices:
Índice | TAF |
Ordem | C |
Chave | TAF_FILIAL+TAF_CODEST+TAF_CCUSTO+TAF_CODAMB+TAF_DEPTO |
Descrição | Estrutura + Centro Custo + Cod. Amb. + Departamento |
Proprietário | S |
5. Alteração de Índices no arquivo SIX – Índices:
Índice | TN0 |
Ordem | 5 |
Chave | TN0_FILIAL+TN0_CC+TN0_CODFUN+TN0_CODTAR+TN0_DEPTO |
Descrição | Centro Custo + Funcao + Tarefa + Departamento |
Proprietário | S |
Índice | TOB |
Ordem | 1 |
Chave | TOB_FILIAL+TOB_CODFUN+TOB_CC+TOB_DEPTO |
Descrição | Funcao + Centro Custo + Departamento |
Proprietário | S |
Índice | TOB |
Ordem | 2 |
Chave | TOB_FILIAL+TOB_CC+TOB_DEPTO+TOB_CODFUN |
Descrição | Centro Custo + Departamento + Funcao |
Proprietário | S |
Índice | TOC |
Ordem | 1 |
Chave | TOC_FILIAL+TOC_CODFUN+TOC_CC+TOC_DEPTO+TOC_MAT |
Descrição | Funcao + Centro Custo + Departamento + Matricula |
Proprietário | S |
Índice | TOC |
Ordem | 3 |
Chave | TOC_FILIAL+TOC_CODFUN+TOC_CC+TOC_DEPTO+TOC_MAT |
Descrição | Funcao + Centro Custo + Departamento + Matricula |
Proprietário | S |
5. Criação de Gatilhos no arquivo SX7 – Gatilhos:
Campo | TN0_DEPTO |
Sequência | 001 |
Campo Domínio | TN0_DESCDP |
Tipo | P |
Regra | MDT180BRW( .F. , 2 ) |
Posiciona? | Não |
Proprietário | S |
Campo | TAF_DEPTO |
Sequência | 001 |
Campo Domínio | TAF_DESCDP |
Tipo | P |
Regra | SQB->QB_DESCRIC |
Posiciona? | S |
Proprietário | S |
Campo | TI0_DEPTO |
Sequência | 001 |
Campo Domínio | TI0_DESCDP |
Tipo | P |
Regra | SQB->QB_DESCRIC |
Posiciona? | S |
Proprietário | S |
Campo | TM0_DEPTO |
Sequência | 001 |
Campo Domínio | TM0_DESCDP |
Tipo | P |
Regra | SQB->QB_DESCRIC |
Posiciona? | S |
Proprietário | S |
Itens/Pastas | Descrição |
Nome: | MV_NG2UEPC |
Tipo: | C |
Cont. Por.: | 3 |
Descrição: | Indica a consistência dos EPC, por: 1=Bens;2=Medidas de Controle;3=Ambos; |
Itens/Pastas | Descrição |
Nome: | MV_NG2NR32 |
Tipo: | C |
Cont. Por.: | 1 |
Descrição: | Indica se e utilizado a Norma Regulamentadora NR32 1=Sim;2=Nao; |
2. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do Medicina e Segurança do Trabalho (SIGAMDT), conforme instruções a seguir:
Menu | Atualizações |
Submenu | Cadastros Gerais |
Nome da Rotina | Departamentos |
Programa | CSAA100.prx |
Módulo | Todos |
i. Acessar Atualizações / Cadastros Gerais / Centro Custo. Fazer a inclusão de dois centros de custo.
ii. Acessar Atualizações / Cadastros Gerais / Funções. Fazer a inclusão de uma função.
iii. Acessar Atualizações / Cadastros Gerais / Departamentos. Fazer a inclusão de dois Departamentos.
iv. Acessar Atualizações / Cadastros Gerais / Funcionários. Fazer a inclusão de dois funcionários e preencher o campo Cod. Depto (RA_DEPTO). Obs: O funcionário na Filial 02 será utilizado apenas no passo da transferência.