Histórico da Página
iação da rotina de adaptação de registros das tabelas com códigos do eSocial e mudanças de dicionário para os eventos do módulo.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT). | ||||
Rotina: |
| ||||
Cadastros Iniciais: | Agentes; Tipo de Acidente; Objeto Causador; Natureza da Lesão; Parte do corpo Atingida. | ||||
Parâmetro(s): | MV_NG2ESOC | ||||
País(es): | Brasil | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | C98, TMA, C8L, TNG, C8J, TNH, C8K, C8I, TOI, C8M, TOJ | ||||
Sistema(s) Operacional(is): | Todos |
Descrição
Criada nova rotina MDTA890, que oferece uma interface para o relacionamento de registros existentes com os códigos do eSocial para as tabelas:"TMA" - Agente de Risco, "TNG" - Tipo de Acidente de trabalho, "TNH" - Objeto Causador do Acidente e "TOI" - Parte do Corpo Atingida, "TOJ" - Natureza da Lesão.
Adaptações efetuadas no dicionário do módulo de Medicina e Segurança do Trabalho para o funcionamento dos eventos 1060, 2210, 2220, 2240 e 2241 e o wizard de importação criados para o eSocial.
Atualizações do Compatibilizador
Criação de tabela no arquivo SX2 – Tabelas:
Chave | Nome | Modo | PYME |
TYE | Agente Causador | E | N |
Chave | Nome | Modo | PYME |
TYF | Parte Atingida | E | N |
Chave | Nome | Modo | PYME |
TYG | Ambiente x Agente | E | N |
2.1 Alteração de Campos no arquivo SX3 – Campos:
- Tabela TMA - Agentes
Campo | TMA_ESOC |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Cod. eSocial |
Descrição | Código eSocial |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Consulta Padrão | MDTT3E |
Val. Sistema | MDTeSocVal( 'T3E', 'TMA', 2, 3, M->TMA_ESOC ) |
Help | Informar o código eSocial do agente. |
Módulo | SIGAMDT |
- Tabela TNH - Objeto Causador
Campo | TNH_ESOC | TNH_ESOC1 |
Tipo | Caracter | Caracter |
Tamanho | 9 | 9 |
Formato | @! | @! |
Título | Cod. eSocial | Sit. eSocial |
Descrição | Código eSocial | Código eSocial |
Nível | 1 | 1 |
Usado | Sim | Sim |
Obrigatório | Não | Não |
Browse | Não | Não |
When | MDT605WHEN(1) | MDT605WHEN(2) |
Val. Sistema | MDTeSocVal('C8J', 'TNH', 2, 3, M->TNH_ESOC) | MDTeSocVal('C8K', 'TNH', 2, 4, M->TNH_ESOC1) |
Help | Informar o código eSocial dos objetos. | Informar o código eSocial da Situação Geradora da Doença. |
Módulo | SIGAMDT | SIGAMDT |
- Tabela TOI - Parte do Corpo Atingida
Campo | TOI_ESOC |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Cod. eSocial |
Descrição | Código eSocial |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Consulta Padrão | MDTC8I |
Val. Sistema | MDTeSocVal('C8I', 'TOI', 2, 3, M->TOI_ESOC) |
Help | Informar o código eSocial de partes. |
Módulo | SIGAMDT |
- Tabela TOJ - Natureza da Lesão
Campo | TOJ_ESOC |
Tipo | Caracter |
Tamanho | 9 |
Formato | @! |
Título | Cod. eSocial |
Descrição | Código eSocial |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Consulta Padrão | MDTC8M |
Val. Sistema | MDTeSocVal('C8M', 'TOJ', 2, 3, M->TOJ_ESOC) |
Help | Informar o código eSocial da natureza. |
Módulo | SIGAMDT |
- Tabela TNC– Acidentes de Trabalho
Campo | TNC_CODOBJ | TNC_DESOBJ | TNC_CODPAR | TNC_DESPAR |
Tipo | Caracter | Caracter | Caracter | Caracter |
Tamanho | 12 | 20 | 12 | 30 |
Formato | @! | @! | @! | @! |
Título | Objeto Caus. | Desc. Objeto | Codigo Parte | Desc. Parte |
Descrição | Objeto Causador | Descricao Objeto Causador | Codigo Parte Atingida | Desc. Parte |
Nível | 1 | 1 | 1 | 1 |
Usado | Não | Não | Não | Não |
Obrigatório | Não | Não | Não | Não |
Browse | Não | Não | Não | Não |
Relação | TNH->(VDISP(TNC->TNC_CODOBJ,"TNH_DESOBJ")) | TOI->(VDISP(TNC->TNC_CODPAR,'TOI_DESPAR')) | ||
Consulta Padrão | TNH | TOI | ||
Val. Sistema | EXISTCPO("TNH",M->TNC_CODOBJ) | IF(VAZIO(),.t.,ExistCpo("TOI",M->TNC_CODPAR)) | ||
Help | Código do objeto causador do acidente. Agente causador diretamente relacionado ao acidente. Podendo ser máquina, equipamento ou ferramenta como uma prensa ou uma injetora, ou produtos químicos. | Descrição do objeto causador de Acidente. Campo alimentado automaticamente pelo módulo de Medicina e Segurança do Trabalho com base no campo Objeto Causador. | Código da Parte do Corpo Atingido no Acidente. Pressione as teclas [Enter]+[F3] para selecionar uma parte do corpo. | Descrição da parte atingida no acidente. |
2.2 Criação de Campos no arquivo SX3 – Campos:
- Tabela TYG - Ambiente x Agente
Campo | TYG_FILIAL | TYG_CODAMB | TYG_AGENTE | TYG_NOMAGE |
Tipo | Caracter | Caracter | Caracter | Caracter |
Tamanho | 8 | 6 | 9 | 40 |
Formato |
| @! | @! | @! |
Título | Filial | Cod. Ambient | Agente | Nome Agente |
Descrição | Filial do Sistema | Código do Ambiente | Código do Agente de Risco | Nome do Agente de Risco |
Nível | 1 | 1 | 1 | 1 |
Usado | Sim | Sim | Sim | Sim |
Obrigatório | Sim | Não | Sim | Não |
Browse | Não | Não |
Consulta Padrão
Val. Sistema
Não | ||||
IF( INCLUI,'',POSICIONE( 'TMA', 1, XFILIAL( 'TMA' ) + TYG->TYG_AGENTE, 'TMA_NOMAGE')) |
Consulta Padrão | TNE | TMA | ||
Val. Sistema | EXISTCPO("TNE",M->TYG_CODAMB) | EXISTCPO('TMA',M->TYG_AGENTE) | ||
Help | Código da Filial da Empresa. Campo alimentado automaticamente pelo módulo de Medicina e Segurança do Trabalho com base no campo filial. | Código do Ambiente Físico que Será Associado ao Agente de Risco | Código que irá identificar o agente de risco. | Nome do Agente de Risco. |
Módulo | SIGAMDT | SIGAMDT |
- Tabela TYF – Parte Atingida
Campo | TYF_FILIAL |
Tipo | Caractere |
Tamanho | 8 |
Título | Filial |
Descrição | Filial do Sistem |
Usado | Sim |
Obrigatório | Sim |
Campo | TYF_ACIDEN |
Tipo | Caractere |
Tamanho | 6 |
Título | Acidente |
Descrição | Numero Acidente Trabalho |
Usado | Sim |
Obrigatório | Sim |
Campo | TYF_CODPAR |
Tipo | Caractere |
Tamanho | 12 |
Título | Codigo Parte |
Descrição | Codigo Parte Atingida |
Usado | Sim |
Obrigatório | Sim |
Campo | TYF_DESPAR |
Tipo | Caractere |
Tamanho | 160 |
Título | Desc. Parte |
Descrição | Descrição Parte |
Usado | Sim |
Obrigatório | Sim |
Campo | TYF_LATERA |
Tipo | Caractere |
Tamanho | 1 |
Título | Lateralidade |
Descrição | Lateralidade |
Usado | Sim |
Obrigatório | Sim |
- Tabela TYE – Agente Causador
Campo | TYE_FILIAL |
Tipo | Caractere |
Tamanho | 8 |
Título | Filial |
Descrição | Filial |
Usado | Sim |
Obrigatório | Sim |
Campo | TYE_ACIDEN |
Tipo | Caractere |
Tamanho | 6 |
Título | Acidente |
Descrição | Numero Acidente Trabalho |
Usado | Sim |
Obrigatório | Sim |
Campo | TYE_CAUSA |
Tipo | Caractere |
Tamanho | 12 |
Título | Agente Causa |
Descrição | Agente Causador de Acid. |
Usado | Sim |
Obrigatório | Sim |
Campo | TYE_DESCAU |
Tipo | Caractere |
Tamanho | 40 |
Título | Descr. Causa |
Descrição | Descrição Causador Acid. |
Usado | Sim |
Obrigatório | Sim |
- Tabela TIL – Cadastro Cnes
Campo | TIL_FRMCTT |
Tipo | Caractere |
Tamanho | 100 |
Título | Form. Contat |
Descrição | Forma de Contato |
Usado | Sim |
Obrigatório | Sim |
Campo | TIL_EMAIL |
Tipo | Caractere |
Tamanho | 60 |
Título | |
Descrição | Email de Contato |
Usado | Sim |
Obrigatório | Não |
- Tabela TMB – Exames por Agente
Campo | TMB_INTERP |
Tipo | Caractere |
Tamanho | 1 |
Picture | @ 9 |
Título | Interpr. |
Descrição | Interpretação do Exame |
Cbox | 1=EE;2=SC;3=SC+ |
Usado | Sim |
Obrigatório | Não |
Help | Indique a interpretação do exame, podendo ser: 1=EE, 2=SC ou 3=SC+. |
- Tabela TMY– Atestado Saúde Ocupacional
Campo | TMY_CNES |
Tipo | Caractere |
Tamanho | 7 |
Decimal | 0 |
Picture | @ 9999999 |
Título | Cód. CNES |
Descrição | Código de CNES |
Validação | Empty(M->TMY_CNES) .Or. ExistCPO('TIL',M->TMY_CNES) |
Consulta SXB | TIL |
Usado | Sim |
Obrigatório | Não |
Campo | TMY_ESTAB |
Tipo | Caractere |
Tamanho | 80 |
Decimal | 0 |
Picture | @! |
Título | Estabelecim. |
Descrição | Estabelcimento do CNES |
Usado | Sim |
Obrigatório | Não |
- Tabela TNE - Ambiente Físico
Campo | TNE_DTVINI |
Tipo | Data |
Tamanho | 8 |
Título | Valid.Inic. |
Descrição | Data de Validade Inicial |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
- Tabela TO9 - EPC x Riscos
Campo | TO9_EFIEPC |
Tipo | Caractere |
Tamanho | 1 |
Título | Eficiência do EPC |
Descrição | EPC Eficaz? |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
- Tabela TNC– Acidentes de Trabalho
Campo | TNC_TPACID |
Tipo | Caractere |
Tamanho | 6 |
Título | Cod. Acid. |
Descrição | Codificação Acidente |
Usado | Sim |
Obrigatório | Não |
F3 | LE5 |
Campo | TNC_CODPAI |
Tipo | Caractere |
Tamanho | 6 |
Título | Cod. País |
Descrição | Código do País |
Usado | Sim |
Obrigatório | Não |
F3 | C08 |
Campo | TNC_DESPAI |
Tipo | Caractere |
Tamanho | 220 |
Título | Descrição |
Descrição | Descrição |
Usado | Sim |
Obrigatório | Não |
Campo | TNC_CODPOS |
Tipo | Caractere |
Tamanho | 6 |
Título | Cód. Postal |
Descrição | Código Postal |
Usado | Sim |
Obrigatório | Não |
3. Criação de Parâmetros no arquivo SX6 – Parâmetros:
Nome da Variável | MV_NG2RIST |
Tipo | Caracter |
Descrição | Indica os tipos de Riscos que serão enviados ao TAF, além dos Riscos obrigatórios. 1= Ergonômicos, 2= Mecânicos/Acidentes, 3= Ambos. |
Valor Padrão | 3 |
Nome da Variável | MV_NG2REST |
Tipo | Caracter |
Descrição | Indica que tipo de Responsável Ambiental será enviado ao TAF. 1=Médico Trabalho, 2=Engenheiro Trabalho, 3=Ambos, 4=Todos. |
Valor Padrão | 4 |
Nome da Variável | MV_NG2TDES |
Tipo | Caracter |
Descrição | Indica qual a descrição que o sistema deve considerar na rotina de Condições Ambientais de Trabalho no TAF. 1= Cargo. 2= Função. |
Valor Padrão | 1 |
4. Criação de Gatilhos no arquivo SX7 – Gatilhos:
- Tabela TYG - Ambiente x Agente
Campo | TYG_AGENTE |
Sequência | 001 |
Campo Domínio | TYG_NOMAGE |
Tipo | Informe o conteúdo do (X7_TIPO) |
Regra | TMA->TMA_NOMAGE |
Chave | xFILIAL("TMA")+M->TYG_AGENTE |
Proprietário | Sistema |
- Tabela TMY– Atestado Saúde Ocupacional
Campo | TMY_CNES |
Sequência | 001 |
Campo Domínio | TMY_CNES |
Tipo | Primário |
Regra | TIL->TIL_ESTAB |
Posiciona? | Sim |
Chave | xFilial("TIL")+M->TMY_CNES |
Proprietário | Sistema |
4 Exclusão de Gatilhos no arquivo SX7 – Gatilhos:
- Tabela TNC– Acidentes de Trabalho
Campo | TNC_CODPAR |
Sequência | 001 |
Campo | TNC_CODOBJ |
Sequência | 001 |
7. Criação de Relacionamento entre Tabelas no arquivo SX9 – Relacionamento Entre Tabelas:
- C08TNC – Países Bco Central/Siscomex | Acidentes de Trabalho
Tabela Domínio | C08 |
Sequencial | NGPROXSX9("C08") |
Contra-Domínio | TNC |
Relacionamento Domínio | C08_ID |
Relacionamento Contra-Domínio | TNC_CODPAI |
Prioridade | Sistema |
Cardinalidade Domínio | 1 |
Cardinalidade Contra-Domínio | N |
Condição SQL | " " |
Utiliza Filial na Chave | Não |
Relacionamento Ativo | Sim |
- LE5TNC – Codificação Acidente Trabalho | Acidentes de Trabalho
Tabela Domínio | LE5 |
Sequencial | NGPROXSX9("LE5") |
Contra-Domínio | TNC |
Relacionamento Domínio | LE5_ID |
Relacionamento Contra-Domínio | TNC_TPACID |
Prioridade | Sistema |
Cardinalidade Domínio | 1 |
Cardinalidade Contra-Domínio | N |
Condição SQL | " " |
Utiliza Filial na Chave | Não |
Relacionamento Ativo | Sim |
8. Criação de Consulta Padrão no arquivo SXB – Consulta Padrão:
- Pesquisa MDTTE
Alias | MDTT3E |
Descrição | Agente Causador |
Contém | T3E->T3E_CODIGO |
9. Criação de Índices no arquivo SIX – Índices
Índice | TYG |
Ordem | 1 |
Chave | TYG_FILIAL+TYG_CODAMB+TYG_AGENTE |
Descrição | Cod. Ambiente + Agente |
Proprietário | Sistema |
Índice | TYG |
Ordem | 2 |
Chave | TYG_FILIAL+TYG_AGENTE+TYG_CODAMB |
Descrição | Agente + Cod. Ambiente |
Proprietário | Sistema |
Procedimento para Configuração
CONFIGURAÇÃO DE MENUS
2. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do SIGAMDT, conforme instruções a seguir:
Menu | Miscelanea |
Submenu | Arquivos |
Nome da Rotina | Conciliação eSocial |
Programa | MDTA890 |
Módulo | SIGAMDT |
Procedimento para Utilização
Exemplo:
1. No Medicina e Segurança do Trabalho (SIGAMDT), acesse Miscelânea / Arquivos / Conciliação eSocial (MDTA890).
O sistema irá apresentar a janela com as informações a serem atualizadas de acordo com o código do eSocial.