expsigladb.Trigger.bd_fattura_attiva_intra.trg Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of sigla-backend Show documentation
There is a newer version: 6.6.11
CREATE OR REPLACE TRIGGER BD_FATTURA_ATTIVA_INTRA
BEFORE Delete
On FATTURA_ATTIVA_INTRA
For each row
WHEN (
old.FL_INVIATO = 'Y' And old.nr_protocollo Is Not Null
      )
Declare
   aOldRowtype fattura_attiva_intra%rowtype;
Begin
   --
   -- Trigger attivato su cancellazione della tabella FATTURA_ATTIVA_INTRA (Before)
   --
   -- Date: 01/06/2010
   -- Version: 1.0
   --
   -- Dependency: CNRSTO080
   --
   -- History:
   --
   -- Version: 1.0
   -- Creazione
   --

 If :old.id_cpa Is Not Null  Then
  aOldRowtype.CD_CDS                    := :Old.CD_CDS;
  aOldRowtype.CD_UNITA_ORGANIZZATIVA    := :Old.CD_UNITA_ORGANIZZATIVA;
  aOldRowtype.ESERCIZIO                 := :Old.ESERCIZIO;
  aOldRowtype.PG_FATTURA_ATTIVA         := :Old.PG_FATTURA_ATTIVA;
  aOldRowtype.PG_RIGA_INTRA             := :Old.PG_RIGA_INTRA;
  aOldRowtype.PG_NAZIONE_DESTINAZIONE   := :Old.PG_NAZIONE_DESTINAZIONE;
  aOldRowtype.DACR                      := :Old.DACR;
  aOldRowtype.UTCR                      := :Old.UTCR;
  aOldRowtype.DUVA                      := :Old.DUVA;
  aOldRowtype.UTUV                      := :Old.UTUV;
  aOldRowtype.PG_VER_REC                := :Old.PG_VER_REC;
  aOldRowtype.FL_INVIATO                := 'N';
  aOldRowtype.nr_protocollo             := :Old.nr_protocollo;
  aOldRowtype.nr_progressivo            := :Old.nr_progressivo;
 Else
  aOldRowtype.CD_CDS                    := :Old.CD_CDS;
  aOldRowtype.CD_UNITA_ORGANIZZATIVA    := :Old.CD_UNITA_ORGANIZZATIVA;
  aOldRowtype.ESERCIZIO                 := :Old.ESERCIZIO;
  aOldRowtype.PG_FATTURA_ATTIVA         := :Old.PG_FATTURA_ATTIVA;
  aOldRowtype.PG_RIGA_INTRA             := :Old.PG_RIGA_INTRA;
  aOldRowtype.AMMONTARE_EURO            := :Old.AMMONTARE_EURO;
  aOldRowtype.ID_NATURA_TRANSAZIONE     := :Old.ID_NATURA_TRANSAZIONE;
  aOldRowtype.ID_NOMENCLATURA_COMBINATA := :Old.ID_NOMENCLATURA_COMBINATA;
  aOldRowtype.MASSA_NETTA               := :Old.MASSA_NETTA;
  aOldRowtype.UNITA_SUPPLEMENTARI       := :Old.UNITA_SUPPLEMENTARI;
  aOldRowtype.VALORE_STATISTICO         := :Old.VALORE_STATISTICO;
  aOldRowtype.ESERCIZIO_COND_CONSEGNA   := :Old.ESERCIZIO_COND_CONSEGNA;
  aOldRowtype.CD_INCOTERM               := :Old.CD_INCOTERM;
  aOldRowtype.ESERCIZIO_MOD_TRASPORTO   := :Old.ESERCIZIO_MOD_TRASPORTO;
  aOldRowtype.CD_MODALITA_TRASPORTO     := :Old.CD_MODALITA_TRASPORTO;
  aOldRowtype.PG_NAZIONE_DESTINAZIONE   := :Old.PG_NAZIONE_DESTINAZIONE;
  aOldRowtype.CD_PROVINCIA_ORIGINE      := :Old.CD_PROVINCIA_ORIGINE;
  aOldRowtype.DS_BENE                   := :Old.DS_BENE;
  aOldRowtype.ID_CPA                    := :Old.ID_CPA;
  aOldRowtype.ESERCIZIO_MOD_INCASSO     := :Old.ESERCIZIO_MOD_INCASSO;
  aOldRowtype.CD_MODALITA_INCASSO       := :Old.CD_MODALITA_INCASSO;
  aOldRowtype.ESERCIZIO_MOD_EROGAZIONE  := :Old.ESERCIZIO_MOD_EROGAZIONE;
  aOldRowtype.CD_MODALITA_EROGAZIONE    := :Old.CD_MODALITA_EROGAZIONE;
  aOldRowtype.DACR                      := :Old.DACR;
  aOldRowtype.UTCR                      := :Old.UTCR;
  aOldRowtype.DUVA                      := :Old.DUVA;
  aOldRowtype.UTUV                      := :Old.UTUV;
  aOldRowtype.PG_VER_REC                := :Old.PG_VER_REC;
  aOldRowtype.FL_INVIATO                := 'N';
  aOldRowtype.nr_protocollo             := :Old.nr_protocollo;
  aOldRowtype.nr_progressivo            := :Old.nr_progressivo;
 End If;
   -- Scarico dello storico
   CNRSTO080.sto_FATTURA_ATTIVA_INTRA(:old.PG_VER_REC+1, aOldRowType);
end;
/