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 | Não | Não |
Browse | Não | Não | Não | Não |
| Relaçã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 | TYF_ACIDEN | TYF_CODPAR | TYF_DESPAR | TYF_LATERA |
Tipo | Caracter | Caracter | Caracter | Caracter | Caracter |
Tamanho | 8 | 6 | 12 | 160 | 1 |
Formato | 999999 | @! | @! | ||
Título | Filial | Acidente | Codigo Parte | Desc. Parte | Lateralidade |
Descrição | Filial do Sistem | Numero Acidente Trabalho | Codigo Parte Atingida | Descrição Parte | Lateralidade |
Nível | 1 | ||||
| Relação | M->TNC_ACIDEN | TOI->(VDISP(TYF->TYF_CODPAR,'TOI_DESPAR')) | |||
Usado | Não | Sim | Sim | Sim | Sim |
Obrigatório | Não | Não | Não | Não | Não |
Browse | Não | Não | Sim | Não | Não |
| Opções | 0=Nao Aplicavel;1=Esquerda;2=Direita;3=Ambas | ||||
Consulta Padrão | TOI | ||||
Val. Sistema | IF(VAZIO(),.t.,ExistCpo("TOI",M->TNC_CODPAR)) | ||||
Help | |||||
| Módulo | TODOS | TODOS | TODOS | TODOS |
- Tabela TYE – Agente Causador
Campo | TYE_FILIAL | TYE_ACIDEN | TYE_CAUSA | TYE_DESCAU |
Tipo | Caracter | Caracter | Caracter | Caracter |
Tamanho | 8 | 6 | 12 | 40 |
Formato | 999999 | @! | @! | |
Título | Filial | Acidente | Agente Causa | Descr. Causa |
Descrição | Filial do Sistem | Numero Acidente Trabalho | Agente Causador de Acid. | Descrição Causador Acid. |
| Relaçã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 | Sim | Não |
| Opções | ||||
| Relação | M->TNC_ACIDEN | TNH->(VDISP(TYE->TYE_CAUSA,"TNH_DESOBJ")) | ||
Consulta Padrão | TNH | |||
Val. Sistema | EXISTCPO("TNH",M->TYE_CAUSA) | |||
Help | ||||
| Módulo | TODOS | TODOS | TODOS |
- Tabela TIL – Cadastro CNES
Campo | TIL_FRMCTT | TIL_EMAIL |
Tipo | Caracter | Caracter |
Tamanho | 100 | 60 |
Título | Form. Contat | |
Descrição | Forma de Contato | Email de Contato |
Nível | 1 | 1 |
Usado | Sim | Sim |
Obrigatório | Sim | Não |
Browse | Não | Não |
Help | Indique a forma de contato. | Indique o E-mail. |
| Módulo | TODOS | TODOS |
- Tabela TMB – Exames por Agente
Campo | TMB_INTERP |
Tipo | Caracter |
Tamanho | 1 |
Formato | @ 9 |
Título | Interpr. |
Descrição | Interpretação do Exame |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
| Opções | 1=EE;2=SC;3=SC+ |
Help | Indique a interpretação do exame, podendo ser: 1=EE, 2=SC ou 3=SC+. |
| Módulo | TODOS |
- Tabela TMY– Atestado Saúde Ocupacional
Campo | TMY_CNES | TMY_ESTAB |
Tipo | Caracter | Caracter |
Tamanho | 7 | 80 |
Formato | @ 9999999 | @! |
Título | Cód. CNES | Estabelecim. |
Descrição | Código de CNES | Estabelcimento do CNES |
Nível | 1 | |
Usado | Sim | Sim |
Obrigatório | Não | Não |
Browse | Não | Não |
| Consulta Padrão | TIL | |
| Val. Sistema | Empty(M->TMY_CNES) .Or. ExistCPO('TIL',M->TMY_CNES) | |
Help | Indique o código de CNES (Cadastro Nacional de Estabelecimentos de Saúde). | |
| Módulo | TODOS | TODOS |
- Tabela TNE - Ambiente Físico
Campo | TNE_DTVINI |
Tipo | Data |
Tamanho | 8 |
Formato | Valid.Inic. |
Título | Data de Validade Inicial |
Descrição | |
Nível | |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
| Opções | |
Help | |
| Módulo | TODOS |
- Tabela TO9 - EPC x Riscos
Campo | TO9_EFIEPC |
Tipo | Caracter |
Tamanho | 1 |
Formato | |
Título | Eficiência do EPC |
Descrição | EPC Eficaz? |
Nível | |
Usado | Sim |
Obrigatório | |
Browse | |
| Opções | |
Help | |
| Módulo | TODOS |
- Tabela TNC– Acidentes de Trabalho
Campo | TNC_TPACID | TNC_CODPAI | TNC_DESPAI | TNC_CODPOS |
Tipo | Caracter | Caracter | Caracter | Caracter |
Tamanho | 6 | 6 | 220 | 6 |
Formato | @! | @! | @! | @! |
Título | Cod. Acid. | Cod. País | Descrição | Cód. Postal |
Descrição | Codificação Acidente | Código do País | Descrição | Código Postal |
Nível | 1 | 1 | 1 | 1 |
Usado | Sim | Sim | Sim | Sim |
Obrigatório | Não | Não | Não | Não |
Browse | Não | Não | Não | Não |
| Consulta Padrão | LE5 | C08 | ||
| Val. Sistema | If(!Empty(M->TNC_TPACID),ExistCpo("LE5",M->TNC_TPACID),.T.) | xFunVldCmp("C08",3) | ||
Help | Determina a codificação conforme Tabela 24 do eSocial. | Determina o código do País. | Descrição do país. | Determina o código postal. |
| Módulo | TODOS | TODOS | TODOS | TODOS |
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 | SistemaS |
- Tabela TMY– Atestado Saúde Ocupacional
Campo | TMY_CNES |
Sequência | 001 |
Campo Domínio | TMY_CNESESTAB |
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ência001 | Campo | TNC_CODOBJ | |
Sequência | 001 | 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 |
Tipo | (XB_TIPO) |
Sequência | (XB_SEQ) |
Coluna | (XB_COLUNA) |
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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas