Postgres : Funcion con Array

CREATE OR REPLACE FUNCTION general.pasa_array(varchar)
RETURNS character varying AS
$BODY$declare
matriz INTEGER[];
xresult varchar;
xcont integer;
xelementos integer;
xcadena varchar;
begin
xcont = 0;
xelementos=0;
xcadena=$1;
xresult='';
loop
matriz[xcont]=cast(substring(xcadena,1, case when position(',' in xcadena)=0 then char_length(xcadena) else position(',' in xcadena)-1 end)as integer);
RAISE NOTICE 'matriz: %', matriz[xcont];
xcadena=substring(xcadena,case when position(',' in xcadena)=0 then char_length(xcadena) else position(',' in xcadena) end+1, char_length(xcadena));
RAISE NOTICE 'Cadena: %', xcadena;
xelementos=xelementos+1;
xcont = xcont + 1;
if char_length(xcadena)=0 then
exit;
end if;
end loop;

xcont = 0;
RAISE NOTICE 'matriz: %', matriz[xcont];
--xresult = matriz[1];
loop
RAISE NOTICE 'matriz 2: %', matriz[xcont];
xresult = xresult || chr(matriz[xcont]);
RAISE NOTICE 'xresult --> %', xresult;
xcont = xcont + 1;
if matriz[xcont] is null then
exit; -- exit loop
end if;
end loop;


return xresult;

end;$BODY$
LANGUAGE 'plpgsql' VOLATILE;

select general.pasa_array('65,66')

select general.pasa_array('89,97,32,113,117,101,109,97,115,116,101,32,98,114,111,116,104,101,114')

Continúa...

La Donación de mis órganos por Camilo Jose Cela (Premio Nobel de Literatura del año 1989)

Que se los den a cualquiera.
Si hay un paciente que espera
por lo que yo ofrezco aquí
espero que se haga así
para salvar una vida.
Si ya no puedo respirar,
que otro respire por mí.

Donaré mí corazón
para algún pecho cansado
que quiera ser restaurado
y entrar de nuevo en acción.

Hago firme donación
y que se cumpla confío
antes de sentirlo frío,
roto, podrido y maltrecho
que lata desde otro pecho
si ya no late en el mío.

La pinga la donaré
y que se la den a un caído
y levante poseído
el vigor que disfruté.


Pero pido que después
se la pongan a un jinete,
de esos que les gusta brete.
Eso sería gran cosa:
yo descansando en fosa
y mi pinga dando fuerte.

Entre otras donaciones
me niego a donar la boca.
Pues hay algo que me choca
por poderosas razones.
Sé de quien en ocasiones
habla mucha bobería;
mama lo que no debía
y prefiero que se pierda
antes que algún comemierda
mame con la boca mía.

El culo no lo donaré
pues siempre existe un confuso
que pueda darle mal uso
al culo que yo doné.
Muchos años lo cuidé
lavándomelo a menudo.
Para que un cirujano chulo
en dicha transplantación
se lo ponga a un maricón
y muerto me den por el culo.

Continúa...

OpenOffice.org : Quitar lineas de cuadricula

Bueno costo un poquito de trabajo encontrarlo pero se dio, lo bueno de todo esto es que resulta y queda para futuras ocasiones.
Lo que hayq ue hacer es lo siguiente:

1.- Marcar la zona a la que se desea quitar la cuadricula.
2.- Dar Clic derecho al fondo marcado.
3.- Elegir la opcion "Formatear Celdas".
3.- Ir al la pestaña Borde.
4.- en la Seccion que dice "Dispopsicion de Lineas" / "Predeterminado", Seleccionar el cuarto (4to) cuadro que dice "Borde exterior y todas las lineas interiores".
5.- Cambiar el color por el Blanco.
6.- Presionar el boton de "Aceptar".

Espero que les sirva.

Continúa...

ZXV10 W300 : Nateo

Costo un poco de trabajo pero se logro ubicar la forma de hacerlo.

Esperaria encontrar el Nateo de puerto en una opcion que diga NAT o algo similar, pero esto se puede hacer en Advance Setting / Virtual Server / Services.

Espero que a alguien le sirva.

Continúa...

Motociclistas ahora deberán usar, además de cascos, chalecos con número de placa

Bueno otra genial medida de parte del Gobierno, imagino que el alto costo del SOAT para motos es para que hayan menos accidente y el bajo costo de las Combis y Micros sea para incentivar los accidentes.

Aun tengo algunas dudas:

- Si los choferes de Combi son un peligro que chalecos deberían de utilizar rojo?

- Como diferenciaran a los policías de a pie que a los que van en patrullero, chalecos plomos?

- Los policías sin uniforme deberán de llevar algun chaleco?, recuerden que pueden no pagar en lo micros.

- Que chalecos deberán de utilizar los ex-gobernantes, recuerdo que algunos han cometido delitos, chalecos verdes (por los dólares)?

- Los peatones deberán de utilizar algún tipo de chaleco, hay varios delitos como robo en micros, asalto a mano armada, pandillaje y demás, que color de chaleco les pondrán?


No molesta utilizar algún distintivo pero si resulta pesado que decidan como vestirte, quizás los analistas que presentaron la ley revisaron la cantidad de crímenes en motos, serán mas que aquellos que roban carros y asaltan bancos, raptan, marcan a los que hacen retiros a bancos?

Realmente reducirá los crímenes?, cuantos crímenes en motos se realizan de forma diaria o semanal?, quien lleva las estadísticas para esta toma de decisión? donde las han publicado?

Ya que están volteando la vista hacia las motos harán que los costos del SOAT disminuyan?

Cuál será la próxima sabia ley de nuestros gobernantes y legisladores??.

Continúa...

Word y Excel 2007 graben en formato 97-2003 (DOC y XLS)

Bueno si estas cansado de estar diciendo a los usuarios que tienen Office 2007 que graben sus Documentos de Excel y Word en el formato de Office 97 - 2003, vale aclarar que grabe los archivos de Word como DOC y no como ODCX, y los de Excel como XLS y no como XLSX.

Sigue los siguientes pasos:

1.- Abrir Word / Excel.

2.- Darle clic al icono del Office, parte superior izquierda.

3.- En la parte inferior derecha del menu se muestra un boton que dice "Opciones de Word" u "Opciones de Excel", segun sea el caso, presionar dicho boton.

4.- Se abrira una ventana donde se puede ver la opcion "Guardar qarchivos en formato", al costado hay un combo (menu de opciones) y elegiremos "Documento de Word 97-2003 (*.doc)" o "Documento de Excel 97-2003 (*.xls)"

Con esto bastara para que todos los nuevos documentos se guarden en formato 97-2003.

Continúa...

Postgres : calculo de 48 horas antes de una fecha (me sirvio para las Tx a Aduanas)

Aqui un pequeño ejemplo que me sirvio para calcular el tiempo que falta para que sean 48 horas (2 dias) antes de una fecha especifica.

La necesidad parte de que Aduanas permite el envio de informacion hasta 48 horas de la llegada de una nave, entonces como ssaber cuanto falta para esta hora limite?

Bueno asumiremos que la Nave llega a las 6 de la tarde (18:00 horas) y de ahi parten los calculos.


select
-- Fecha y hora de llegada
cast(f_eta || ' 18:00:00' as timestamp) as f_h_llegada,
-- Fecha y hora limite en que se debe de hacer el envio.
(cast(f_eta || ' 18:00:00' as timestamp) + '-48 hour') as fecha_envio,
-- tiempo faltante para que se cumplan las 48 horas antes de llegada la nave.
(cast(f_eta || ' 18:00:00' as timestamp) + '-48 hour') - now() as tiempo_limite_48_horas,
-- aqui determinamos si faltan dias o minutos para la fecha y hora limite case when now() > cast(f_eta || ' 18:00:00' as timestamp) + '-48 hour' then 'Te pasaste' else case when (now() + '24 hour') > cast(f_eta || ' 18:00:00' as timestamp) + '-48 hour' then 'solo minutos' else 'Aun a dias' end end as zz,

now(), f_eta
from itinerarios
where f_eta >= now()::date - 7
order by f_eta

Nota: Hay que tener en cuenta lo siguiente:

select now() + '12 hour';
select now() - '12 hour';

Este ultimo te da error, pero si pruebas lo siguiente el resultado es el que se desea:

select now() + '-12 hour';

Continúa...