fixes bug#AL-4214

pom.xml

@@ -4,7 +4,7 @@
     <modelVersion>4.0.0</modelVersion>
     <groupId>br.com.rjconsultores</groupId>
     <artifactId>Flyway</artifactId>    
-	 <version>1.79.1</version> 
+	 <version>1.79.2</version> 
 
 	<distributionManagement>
         <repository>

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

@@ -4,36 +4,42 @@ DECLARE
 
   PRAGMA EXCEPTION_INIT(dup_val_on_index, -00001);
   PRAGMA EXCEPTION_INIT(except_02291, -02291);
-
+  col_exists NUMBER := 0;
 BEGIN
 	
-  BEGIN
+  SELECT COUNT(*) INTO col_exists FROM all_tab_columns
-    EXECUTE IMMEDIATE 'ALTER TABLE tipo_evento_extra ADD (indquantviasimprimir NUMBER(1) DEFAULT 1)';
+  WHERE table_name = 'TIPO_EVENTO_EXTRA'
-  EXCEPTION
+  AND column_name = 'INDQUANTVIASIMPRIMIR';
-    WHEN dup_val_on_index THEN
+  
-      DBMS_OUTPUT.PUT_LINE('A coluna QUANTIDADEVIASIMPRIMIR já existe.');
+	IF col_exists = 0 THEN
-    WHEN OTHERS THEN
+	  BEGIN
-      RAISE;
+	    EXECUTE IMMEDIATE 'ALTER TABLE tipo_evento_extra ADD (indquantviasimprimir NUMBER(1) DEFAULT 1)';
-  END;
+	  EXCEPTION
+	    WHEN dup_val_on_index THEN
+	      DBMS_OUTPUT.PUT_LINE('A coluna QUANTIDADEVIASIMPRIMIR já existe.');
+	    WHEN OTHERS THEN
+	      RAISE;
+	  END;
 	
 	
-  BEGIN
+	  BEGIN
-    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 1';
+	    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 1';
-  EXCEPTION
+	  EXCEPTION
-    WHEN except_02291 THEN
+	    WHEN except_02291 THEN
-      DBMS_OUTPUT.PUT_LINE('Erro ao atualizar valores padrão.');
+	      DBMS_OUTPUT.PUT_LINE('Erro ao atualizar valores padrão.');
-    WHEN OTHERS THEN
+	    WHEN OTHERS THEN
-      RAISE;
+	      RAISE;
-  END;
+	  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
+	  -- 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
+	  BEGIN
-    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 2 WHERE desctipoevento IN (''VALE COBRADOR'', ''SANGRIA'')';
+	    EXECUTE IMMEDIATE 'UPDATE tipo_evento_extra SET indquantviasimprimir = 2 WHERE desctipoevento IN (''VALE COBRADOR'', ''SANGRIA'')';
-  EXCEPTION
+	  EXCEPTION
-    WHEN except_02291 THEN
+	    WHEN except_02291 THEN
-      DBMS_OUTPUT.PUT_LINE('Erro ao ajustar valores para "Vale Cobrador" e "Sangria".');
+	      DBMS_OUTPUT.PUT_LINE('Erro ao ajustar valores para "Vale Cobrador" e "Sangria".');
-    WHEN OTHERS THEN
+	    WHEN OTHERS THEN
-      RAISE;
+	      RAISE;
-  END;
+	  END;
+  	END IF;
 END;
 /