Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

RotinaNome Técnico
MDTA890Conciliação eSocial

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


  1.  Criação de tabela no arquivo SX2 – Tabelas:


Chave

Nome

Modo

PYME

TYEAgente CausadorEN

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óduloSIGAMDT


  • 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óduloSIGAMDTSIGAMDT


  • 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óduloSIGAMDT


  • 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óduloSIGAMDT


  • Tabela TNC– Acidentes de Trabalho


Campo

TNC_CODOBJ
TNC_DESOBJ
TNC_CODPAR
TNC_DESPAR

Tipo

Caracter

CaracterCaracterCaracter

Tamanho

12

201230

Formato

@!

@!@!@!

Título

Objeto Caus.

Desc. ObjetoCodigo ParteDesc. Parte 

Descrição

Objeto Causador          

Descricao Objeto CausadorCodigo Parte Atingida    Desc. Parte 

Nível

1

111

Usado

Não

NãoNãoNão

Obrigatório

Não

NãoNãoNão

Browse

Não

NãoNãoNão

Relação


TNH->(VDISP(TNC->TNC_CODOBJ,"TNH_DESOBJ"))                                                                                      
TOI->(VDISP(TNC->TNC_CODPAR,'TOI_DESPAR'))                                                                                      
Consulta PadrãoTNH
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_CODAMBTYG_AGENTETYG_NOMAGE

Tipo

Caracter

CaracterCaracterCaracter

Tamanho

8

69

40

Formato

                                

@! 

Título

Filial

Cod. AmbientAgente

Nome Agente

Descrição

Filial do Sistema

Código do Ambiente

Código do Agente de Risco

Nome do Agente de Risco

Nível

1111

Usado

Sim
SimSimSim

Obrigatório

Sim

SimNãoSimNão

Browse

Não

Não

Consulta Padrão


TNE

Val. Sistema


EXISTCPO("TNE",M->TYG_CODAMB)                                                                                                   

Help





Módulo




  • 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

Email

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

Cbox1=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çãoEmpty(M->TMY_CNES) .Or. ExistCPO('TIL',M->TMY_CNES)
Consulta SXBTIL

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

F3LE5

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

F3C08

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árioSistema


  • 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árioSistema


 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ínioC08
SequencialNGPROXSX9("C08")
Contra-DomínioTNC
Relacionamento DomínioC08_ID
Relacionamento Contra-DomínioTNC_CODPAI
PrioridadeSistema
Cardinalidade Domínio1
Cardinalidade Contra-DomínioN
Condição SQL" "
Utiliza Filial na ChaveNão
Relacionamento AtivoSim


  • LE5TNC – Codificação Acidente Trabalho | Acidentes de Trabalho 
Tabela DomínioLE5
SequencialNGPROXSX9("LE5")
Contra-DomínioTNC
Relacionamento DomínioLE5_ID
Relacionamento Contra-DomínioTNC_TPACID
PrioridadeSistema
Cardinalidade Domínio1
Cardinalidade Contra-DomínioN
Condição SQL" "
Utiliza Filial na ChaveNão
Relacionamento AtivoSim


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árioSistema

Índice

TYG

Ordem

2

Chave

TYG_FILIAL+TYG_AGENTE+TYG_CODAMB 

Descrição

Agente + Cod. Ambiente 

ProprietárioSistema

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.