fixes bug#8098

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@61547 d1611594-4594-4d17-8e1d-87c2c4800839

src/db/migration/V20161013_1159__mantis8098.sql

@@ -0,0 +1,21 @@
+DECLARE
+   type namesarray IS VARRAY(13) OF VARCHAR2(20);
+   
+   names namesarray;
+   total integer;
+   existe integer;
+BEGIN
+   names := namesarray('OCA', 'VISA', 'MASTERCARD', 'AMERICAN EXPRESS', 'CABAL', 'CREDITOS DIRECTOS','ANDA', 'CREDITEL', 'PASS CARD', 'DINERS', 'CLUB DEL ESTE', 'CTC', 'ASI');
+   
+   total := names.count;
+   
+   FOR i in 1 .. total LOOP
+      select count(*) into existe from tarjeta_credito where DESCTARJETACREDITO = names(i);
+      if existe = 0 then
+        
+        INSERT INTO TARJETA_CREDITO (TARJETACREDITO_ID,DESCTARJETACREDITO,CANTMAXSINTASA,CANMAXCONTASA,TASA,ACTIVO,FECMODIF,USUARIO_ID)
+        VALUES (TARJETA_CREDITO_seq.nextval,names(i),1,1,1,1,sysdate,-1);
+      end if;
+   END LOOP;
+END;
+/