Árvore de páginas

Versões comparadas

Chave

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


empo 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
TH3_DESPRO
TipoCaracterCaracterDataCaracterCaracterCaracterCaracterCaracter
Tamanho8685330330
Decimal00000000
Formato
@!
99:99 @!     @! @!@!
TítuloFilial      Código      Data Hora        Origem      Descr. Orig. ProcedênciaDescr. Proc. 
DescriçãoFilial do Sistema Código Disposição Data Composição          Hora ComposiçãoOrigem      Descrição da Origem 
ProcedênciaDescrição da Procedência 
Nível11111

1

11
UsadoNãoSimSimSimSimSimSimSim
Obrigatório

Não

SimSimSimSimNãoSimNão
Browse

Não

SimSimSimNão

Não

NãoNã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"))                                                                                  
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)                                                                                              


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.

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

CampoTH3_CODTRATH3_DESTRATH3_TIPDESTH3_CODTIPTH3_DOC   
TipoCaracterCaracterCaracterCaracterCaracter
Tamanho330169
Decimal00000
Formato@!  @! @!@!
@!
TítuloTratamento  Descr. Trat.Tipo        Cod. Tipo   Documento   
DescriçãoTratamento  Descrição do Tratamento  Tipo de Destinação       Cod. Tipo de Destinação   Documento Moviment.   
Nível11111
UsadoSimSimSimSimSim
ObrigatórioSimNãoSimNãoNão
BrowseNãoNãoNãoNãoNão
Inic. Padrão
SX5->(VDISP("DY"+TH3->TH3_CODTRA,"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                                   


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 - Disposição Final de Resíduos 

CampoTH3_FILIALTH3_CODCOMTH3_DTCOMPTH3_HRCOMPTH3_ORIGEMTH3_DESORITH3_PROCED
TH3_DESPRO
TipoCaracterCaracterDataCaracterCaracterCaracterCaracterCaracter
Tamanho8685330330
Decimal00000000
Formato
@!
99:99 @!     @! @!@!
TítuloFilial      Código      Data Hora        Origem      Descr. Orig. ProcedênciaDescr. Proc. 
DescriçãoFilial do Sistema Código Disposição Data Composição          Hora ComposiçãoOrigem      Descrição da Origem 
ProcedênciaDescrição da Procedência 
Nível11111

1

11
UsadoNãoSimSimSimSimSimSimSim
Obrigatório

Não

SimSimSimSimNãoSimNão
Browse

Não

SimSimSimNão

Não

NãoNã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"))                                                                                  
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)                                                                                              


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.

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



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


  • TYB - Resultados Exame Acuidade Visual

CampoTYB_EQUIPATYB_EQUIPATYB_EQUIPATYB_ATENDE
Sequência001002003001
Campo DomínioTYB_NOMEQTYB_DTAFERTYB_CALIBRTYB_NOMATE
TipoPrimárioPrimárioPrimárioPrimário
RegraTM7->TM7_NOEQTOTM7->TM7_DTAFERTM7->TM7_DTCALITMK->TMK_NOMUSU
PosicionaSimSimSimSim
ChavexFilial("TM7")+M->TYB_EQUIPAxFilial("TM7")+M->TYB_EQUIPAxFilial("TM7")+M->TYB_EQUIPAxFilial("TMK")+M->TYB_ATENDE
ProprietárioSSS

S



  •  Tabela TYC - Resultados Exame Snellen


CampoTYC_EQUIPATYC_EQUIPATYC_EQUIPATYC_ATENDE
Sequência1231
Campo DomínioTYC_NOMEQTYC_DTAFERTYC_CALIBRTYC_NOMATE
TipoPrimárioPrimárioPrimárioPrimário
RegraTM7->TM7_NOEQTOTM7->TM7_DTAFERTM7->TM7_DTCALITMK->TMK_NOMUSU
PosicionaSimSimSimSim
ChavexFilial("TM7")+M->TYC_EQUIPAxFilial("TM7")+M->TYC_EQUIPAxFilial("TM7")+M->TYC_EQUIPAxFilial("TMK")+M->TYC_ATENDE
ProprietárioSSSS


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

Relatórios
Submenu

Exames - Resultad.

Exames - Resultad.
Nome da Rotina

Ortho Rater

Snellen
Programa

MDTR485

MDTR481
Módulo

Medicina e Segurança do Trabalho

Medicina e Segurança do Trabalho


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>