fixes bug#AL-4214

src/db/backup/oracle/V20240808_1749__AL-4214.sql

@@ -0,0 +1,39 @@
+DECLARE
+  dup_val_on_index  EXCEPTION;
+  except_02291  EXCEPTION;
+
+  PRAGMA EXCEPTION_INIT(dup_val_on_index, -00001);
+  PRAGMA EXCEPTION_INIT(except_02291, -02291);
+
+BEGIN
+
+  BEGIN
+    EXECUTE IMMEDIATE 'ALTER TABLE tipo_evento_extra ADD (indquantviasimprimir NUMBER(1) DEFAULT 1)';
+  EXCEPTION
+    WHEN dup_val_on_index THEN
+      DBMS_OUTPUT.PUT_LINE('A coluna QUANTIDADEVIASIMPRIMIR já existe.');
+    WHEN OTHERS THEN
+      RAISE;
+  END;
+
+
+  BEGIN
+    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 1';
+  EXCEPTION
+    WHEN except_02291 THEN
+      DBMS_OUTPUT.PUT_LINE('Erro ao atualizar valores padrão.');
+    WHEN OTHERS THEN
+      RAISE;
+  END;
+
+  -- Ajusta o valor da coluna para 2 nos casos específicos de "Vale Cobrador" e "Sangria" RETRO para os CARDS: AL-3449 e AL-2817
+  BEGIN
+    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 2 WHERE desctipoevento IN (''VALE COBRADOR'', ''SANGRIA'')';
+  EXCEPTION
+    WHEN except_02291 THEN
+      DBMS_OUTPUT.PUT_LINE('Erro ao ajustar valores para "Vale Cobrador" e "Sangria".');
+    WHEN OTHERS THEN
+      RAISE;
+  END;
+END;
+/