Histórico da Página

tempo Tempo aproximado para leitura: 20 min

01. DADOS GERAIS

xxxxxx

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Gestão Ambiental
Função:	SGAA140, SGAA531	Ticket:
Requisito/Story/Issue:	xxxxxxxxxxDNG-3587

02. SITUAÇÃO/REQUISITO

Implementar no sistema a possibilidade de realizar um tratamento para resíduos não recicláveisperigosos.

03. SOLUÇÃO

A rotina de Disposição Final (SGAA531) tem como objetivo realizar o descarte dos resíduos conhecendo a sua origem e procedência para destinar os Resíduos Não Perigosos para algum tratamento sem que eles causem mal ao meio ambiente.

Para auxiliar no controle de resíduos perigosos e não perigosos, o sistema possui na rotina de Classes (SGAA135) o campo chamado Perigosa? (TCS_PERIGO) com as opções de Sim e Não. Caso a Classe seja pertinente a resíduo perigosos, o campo Perigosa? deve receber a opção Sim, caso contrário, deve receber a opção Não.

Cadastro da Classe com o campo Perigosa? (TCS_PERIGO):

No momento em que o Resíduo é definido na rotina de Definição de Resíduos (SGAA140), é preciso selecionar a qual classe ele pertence, e, se for uma classe não perigosa, ele estará disponível para ser destinado na rotina de Disposição Final (SGAA531), após a inclusão das ocorrências.

Abaixo segue o trecho pertinente a classe não perigosa que elenca alguns dos resíduos a qual a pertence, retirado da NBR 10004 de 2004:

Totvs custom tabs box

tabs	Passo a Passo
ids	passo1

Totvs custom tabs box items

default	yes
referencia	passo1

Acessar o módulo de Gestão Ambiental (SIGASGA).
Em Atualizações / Resíduos / Classe, inclua uma classe não perigosa.
Em Atualizações / Resíduos / Resíduos, incluir um resíduo.
Em Atualizações / Resíduos / Definição de Resíduos, incluir uma definição usando a classe não perigosa.
Em Atualizações / Resíduos / Ocorrências, incluir uma ocorrência para o resíduo.
Em Atualizações / Resíduos / Disposição Final, incluir uma disposição para a ocorrência.

04. DEMAIS INFORMAÇÕES

Card documentos

Informacao	A implementação está disponível apenas a partir da release 12.1.23.
Titulo	IMPORTANTE!

Criação de Índices no arquivo SIX – Índices:

Índice	TH4	TH3
Ordem	1	1
Chave	TH4_FILIAL+TH4_CODCOM+TH4_CODOCO	TH3_FILIAL+TH3_CODCOM
Descrição	Disposição + Ocorrência	Codigo
Proprietário	S	S

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

Chave	TH3	TH4
Nome	Disposição Final de Resíduos	Itens Disposição Final de Res.
Modo	Exclusivo	Exclusivo
Pyme	N	N

3. Alteração de Campos no arquivo SX3 – Campos:

- Tabela TCS - Cadastro de Classe do Resíduo

Campo	TCS_PERIGO
Tipo	Caracter
Tamanho	1
Decimal	0
Formato	@!
Título	Perigosa?
Descrição	Classe Perigosa?
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Inic. Padrão	IF(INCLUI,'1',M->TCS_PERIGO)
Opções	1=Sim;2=Nao
Val. Sistema	Pertence('12')
Help	Indica se a classe de resíduos é perigosa. 1 - Sim; 2 - Não.

- Tabela TH3 - Disposição Final de Resíduos

01

Campo	TH3_FILIAL	TH3_CODCOM	TH3_DTCOMP	TH3_HRCOMP	TH3_ORIGEM	TH3_DESORI	TH3_PROCED	TH3_DESPRO
Tipo	Caracter	Caracter	Data	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	8	6	8	5	3	30	330
Decimal		0	0	0	0	0	0	0
Formato		@!		99:99	@!	@! @!	@!
Título	Filial	Código	Data	Hora	Origem	Descr. Orig.	ProcedênciaDescr. Proc.
Descrição	Filial do Sistema	Código Disposição	Data Composição	Hora Composição	Origem	Descrição da Origem	ProcedênciaDescrição da Procedência
Nível		1	1	1	1	1	1	1
Usado	NãoSim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Sim	Sim	Sim	Sim	Não	SimNão
Browse	Não	Sim	Sim	Sim	Não	Não	Não	Não
Inic. Padrão		GETSXENUM ("TH3" ,"TH3_CODCOM")	IF(INCLUI, DDATABASE ,TH3> TH3TH3>TH3_DTCOMP)	IF(INCLUI,SUBSTR (TIME(),1,5),TH3->TH3_HRCOMP)		SX5-> SX5→(VDISP("DV" +TH3->TH3_ORIGEM ,"X5_DESCRI")) SX5->(VDISP("DX"+TH3->TH3_PROCED ,"X5_DESCRI"))
Val. Sistema			M->TH3_DTCOMP <= dDataBase	VALHORA(M->TH3_HRCOMP) .AND. M->TH3_HRCOMP <= Substr(Time(),1,5)	ExistCpo("SX5", "DV"+M->TH3_ORIGEM)		ExistCpo("SX5","DX"+M->TH3_PROCED)
Help	Filial do Sistema.	Código da Composição de Carga.	Data de realização da Composição da Carga.	Hora de realização da Composição da Carga.	Informe a origem do resíduo para o Manifesto de Transporte de Resíduos.Pressione a tecla [F3] para selecionar uma origem.	Descrição da origem do resíduo do Manifesto de Transporte de Resíduos.	Informe a procedência para o Manifesto de Transporte de Resíduos. Pressione a tecla [F3] para selecionar uma procedência.Descrição da procedência do resíduo do Manifesto de Transporte de Resíduos.

Campo	TH3_CODTRA	TH3_DESTRA	TH3_TIPDES	TH3_CODTIP	TH3_DOC	TH3_DESPRO
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	3	30	1	6	9	30
Decimal	0	0	0	0	0	0
Formato	@!	@!	@!	@!	@!	@!
Título	Tratamento	Descr. Trat.	Tipo	Cod. Tipo	Documento	Descr. Proc.
Descrição	Tratamento	Descrição do Tratamento	Tipo de Destinação	Cod. Tipo de Destinação	Documento Moviment.	Descrição da Procedência
Nível	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Sim	Não	Sim	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não
Inic. Padrão		SX5->(VDISP("DY"+TH3->TH3_CODTRA,"X5_DESCRI"))				SX5→(VDISP ("DX"+TH3→ TH3_PROCED, "X5_DESCRI"))
Val. Sistema	ExistCpo("SX5","DY"+M->TH3_CODTRA)		PERTENCE("123456")	ExistCPO("TB6",M->TH3_CODTIP)
Lista Opções			1=Tratamento; 2=Reutilização; 3=Co-Processamento; 4=Disposição Final;5=Outros; 6=Acondicionamento			Descrição da procedência do resíduo do Manifesto de Transporte de Resíduos.
Help	Informe o tratamento/disposição do resíduo para o Manifesto de transporte de Resíduos. Pressione a tecla [F3] para selecionar um tratamento/disposição.	Descrição do tratamento do resíduo do Manifesto de Transporte de Resíduos.	Tipo de Destinação.	Código do tipo de destinação.	Número do documento referente as movimentações de estoque.

- Tabela TH3 TH4 - Itens Disposição Final de Resíduos Res.

Campo

TH3

TH4_FILIAL

TH3

TH4_CODCOM

TH3

TH4_

DTCOMP

CODOCO

TH3

TH4_

HRCOMP

PESOUT

TH3_ORIGEMTH3_DESORITH3_PROCED
TH3_DESPRO

TH4_UNIMED
Tipo	Caracter	Caracter

DataCaracter

Caracter

CaracterCaracter

Numérico	Caracter
Tamanho	8	6

8

6

5

9

330330

6
Decimal	0	0	0

0

2

0

000

Formato		@!

Formato

@!

99:

@E 999,999.99

@!

@!@!

Título

Filial Código Data

Filial

Disposição

Ocorrência

Hora

Origem

Peso Util.

DescrProcedênciaDescr. Proc.

Unid.

Orig.

Medida

Descrição	Filial do

Sistema

Código Disposição

Data Composição

Código Ocorrência

Hora ComposiçãoOrigem Descrição da Origem
ProcedênciaDescrição da Procedência

Nível
Peso Utilizado	Unidade de Medida

Nível111

Usado
	1	1	1	1	1

NãoSimSim

Sim	Sim	Sim	Sim	Sim
Obrigatório	Não

SimSim

Não

Sim

Não

Sim

Não

Sim

	Não
Browse	Não	Sim	Sim	Sim

Não

NãoNãoInic. Padrão

GETSXENUM("TH3"

,"TH3_CODCOM")

IF(INCLUI,DDATABASE

,TH3>TH3_DTCOMP)

IF(INCLUI,SUBSTR

(TIME(),1,5),TH3->TH3_HRCOMP)

SX5->(VDISP("DV"+TH3->TH3_ORIGEM,"X5_DESCRI")) SX5->(VDISP("DX"+TH3->TH3_PROCED,"X5_DESCRI")) Val. Sistema

M->TH3_DTCOMP <= dDataBase

VALHORA(M->TH3_HRCOMP) .AND. M->TH3_HRCOMP <= Substr(Time(),1,5)

ExistCpo("SX5","DV"+M->TH3_ORIGEM)

ExistCpo("SX5","DX"+M->TH3_PROCED)

Sim

Help	Filial do Sistema.	Código da

Composição de Carga

Disposição Final.

Data de realização da Composição da Carga.

Hora de realização da Composição da Carga.

Informe a origem do resíduo para o Manifesto de Transporte de Resíduos.Pressione a tecla [F3] para selecionar uma origem.

Descrição da origem do resíduo do Manifesto de Transporte de Resíduos.

Informe a procedência para o Manifesto de Transporte de Resíduos. Pressione a tecla [F3] para selecionar uma procedência.

Descrição da procedência do resíduo do Manifesto de Transporte de Resíduos

Código da ocorrência

Peso Utilizado.

Unidade de medida do resíduo correspondente a ocorrência.

Informações

title	Importante

O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.

7. Criação de Gatilhos no arquivo SX7 – Gatilhos:

Tabela TH3 - Disposição Final de ResíduosTYB - Resultados Exame Acuidade Visual

Campo

TYB

TH3_

EQUIPA

CODTRA

TYB

TH3_

EQUIPA

ORIGEM

TYB

TH3_

EQUIPA

PROCED

TYB

TH3_

ATENDE

TIPDES
Sequência	001

002

001

003

Campo Domínio
001	001

TYB

TH3_

NOMEQ

DESTRA

TYB

TH3_

DTAFER

DESORI

TYB

TH3_

CALIBR

DESPRO

TYB

TH3_

NOMATE

Regra
CODTIP
Tipo	Primário	Primário	Primário	Primário

TM7->TM7_NOEQTOTM7->TM7_DTAFERTM7->TM7_DTCALITMK->TMK_NOMUSUPosicionaSimSimSimSimChavexFilial("TM7")+M->TYB_EQUIPAxFilial("TM7")+M->TYB_EQUIPAxFilial("TM7")+M->TYB_EQUIPAxFilial("TMK")+M->TYB_ATENDEProprietárioSSS

S

Tabela TYC - Resultados Exame Snellen

X5DESCRI()

Space(Len(TH3->TH3_CODTIP))

CampoTYC_EQUIPATYC_EQUIPATYC_EQUIPATYC_ATENDESequência1231Campo DomínioTYC_NOMEQTYC_DTAFERTYC_CALIBRTYC_NOMATETipoPrimárioPrimárioPrimárioPrimárioRegraTM7->TM7_NOEQTOTM7->TM7_DTAFERTM7->TM7_DTCALITMK->TMK_NOMUSU


Posiciona	Sim	Sim	Sim

Sim

Não
Chave	xFilial("

TM7

SX5")+"DY"+M-

>TYC

>TH3_

EQUIPA

CODTRA

xFilial("

TM7

SX5")+"DV"+M-

>TYC

>TH3_

EQUIPA

ORIGEM

xFilial("

TM7

SX5")+

M->TYC_EQUIPAxFilial("TMK")

"DX"+M-

>TYC

>TH3_

ATENDE

PROCED
Proprietário	S	S	S	S

Procedimento para Configuração

1. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do Medicina e Segurança do Trabalho (SIGAMDT), conforme instruções a seguir:

Menu

Relatórios

Submenu
Atualizações

Exames - Resultad.

Nome da Rotina
Resíduos

Ortho Rater

Snellen

Programa
Disposição Final

MDTR485

SGAA531

MDTR481

Módulo

Medicina e Segurança do Trabalho

Gestão Ambiental

05. ASSUNTOS RELACIONADOS

SGA0001 Integracao SGA X Estoque
Ortho Rater: http://tdn.totvs.com/x/mLUQG
Snellen:http://tdn.totvs.com/x/7rUQG
Exames:http://tdn.totvs.com/x/X4m1F
Documentação

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

02. SITUAÇÃO/REQUISITO

03. SOLUÇÃO