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:

Rotina(s) envolvida(s)

Nome Técnico

MDTUTIL

Funções genéricas do Módulo MDT

MDTR850

Laudo do PPRA
MDTC420Desvios de respostas no Questionário
MDTA082Programa de Cadastro de CID x CNAE
MDTA856Programa para Multiplas Análises Preliminares
MDTR780Indices FAP (Fator Acidentario de Prevencao)
MDTR931Impressão da tabela de Dimensionamento CIPA

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


  1. 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

02030405060708091011

Tipo

Caractere

CaractereNuméricoNuméricoNuméricoNuméricoNuméricoNuméricoCaractereCaractereNumérico

Tamanho

12


12111111991


  • 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

020304050607080910111213

Tipo

Caractere

CaractereNuméricoCaractereNuméricoNuméricoNuméricoNuméricoNuméricoNuméricoCaractereCaractereNumérico

Tamanho

12


12130111111991


  • Grupo MDT931 - Perguntas do Relatório da tabela de Dimensionamento da CIPA

Pergunte

De Mandato CIPA ?

Até Mandato CIPA?Imprimir Quadro ?

Ordem

01

0203

Tipo

Caractere

CaractereCaractere

Tamanho

6

61


  • 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

0203040506070809

Tipo

Data

DataNuméricoNuméricoNuméricoNuméricoNuméricoNuméricoCaractere

Tamanho

8


86666666



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ãoTO0PPR


 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_FILIALTYH_ANOTYH_BENEF

TYH_REMUN

Tipo

CaractereCaractereNumérico

Numérico

Tamanho

2412

12

Decimal

002

2

Formato

@!@E 9999@E 999,999,999.99

@E 999,999,999.99

Título

FilialAnoBenefícios

Remuneração

Descrição

Filial do SistemaAno do CustoValor pago em benefícios

Valor pago em remuneração

Nível

111

1

Usado

NãoSimSim

Sim

Obrigatório

NãoNãoNão

Não

Browse

NãoNãoNã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_MCARACTJB_MPRCATTJB_MESTOCTJB_MDESCATJB_MTRANSTJB_MLOCAL

Usado

Sim

SimSimSimSimSimSim

Campo

TJB_RISCOS

TJB_CARACTTJB_PRCATITJB_ESTOCATJB_DESCARTJB_TRANSPTJB_LOCAL

Usado

Não

NãoNãoNãoNãoNãoNão


  • Tabela TM0 - Ficha Médica

Campo

TM0_CCDESCTM0_DESCFU

Inicializador de Browse

RetiradoRetirado


  • Tabela TMY - Atestado Saúde Ocupacional

Campo

TMY_FILFUTTMY_NOVCCTMY_NUVFUNTMY_NOVTARTMY_NUMASO

Consulta Padrão

MDTGENMDTGENMDTGENMDTGEN-
Picture----NNNNNN
ValidExistCPO('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_CODAFATNY_HRFIMTNY_NATESTTNY_NUMFICTNY_OCORRETNY_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_MATTY8_DTREALTY8_QUESTITY8_APROVA

Browse

SimSimSimSim


5. Alteração de Consulta Padrão no arquivo SXB – Consulta Padrão:


  • Pesquisa TAA

Alias

TAA

Tipo6
Sequência01

Contém

SGA090TAA()


  • Pesquisa TMKAGE

Alias

TML

TMLTMLTMLTMLTMLTML

Tipo

1

444456

Sequência

01

010102020101

Coluna

DB

01020304

Descrição

Usuário

CodigoNomeCodigoNome

Contém

TML

TML_CODUSUPosicione('TMK', 1, xFilial('TMK') + TML->TML_CODUSU, 'TMK_NOMUSU')TML_CODUSUPosicione('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ão1

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ão1

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ão2


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_NATEXATMY_NATEXATMY_NATEXATMY_NATEXATMY_NATEXA

Sequência

001

002003004005006

Contra Domínio

TMY_EMPFUT

TMY_FILFUTTMY_NOVFUNTMY_NOVCCTMY_NOVTARTMY_NOVDEP

Tipo

Primário

PrimárioPrimárioPrimárioPrimárioPrimá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ãoNãoNãoNãoNã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

SSSSS


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_CODOBJTNC_AFASTATNC_CCTNC_CIDTC_GRPCID

Sequência

001

001001001001001

Condição

!AliasInDic("TYE")

!AliasInDic("TYE")----
Regra--0CTT->CTT_DESC01MDT640CIDD(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.