21 lines
752 B
MySQL
21 lines
752 B
MySQL
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;
|
|
/ |