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 |
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:
|
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. |
Cadastros Prévios