Si, es así.
Hoy me encontré con la necesidad de tener que habilitar y desabilitar los triggers de unas tablas ya que tenia que usar una sentencia ALTER para agregar algunas columnas con un default, y por supuesto cuando hacia el update del default, saltaba el trigger que controlaba los updates sobre dicha tabla y fallaba todo. Y encima, eran varios.
En fin, los "ingredientes" que usé fueron los siguientes:
La funcion sys_context.
bulk collect.
execute immediate.
Sobra la primera no voy a ahondar mucho, pero nos devuelve el esquema al que estamos conectamos.
El bulk collect nos permite leer varios registros en una tabla de pl con un único acceso a tarves de dicha instrucción. (eso nos cuenta devjoker)
El execute immediate ejecuta una sentencia sql dinamica.
El bloque pl mas o menos es así:
declare
type triggers_rt is record(trigger_name all_triggers.trigger_name%type);
type triggers_tt is table of triggers_rt index by pls_integer;
v_enabled_triggers triggers_tt;
v_owner varchar2(30) := sys_context('USERENV', 'CURRENT_SCHEMA');
v_sql varchar2(2048);
begin
select trigger_name
bulk collect into v_enabled_triggers
from all_triggers
where owner = v_owner
and table_name = 'COL_SUBTIPOS_GARANTIAS_MOVI'
and status = 'ENABLED';
if v_enabled_triggers.first is not null then
for i in v_enabled_triggers.first .. v_enabled_triggers.last loop
begin
v_sql := 'ALTER TRIGGER' ||v_enabled_triggers(i).trigger_name||' DISABLE';
DBMS_OUTPUT.PUT_LINE('ALTER_TABLE: Disabling trigger '||v_enabled_triggers(i).trigger_name);
execute immediate v_sql;
exception
when OTHERS then
DBMS_OUTPUT.PUT_LINE('ALTER_TABLE: Error while running: '||v_sql);
end;
end loop;
end if;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR: '||SQLERRM);
END;
/
En definitiva eso desactivará los triggers de esa tabla sin tener que explicitar toda la sentencia alter para cada trigger de la tabla.
En definitiva, espero que les sea útil.
Marianittens.
miércoles, 22 de diciembre de 2010
viernes, 17 de diciembre de 2010
Record, Vectores y demas....
En este ejemplo tenemos manejos de un TABLE manejado con regiustros y luego manejado por cursor.
Saludos.
PROCEDURE martin_prueba
IS
CURSOR C_cursor IS
SELECT CAPU_CD_PRODUCTO,
CAPU_CARP_CD_RAMO,
CAPU_DE_PRODUCTO,
CAPU_NU_DURACION_CONTRATO,
CAPU_IN_RECALCULO_RECARGO
FROM CART_PRODUCTOS
WHERE ROWNUM<20
ORDER BY CAPU_CD_PRODUCTO ASC;
TYPE ty_cursor is record ( CAPU_CD_PRODUCTO CART_PRODUCTOS.CAPU_CD_PRODUCTO%TYPE,
CAPU_CARP_CD_RAMO CART_PRODUCTOS.CAPU_CARP_CD_RAMO%TYPE,
CAPU_DE_PRODUCTO CART_PRODUCTOS.CAPU_DE_PRODUCTO%TYPE,
CAPU_NU_DURACION_CONTRATO CART_PRODUCTOS.CAPU_NU_DURACION_CONTRATO%TYPE,
CAPU_IN_RECALCULO_RECARGO CART_PRODUCTOS.CAPU_IN_RECALCULO_RECARGO%TYPE
);
TYPE array_cursor IS TABLE OF C_cursor%ROWTYPE INDEX BY BINARY_INTEGER;
TYPE tb_cursor IS TABLE OF ty_cursor INDEX BY BINARY_INTEGER;
tcursor tb_cursor;
tcursor_array_cursor array_cursor;
i number(10) :=0;
-- q C_cursor;
begin
i:=1;
for q in C_cursor loop
--Aca cargo el record
tcursor(i).CAPU_CD_PRODUCTO:=q.CAPU_CD_PRODUCTO;
tcursor(i).CAPU_CARP_CD_RAMO:=q.CAPU_CARP_CD_RAMO;
tcursor(i).CAPU_DE_PRODUCTO:=q.CAPU_DE_PRODUCTO;
tcursor(i).CAPU_NU_DURACION_CONTRATO:=q.CAPU_NU_DURACION_CONTRATO;
tcursor(i).CAPU_IN_RECALCULO_RECARGO:=q.CAPU_IN_RECALCULO_RECARGO;
--Aca cargo el record
--Aca cargo el table del cursor
tcursor_array_cursor(i).CAPU_CD_PRODUCTO:=q.CAPU_CD_PRODUCTO;
tcursor_array_cursor(i).CAPU_CARP_CD_RAMO:=q.CAPU_CARP_CD_RAMO;
tcursor_array_cursor(i).CAPU_DE_PRODUCTO:=q.CAPU_DE_PRODUCTO;
tcursor_array_cursor(i).CAPU_NU_DURACION_CONTRATO:=q.CAPU_NU_DURACION_CONTRATO;
tcursor_array_cursor(i).CAPU_IN_RECALCULO_RECARGO:=q.CAPU_IN_RECALCULO_RECARGO;
--Aca cargo el table del cursor
i:=i+1;
end loop;
--Esto es usando el cursor y el record--
FOR i IN tcursor.FIRST .. tcursor.LAST LOOP
DBMS_OUTPUT.PUT_LINE('CAPU_CD_PRODUCTO=' || TCURSOR(i).CAPU_CD_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_CARP_CD_RAMO=' || TCURSOR(i).CAPU_CARP_CD_RAMO);
DBMS_OUTPUT.PUT_LINE('CAPU_DE_PRODUCTO=' || TCURSOR(i).CAPU_DE_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_NU_DURACION_CONTRATO=' || TCURSOR(i).CAPU_NU_DURACION_CONTRATO);
DBMS_OUTPUT.PUT_LINE('CAPU_IN_RECALCULO_RECARGO=' || TCURSOR(i).CAPU_IN_RECALCULO_RECARGO);
END LOOP;
--Esto es usando el cursor y el record--
--Esto es usando el cursor y el table of del cursor--
FOR i IN tcursor_array_cursor.FIRST .. tcursor_array_cursor.LAST LOOP
DBMS_OUTPUT.PUT_LINE('CAPU_CD_PRODUCTO=' || tcursor_array_cursor(i).CAPU_CD_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_CARP_CD_RAMO=' || tcursor_array_cursor(i).CAPU_CARP_CD_RAMO);
DBMS_OUTPUT.PUT_LINE('CAPU_DE_PRODUCTO=' || tcursor_array_cursor(i).CAPU_DE_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_NU_DURACION_CONTRATO=' || tcursor_array_cursor(i).CAPU_NU_DURACION_CONTRATO);
DBMS_OUTPUT.PUT_LINE('CAPU_IN_RECALCULO_RECARGO=' || tcursor_array_cursor(i).CAPU_IN_RECALCULO_RECARGO);
END LOOP;
--Esto es usando el cursor y el table of del cursor--
end;
Saludos.
PROCEDURE martin_prueba
IS
CURSOR C_cursor IS
SELECT CAPU_CD_PRODUCTO,
CAPU_CARP_CD_RAMO,
CAPU_DE_PRODUCTO,
CAPU_NU_DURACION_CONTRATO,
CAPU_IN_RECALCULO_RECARGO
FROM CART_PRODUCTOS
WHERE ROWNUM<20
ORDER BY CAPU_CD_PRODUCTO ASC;
TYPE ty_cursor is record ( CAPU_CD_PRODUCTO CART_PRODUCTOS.CAPU_CD_PRODUCTO%TYPE,
CAPU_CARP_CD_RAMO CART_PRODUCTOS.CAPU_CARP_CD_RAMO%TYPE,
CAPU_DE_PRODUCTO CART_PRODUCTOS.CAPU_DE_PRODUCTO%TYPE,
CAPU_NU_DURACION_CONTRATO CART_PRODUCTOS.CAPU_NU_DURACION_CONTRATO%TYPE,
CAPU_IN_RECALCULO_RECARGO CART_PRODUCTOS.CAPU_IN_RECALCULO_RECARGO%TYPE
);
TYPE array_cursor IS TABLE OF C_cursor%ROWTYPE INDEX BY BINARY_INTEGER;
TYPE tb_cursor IS TABLE OF ty_cursor INDEX BY BINARY_INTEGER;
tcursor tb_cursor;
tcursor_array_cursor array_cursor;
i number(10) :=0;
-- q C_cursor;
begin
i:=1;
for q in C_cursor loop
--Aca cargo el record
tcursor(i).CAPU_CD_PRODUCTO:=q.CAPU_CD_PRODUCTO;
tcursor(i).CAPU_CARP_CD_RAMO:=q.CAPU_CARP_CD_RAMO;
tcursor(i).CAPU_DE_PRODUCTO:=q.CAPU_DE_PRODUCTO;
tcursor(i).CAPU_NU_DURACION_CONTRATO:=q.CAPU_NU_DURACION_CONTRATO;
tcursor(i).CAPU_IN_RECALCULO_RECARGO:=q.CAPU_IN_RECALCULO_RECARGO;
--Aca cargo el record
--Aca cargo el table del cursor
tcursor_array_cursor(i).CAPU_CD_PRODUCTO:=q.CAPU_CD_PRODUCTO;
tcursor_array_cursor(i).CAPU_CARP_CD_RAMO:=q.CAPU_CARP_CD_RAMO;
tcursor_array_cursor(i).CAPU_DE_PRODUCTO:=q.CAPU_DE_PRODUCTO;
tcursor_array_cursor(i).CAPU_NU_DURACION_CONTRATO:=q.CAPU_NU_DURACION_CONTRATO;
tcursor_array_cursor(i).CAPU_IN_RECALCULO_RECARGO:=q.CAPU_IN_RECALCULO_RECARGO;
--Aca cargo el table del cursor
i:=i+1;
end loop;
--Esto es usando el cursor y el record--
FOR i IN tcursor.FIRST .. tcursor.LAST LOOP
DBMS_OUTPUT.PUT_LINE('CAPU_CD_PRODUCTO=' || TCURSOR(i).CAPU_CD_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_CARP_CD_RAMO=' || TCURSOR(i).CAPU_CARP_CD_RAMO);
DBMS_OUTPUT.PUT_LINE('CAPU_DE_PRODUCTO=' || TCURSOR(i).CAPU_DE_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_NU_DURACION_CONTRATO=' || TCURSOR(i).CAPU_NU_DURACION_CONTRATO);
DBMS_OUTPUT.PUT_LINE('CAPU_IN_RECALCULO_RECARGO=' || TCURSOR(i).CAPU_IN_RECALCULO_RECARGO);
END LOOP;
--Esto es usando el cursor y el record--
--Esto es usando el cursor y el table of del cursor--
FOR i IN tcursor_array_cursor.FIRST .. tcursor_array_cursor.LAST LOOP
DBMS_OUTPUT.PUT_LINE('CAPU_CD_PRODUCTO=' || tcursor_array_cursor(i).CAPU_CD_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_CARP_CD_RAMO=' || tcursor_array_cursor(i).CAPU_CARP_CD_RAMO);
DBMS_OUTPUT.PUT_LINE('CAPU_DE_PRODUCTO=' || tcursor_array_cursor(i).CAPU_DE_PRODUCTO);
DBMS_OUTPUT.PUT_LINE('CAPU_NU_DURACION_CONTRATO=' || tcursor_array_cursor(i).CAPU_NU_DURACION_CONTRATO);
DBMS_OUTPUT.PUT_LINE('CAPU_IN_RECALCULO_RECARGO=' || tcursor_array_cursor(i).CAPU_IN_RECALCULO_RECARGO);
END LOOP;
--Esto es usando el cursor y el table of del cursor--
end;
Uso del MERGE para INSERT o UPDATE
El MERGE sirve para realizar el update y el insert en una misma sentencia cumpliendose entre 2 tablas una cierta condicion que se declara en el ON de la sentencia MERGE.
--Primero creo una tabla.
CREATE TABLE test1 AS
SELECT owner, object_id , object_name
FROM all_objects
WHERE 1=2; --1=2 es para que a la tabla la cree vacia.
--Aca viene el uso del MERGE.
MERGE INTO test1 a
USING all_objects b
ON (a.object_id = b.object_id)
WHEN MATCHED THEN
UPDATE SET a.object_name = b.object_name
WHEN NOT MATCHED THEN
INSERT (owner, object_id, object_name)
VALUES (b.owner, b.object_id, b.object_name);
En caso de que macheen a.object_id = b.object_id realiza solo el update, sino machea entonces realiza el Insert.
--Primero creo una tabla.
CREATE TABLE test1 AS
SELECT owner, object_id , object_name
FROM all_objects
WHERE 1=2; --1=2 es para que a la tabla la cree vacia.
--Aca viene el uso del MERGE.
MERGE INTO test1 a
USING all_objects b
ON (a.object_id = b.object_id)
WHEN MATCHED THEN
UPDATE SET a.object_name = b.object_name
WHEN NOT MATCHED THEN
INSERT (owner, object_id, object_name)
VALUES (b.owner, b.object_id, b.object_name);
En caso de que macheen a.object_id = b.object_id realiza solo el update, sino machea entonces realiza el Insert.
Package con un procedure que devuelve un cursor como parametro....
Este es un package que si bien me parece tonto tiene sus vueltas.
Lo interesante es que tiene un procedure dentro de un package que retorna un cursor que se arma(obviamente) al pasarle un valor en este caso esta hardcodeado....
Y otro tema que me parecio a resaltar es la siguiente, la forma:
FOR c_emp_rec IN c_cur LOOP ....NO ANDA
Con lo cual hay que abrirlo asi.
Si o si hay que abrirlo con un fetch (LOOP FETCH c_cur INTO c_emp_rec).
CREATE OR REPLACE PACKAGE empleados_pkg IS
CURSOR c_emp IS
SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
where rownum<10;
TYPE empleados_type IS REF CURSOR
RETURN c_emp%ROWTYPE;
PROCEDURE datos_empleados ( par1 IN VARCHAR2,
cursor1 OUT empleados_type );
PROCEDURE parent;
END empleados_pkg;
create or replace PACKAGE BODY empleados_pkg IS
PROCEDURE datos_empleados ( par1 IN VARCHAR2,
cursor1 OUT empleados_type)
IS
BEGIN
IF par1 IS NOT NULL THEN
OPEN cursor1 FOR SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
and capu_cd_producto=par1;
ELSE
OPEN cursor1 FOR SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
where rownum<10;
END IF;
END datos_empleados;
PROCEDURE parent IS
c_cur empleados_type;
c_emp_rec c_cur%ROWTYPE;
BEGIN
datos_empleados('123', c_cur);
LOOP
FETCH c_cur INTO c_emp_rec;
EXIT WHEN c_cur%NOTFOUND;
DBMS_OUTPUT.PUT_LINE (c_emp_rec.capu_carp_cd_ramo);
DBMS_OUTPUT.PUT_LINE (c_emp_rec.capu_cd_producto);
END LOOP;
CLOSE c_cur;
/*TENER PRESENTE QUE CON ESTA FORMA DE APERTURA NO ANDA
FOR c_emp_rec IN c_cur LOOP
DMBS_OUTPUT.PUT_LINE('capu_carp_cd_ramo=' || c_emp_rec.capu_carp_cd_ramo);
DMBS_OUTPUT.PUT_LINE('capu_cd_producto=' || c_emp_rec.capu_cd_producto);
END LOOP;
*/
end parent;
END;
--Para probarlo--
begin
empleados_pkg.parent;
end;
Lo interesante es que tiene un procedure dentro de un package que retorna un cursor que se arma(obviamente) al pasarle un valor en este caso esta hardcodeado....
Y otro tema que me parecio a resaltar es la siguiente, la forma:
FOR c_emp_rec IN c_cur LOOP ....NO ANDA
Con lo cual hay que abrirlo asi.
Si o si hay que abrirlo con un fetch (LOOP FETCH c_cur INTO c_emp_rec).
CREATE OR REPLACE PACKAGE empleados_pkg IS
CURSOR c_emp IS
SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
where rownum<10;
TYPE empleados_type IS REF CURSOR
RETURN c_emp%ROWTYPE;
PROCEDURE datos_empleados ( par1 IN VARCHAR2,
cursor1 OUT empleados_type );
PROCEDURE parent;
END empleados_pkg;
create or replace PACKAGE BODY empleados_pkg IS
PROCEDURE datos_empleados ( par1 IN VARCHAR2,
cursor1 OUT empleados_type)
IS
BEGIN
IF par1 IS NOT NULL THEN
OPEN cursor1 FOR SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
and capu_cd_producto=par1;
ELSE
OPEN cursor1 FOR SELECT capu_carp_cd_ramo, capu_cd_producto
FROM cart_productos
where rownum<10;
END IF;
END datos_empleados;
PROCEDURE parent IS
c_cur empleados_type;
c_emp_rec c_cur%ROWTYPE;
BEGIN
datos_empleados('123', c_cur);
LOOP
FETCH c_cur INTO c_emp_rec;
EXIT WHEN c_cur%NOTFOUND;
DBMS_OUTPUT.PUT_LINE (c_emp_rec.capu_carp_cd_ramo);
DBMS_OUTPUT.PUT_LINE (c_emp_rec.capu_cd_producto);
END LOOP;
CLOSE c_cur;
/*TENER PRESENTE QUE CON ESTA FORMA DE APERTURA NO ANDA
FOR c_emp_rec IN c_cur LOOP
DMBS_OUTPUT.PUT_LINE('capu_carp_cd_ramo=' || c_emp_rec.capu_carp_cd_ramo);
DMBS_OUTPUT.PUT_LINE('capu_cd_producto=' || c_emp_rec.capu_cd_producto);
END LOOP;
*/
end parent;
END;
--Para probarlo--
begin
empleados_pkg.parent;
end;
jueves, 16 de diciembre de 2010
Utilizando NUMTOYMINTERVAL
El otro día me encontré con la situación de que debía hacer algunos cálculos de fechas un tanto simples, pero engorrosos y tediosos.
Dada la vagancia que me suele acompañar en todo, cuanto menos, mejor y cuanto menos escriba... bueno... a veces salen cosas buenas.
Revolviendo por ahí me encontré con esta maravillosa funcIón de Oracle llamada NUMTOYMINTERVAL.
Sintaxis:
En definitiva, eso de sumarle a la fecha los días está bueno, pero me parecía que ya existía una función que hacía eso.
Comenzando a revolver...
Luego de googler mucho, me econtré con esa belleza y me puse a trabajar.
Claro con esto e smas sencillo, porque la función convierte un número n, a un intervalo de mes o año, dependiendo del literal varchar que se le paso como segundo parametro.
Este segundo parametro puede ser
YEAR (año)
MONTH (mes)
Fijense que lo puse en muyúsculas. OJO!!! es CASE SENSITIVE!!!!
Un ejemplo burdo pero útil.
"A la fecha del día sumerle 6 meses"
Claro... una pavada...
perooooo... con esto es mas sencillo:
BR>SELECT SYSDATE
2 FROM DUAL;
SYSDATE
---------
16-DEC-10
BR>SELECT (SYSDATE + NUMTOYMINTERVAL(6,'MONTH')) SYSDATEMAS6
2 FROM DUAL;
SYSDATEMAS6
---------
16-JUN-11
Nada de andar coontando dias, sumando ni dividiendo... directo y al grano.
si le queremos sumar 2 años la usamos de la siguiente manera:
BR>select sysdate + NUMTOYMINTERVAL(2, 'YEAR') FECHAMAS2
2 FROM DUAL;
FECHAMAS2
---------
16-DEC-12
Claro, mi funcion fué así de sencilla:
CREATE OR REPLACE FUNCTION COL_DATE_POST_REVFREQ(vFecha IN DATE, vRevFrec IN VARCHAR2) RETURN DATE IS
vRevFrec2 CHAR;
vFechaRet DATE;
BEGIN
/*Autor: Mariano Dominguez.
fecha: 13/12/2010
proposito: devuelve la fecha segun la frecuencia */
vRevFrec2 := UPPER(vRevFrec);
CASE vRevFrec
WHEN 'D' THEN
vFechaRet := trunc(vFecha + 1);
WHEN 'W' THEN
vFechaRet := trunc(vFecha + 7);
WHEN 'M' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(1,'MONTH'))));
WHEN 'Q' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(3,'MONTH'))));
WHEN 'A' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(1,'YEAR'))));
WHEN 'S' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(6,'MONTH'))));
END CASE;
RETURN vFechaRet;
EXCEPTION
WHEN OTHERS THEN
--ERROR
DBMS_OUTPUT.PUT_LINE('ERROR>>'||SQLERRM);
END;
/
Muy sencillo y práctico.
No select explicito y si al uso de asiganaciones.
Si al uso de "case" y no al miedo a las funciones.
Saludos y luego subo a su hermanita... numtodsinterval.
Dada la vagancia que me suele acompañar en todo, cuanto menos, mejor y cuanto menos escriba... bueno... a veces salen cosas buenas.
Revolviendo por ahí me encontré con esta maravillosa funcIón de Oracle llamada NUMTOYMINTERVAL.
Sintaxis:
NUMTOYMINTERVAL ( n , 'char_expr' );Más o menos lo que debia hacer era algo así como calcular la fecha del último día del mes, pero con una frecuencia que variaba entre años, dias, meses, etc.
En definitiva, eso de sumarle a la fecha los días está bueno, pero me parecía que ya existía una función que hacía eso.
Comenzando a revolver...
Luego de googler mucho, me econtré con esa belleza y me puse a trabajar.
Claro con esto e smas sencillo, porque la función convierte un número n, a un intervalo de mes o año, dependiendo del literal varchar que se le paso como segundo parametro.
Este segundo parametro puede ser
YEAR (año)
MONTH (mes)
Fijense que lo puse en muyúsculas. OJO!!! es CASE SENSITIVE!!!!
Un ejemplo burdo pero útil.
"A la fecha del día sumerle 6 meses"
Claro... una pavada...
perooooo... con esto es mas sencillo:
BR>SELECT SYSDATE
2 FROM DUAL;
SYSDATE
---------
16-DEC-10
BR>SELECT (SYSDATE + NUMTOYMINTERVAL(6,'MONTH')) SYSDATEMAS6
2 FROM DUAL;
SYSDATEMAS6
---------
16-JUN-11
Nada de andar coontando dias, sumando ni dividiendo... directo y al grano.
si le queremos sumar 2 años la usamos de la siguiente manera:
BR>select sysdate + NUMTOYMINTERVAL(2, 'YEAR') FECHAMAS2
2 FROM DUAL;
FECHAMAS2
---------
16-DEC-12
Claro, mi funcion fué así de sencilla:
CREATE OR REPLACE FUNCTION COL_DATE_POST_REVFREQ(vFecha IN DATE, vRevFrec IN VARCHAR2) RETURN DATE IS
vRevFrec2 CHAR;
vFechaRet DATE;
BEGIN
/*Autor: Mariano Dominguez.
fecha: 13/12/2010
proposito: devuelve la fecha segun la frecuencia */
vRevFrec2 := UPPER(vRevFrec);
CASE vRevFrec
WHEN 'D' THEN
vFechaRet := trunc(vFecha + 1);
WHEN 'W' THEN
vFechaRet := trunc(vFecha + 7);
WHEN 'M' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(1,'MONTH'))));
WHEN 'Q' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(3,'MONTH'))));
WHEN 'A' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(1,'YEAR'))));
WHEN 'S' THEN
vFechaRet:= trunc(LAST_DAY((vFecha + NUMTOYMINTERVAL(6,'MONTH'))));
END CASE;
RETURN vFechaRet;
EXCEPTION
WHEN OTHERS THEN
--ERROR
DBMS_OUTPUT.PUT_LINE('ERROR>>'||SQLERRM);
END;
/
Muy sencillo y práctico.
No select explicito y si al uso de asiganaciones.
Si al uso de "case" y no al miedo a las funciones.
Saludos y luego subo a su hermanita... numtodsinterval.
martes, 30 de marzo de 2010
Instalando Maven en eclipse 3.5
Como instalar maven en nuestro eclipse...
Bueno, nos encontramos ante la necesidad de instalar maven, ya que los proyectos estan administrados
con esta herramienta... no con ANT, sino con su evolución llamada MAVEN.
Bien... comencemos.
Primero y antes que nada abrimos el eclipse, y es fundamental tener conexion a internet. Para los que la tiene y usan un proxy, primero deben configurar la conexion desde el eclipse.
Window->preferences, ya en la pantalla de preferencias hacemos click en el nodo "General" y buscamos en el árbol el sub nodo "Network Connections", hacemos click en el y ponemos el proxy y el puerto.
Bien, hasta ahí solo para conectar nuestro eclipse a internet.
Ahora vamos a tratar con la instalacion de Maven.
Yo la hice con eclipse galileo (3.5)
Para ello fui a Help -> install new software (como en la imagen)
Una vez allí, en el campo que dice "Work With", ponemos la siguiente URL:
http://m2eclipse.sonatype.org/sites/m2e
Le damos enter y nos pedira un nombre para esto, yo en particular le puse m2eclipse.
Lo mas probable es que quede sin actualizar, pero podemos verificar que se agrego el repositorio desde window->preferences nodo Install/Update sub nodo Available software sites, y en la lista que se despliega a la derecha deberia aparecer. Si se quiere para ver que se puedan conectar al site, le dan click al botón "Test connection".
En mi caso, tuve que verificarlo porque no actualizaba en la pantalla de instalacion... bueno, no
refrescó correctamente.
En fin, volvi a la pantalla de instalacion hice click en look up de la derecha y aparecio en la lista:
seleccioné el que habimos creado que esta conel nombre m2eclipse y me dio la opcion de tildar la
actualización o instalación nueva:
click en "Next"y comineza a trabajar
Nos muestra los detalles de la instalacion:
click en next de nuevo
contrato de licencias, aceptamos, y le damos al boton finish.
Abrirá un cuadro de dialogo similar a este:
Y ahora a esperar que se instale... Yo por lo menos me hice un té.
Una vez finalizada la instalación nos indica que es "altamente recomendable" reiniciar eclipse
le damos aplicar los cambios y reiniciamos el eclipse.
Una vez reiniciado el eclipse, ya estamos en condicones de crear un nuevo proyecto maven...
Cuando sepa como usarlo bien, vuelvo a escribir...
Saludos.-
Mariano
Bueno, nos encontramos ante la necesidad de instalar maven, ya que los proyectos estan administrados
con esta herramienta... no con ANT, sino con su evolución llamada MAVEN.
Bien... comencemos.
Primero y antes que nada abrimos el eclipse, y es fundamental tener conexion a internet. Para los que la tiene y usan un proxy, primero deben configurar la conexion desde el eclipse.
Window->preferences, ya en la pantalla de preferencias hacemos click en el nodo "General" y buscamos en el árbol el sub nodo "Network Connections", hacemos click en el y ponemos el proxy y el puerto.
Bien, hasta ahí solo para conectar nuestro eclipse a internet.
Ahora vamos a tratar con la instalacion de Maven.
Yo la hice con eclipse galileo (3.5)
Para ello fui a Help -> install new software (como en la imagen)
Una vez allí, en el campo que dice "Work With", ponemos la siguiente URL:
http://m2eclipse.sonatype.org/sites/m2e
Le damos enter y nos pedira un nombre para esto, yo en particular le puse m2eclipse.
Lo mas probable es que quede sin actualizar, pero podemos verificar que se agrego el repositorio desde window->preferences nodo Install/Update sub nodo Available software sites, y en la lista que se despliega a la derecha deberia aparecer. Si se quiere para ver que se puedan conectar al site, le dan click al botón "Test connection".
En mi caso, tuve que verificarlo porque no actualizaba en la pantalla de instalacion... bueno, no
refrescó correctamente.
En fin, volvi a la pantalla de instalacion hice click en look up de la derecha y aparecio en la lista:
seleccioné el que habimos creado que esta conel nombre m2eclipse y me dio la opcion de tildar la
actualización o instalación nueva:
click en "Next"y comineza a trabajar
Nos muestra los detalles de la instalacion:
click en next de nuevo
contrato de licencias, aceptamos, y le damos al boton finish.
Abrirá un cuadro de dialogo similar a este:
Y ahora a esperar que se instale... Yo por lo menos me hice un té.
Una vez finalizada la instalación nos indica que es "altamente recomendable" reiniciar eclipse
le damos aplicar los cambios y reiniciamos el eclipse.
Una vez reiniciado el eclipse, ya estamos en condicones de crear un nuevo proyecto maven...
Cuando sepa como usarlo bien, vuelvo a escribir...
Saludos.-
Mariano
lunes, 29 de marzo de 2010
FLEX: Creando e invocando componentes MXML...
(Inspirado en el libro de Marco Casario, "Flex solutions")
Nosotros podemos crear componentes usando MXML y AS, y por supuesto, esto tiene sus ventajas.
Como primer práctica, podemos aprender como crear un "MXML component".
Según los que manejan muy bien Flex, crear estos componentes "es muy facil", y solo hay que seguir algunas reglas para definir un componente...
El componente que crearemos se debe definir en un MXML separado y luego instanciado en el tag
Application.
Los componentes MXML seran invocados e importados en nuestro main.
Como ejemplo, un componente MXML para manejar un login, con etrada de usuario y password.
Luego de crear un proyecto flex, que lo llamaremos FlexComponents1, creamos un "MXML component", y vemos que el cuadro de dialogo es un poco distinto:
Le ponemos un nombre "unLogin" en el campo "filename", y en el combo llamado "Based on:",
seleccionamos "Panel". Hacemos click en "Finish" y vemos el siguiente codigo.
Ahora vamos a agregar la interfaz de usuario en un MXML component nuevo.
Agergamos un titulo al panel con la propiedad "title", y lo llamamos "Sign in", quedando de la siguiente manera
Ahora, una vez hecho esto, tenemos que insertar nuestro formulario, que contendrá algunao Labels, un botón, un checkbox y un par de textInput. Esto dentro de nuestro panel.
Todo se puede hacer con la vista de diseño.
el código de esto es:
El tag Form contiene a nuestro formulario, el resto de los tags son cabecera, y los componentes que dijimos antes que ibamos a poner.
Todavia no lo corremos...
Cuando creamos el proyecto FlexComponents1, creó automaticamente el FlexComponents1.mxml, que es nuestro main aplication.(mxml application)
Desde ahí ahora debemos invocar a nuestro componente. Para ello, es necesario declarar un nuevo nameSpace, con el punto del paquete que contiene el MXML component... en codigo:
El namespace "comp" es nuestro namespace customizado (puede ser cualquier nombre), define el paquete en donde se encuentra nuestro componente, o los componentes a importar.
Usamos el *, porque nuestro componente se halla en el root de nuestro proyecto.
El tag que contiene el nombre de nuestro namespace "comp" lleva como valor el nombre de nuestro componente si la extension "mxml".
Ahora si... corramos nuestra nueva aplicacion y nos debe quedar algo como esto:
Bueno... voy a seguir aprendiendo un poco mas sobre esto... espero para la proxima poder usar metodos
y demas cositas para poder usar nuestro login...
Mariano.-
Nosotros podemos crear componentes usando MXML y AS, y por supuesto, esto tiene sus ventajas.
Como primer práctica, podemos aprender como crear un "MXML component".
Según los que manejan muy bien Flex, crear estos componentes "es muy facil", y solo hay que seguir algunas reglas para definir un componente...
El componente que crearemos se debe definir en un MXML separado y luego instanciado en el tag
Application.
Los componentes MXML seran invocados e importados en nuestro main.
Como ejemplo, un componente MXML para manejar un login, con etrada de usuario y password.
Luego de crear un proyecto flex, que lo llamaremos FlexComponents1, creamos un "MXML component", y vemos que el cuadro de dialogo es un poco distinto:
Le ponemos un nombre "unLogin" en el campo "filename", y en el combo llamado "Based on:",
seleccionamos "Panel". Hacemos click en "Finish" y vemos el siguiente codigo.
<mx:panel mx="http://www.adobe.com/2006/mxml" layout="absolute" width="400" height="300">
</mx:panel>
Ahora vamos a agregar la interfaz de usuario en un MXML component nuevo.
Agergamos un titulo al panel con la propiedad "title", y lo llamamos "Sign in", quedando de la siguiente manera
<mx:Panel xmlns:mx="http://www.adobe.com/2006/mxml"
layout="absolute"
width="400" height="300"
title="Sign in">
</mx:Panel>
Ahora, una vez hecho esto, tenemos que insertar nuestro formulario, que contendrá algunao Labels, un botón, un checkbox y un par de textInput. Esto dentro de nuestro panel.
Todo se puede hacer con la vista de diseño.
el código de esto es:
<mx:Form x="10" y="10" width="360" height="240">
<mx:FormHeading label="Insert your information:"/>
<mx:FormItem label="User">
<mx:TextInput/>
</mx:FormItem>
<mx:FormItem label="Password">
<mx:TextInput/>
</mx:FormItem>
<mx:FormItem label="Remember me">
<mx:CheckBox label="CheckBox"/>
</mx:FormItem>
<mx:FormItem>
<mx:Button label="button"/>
</mx:FormItem>
</mx:Form>
El tag Form contiene a nuestro formulario, el resto de los tags son cabecera, y los componentes que dijimos antes que ibamos a poner.
Todavia no lo corremos...
Cuando creamos el proyecto FlexComponents1, creó automaticamente el FlexComponents1.mxml, que es nuestro main aplication.(mxml application)
Desde ahí ahora debemos invocar a nuestro componente. Para ello, es necesario declarar un nuevo nameSpace, con el punto del paquete que contiene el MXML component... en codigo:
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute"
xmlns:comp = "*">
</mx:Application>
El namespace "comp" es nuestro namespace customizado (puede ser cualquier nombre), define el paquete en donde se encuentra nuestro componente, o los componentes a importar.
Usamos el *, porque nuestro componente se halla en el root de nuestro proyecto.
El tag que contiene el nombre de nuestro namespace "comp" lleva como valor el nombre de nuestro componente si la extension "mxml".
Ahora si... corramos nuestra nueva aplicacion y nos debe quedar algo como esto:
Bueno... voy a seguir aprendiendo un poco mas sobre esto... espero para la proxima poder usar metodos
y demas cositas para poder usar nuestro login...
Mariano.-
Interfaces
El uso de interfaces proporciona las siguientes ventajas:
* Organizar la programación.
* Obligar a que ciertas clases utilicen los mismos métodos (nombres y parámetros).
* Establecer relaciones entre clases que no estén relacionadas.
Para declarar una interfaz se utiliza:
--------------------------------------
modificador_acceso interface NombreInterfaz {
....
}
modificador_acceso puede ser public o no existir, siendo entonces por defecto package. Los atributos que definamos en el cuerpo de la interfaz serán atributos de tipo constante en las clases en las que se implemente.
Para implementarla en una clase, se utiliza la forma:
------------------------------------------------------
modificador_acceso NombreClase implements NombreInterfaz1 [, NombreInterfaz2]
Una clase puede implementar varias interfaces, separando los nombres por comas.
* Organizar la programación.
* Obligar a que ciertas clases utilicen los mismos métodos (nombres y parámetros).
* Establecer relaciones entre clases que no estén relacionadas.
Para declarar una interfaz se utiliza:
--------------------------------------
modificador_acceso interface NombreInterfaz {
....
}
modificador_acceso puede ser public o no existir, siendo entonces por defecto package. Los atributos que definamos en el cuerpo de la interfaz serán atributos de tipo constante en las clases en las que se implemente.
Para implementarla en una clase, se utiliza la forma:
------------------------------------------------------
modificador_acceso NombreClase implements NombreInterfaz1 [, NombreInterfaz2]
Una clase puede implementar varias interfaces, separando los nombres por comas.
Suscribirse a:
Entradas (Atom)