--cade/lanzascripts.sh update/AD74A_correcion_fResolucion DRP


DECLARE
    -- Cursor para la/s entrada/s
	--Script para poner las fechas de resolución que no se han grabado correctamente con la fecha realización del tramite de resolución (Concesión, denegación y denegación servicio)
    CURSOR centradas IS
    SELECT
        t2.id_expediente_00,
        t1.f_realizacion_10,
        t2.f_resolucion_00
    FROM
        tramites_expediente t1
        LEFT JOIN expedientes         t2 ON ( t1.id_expediente_10 = t2.id_expediente_00 )
    WHERE
        t2.f_resolucion_00 IS NULL
        AND t2.f_alta_00 > TO_DATE('12/01/2025','dd/MM/yyyy')
        AND t1.id_tramite_10 IN ( 12, 15, 22 );

     nRegistros   NUMBER;

BEGIN
	
    nRegistros:=0;
    FOR r IN centradas LOOP
        BEGIN
			DBMS_OUTPUT.PUT_LINE('f_realizacion_10: ' || r.f_realizacion_10 || ' --- f_resolucion_00: ' || r.f_resolucion_00 || ' -- r.id_expediente_00: ' || r.id_expediente_00);            
           
           UPDATE expedientes u1
            SET
                u1.f_resolucion_00 = r.f_realizacion_10
            WHERE
                u1.id_expediente_00 = r.id_expediente_00;
				
				nRegistros:= nRegistros + SQL%rowcount;
        END;
    END LOOP;
	DBMS_OUTPUT.PUT_LINE('Nº registros actualizados ' || nRegistros); 
	
    COMMIT;
END;

/
