Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Serviços | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT) e Gestão Ambiental (SIGASGA) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotinas: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Requisito/Story/Issue: | Informe o requisito relacionado (Issue). | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Brasil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Pacote: | É necessário a atualização do dicionário em: |
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:
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.
Criação de Perguntas no arquivo SX1 – Cadastro de Perguntes:
Pergunte | Considerar por ? | Situações a Imp.? |
Ordem | 16 | 17 |
Tipo | Numérico | Caractere |
Tamanho | 1 | 5 |
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 |
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 |
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 |
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 |
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:
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:
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:
Campo | TKA_ATIVID |
Relação | IIF( !INCLUI, TOE->( VDISP( TKA->TKA_CNAE, 'TOE_DESCRI' )), '' ) |
Campo | RJ_MEMOREQ |
Relação | If(INCLUI,"",MSMM(SRJ->RJ_DESCREQ,80,,,,,,,,"RDY")) |
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 |
Campo | TM0_CCDESC | TM0_DESCFU |
Inicializador de Browse | Retirado | Retirado |
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) | - | - | - | - |
Campo | TN3_CODEPI |
Valid | MDTProEpi(M->TN3_CODEPI,cTipo,lSX5) .AND. D620CHK(1) .And. MDT620GEN() |
Campo | TNC_VITIMA |
Inicializador Padrão | MDT640VIT() |
Campo | TNF_MAT |
Consulta Padrão | MDTSRA |
Campo | TNM_DTDESP |
Valid | Retirado |
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() | - | - | - |
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:
Alias | TAA |
Tipo | 6 |
Sequência | 01 |
Contém | SGA090TAA() |
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) |
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 |
Excluir os grupos de perguntas abaixo para que sejam criados corretamente após a aplicação do Pacote:
|
Realizar a exclusão dos grupos mencionados acima. |
- MDTR850 - Laudo do PPRA
1. Entrar no modulo Configurador (SIGACFG).
2. Modificar o nome da pergunta ‘08’ do grupo de perguntas MDT850 para simular uma desatualização.
3. Entrar no modulo de Medicina e Segurança do Trabalho(SIGAMDT).
4. 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 004908.
- MDTC420 - Desvios de respostas no Questionário
1. Entrar no modulo Configurador (SIGACFG).
2. Modificar o ‘Var1’ da pergunta ‘01’ para simular uma desatualização.
3. Entrar no modulo de Medicina e Segurança do Trabalho(SIGAMDT).
4. Em Consultas\Questionário Seg.\Desvios de Respost, e verificar que o sistema pede a atualização do dicionário com o pacote 004908.
- MDTA082 - Programa de Cadastro de CID x CNAE.
1. Entrar no Módulo de Medicina e Segurança do Trabalho (SIGAMDT).
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
1. Entrar no de Medicina e Segurança do Trabalho (SIGAMDT).
2. Em Atualizações\Ppra\Plano de Acao, incluir um Plano de ação.
3. Em Atualizações\Ppra\Agente, incluir um agente.
4. Em Atualizações\Ppra\Risco, incluir um risco.
5. 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)