Histórico da Página
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) | ||||||||||||||||
Rotina: |
| ||||||||||||||||
Cadastros Iniciais: | Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito. | ||||||||||||||||
Parâmetro(s): | Informe os parâmetros utilizados. | ||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): | Informe o requisito relacionado (Issue). | ||||||||||||||||
País(es): | Brasil | ||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||
Tabelas Utilizadas: | Informe as tabelas utilizadas. | ||||||||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||||||||
Pacote: | É necessário a atualização do dicionário em: |
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 que 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
Para rotinas em que o dicionário estava sendo manipulado manualmente, foi criado um pacote com as modificações necessárias. Nas rotinas em que a mudança feita no dicionário é vital para o funcionamento da mesma (rotinas listadas nas características do requisito ), é exibida para o usuário uma mensagem de 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 |
- 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 |
- 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 |
- 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 |
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çãode 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çãode 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 |
Procedimento para Utilização
ATENÇÃO ! É importante ressaltar que antes da aplicação do pacote, sejam excluídos os grupos de pergunta MDT850 (Perguntas do Relatório do Laudo PPRA modelo Padrão), MDT85R (Perguntas do Relatório do Laudo PPRA modelo Word) e MDT931 (Perguntas do Relatório da tabela de Dimensionamento da CIPA), para que sejam recriados pelo pacote.