zentral/docs/procedures/EVENTI_COPIA.md

# EVENTI_COPIA

## Codice Sorgente

```sql
PROCEDURE eventi_copia (
    id_evento_old  IN NUMBER,
    nuova_versione IN NUMBER DEFAULT 0,
    id_evento_new  OUT NUMBER
) AS
    r_evento     eventi%rowtype;
    v_new_evt_id eventi.id%TYPE;
BEGIN
    SELECT
        *
    INTO r_evento
    FROM
        eventi
    WHERE
        id = id_evento_old;

    r_evento.id := NULL;
    r_evento.is_template := 0;
    IF nuova_versione = 1 THEN
        r_evento.id_evt_padre := id_evento_old;
        r_evento.vers_number := nvl(r_evento.vers_number, 0) + 1; -- aggiorno il numero versione
    ELSE
        r_evento.id_evt_padre := NULL;
        r_evento.vers_number := 0;
    END IF;

    -- Copio l'evento facendo creare il nuovo id dal trigger
    INSERT INTO eventi VALUES r_evento RETURNING id INTO v_new_evt_id;

    IF nuova_versione = 1 THEN
        -- Aggiorno il vecchio evento col nuovo id
        UPDATE eventi
        SET
            id_evt_figlio = v_new_evt_id
        WHERE
            id = id_evento_old;

    END IF;

    COMMIT;

    -- Aggiungo i figli alla nuova versione
    -- Degustazioni
    INSERT INTO eventi_det_degust (
        id_evento,
        data,
        ora,
        nome,
        telefono,
        email,
        location,
        n_persone,
        menu,
        n_paganti,
        note,
        n_degustazione,
        consumata,
        costo_degustazione
    )
        SELECT
            v_new_evt_id,
            data,
            ora,
            nome,
            telefono,
            email,
            location,
            n_persone,
            menu,
            n_paganti,
            note,
            n_degustazione,
            consumata,
            costo_degustazione
        FROM
            eventi_det_degust
        WHERE
            id_evento = id_evento_old;

    -- Ospiti
    -- Devo fare una update... DIO TRIGGER
    FOR c IN (
        SELECT
            id_evento,
            cod_tipo_ospite,
            numero,
            note
        FROM
            eventi_det_ospiti
        WHERE
            id_evento = id_evento_old
    ) LOOP
        UPDATE eventi_det_ospiti
        SET
            numero = c.numero,
            note = c.note
        WHERE
                id_evento = v_new_evt_id
            AND cod_tipo_ospite = c.cod_tipo_ospite;

    END LOOP;
    -- insert into eventi_det_ospiti (ID_EVENTO, COD_TIPO_OSPITE, NUMERO, NOTE)
    -- select v_new_evt_id, COD_TIPO_OSPITE, NUMERO, NOTE
    -- from eventi_det_ospiti
    -- where id_evento = ID_EVENTO_OLD;

    -- Prelievi
    /* COME DA RICHIESTA DEL 01/2024 NON COPIO LA LISTA PRELIEVO NELLA NUOVA VERSIONE */
    /* RIATTIVO NUOVAMENTE LA COPIA IL 12/02/2024 */
    INSERT INTO eventi_det_prel (
        id_evento,
        cod_articolo,
        qta,
        note,
        qta_ape,
        qta_sedu,
        qta_bufdol,
        qta_man_ape,
        qta_man_sedu,
        qta_man_bufdol,
        costo_articolo
    )
        SELECT
            v_new_evt_id,
            cod_articolo,
            qta,
            note,
            qta_ape,
            qta_sedu,
            qta_bufdol,
            qta_man_ape,
            qta_man_sedu,
            qta_man_bufdol,
            costo_articolo
        FROM
            eventi_det_prel
        WHERE
            id_evento = id_evento_old;

    -- Risorse
    INSERT INTO eventi_det_ris (
        id_evento,
        id_risorsa,
        ore_lav,
        costo,
        note
    )
        SELECT
            v_new_evt_id,
            id_risorsa,
            ore_lav,
            costo,
            note
        FROM
            eventi_det_ris
        WHERE
            id_evento = id_evento_old;

    -- Costi
    INSERT INTO eventi_acconti (
        data,
        acconto,
        id_evento,
        a_conferma,
        ordine,
        descrizione
    )
        SELECT
            data,
            acconto,
            v_new_evt_id,
            a_conferma,
            ordine,
            descrizione
        FROM
            eventi_acconti
        WHERE
            id_evento = id_evento_old;

    -- Altri Costi
    INSERT INTO eventi_altricosti (
        id_evento,
        descrizione,
        costo,
        quantity
    )
        SELECT
            v_new_evt_id,
            descrizione,
            costo,
            quantity
        FROM
            eventi_altricosti
        WHERE
            id_evento = id_evento_old;

    -- Carico il nuovo id nella pagina
    id_evento_new := v_new_evt_id;
EXCEPTION
    WHEN OTHERS THEN
        DELETE FROM eventi
        WHERE
            id = v_new_evt_id;

        COMMIT;
        raise_application_error(-20001, sqlcode
                                        || ' - '
                                        || sqlerrm);
END eventi_copia;```