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: |
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.
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 |
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 |
Pergunte | De Mandato CIPA ? | Até Mandato CIPA? | Imprimir Quadro ? |
Ordem | 01 | 02 | 03 |
Tipo | Caractere | Caractere | Caractere |
Tamanho | 6 | 6 | 1 |
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:
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 |
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.