Notes

-- TODO: verificare il CODICERAPPORTOCONSULENZA / PFPRAP Recuperato dal PFP Contratto messo uguale
-- a tutti i rapporti del cliente
DECLARE
CURSOR popolaRapporto IS
SELECT
*
FROM
tmp_pfprap_03069;
I NUMBER(38,0);
BEGIN
I :=0;
FOR cur_item IN popolaRapporto
LOOP
I := I+1;
MERGE
INTO
rapporto a1
USING
(
SELECT
cur_item.GENERATED_NDG AS NDG,
cur_item.BANCA AS CODICEBANCA,
cur_item.GENERATED_CODICERAPPORTO AS CODICERAPPORTO,
cur_item.C_TIPO AS TIPO,
cur_item.C_SOTTOTIPO AS SOTTOTIPO,
cur_item.C_STATO AS STATO,
cur_item.D_APERTURA AS DATAINIZIO,
cur_item.D_CHIUSURA AS DATAFINE,
cur_item.C_FILIALE AS CODICEAGENZIA,
cur_item.D_APERTURA AS DATAACCENSIONE,
cur_item.D_CHIUSURA AS DATAESTINZIONE,
cur_item.REGIME_FISCALE AS REGIMEFIS
FROM
dual) a
ON
(
a1.ndg= a.ndg
AND a1.CODICERAPPORTO = a.CODICERAPPORTO)
WHEN MATCHED
THEN
UPDATE
SET
a1.CODICEBANCA= a.CODICEBANCA,
a1.TIPO= a.TIPO,
a1.SOTTOTIPO= a.SOTTOTIPO,
a1.STATO= a.STATO,
a1.DATAINIZIO= a.DATAINIZIO,
a1.DATAFINE= a.DATAFINE,
a1.CODICEAGENZIA= a.CODICEAGENZIA,
a1.DATAACCENSIONE= a.DATAACCENSIONE
WHEN NOT MATCHED
THEN
INSERT
(
NDG,
CODICEBANCA,
CODICERAPPORTO,
TIPO,
SOTTOTIPO,
STATO,
DATAINIZIO,
DATAFINE,
CODICEAGENZIA,
DATAACCENSIONE
)
VALUES
(
a.NDG,
a.CODICEBANCA,
a.CODICERAPPORTO,
a.TIPO,
a.SOTTOTIPO,
a.STATO,
a.DATAINIZIO,
a.DATAFINE,
a.CODICEAGENZIA,
a.DATAACCENSIONE
);
IF MOD(I,10000) = 0 THEN
COMMIT;
END IF;
END LOOP;
COMMIT;
END;