1 Executar o seguinte script:--USUÁRIO alter table PRXUSER_MOBILID
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_USUARIO before
INSERT OR UPDATE OR DELETE
ON PRXUSER_MOBILID
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PRXUSER_MOBILID:'||:OLD.ID_PRXUSER_MOBILID,'PM', sysdate,'D');
END IF;
END;
-- USUÁRIO VS MÓDULO alter table PRXUSER_MOBILID_MOD
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_USUARIO_MOD before
INSERT OR UPDATE OR DELETE
ON PRXUSER_MOBILID_MOD
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PRXUSER_MOBILID_MOD:'||:OLD.ID_PRXUSER_MOBILID_MOD,'UM', sysdate,'D');
END IF;
END;
-- PARAMETROS MC alter table PRXPARAMETER
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PRXPARAMETER before
INSERT OR UPDATE OR DELETE
ON PRXPARAMETER
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PRXPARAMETER:'||:OLD.ID_PRXPARAMETER,'PP', sysdate,'D');
END IF;
END;
-- TIPO DE APONTAMENTO DIVERSOS alter table AD_TIPO
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_TP_APTO_DIVERSOS before
INSERT OR UPDATE OR DELETE
ON AD_TIPO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AD_TIPO:'||:OLD.ID_AD_TIPO, 'AD_TIPO', sysdate,'D');
END IF;
END;
-- SAFRA alter table SAFRA
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SAFRA before
INSERT OR UPDATE OR DELETE
ON SAFRA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SAFRA:'||:OLD.ID_SAFRA, 'SAFRA', sysdate,'D');
END IF;
END;
-- PERIODO DE SAFRA alter table PERIODOSAFRA
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PERIODOSAFRA before
INSERT OR UPDATE OR DELETE
ON PERIODOSAFRA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PERIODOSAFRA:'|| :OLD.ID_PERIODOSAFRA, 'P', sysdate,'D');
END IF;
END;
-- PERIODO DE SAFRA – CENTRO DE CUSTO alter table PERIODOSAFRA_CC
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PERIODOSAFRA_CC before
INSERT OR UPDATE OR DELETE
ON PERIODOSAFRA_CC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PERIODOSAFRA_CC:'|| :OLD.ID_PERIODOSAFRA_CC, 'PC', sysdate,'D');
END IF;
END;
-- BLOCO DE PESQUISA alter table PE_BLOCPESQ
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_BLOCPESQ before
INSERT OR UPDATE OR DELETE
ON PE_BLOCPESQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_BLOCPESQ:'|| :OLD.ID_PE_BLOCPESQ, 'PE_BLOCPESQ', sysdate,'D');
END IF;
END;
--FAZENDA alter table UPNIVEL1 add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_UPNIVEL1 before
INSERT OR UPDATE OR DELETE
ON UPNIVEL1
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_UPNIVEL1:'||:OLD.ID_UPNIVEL1,'U', sysdate,'D');
END IF;
END;
--SETOR alter table UPNIVEL2 add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_UPNIVEL2 before
INSERT OR UPDATE OR DELETE
ON UPNIVEL2
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_UPNIVEL2:'||:OLD.ID_UPNIVEL2,'U2', sysdate,'D');
END IF;
END;
-- TALHAO alter table UPNIVEL3 add (MOB_LASTUPDATE DATE);
CREATE OR REPLACE TRIGGER TGB_MOBILE_UPNIVEL3 BEFORE
INSERT OR UPDATE OR DELETE
ON UPNIVEL3
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_UPNIVEL3:'||:OLD.ID_UPNIVEL3,'U3', sysdate,'D');
END IF;
END;
-- PROJETO DE PESQUISA alter table PE_PROJPESQ add (MOB_LASTUPDATE DATE);
CREATE OR REPLACE TRIGGER TGB_MOBILE_PE_PROJPESQ BEFORE INSERT OR UPDATE OR DELETE ON PE_PROJPESQ FOR EACH ROW BEGIN IF(updating OR inserting) THEN :NEW.MOB_LASTUPDATE := sysdate; ELSE INSERT INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS) VALUES('ID_PE_PROJPESQ:'|| :OLD.ID_PE_PROJPESQ, 'PE_PROJPESQ', sysdate,'D'); END IF; END;
-- ESTAÇÃO DE PESQUISA alter table PE_ESTAPESQ
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_ESTAPESQ before
INSERT OR UPDATE OR DELETE
ON PE_ESTAPESQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_ESTAPESQ:'|| :OLD.ID_PE_ESTAPESQ, 'PE_ESTAPESQ', sysdate,'D');
END IF;
END;
-- PROGRAMA DE PESQUISA alter table PE_PRGPESQ add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_PRGPESQ before
INSERT OR UPDATE OR DELETE
ON PE_PRGPESQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_PRGPESQ:'||:OLD.ID_PE_PRGPESQ ,'PE_PRGPESQ', sysdate,'D');
END IF;
END;
-- TIPOS DE ENSAIO alter table PE_TPENSAIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_TPENSAIO before
INSERT OR UPDATE OR DELETE
ON PE_TPENSAIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_TPENSAIO:'||:OLD.ID_PE_TPENSAIO ,'PE_TPENSAIO', sysdate,'D');
END IF;
END;
-- ENSAIO alter table PE_ENSAIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_ENSAIO before
INSERT OR UPDATE OR DELETE
ON PE_ENSAIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_ENSAIO:'||:OLD.ID_PE_ENSAIO ,'PE_ENSAIO', sysdate,'D');
END IF;
END;
-- TRATAMENTO DE PESQUISA E EXPERIMENTO alter table PE_TRATPESQ add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PE_TRATPESQ before
INSERT OR UPDATE OR DELETE
ON PE_TRATPESQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PE_TRATPESQ:'||:OLD.ID_PE_TRATPESQ ,'PE_TRATPESQ', sysdate,'D');
END IF;
END;
-- GRUPO DE VARIAVEL alter table GRPVARIAVEL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_GRPVARIAVEL before
INSERT OR UPDATE OR DELETE
ON GRPVARIAVEL
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_GRPVARIAVEL:'||:OLD.ID_GRPVARIAVEL ,'GRPVARIAVEL', sysdate,'D');
END IF;
END;
-- VARIAVEL
alter table VARIAVEL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_VARIAVEL before
INSERT OR UPDATE OR DELETE
ON VARIAVEL
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_VARIAVEL:'||:OLD.ID_VARIAVEL ,'VARIAVEL', sysdate,'D');
END IF;
END;
-- DEFINIÇÃO TABELA AUXILIAR
alter table IF_DTABAUX add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_IF_DTABAUX before
INSERT OR UPDATE OR DELETE
ON IF_DTABAUX
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_IF_DTABAUX:'||:OLD.ID_IF_DTABAUX ,'IF_DTABAUX', sysdate,'D');
END IF;
END;
-- TABELA AUXILIAR
alter table IF_TABAUX add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_IF_TABAUX before
INSERT OR UPDATE OR DELETE
ON IF_TABAUX
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_IF_TABAUX:'||:OLD.ID_IF_TABAUX ,'IF_TABAUX', sysdate,'D');
END IF;
END;
-- ELEMENTO CLIMÁTICO
alter table ELEMCLIMAT add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_ELEMCLIMAT before
INSERT OR UPDATE OR DELETE
ON ELEMCLIMAT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_ELEMCLIMAT:'||:OLD.ID_ELEMCLIMAT , 'E', sysdate,'D');
END IF;
END;
-- POSTO METEREOLÓGICO
alter table POSTOMETER add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_POSTOMETER before
INSERT OR UPDATE OR DELETE
ON POSTOMETER
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_POSTOMETER:'||:OLD.ID_POSTOMETER , 'P1', sysdate,'D');
END IF;
END;
-- MÓDULO ADMINISTRATIVO
alter table MODULOADM add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_MODULOADM before
INSERT OR UPDATE OR DELETE
ON MODULOADM
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_MODULOADM:'||:OLD.ID_MODULOADM , 'MODULOADM', sysdate,'D');
END IF;
END;
-- FITOSSANIDADE
alter table FITOSSANIDADE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FITOSSANIDADE before
INSERT OR UPDATE OR DELETE
ON FITOSSANIDADE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FITOSSANIDADE:'||:OLD.ID_FITOSSANIDADE , 'FITOSSANIDADE', sysdate,'D');
END IF;
END;
-- CENTRO DE CUSTO
alter table CCUSTO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_CCUSTO before
INSERT OR UPDATE OR DELETE
ON CCUSTO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_CCUSTO:'||:OLD.ID_CCUSTO , 'C', sysdate,'D');
END IF;
END;
-- CENTRO DE CUSTO VS OPERACAO
alter table CCUSTOPER add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_CCUSTOPER before
INSERT OR UPDATE OR DELETE
ON CCUSTOPER
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_CCUSTO:'||:OLD.ID_CCUSTO ||';ID_OPERACAO:'||:OLD.ID_OPERACAO, 'CO', sysdate,'D');
END IF;
END;
-- COMPONENTE
alter table COMPONENTE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_COMPONENTE before
INSERT OR UPDATE OR DELETE
ON COMPONENTE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_COMPONENTE:'||:OLD.ID_COMPONENTE , 'COMPONENTE', sysdate,'D');
END IF;
END;
-- COMPONENTE MATERIAL
alter table COMPONENTE_MAT add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_COMPONENTE_MAT before
INSERT OR UPDATE OR DELETE
ON COMPONENTE_MAT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_COMPONENTE_MAT:'||:OLD.ID_COMPONENTE_MAT , 'CM', sysdate,'D');
END IF;
END;
-- CONTRATO
alter table SV_CONTRATO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SV_CONTRATO before
INSERT OR UPDATE OR DELETE
ON SV_CONTRATO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SV_CONTRATO:'||:OLD.ID_SV_CONTRATO , 'SV_CONTRATO', sysdate,'D');
END IF;
END;
-- EQUIPE
alter table EQUIPE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EQUIPE before
INSERT OR UPDATE OR DELETE
ON EQUIPE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EQUIPE:'||:OLD.ID_EQUIPE , 'E', sysdate,'D');
END IF;
END;
-- FITOSSANIDADE OCUPAÇÃO
alter table FITOSSANIDADE_CULT
add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FITOSSANIDADE_CULT before
INSERT OR UPDATE OR DELETE
ON FITOSSANIDADE_CULT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FITOSSANIDADE_CULT:'||:OLD.ID_FITOSSANIDADE_CULT , 'FITOSSANIDADE_CULT', sysdate,'D');
END IF;
END;
-- INSUMOS
alter table INSUMO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_INSUMO before
INSERT OR UPDATE OR DELETE
ON INSUMO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_INSUMO:'||:OLD.ID_INSUMO , 'I', sysdate,'D');
END IF;
END;
-- INSUMOS VS EMBALAGEM
alter table INSUMO_EMB add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_INSUMO_EMB before
INSERT OR UPDATE OR DELETE
ON INSUMO_EMB
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_INSUMO_EMB:'||:OLD.ID_INSUMO_EMB, 'IE', sysdate,'D');
END IF;
END;
-- EMBALAGEM
alter table EMBALAGEM add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EMBALAGEM before
INSERT OR UPDATE OR DELETE
ON EMBALAGEM
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EMBALAGEM:'||:OLD.ID_EMBALAGEM, 'EMBALAGEM', sysdate,'D');
END IF;
END;
-- OCUPAÇÃO
alter table OCUPACAO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OCUPACAO before
INSERT OR UPDATE OR DELETE
ON OCUPACAO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OCUPACAO:'||:OLD.ID_OCUPACAO, 'O', sysdate,'D');
END IF;
END;
-- OPERAÇÃO
alter table OPERACAO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO before
INSERT OR UPDATE OR DELETE
ON OPERACAO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO:'||:OLD.ID_OPERACAO, 'OP', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS VERBA alter table MDO_OPER_VERBA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_MDO_OPER_VERBA before
INSERT OR UPDATE OR DELETE
ON MDO_OPER_VERBA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_MDO_OPER_VERBA:'||:OLD.ID_MDO_OPER_VERBA, 'MDO', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS EQUIPAMENTO
alter table OPERACAO_EQ add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO_EQ before
INSERT OR UPDATE OR DELETE
ON OPERACAO_EQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO_EQ:'||:OLD.ID_OPERACAO_EQ, 'OEQ', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS GRUPO OPERATIVO alter table OPERACAO_GRPOPEQ add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO_GRPOPEQ before
INSERT OR UPDATE OR DELETE
ON OPERACAO_GRPOPEQ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO_GRPOPEQ:'||:OLD.ID_OPERACAO_GRPOPEQ, 'OG', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS GRUPO INSUMOS alter table OPERACAO_GRPINS add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO_GRPINS before
INSERT OR UPDATE OR DELETE
ON OPERACAO_GRPINS
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO:'||:OLD.ID_OPERACAO ||';ID_GRPINSUMO:'||:OLD.ID_GRPINSUMO ||';ID_OCUPACAO:'||:OLD.ID_OCUPACAO, 'OGRP', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS INSUMOS alter table OPERACAO_INS add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO_INS before
INSERT OR UPDATE OR DELETE
ON OPERACAO_INS
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO_INS:'||:OLD.ID_OPERACAO_INS, 'OI', sysdate,'D');
END IF;
END;
-- UNIDADE ADM RECURSOS MÃO DE OBRA alter table UNIDADEADM_REC_MDO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_UNIDADEADM_REC_MDO before
INSERT OR UPDATE OR DELETE
ON UNIDADEADM_REC_MDO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_UNIDADEADM_REC_MDO:'||:OLD.ID_UNIDADEADM_REC_MDO , 'UNIDADEADM_REC_MDO', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - CABEÇALHO alter table APORDSERVICO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO:'||:OLD.ID_APORDSERVICO , 'OSC', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - LOCAIS alter table APORDSERVICO_LC add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_LC before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_LC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_LC:'||:OLD.ID_APORDSERVICO_LC , 'LC', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - EMBALAGEM alter table APORDSERVICO_EMB add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_EMB before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_EMB
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_EMB:'||:OLD.ID_APORDSERVICO_EMB , 'ae', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - COMPONENTE alter table APORDSERVICO_CO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_CO before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_CO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_CO:'||:OLD.ID_APORDSERVICO_CO , 'co', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - ALVOS alter table APORDSERVICO_ALV add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_ALV before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_ALV
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_ALV:'||:OLD.ID_APORDSERVICO_ALV , 'alv', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - DETALHES alter table SV_OS_CONTRATO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SV_OS_CONTRATO before
INSERT OR UPDATE OR DELETE
ON SV_OS_CONTRATO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO:'||:OLD.ID_APORDSERVICO , 'de', sysdate,'D');
END IF;
END;
-- CONTRATO - SEQUENCIA alter table SV_CONTRATO_DE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SV_CONTRATO_DE before
INSERT OR UPDATE OR DELETE
ON SV_CONTRATO_DE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SV_CONTRATO_DE:'||:OLD.ID_SV_CONTRATO_DE , 'SCD', sysdate,'D');
END IF;
END;
-- RESPONSAVEL VS APONTAMENTO DIVERSO alter table AD_TIPO_MOB add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AD_TIPO_MOB before
INSERT OR UPDATE OR DELETE
ON AD_TIPO_MOB
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AD_TIPO_MOB:'||:OLD.ID_AD_TIPO_MOB , 'AD_TIPO_MOB', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA - AVALIAÇÃO alter table AV_AVALIA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA:'||:OLD.ID_AV_AVALIA , 'AV_AVALIA', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – AVALIAÇÃO VIGÊNCIA alter table AV_AVALIA_VG add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA_VG before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA_VG
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA_VG:'||:OLD.ID_AV_AVALIA_VG , 'AV_AVALIA_VG', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – AVALIAÇÃO OCUPAÇÃO alter table AV_AVALIA_OC add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA_OC before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA_OC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA_OC:'||:OLD.ID_AV_AVALIA_OC , 'AV_AVALIA_OC', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – AVALIAÇÃO CLASSIFICAÇÃO alter table AV_AVALIA_CL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA_CL before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA_CL
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA_CL:'||:OLD.ID_AV_AVALIA_CL , 'AV_AVALIA_CL', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – ORDEM APONTAMENTO alter table AV_AVALIA_OR add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA_OR before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA_OR
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA_OR:'||:OLD.ID_AV_AVALIA_OR , 'AV_AVALIA_OR', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – USUÁRIO MOBILE alter table AV_AVALIA_MOB add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_AVALIA_MOB before
INSERT OR UPDATE OR DELETE
ON AV_AVALIA_MOB
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_AVALIA_MOB:'||:OLD.ID_AV_AVALIA_MOB , 'AV_AVALIA_MOB', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – CADASTRO LOCAL AVALIAÇÃO alter table AV_APTO_LC add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_APTO_LC before
INSERT OR UPDATE OR DELETE
ON AV_APTO_LC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_APTO_LC:'||:OLD.ID_AV_APTO_LC , 'ALC', sysdate,'D');
END IF;
END;
-- AVALIAÇÃO DE LAVOURA – APTO CAD AVALIAÇÃO alter table AV_APTO_AVA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AV_APTO_AVA before
INSERT OR UPDATE OR DELETE
ON AV_APTO_AVA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AV_APTO_AVA:'||:OLD.ID_AV_APTO_AVA , 'AV_APTO_AVA', sysdate,'D');
END IF;
END;
-- CONVERSOR DE UNIDADE DE MEDIDAS alter table CONV_UNIMEDIDA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_CONV_UNIMEDIDA before
INSERT OR UPDATE OR DELETE
ON CONV_UNIMEDIDA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_CONV_UNIMEDIDA:'||:OLD.ID_CONV_UNIMEDIDA , 'CONV_UNIMEDIDA', sysdate,'D');
END IF;
END;
-- MUNICIPIO alter table MUNICIPIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_MUNICIPIO before
INSERT OR UPDATE OR DELETE
ON MUNICIPIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_MUNICIPIO:'||:OLD.ID_MUNICIPIO , 'M', sysdate,'D');
END IF;
END;
-- PONTO DE PREVISÃO alter table CM_PONTOPREV add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_CM_PONTOPREV before
INSERT OR UPDATE OR DELETE
ON CM_PONTOPREV
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_CM_PONTOPREV:'||:OLD.ID_CM_PONTOPREV , 'CM_PONTOPREV', sysdate,'D');
END IF;
END;
-- CONDIÇÕES DO TEMPO alter table CM_CONTEMPO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_CM_CONTEMPO before
INSERT OR UPDATE OR DELETE
ON CM_CONTEMPO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_CM_CONTEMPO:'||:OLD.ID_CM_CONTEMPO , 'CM_CONTEMPO', sysdate,'D');
END IF;
END;
-- DEPÓSITO alter table DEPOSITO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_DEPOSITO before
INSERT OR UPDATE OR DELETE
ON DEPOSITO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_DEPOSITO:'||:OLD.ID_DEPOSITO , 'DE', sysdate,'D');
END IF;
END;
-- APONTAMENTO AGRÍCOLA – TIPOS DE APONTAMENTO POR USUÁRIO alter table AU_TIPO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AU_TIPO before
INSERT OR UPDATE OR DELETE
ON AU_TIPO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AU_TIPO:'||:OLD.ID_AU_TIPO , 'TP', sysdate,'D');
END IF;
END;
-- APONTAMENTO AGRÍCOLA – CONFIGURAÇÃO DOS TIPOS DE APONTAMENTO alter table AU_TIPO_CPO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_AU_TIPO_CPO before
INSERT OR UPDATE OR DELETE
ON AU_TIPO_CPO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_AU_TIPO_CPO:'||:OLD.ID_AU_TIPO_CPO , 'TPC', sysdate,'D');
END IF;
END;
-- FILIAL alter table FILIAL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FILIAL before
INSERT OR UPDATE OR DELETE
ON FILIAL
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FILIAL:'||:OLD.ID_FILIAL , 'F', sysdate,'D');
END IF;
END;
-- TRATAMENTO DE SEMENTE - HEADER alter table APTRATSEMENT add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APTRATSEMENT before
INSERT OR UPDATE OR DELETE
ON APTRATSEMENT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APTRATSEMENT:'||:OLD.ID_APTRATSEMENT , 'A', sysdate,'D');
END IF;
END;
-- TRATAMENTO DE SEMENTE - INSUMOS alter table APTRATSEMENT_IN add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APTRATSEMENT_IN before
INSERT OR UPDATE OR DELETE
ON APTRATSEMENT_IN
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APTRATSEMENT_IN:'||:OLD.ID_APTRATSEMENT_IN , 'ATS', sysdate,'D');
END IF;
END;
-- SISTEMA DE PLANTIO VS OPERAÇÃO alter table SISTPLANTIO_OPER add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SISTPLANTIO_OPER before
INSERT OR UPDATE OR DELETE
ON SISTPLANTIO_OPER
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SISTPLANTIO_OPER:'||:OLD.ID_SISTPLANTIO_OPER , 'SO', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS RESTRIÇÕES METEOROLOGICAS -- RESTRIÇÃO METEREOLÓGICA alter table OPERACAO_RM add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAO_RM before
INSERT OR UPDATE OR DELETE
ON OPERACAO_RM
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO_RM:'||:OLD.ID_OPERACAO_RM , 'OPM', sysdate,'D');
END IF;
END;
-- OPERAÇÃO VS OPERAÇÃO ASSOCIADA alter table OPERACAOASSOC add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_OPERACAOASSOC before
INSERT OR UPDATE OR DELETE
ON OPERACAOASSOC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_OPERACAO:'||:OLD.ID_OPERACAO || '; ID_OPERACAO_ASSOC:' || OLD.ID_OPERACAO_ASSOC || '; ID_UNIDADEADM:' || :OLD.ID_UNIDADEADM, 'OPEASSOC', sysdate,'D');
END IF;
END;
-- INSUMO VS CULTURA OCUPAÇÃO alter table INSUMO_CULT add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_INSUMO_CULT before
INSERT OR UPDATE OR DELETE
ON INSUMO_CULT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_INSUMO_CULT:'||:OLD.ID_INSUMO_CULT, 'INSCUL', sysdate,'D');
END IF;
END;
-- PROCEDÊNCIA alter table PROCEDENCIA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_PROCEDENCIA before
INSERT OR UPDATE OR DELETE
ON PROCEDENCIA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_PROCEDENCIA:'||:OLD.ID_PROCEDENCIA, 'PROCEDENCIA', sysdate,'D');
END IF;
END;
-- FUNCIONÁRIO alter table FUNCIONAR add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FUNCIONAR before
INSERT OR UPDATE OR DELETE
ON FUNCIONAR
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FUNCIONAR:'||:OLD.ID_FUNCIONAR, 'FUNC', sysdate,'D');
END IF;
END;
-- FUNCIONÁRIO VS CLASSE PAGAMENTO alter table FUNCIONARCLASSE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FUNCIONARCLASSE before
INSERT OR UPDATE OR DELETE
ON FUNCIONARCLASSE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FUNCIONARCLASSE:'||:OLD.ID_FUNCIONARCLASSE, 'FUNCLAS', sysdate,'D');
END IF;
END;
TGB_MOBILE_EQUIPTO -- FUNCIONÁRIO VS EQUIPE alter table FUNCIONAREQUIPE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FUNCIONAREQUIPE before
INSERT OR UPDATE OR DELETE
ON FUNCIONAREQUIPE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FUNCIONAREQUIPE:'||:OLD.ID_FUNCIONAREQUIPE, 'FUNEQUI', sysdate,'D');
END IF;
END;
-- EQUIPAMENTO alter table EQUIPTO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EQUIPTO before
INSERT OR UPDATE OR DELETE
ON EQUIPTO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EQUIPTO:'||:OLD.ID_EQUIPTO, 'EQUIPTO', sysdate,'D');
END IF;
END;
-- ESTÁDIO VS OCUPAÇÃO -- AVALIAÇÃO DE LAVOURA – ESTADIO alter table ESTADIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_ESTADIO before
INSERT OR UPDATE OR DELETE
ON ESTADIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_ESTADIO:'||:OLD.ID_ESTADIO, 'EST', sysdate,'D');
END IF;
END;
-- TIPO DE APLICAÇÃO alter table TIPOAPLICACAO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_TIPOAPLICACAO before
INSERT OR UPDATE OR DELETE
ON TIPOAPLICACAO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_TIPOAPLICACAO:'||:OLD.ID_TIPOAPLICACAO, 'TIPOAPLICACAO', sysdate,'D');
END IF;
END;
-- SISTEMA DE APLICAÇÃO alter table SISTAPLICACAO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SISTAPLICACAO before
INSERT OR UPDATE OR DELETE
ON SISTAPLICACAO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SISTAPLICACAO:'||:OLD.ID_SISTAPLICACAO, 'SISTAPLICACAO', sysdate,'D');
END IF;
END;
-- TIPO DE BICO PULVERIZADOR alter table BICOPULVERIZ add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_BICOPULVERIZ before
INSERT OR UPDATE OR DELETE
ON BICOPULVERIZ
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_BICOPULVERIZ:'||:OLD.ID_BICOPULVERIZ, 'BICOPULVERIZ', sysdate,'D');
END IF;
END;
-- VARIEDADE alter table VARIEDADE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_VARIEDADE before
INSERT OR UPDATE OR DELETE
ON VARIEDADE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_VARIEDADE:'||:OLD.ID_VARIEDADE, 'VARIEDADE', sysdate,'D');
END IF;
END;
-- VARIEDADE VS INSUMOS alter table VARIEDADE_INS add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_VARIEDADE_INS before
INSERT OR UPDATE OR DELETE
ON VARIEDADE_INS
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_VARIEDADE_INS:'||:OLD.ID_VARIEDADE_INS, 'VI', sysdate,'D');
END IF;
END;
-- HORÁRIO alter table MDO_HORARIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_MDO_HORARIO before
INSERT OR UPDATE OR DELETE
ON MDO_HORARIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_MDO_HORARIO:'||:OLD.ID_MDO_HORARIO, 'HOR', sysdate,'D');
END IF;
END;
-- DISPONIBILIDADE FUNCIONÁRIO alter table FUNCIONARDISP add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FUNCIONARDISP before
INSERT OR UPDATE OR DELETE
ON FUNCIONARDISP
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FUNCIONARDISP:'||:OLD.ID_FUNCIONARDISP, 'FD', sysdate,'D');
END IF;
END;
-- FUNCIONÁRIO VS HORÁRIO alter table FUNCIONARHR add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FUNCIONARHR before
INSERT OR UPDATE OR DELETE
ON FUNCIONARHR
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FUNCIONARHR:'||:OLD.ID_FUNCIONARHR, 'FUNCIONARHR', sysdate,'D');
END IF;
END;
-- MODELO alter table MODELO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_MODELO before
INSERT OR UPDATE OR DELETE
ON MODELO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_MODELO:'||:OLD.ID_MODELO, 'MODEL', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO – INSUMOS POR LOCAIS HE alter table APORDSERVICO_INS_LC add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_INS_LC before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_INS_LC
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_INS_LC:'||:OLD.ID_APORDSERVICO_INS_LC, 'APORDSERVICO_INS_LC', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO – INSUMOS POR LOCAIS DE alter table APORDSERVICO_INS_LC_DE add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERV_INS_LC_DE before
INSERT OR UPDATE OR DELETE
ON APORDSERVICO_INS_LC_DE
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APORDSERVICO_INS_LC_DE:'||:OLD.ID_APORDSERVICO_INS_LC_DE, 'APTO', sysdate,'D');
END IF;
END;
-- SISTEMA DE CULTIVO alter table SISTCULTIVO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SISTCULTIVO before
INSERT OR UPDATE OR DELETE
ON SISTCULTIVO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SISTCULTIVO:'||:OLD.ID_SISTCULTIVO, 'SISTCULTIVO', sysdate,'D');
END IF;
END;
-- SISTEMA DE PLANTIO alter table SISTPLANTIO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_SISTPLANTIO before
INSERT OR UPDATE OR DELETE
ON SISTPLANTIO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_SISTPLANTIO:'||:OLD.ID_SISTPLANTIO, 'SISTPLANTIO', sysdate,'D');
END IF;
END;
-- ESPAÇAMENTO alter table ESPACAMENTO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_ESPACAMENTO before
INSERT OR UPDATE OR DELETE
ON ESPACAMENTO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_ESPACAMENTO:'||:OLD.ID_ESPACAMENTO, 'ESPACAMENTO', sysdate,'D');
END IF;
END;
-- EVENTO DA PLANTA – SITUAÇÃO ANTERIOR alter table EVENTO_PLANTA_SIT add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EVENTO_PLANTA_SIT before
INSERT OR UPDATE OR DELETE
ON EVENTO_PLANTA_SIT
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EVENTO_PLANTA_SIT:'||:OLD.ID_EVENTO_PLANTA_SIT, 'EVENTO_PLANTA_SIT', sysdate,'D');
END IF;
END;
-- APTO. EVENTOS EM PLANTAS - HE alter table APEVPLANTA_LP add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APEVPLANTA_LP before
INSERT OR UPDATE OR DELETE
ON APEVPLANTA_LP
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APEVPLANTA_LP:'||:OLD.ID_APEVPLANTA_LP, 'APEVPLANTA_LP', sysdate,'D');
END IF;
END;
-- APTO. EVENTOS EM PLANTAS - DE alter table APEVPLANTA_LP_LNHP add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APEVPLANTA_LP_LNHP before
INSERT OR UPDATE OR DELETE
ON APEVPLANTA_LP_LNHP
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_APEVPLANTA_LP_LNHP:'||:OLD.ID_APEVPLANTA_LP_LNHP, 'DEEVEP', sysdate,'D');
END IF;
END;
-- EVENTO DA PLANTA alter table EVENTO_PLANTA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EVENTO_PLANTA before
INSERT OR UPDATE OR DELETE
ON EVENTO_PLANTA
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EVENTO_PLANTA:'||:OLD.ID_EVENTO_PLANTA, 'EVEPL', sysdate,'D');
END IF;
END;
-- TALHAO FISICO VS LINHA DE PLANTIO -- TALHÃO FÍSICO alter table UPN3_FISICO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_UPN3_FISICO before
INSERT OR UPDATE OR DELETE
ON UPN3_FISICO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_UPN3_FISICO:'||:OLD.ID_UPN3_FISICO, 'UP3FI', sysdate,'D');
END IF;
END;
-- GRUPO OPERATIVO alter table GRPOPERATIVO add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_GRPOPERATIVO before
INSERT OR UPDATE OR DELETE
ON GRPOPERATIVO
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_GRPOPERATIVO:'||:OLD.ID_GRPOPERATIVO, 'GRPOPERATIVO', sysdate,'D');
END IF;
END;
-- FITOSSANIDADE VS INSUMOS alter table FITOSSANID_INS add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FITOSSANID_INS before
INSERT OR UPDATE OR DELETE
ON FITOSSANID_INS
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_FITOSSANID_INS:'||:OLD.ID_FITOSSANID_INS, 'FITOSSANID_INS', sysdate,'D');
END IF;
END;
-- DISPONIBILIDADE EQUIPAMENTO alter table EQUIPTODISP add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_EQUIPTODISP before
INSERT OR UPDATE OR DELETE
ON EQUIPTODISP
FOR EACH ROW
BEGIN
IF(updating OR inserting) THEN
:NEW.MOB_LASTUPDATE := sysdate;
ELSE
INSERT
INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS)
VALUES('ID_EQUIPTODISP:'||:OLD.ID_EQUIPTODISP, 'ED', sysdate,'D');
END IF;
END;
-- ORDEM DE SERVIÇO - CONDIÇÃO DO TEMPO alter table APORDSERVICO_FAIXA add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_APORDSERVICO_FAIXA before INSERT OR UPDATE OR DELETE ON APORDSERVICO_FAIXA FOR EACH ROW BEGIN IF(updating OR inserting) THEN :NEW.MOB_LASTUPDATE := sysdate; ELSE INSERT INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS) VALUES('ID_APORDSERVICO_FAIXA:'||:OLD.ID_APORDSERVICO_FAIXA , 'APORDSERVICO_FAIXA', sysdate,'D'); END IF; END;
-- DEFINIÇÃO DA FAIXA DE VALORES alter table DEF_FAIXAVAL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_DEF_FAIXAVAL before INSERT OR UPDATE OR DELETE ON DEF_FAIXAVAL FOR EACH ROW BEGIN IF(updating OR inserting) THEN :NEW.MOB_LASTUPDATE := sysdate; ELSE INSERT INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS) VALUES('ID_DEF_FAIXAVAL:'||:OLD.ID_DEF_FAIXAVAL , 'DEF_FAIXAVAL', sysdate,'D'); END IF; END;
-- FAIXA DE VALORES alter table FAIXAVAL add (MOB_LASTUPDATE DATE);
create or replace trigger TGB_MOBILE_FAIXAVAL before INSERT OR UPDATE OR DELETE ON FAIXAVAL FOR EACH ROW BEGIN IF(updating OR inserting) THEN :NEW.MOB_LASTUPDATE := sysdate; ELSE INSERT INTO MOBCONTROLREG(IDENTIFICACAO,TABELA,LASTUPDATE,MOBSTATUS) VALUES('ID_FAIXAVAL:'||:OLD.ID_FAIXAVAL , 'FAIXAVAL', sysdate,'D'); END IF; END; | 