Á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

NãoNãoNão

Browse

Não

NãoNãoNão
Relação


IF( INCLUI,'',POSICIONE( 'TMA', 1, XFILIAL( 'TMA' ) + TYG->TYG_AGENTE, 'TMA_NOMAGE'))                 

Consulta Padrão


TNETMA

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

SIGAMDTSIGAMDT


  • Tabela TYF – Parte Atingida


Campo

TYF_FILIAL

TYF_ACIDENTYF_CODPARTYF_DESPARTYF_LATERA

Tipo

Caracter

CaracterCaracterCaracterCaracter

Tamanho

8

6121601

Formato


999999@!@!

Título

Filial

AcidenteCodigo ParteDesc. Parte Lateralidade

Descrição

Filial do Sistem        

Numero Acidente Trabalho 

Codigo Parte AtingidaDescrição Parte          Lateralidade

Nível

1





Relação
M->TNC_ACIDEN
TOI->(VDISP(TYF->TYF_CODPAR,'TOI_DESPAR'))

Usado

Não

SimSimSimSim

Obrigatório

Não


NãoNãoNãoNão

Browse

NãoNãoSimNãoNã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
TODOSTODOSTODOSTODOS


  • Tabela TYE – Agente Causador


Campo

TYE_FILIAL

TYE_ACIDENTYE_CAUSATYE_DESCAU

Tipo

Caracter

CaracterCaracterCaracter

Tamanho

8

61240

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

111

Usado

Não

SimSimSim

Obrigatório

NãoNãoNãoNão

Browse

NãoNãoSimNã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
TODOSTODOSTODOS


  • Tabela TIL – Cadastro CNES


Campo

TIL_FRMCTT

TIL_EMAIL

Tipo

Caracter

Caracter

Tamanho

100

60
Formato

Título

Form. Contat

Email

Descrição

Forma de Contato

Email de Contato

Nível

1

1

Usado

Sim

Sim

Obrigatório

SimNão

Browse

NãoNão

Help

Indique a forma de contato.

Indique o E-mail.

MóduloTODOSTODOS


  • 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ções1=EE;2=SC;3=SC+

Help

Indique a interpretação do exame, podendo ser: 1=EE, 2=SC ou 3=SC+.

MóduloTODOS


  • 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

1

Usado

Sim

Sim

Obrigatório

NãoNão

Browse

NãoNão
Consulta PadrãoTIL
Val. SistemaEmpty(M->TMY_CNES) .Or. ExistCPO('TIL',M->TMY_CNES)    

Help

Indique o código de CNES (Cadastro Nacional de Estabelecimentos de Saúde).

Estabelecimento cadastrado no CNES.
MóduloTODOSTODOS


  • Tabela TNE - Ambiente Físico


Campo

TNE_DTVINI

Tipo

Data

Tamanho

8

Formato

Título

Valid.Inic. 

Título

Descrição

Data de Validade Inicial

Descrição

Nível

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não
Opções

Help

Data de início da avaliação do ambiente.

Help

Módulo
TODOS
SIGAMDT


  • Tabela TO9 - EPC x Riscos

Campo

TO9_EFIEPC

Tipo

Caracter

Tamanho

1

Formato


TítuloEficiência do EPC  

EPC Eficaz? 

DescriçãoEPC Eficaz? 

Eficiência do EPC         

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não
Opções1=Sim;2=Não 

Help

Indica se o EPC é eficaz na neutralização dos riscos ao trabalhador.

MóduloTODOS


  • Tabela TNC– Acidentes de Trabalho


Campo

TNC_TPACID

TNC_CODPAITNC_DESPAITNC_CODPOS

Tipo

Caracter

CaracterCaracterCaracter

Tamanho

6

62206

Formato

@!     

@! @! @! 

Título

Cod. Acid.    

Cod. País DescriçãoCód. Postal    

Descrição

Codificação Acidente

Código do País   DescriçãoCódigo Postal 

Nível

1

111

Usado

Sim

SimSimSim

Obrigatório

NãoNãoNãoNão

Browse

NãoNãoNãoNão
Consulta PadrãoLE5C08

Val. SistemaIf(!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óduloTODOSTODOSTODOSTODOS


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


Regra

TMA->TMA_NOMAGE

Chave

xFILIAL("TMA")+M->TYG_AGENTE 

ProprietárioS


  • Tabela TMY– Atestado Saúde Ocupacional

Campo

TMY_CNES

Sequência

001

Campo Domínio

TMY_ESTAB

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

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í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

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

Sistema

Í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


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.