Soporte de Tecnología

SET SERVEROUTPUT ON;

DECLARE
ivaNuevo NUMBER := ${IVA_A_APLICAR};
impivaNuevo NUMBER := ${IMPORTE_IVA};
imptotNuevo NUMBER := ${IMPORTE_TOTAL};
numalbgBuscar VARCHAR2(20) := '${NUMALBG_A_MODIFICAR}';
BEGIN
 UPDATE FACTURAS SET iva = ivaNuevo, impiva = impivaNuevo, imptot = imptotNuevo WHERE numalbg = numalbgBuscar;
 dbms_output.put_line('Actualizado correctamente. Filas actualizadas: ' || SQL%rowcount);

-- Descomentar COMMIT
 --ROLLBACK;
--	COMMIT;

EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
        dbms_output.put_line('Hecho rollback' );
        DBMS_OUTPUT.put_line('Error:'||TO_CHAR(SQLCODE));
        DBMS_OUTPUT.put_line(SQLERRM);
END;