Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 20 min

01. DADOS GERAIS

Linha de Produto:Protheus
Segmento:Serviços
Módulo:

Gestão Ambiental

Função:SGAA140, SGAA531
Requisito/Story/Issue:DNG-3587


02. SITUAÇÃO/REQUISITO

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

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:




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


04. DEMAIS INFORMAÇÕES

IMPORTANTE!

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


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


ÍndiceTH4

TH3

Ordem1

1

ChaveTH4_FILIAL+TH4_CODCOM+TH4_CODOCO

TH3_FILIAL+TH3_CODCOM

DescriçãoDisposição + Ocorrência

Codigo

ProprietárioS

S


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


ChaveTH3
TH4
NomeDisposição Final de Resíduos  
Itens Disposição Final de Res.
Modo Exclusivo
Exclusivo
PymeNN


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


    • Tabela TCS - Cadastro de Classe do Resíduo

CampoTCS_PERIGO
TipoCaracter
Tamanho1
Decimal0
Formato@!
TítuloPerigosa? 
DescriçãoClasse Perigosa?
Nível1
UsadoSim
ObrigatórioNão
BrowseSim
Inic. PadrãoIF(INCLUI,'1',M->TCS_PERIGO)
Opções

1=Sim;2=Nao

Val. SistemaPertence('12')
Help

Indica se a classe de resíduos é perigosa. 1 - Sim; 2 - Não.


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

CampoTH3_FILIALTH3_CODCOMTH3_DTCOMPTH3_HRCOMPTH3_ORIGEMTH3_DESORITH3_PROCED
TipoCaracterCaracterDataCaracterCaracterCaracterCaracter
Tamanho86853303
Decimal0000000
Formato
@!
99:99 @!     @! @!
TítuloFilial      Código      Data Hora        Origem      Descr. Orig. Procedência
DescriçãoFilial do Sistema Código Disposição Data Composição          Hora ComposiçãoOrigem      Descrição da Origem 
Procedência
Nível11111

1

1
UsadoNãoSimSimSimSimSimSim
Obrigatório

Não

SimSimSimSimNãoSim
Browse

Não

SimSimSimNão

Não

Não
Inic. 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"))                                                                                  


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)                                                                                              
HelpFilial 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.

CampoTH3_CODTRATH3_DESTRATH3_TIPDESTH3_CODTIPTH3_DOC   TH3_DESPRO
TipoCaracterCaracterCaracterCaracterCaracterCaracter
Tamanho33016930
Decimal000000
Formato@!  @! @!@!
@!@!
TítuloTratamento  Descr. Trat.Tipo        Cod. Tipo   Documento   Descr. Proc. 
DescriçãoTratamento  Descrição do Tratamento  Tipo de Destinação       Cod. Tipo de Destinação   Documento Moviment.   Descrição da Procedência 
Nível111111
UsadoSimSimSimSimSimSim
ObrigatórioSimNãoSimNãoNãoNão
BrowseNãoNãoNãoNãoNãoNã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 TH4 - Itens Disposição Final de Res.

CampoTH4_FILIALTH4_CODCOMTH4_CODOCOTH4_PESOUTTH4_UNIMED
TipoCaracterCaracterCaracterNuméricoCaracter
Tamanho86696
Decimal00020
Formato
@! @!@E 999,999.99 @!                                           
TítuloFilialDisposição  Ocorrência        Peso Util.  Unid. Medida
DescriçãoFilial do SistemaCódigo Disposição        Código Ocorrência        Peso Utilizado           Unidade de Medida        
Nível11111
UsadoSimSimSimSimSim
ObrigatórioNãoNãoNãoNãoNão
BrowseNãoSimSimSimSim
Help

Filial do Sistema.

Código da Disposição Final.

Código da ocorrênciaPeso Utilizado. 

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

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

CampoTH3_CODTRATH3_ORIGEMTH3_PROCEDTH3_TIPDES
Sequência001001001001
Campo DomínioTH3_DESTRATH3_DESORITH3_DESPROTH3_CODTIP
TipoPrimárioPrimárioPrimárioPrimário
RegraX5DESCRI()               X5DESCRI()   X5DESCRI()                 Space(Len(TH3->TH3_CODTIP))                   
PosicionaSimSimSimNão
ChavexFilial("SX5")+"DY"+M->TH3_CODTRA xFilial("SX5")+"DV"+M->TH3_ORIGEMxFilial("SX5")+"DX"+M->TH3_PROCED
ProprietárioSSS

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

Atualizações

Submenu

Resíduos

Nome da Rotina

Disposição Final

Programa

SGAA531

Módulo

Gestão Ambiental



05. ASSUNTOS RELACIONADOS