Adequações do sistema decorrentes dos ajustes das regras do SonarQube
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Serviços | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT) e Gestão Ambiental (SIGASGA) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotinas: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Brasil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Pacote: | É necessário a atualização do dicionário em: https://suporte.totvs.com/portal/p/10098/download#detail/742954 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Descrição
Para tratar as regras de boas práticas exigidas pelo SonarQube, foram efetuadas tratativas nos fontes e no dicionário de dados dos módulos de Medicina e Segurança do Trabalho (SIGAMDT) e Gestão Ambiental (SIGASGA).
As regras nas quais as modificações visam atender, foram as seguintes:
- SX3 - Uso NÃO PERMITIDO de leitura do metadados
- SX1 - Uso DESCONTINUADO de leitura/atribuição do metadados
- Uso NÃO PERMITIDO de API em LOOP
- SX9 - Uso NÃO PERMITIDO de leitura/atribuição do metadados
- SX7 - Uso NÃO PERMITIDO de leitura/atribuição do metadados
- Uso NÃO PERMITIDO de chamada de API de Console
- SX6 - Uso DESCONTINUADO de leitura/atribuição do metadados
- Sobrecarga de método de carga não recomendado.
- SX5 - Uso DESCONTINUADO de leitura/atribuição do metadados
- Acesso NÃO PERMITIDO das tabelas de Framework
Atenção!
- Para rotinas em que o dicionário estava sendo manipulado manualmente, foi criado um pacote com as modificações necessárias;
- Nas rotinas listadas nas Características do Requisito em que a mudança feita no dicionário é vital para o funcionamento da mesma, é exibido para o usuário uma mensagem em que o dicionário necessita ser atualizado e o impede de utilizar a rotina até que seja aplicado o pacote de atualização;
- Em relação a outras mudanças pontuais, uma mensagem é apresentada ao entrar no módulo, caso seja verificado que o dicionário do usuário esteja desatualizado.
Atualizações do Compatibilizador
Criação de Perguntas no arquivo SX1 – Cadastro de Perguntes:
- Grupo MDT450 - Perguntas do (MDTR450)
Pergunte | Considerar por ? | Situações a Imp.? |
Ordem | 16 | 17 |
Tipo | Numérico | Caractere |
Tamanho | 1 | 5 |
- Grupo MDT850 - Perguntas do Relatório do Laudo PPRA modelo padrão (MDTR850)
Pergunte | Laudo PPRA ? | Coordenador ? | Ordenar Riscos por ? | Ordenar Equipamentos por ? | Ordenar Plano de Ação por ? | Imprime Qtd. Func. e Funcoes? | Imprimir imagens? | Imprimir Data de Avaliação? | De Centro de Custo ? | Até Centro de Custo ? | Considerar por? |
Ordem | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 |
Tipo | Caractere | Caractere | Numérico | Numérico | Numérico | Numérico | Numérico | Numérico | Caractere | Caractere | Numérico |
Tamanho | 12 | 12 | 1 | 1 | 1 | 1 | 1 | 1 | 9 | 9 | 1 |
| Variável | MV_PAR01 | MV_PAR02 | MV_PAR03 | MV_PAR04 | MV_PAR05 | MV_PAR06 | MV_PAR07 | MV_PAR08 | MV_PAR09 | MV_PAR10 | MV_PAR11 |
- Grupo MDT85R - Perguntas do Relatório do Laudo PPRA modelo Word (MDTR850)
Pergunte | Laudo ? | Coordenador ? | Impressao ? | Arquivo Saida ? | Ordenar Riscos por ? | Ordenar Equipamentos por ? | Ordenar Plano de Ação por ? | Imprime Qtd. | Imprimir imagens? | Imprimir Data de Avaliação? | De Centro de Custo ? | Até Centro de Custo ? | Considerar por? |
Ordem | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 | 13 |
Tipo | Caractere | Caractere | Numérico | Caractere | Numérico | Numérico | Numérico | Numérico | Numérico | Numérico | Caractere | Caractere | Numérico |
Tamanho | 12 | 12 | 1 | 30 | 1 | 1 | 1 | 1 | 1 | 1 | 9 | 9 | 1 |
| Variável | MV_PAR01 | MV_PAR02 | MV_PAR03 | MV_PAR04 | MV_PAR05 | MV_PAR06 | MV_PAR07 | MV_PAR08 | MV_PAR09 | MV_PAR10 | MV_PAR11 | MV_PAR12 | MV_PAR13 |
- Grupo MDT931 - Perguntas do Relatório da tabela de Dimensionamento da CIPA
Pergunte | De Mandato CIPA ? | Até Mandato CIPA? | Imprimir Quadro ? |
Ordem | 01 | 02 | 03 |
Tipo | Caractere | Caractere | Caractere |
Tamanho | 6 | 6 | 1 |
| Variável | MV_PAR01 | MV_PAR02 | MV_PAR03 |
- Grupo MDT856 - Perguntas para o Programa de Múltiplas Análises Preliminares. (MDTA856)
Pergunte | De Data ? | Até Data ? | De Avaliação ? | Até Avaliação ? | De Perigo ? | Até Perigo ? | De Dano ? | Até Dano ? | Revisão |
Ordem | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 |
Tipo | Data | Data | Numérico | Numérico | Numérico | Numérico | Numérico | Numérico | Caractere |
Tamanho | 8 | 8 | 6 | 6 | 6 | 6 | 6 | 6 | 6 |
| Variável | MV_PAR01 | MV_PAR02 | MV_PAR03 | MV_PAR04 | MV_PAR05 | MV_PAR06 | MV_PAR07 | MV_PAR08 | MV_PAR09 |
- Grupo MDTC420C- Perguntas da consulta do Gráfico de desvios de respostas dos questionários. (MDTC420)
Pergunte | De Data ? | Até Data ? | Questionário ? | Localização ? | Centro Custo ? | Função ? | Tarefa ? | Ambiente ? | Tipo Funcionário ? | Funcionário ? | Tipo Responsável ? | Responsável ? |
Ordem | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
Tipo | Data | Data | Caractere | Caractere | Caractere | Caractere | Caractere | Caractere | Numério | Caractere | Numérico | Caractere |
Tamanho | 8 | 8 | 6 | 3 | 9 | 5 | 6 | 6 | 1 | 10 | 1 | 10 |
| Variável | MV_PAR01 | MV_PAR02 | MV_PAR03 | MV_PAR04 | MV_PAR05 | MV_PAR06 | MV_PAR07 | MV_PAR08 | MV_PAR09 | MV_PAR010 | MV_PAR011 | MV_PAR012 |
2. Alteração de Perguntas no arquivo SX1 – Cadastro de Perguntes:
- Grupo MDTRW854 - Perguntas do Relatorio Geral do PPR.
Pergunte | Laudo ? |
Ordem | 01 |
Tipo | Caractere |
Tamanho | 12 |
| Consulta Padrão | TO0PPR |
3. Criação de tabela no arquivo SX2 – Tabelas:
Chave | Nome | Modo | PYME |
TYH | Tabela de Custos FAP | E | N |
4. Criação de Campos no arquivo SX3 – Campos:
- Tabela TYH - Tabela de Custos FAP
Campo | TYH_FILIAL | TYH_ANO | TYH_BENEF | TYH_REMUN |
Tipo | Caractere | Caractere | Numérico | Numérico |
Tamanho | 2 | 4 | 12 | 12 |
Decimal | 0 | 0 | 2 | 2 |
Formato | @! | @E 9999 | @E 999,999,999.99 | @E 999,999,999.99 |
Título | Filial | Ano | Benefícios | Remuneração |
Descrição | Filial do Sistema | Ano do Custo | Valor pago em benefícios | Valor pago em remuneração |
Nível | 1 | 1 | 1 | 1 |
Usado | Não | Sim | Sim | Sim |
Obrigatório | Não | Não | Não | Não |
Browse | Não | Não | Não | Não |
Help | Filial do sistema. | Ano dos custos relacionados a FAP. | Informar o custo dos benefícios por afastamento cobertos pela Previdência (Benefícios). | Informar o valor total de remuneração paga pelo estabelecimento aos segurados (Remuneração). |
5. Alteração de Campos no arquivo SX3 – Campos:
- Tabela TYH - Tabela de Custos FAP
Campo | TKA_ATIVID |
Relação | IIF( !INCLUI, TOE->( VDISP( TKA->TKA_CNAE, 'TOE_DESCRI' )), '' ) |
- Tabela SRJ - Funções
Campo | RJ_MEMOREQ |
Relação | If(INCLUI,"",MSMM(SRJ->RJ_DESCREQ,80,,,,,,,,"RDY")) |
- Tabela TJB - Produto Químico
Campo | TJB_MRISCO | TJB_MCARAC | TJB_MPRCAT | TJB_MESTOC | TJB_MDESCA | TJB_MTRANS | TJB_MLOCAL |
Usado | Sim | Sim | Sim | Sim | Sim | Sim | Sim |
Campo | TJB_RISCOS | TJB_CARACT | TJB_PRCATI | TJB_ESTOCA | TJB_DESCAR | TJB_TRANSP | TJB_LOCAL |
Usado | Não | Não | Não | Não | Não | Não | Não |
- Tabela TM0 - Ficha Médica
Campo | TM0_CCDESC | TM0_DESCFU |
Inicializador de Browse | Retirado | Retirado |
- Tabela TMY - Atestado Saúde Ocupacional
Campo | TMY_FILFUT | TMY_NOVCC | TMY_NUVFUN | TMY_NOVTAR | TMY_NUMASO |
Consulta Padrão | MDTGEN | MDTGEN | MDTGEN | MDTGEN | - |
| Picture | - | - | - | - | NNNNNN |
| Valid | ExistCPO('SM0',M->TMY_EMPFUT+M->TMY_FILFUT) | - | - | - | - |
- Tabela TN3 - Fornecedores de EPI
Campo | TN3_CODEPI |
Valid | MDTProEpi(M->TN3_CODEPI,cTipo,lSX5) .AND. D620CHK(1) .And. MDT620GEN() |
- Tabela TNC - Acidentes de Trabalho
Campo | TNC_VITIMA |
Inicializador Padrão | MDT640VIT() |
- Tabela TNF - EPI Entregues Funcionários
Campo | TNF_MAT |
Consulta Padrão | MDTSRA |
- Tabela TNM - Despesas do Acidente
Campo | TNM_DTDESP |
Valid | Retirado |
- Tabela TNY - Atestados Médicos
Campo | TNY_CODAFA | TNY_HRFIM | TNY_NATEST | TNY_NUMFIC | TNY_OCORRE | TNY_TIPAFA |
Valid | If(!Empty(M->TNY_CODAFA),ExistCPO( 'RCM', M->TNY_CODAFA, 1 ), .T.) .And. MDT685CODA() | IF(VAZIO(),.T.,NGVALHORA(M->TNY_HRFIM) .And. MDT685VLDT(,.T.)) | - | - | MT685VLDOC() | |
| When | - | - | - | IsInCallStack('MDTA685') .and. !IsInCallStack('MDT685CONT') | - | .F. |
| Inicializador Padrão | - | - | A685NEXTAT() | - | - | - |
- Tabela TY8 - Avaliação de EPI
Campo | TY8_MAT | TY8_DTREAL | TY8_QUESTI | TY8_APROVA |
Browse | Sim | Sim | Sim | Sim |
5. Alteração de Consulta Padrão no arquivo SXB – Consulta Padrão:
- Pesquisa TAA
Alias | TAA |
| Tipo | 6 |
| Sequência | 01 |
Contém | SGA090TAA() |
- Pesquisa TMKAGE
Alias | TML | TML | TML | TML | TML | TML | TML |
Tipo | 1 | 4 | 4 | 4 | 4 | 5 | 6 |
Sequência | 01 | 01 | 01 | 02 | 02 | 01 | 01 |
Coluna | DB | 01 | 02 | 03 | 04 | ||
Descrição | Usuário | Codigo | Nome | Codigo | Nome | ||
Contém | TML | TML_CODUSU | Posicione('TMK', 1, xFilial('TMK') + TML->TML_CODUSU, 'TMK_NOMUSU') | TML_CODUSU | Posicione('TMK', 1, xFilial('TMK') + TML->TML_CODUSU, 'TMK_NOMUSU') | TML->TML_CODUSU | (Deletado) |
- Pesquisa TNCFIC
Alias | TML | TML |
Tipo | 3 | 6 |
Sequência | 01 | 01 |
Coluna | 01 | |
Descrição | Cadastra Novo | |
Contém | 01#MDT155SXB() | f640ACID() |
6. Criação de Índices no arquivo SIX – Índices:
Índice | TYH |
Ordem | 1 |
Chave | TYH_FILIAL+TYH_ANO |
Descrição | Filial + Ano |
Proprietário | S |
7. Alteração de Parâmetros no arquivo SX6 – Parâmetros:
Nome da Variável | MV_NG2FICH |
Tipo | Caractere |
Descrição | Indica se deverá incluir uma Ficha Médica para o Funcionário. 1-Sim; 2-Não. |
Nome da Variável | MV_NG2PDAD |
Tipo | Caractere |
Descrição | Indica se na programação de exames será permitido gerar exames na data de admissão do funcionário. |
| Valor Padrão | 1 |
Nome da Variável | MV_NG2RECI |
Tipo | Caractere |
Descrição | Determina se apresentará sugestão de impressão do recibo de entrega de EPI. |
| Valor Padrão | 1 |
Nome da Variável | MV_NG2AUSE |
Tipo | Caractere |
Descrição | Indica se deverá considerar funcionários Afastados ou de férias. 1-Sim; 2-Não. |
| Valor Padrão | 2 |
8. Criação de Gatilhos no arquivo SX7 – Gatilhos:
Campo | TKA_CNAE |
Sequência | 001 |
Contra Domínio | TKA_ATIVID |
Tipo | Primário |
Regra | TOE->TOE_DESCRI |
Posiciona? | Sim |
Chave | xFilial('TOE')+M->TKA_CNE |
Proprietário | S |
Campo | TMY_NATEXA | TMY_NATEXA | TMY_NATEXA | TMY_NATEXA | TMY_NATEXA | TMY_NATEXA |
Sequência | 001 | 002 | 003 | 004 | 005 | 006 |
Contra Domínio | TMY_EMPFUT | TMY_FILFUT | TMY_NOVFUN | TMY_NOVCC | TMY_NOVTAR | TMY_NOVDEP |
Tipo | Primário | Primário | Primário | Primário | Primário | Primário |
Regra | ce(TamSx3('TMY_EMPFUT')[1]) | Space(TamSx3('TMY_FILFUT')[1]) | Space(TamSx3('TMY_NOVFUN')[1]) | Space(TamSx3('TMY_NOVCC')[1]) | Space(TamSx3('TMY_NOVTAR')[1]) | Space(TamSx3('TMY_NOVDEP')[1]) |
Posiciona? | Não | Não | Não | Não | Não | Não |
Condição | M->TMY_NATEXA <> '3' | M->TMY_NATEXA <> '3' | M->TMY_NATEXA <> '3' | M->TMY_NATEXA <> '3' | M->TMY_NATEXA <> '3' | M->TMY_NATEXA <> '3' |
Proprietário | S | S | S | S | S | S |
9. Alteração de Gatilhos no arquivo SX7 – Gatilhos:
Campo | TNC_CODPAR | TNC_CODOBJ |
Sequência | 001 | 001 |
Condição | !AliasInDic("TYE") | !AliasInDic("TYE") |
Campo | TNC_CODPAR | TNC_CODOBJ | TNC_AFASTA | TNC_CC | TNC_CID | TC_GRPCID |
Sequência | 001 | 001 | 001 | 001 | 001 | 001 |
Condição | !AliasInDic("TYE") | !AliasInDic("TYE") | - | - | - | - |
| Regra | - | - | 0 | CTT->CTT_DESC01 | MDT640CIDD(2) | MDT640CIDD(1) |
| Alias | - | - | - | CTT | - | - |
| Chave | - | - | - | xFILIAL('CTT')+M->TNC_CC | - | - |
Campo | TNY_GRPCID |
Sequência | 001 |
Seek | Sim |
Atenção!
Excluir os grupos de perguntas abaixo para que sejam criados corretamente após a aplicação do Pacote:
- MDT850 - Perguntas do Relatório do Laudo PPRA modelo Padrão;
- MDT85R - Perguntas do Relatório do Laudo PPRA modelo Word;
- MDT931 - Perguntas do Relatório da tabela de Dimensionamento da CIPA;
- MDTC420C - Perguntas da consulta do Gráfico de desvios de respostas dos questionários.
Procedimento para Utilização
Importante
Realizar a exclusão dos grupos mencionados acima.
Cadastros Prévios
- Entrar no modulo de Medicina e Segurança do Trabalho(SIGAMDT).
- Em Atualizações\Cadastros Gerais\Centro Custo, incluir um centro de custo.
- Em Atualizações\Cadastros Gerais\Funções, incluir uma função.
- Em Atualizações\Cadastros Gerais\Turnos, incluir um turno.
- Em Atualizações\Cadastros Gerais\Funcionários, incluir um funcionário.
- Em Atualizações\Atendimento Médico\Ficha Médica, incluir uma ficha médica para o funcionário.
- MDTR850 - Laudo do PPRA
- Entrar no módulo Configurador (SIGACFG).
- Modificar o nome da pergunta 08 do grupo de perguntas MDT850 para simular uma desatualização.
- Entrar no módulo de Medicina e Segurança do Trabalho (SIGAMDT).
- Em Relatórios\Ppra\Rel. Geral Ppra, gerar o relatório padrão e verificar que o sistema pede a atualização do dicionário com o pacote de dicionário Issue DNG-1805.
- MDTC420 - Desvios de respostas no Questionário
- Entrar no módulo Configurador (SIGACFG).
- Modificar o Var1 da pergunta 01 para simular uma desatualização.
- Entrar no modulo de Medicina e Segurança do Trabalho (SIGAMDT).
- Em Consultas\Questionário Seg.\Desvios de Respost, e verificar que o sistema pede a atualização do dicionário com o pacote de dicionário Issue DNG-1805.
- MDTA082 - Programa de Cadastro de CID x CNAE.
- Em Atualizações\Cadastros Báiscos\Interv. Cid x Cnae, incluir um intervalo e verificar que a rotina funciona corretamente.
- MDTA650 – Cadastro de Plano de Ação por Risco
- Em Atualizações\Ppra\Plano de Acao, incluir um Plano de ação.
- Em Atualizações\Ppra\Agente, incluir um agente.
- Em Atualizações\Ppra\Risco, incluir um risco.
- Em Atualizações\Ppra\Plano de Acao x Risco, vincular o plano de ação ao risco. Verificar que a rotina funciona corretamente. (Obs: o risco e o plano de ação devem ser do mesmo tipo: CIPA, SESMT ou CIPA e SESMT)
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas