Árvore de páginas

Versões comparadas

Chave

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

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.

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


  • Tabela TN0 - Riscos


Campo

TN0_CODAMB

TN0_AGENTE

Título

Ambiente

Agente

Val. Sistema

MDT180AMB(2) .And. MDT180MuAg()     

MDT180AMB(1)
Módulo

SIGAMDT

SIGAMDT



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

1111
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. 

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. 

Descrição

Data de Validade Inicial

Nível

1

Usado

Sim

Obrigatório

Não

Browse

Não

Help

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

MóduloSIGAMDT


  • Tabela TO9 - EPC x Riscos

Campo

TO9_EFIEPC

Tipo

Caracter

Tamanho

1

Formato


Título

EPC Eficaz? 

Descrição

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

Índice

TYG

Ordem

1

Chave

TYG_FILIAL+TYG_CODAMB+TYG_AGENTE  

Descrição

Cod. Ambiente + Agente

Índice

TYG

Ordem

2

Chave

TYG_FILIAL+TYG_AGENTE+TYG_CODAMB 

Descrição

Agente + Cod. Ambiente 

Procedimento para Configuração

 

CONFIGURAÇÃO DE MENUS

1.  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

Observação: Ambiente antes da Atualização.

  1. No Medicina e Segurança do Trabalho (SIGAMDT), acesse Atualizações\Ppra\Agentes, incluir um agente.
  2. Em Atualizações\Acidente Trabalho\Tipos de Acidentes, incluir um tipo de acidente.
  3. Em Atualizações\Acidente Trabalho\Obj. causador Acid., incluir um objeto causador.
  4. Em Atualizações\Acidente Trabalho\Natureza da Lesao, incluir uma natureza da lesão.
  5. Em Atualizações\Acidente Trabalho\Parte Corpo Atingi., incluir uma parte do corpo atingida.
  6. Em Atualizações\Acidentes de Trabalho\Acidentes, cadastrar um acidente com as informações cadastradas acima.
  7. Em Atualizações\Ppra\ Agentes, incluir três agentes.
  8. Em Atualizações\Ppra\ Ambiente Físico, incluir três ambientes.
  9. Em Atualizações\Ppra\Riscos, cadastrar três riscos relacionados aos ambientes e agentes cadastrados.

Observação: Ambiente depois da Atualização.

  1. Entrar no módulo de Medicina e Segurança do Trabalho(SIGAMDT).
  2. Em Atualizações\Ppra\Ambientes Fisico, verificar que o sistema relacionou os agentes do risco ao ambiente na tela inferior de Ambiente x Agente.
  3. Em Atualizações\Acidentes de Trabalho\Acidentes, verificar que as pastas na parte inferior do cadastro trazem os registros de parte do corpo atingida e agente causador. 
  4. Em Miscelânia\Arquivos\Conciliação eSocial (MDTA890), relacionar os códigos do e-Social aos registros cadastrados. 
  5. Em Atualizaçõs\Ppra\Riscos, incluir um risco relacionado ao ambiente cadastrado, verificar que a função F3 do campo de ambiente físico traz apenas os ambientes relacionados ao agente selecionado.
  6. Em Atualizações\Acidentes de Trabalho\Acidentes, incluir um acidente e verificar que os campo Tp. Acidente (TNC_TPACID), Cod. País(TNC_CODPAI), Descrição (TNC_DESPAI) e Cód. Postal (TNC_CODPOS) criados são mostrados em tela e os campos TNC_TPACID e TNC_CODPAI tem as consultas padrão das tabelas LE5 e C08 respectivamente. Verificar também que os campos Objeto Caus. (TNC_CODOBJ), Desc. Objeto (TNC_DESOBJ), Codigo Parte (TNC_CODPAR) e Desc. Parte (TNC_DESPAR) não são apresentados por terem sido passados para não usado. (Obs: Para poder alterar o código do país, o campo Ind. Local deve estar diferente de 1)
  7. Em Atualizações\Ppra\Agentes, Verificar que o campo Cód. eSocial está com a consulta padrão da tabela T3E.
  8. Em Atualizações\Acidentes de Trabalho\Objeto Causador, verificar que nos campos Obj. eSocial e Sit. eSocial, quando um dos campos é preenchido o outro campo é fechado.
  9. Em Atualizações\Cadastros Básicos\CNES, verificar que os campos criados Form. Cotat e Email, aparecem em tela.
  10. Em Atualização\Pcmso\Exames Por Agente, verificar que o campo criado, Interper., aparece em tela.
  11. Em Atualizações\Atendimento Médico\Atestado (Aso), verificar que os campos criados, Cód. CNES (TMY_ESTAB) e  Estabelecim.(TMY_ESTAB), aparecem em tela. Verificar que o campo de CNES possui a consulta padrão da tabela TIL (Cadastro CNES).
  12. Em Atualizações\Ppra\Ambiente Físico, verificar que o campo criado,Valid. Inic.(TNE_DTVINI), aparece em tela.
  13. Em Atualizações\Ppra\Risco x Epc, verificar que o campo criado, Epc Eficaz? (TO9_EFIEPC), aparece em tela.