Árvore de páginas

Versões comparadas

Chave

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


tempo 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
Ticket:xxxxxx
Requisito/Story/Issue:xxxxxxxxxx


02. SITUAÇÃO/REQUISITO

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

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
tabsPasso a Passo
idspasso1
Totvs custom tabs box items
defaultyes
referenciapasso1
  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


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

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



SX5→(VDISP("DX"+TH3→

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.

Informações
titleImportante

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ência001
002
001
003
001001
Campo Domínio
TYB
TH3_
NOMEQ
DESTRA
TYB
TH3_
DTAFER
DESORI
TYB
TH3_
CALIBR
DESPRO
TYB
TH3_
NOMATECampoTYC_EQUIPATYC_EQUIPATYC_EQUIPATYC_ATENDESequência1231Campo DomínioTYC_NOMEQTYC_DTAFERTYC_CALIBRTYC_NOMATETipoPrimárioPrimárioPrimárioPrimárioRegraTM7->TM7_NOEQTOTM7->TM7_DTAFERTM7->TM7_DTCALITMK->TMK_NOMUSU
CODTIP
TipoPrimárioPrimárioPrimárioPrimário
Regra
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()               X5DESCRI()   X5DESCRI()                 Space(Len(TH3->TH3_CODTIP))                   
PosicionaSimSimSim
Sim
Não
ChavexFilial("
TM7
SX5")+"DY"+M-
>TYC
>TH3_
EQUIPA
CODTRA xFilial("
TM7
SX5")+"DV"+M-
>TYC
>TH3_
EQUIPA
ORIGEMxFilial("
TM7
SX5")+
M->TYC_EQUIPAxFilial("TMK")
"DX"+M-
>TYC
>TH3_
ATENDE
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
Relatórios

Atualizações

Relatórios
Submenu

Exames - Resultad.

Exames - Resultad.

Resíduos

Nome da Rotina

Ortho Rater

Snellen

Disposição Final

Programa

MDTR485

MDTR481

SGAA531

Módulo

Medicina e Segurança do Trabalho

Medicina e Segurança do Trabalho

Gestão Ambiental


05. ASSUNTOS RELACIONADOS




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>