Mis Ayuda Memoria

Frase 14

2011-11-16T12:20:00.001-05:00

"Las cicatrices nos recuerdan que el pasado fue real."
Hannibal Lecter

Cambiar coma por punto decimal en IReport/JasperReport

2011-11-16T12:01:00.002-05:00

Bueno, despues de tiempo compartire algo, el problema es cambiar la coma decimal por punto decimal en un campo numerico en un reporte Jasper. IReport y Jaspercompiler toman por default el "locale" del sistema pero tambien se puede forzar a que sea diferente.

En IReport, si quieren q el punto sea el separador decimal y la coma el separador de miles, deben entrar a Herramientas->Opciones->IReport, en la ficha "Compilation and Execution" cambiar el valor de "Report Locale", para mi caso use "Ingles (Estados Unidos)" y lito se compila y funciona.

Ahora, mis reportes los compilo y muestro desde un jsp, alli lo que se debe hacer es pasar un parametro indicando el "locale". Para esto primero agregamos el "Import" respectivo en la cabecera:

<%@page import="net.sf.jasperreports.engine.JRParameter"%>

y luego agregamos el parametro antes de compilarlo, quedando algo asi:

Map parameters = new HashMap();
parameters.put("ID", (String)request.getParameter("nro_id"));

parameters.put(JRParameter.REPORT_LOCALE, Locale.US);

JasperReport report = JasperCompileManager.compileReport(reportPath);
JasperPrint print = JasperFillManager.fillReport(report, parameters, ConnrsProyectos);

Ok, espero a alguien mas le sirva.

Fijar el ancho de columna de un JTable por codigo

2011-03-08T10:47:00.002-05:00

Aporte de Matias Varela :

Para definir el ancho fijo de una columna:

Suponiendo que tablaDeIngresos es el Jtable:
// le establezco el ancho
tablaDeIngresos.getColumnModel().getColumn(0).setWidth(100);
// hago que no puede cambiar
tablaDeIngresos.getColumnModel().getColumn(0).setResizable(false);

Espero sirva. Hay que tener en cuenta que lo anterior va después del

tablaDeIngresos.setModel(dtm);

That's all

Poblar/llenar una Grilla o JTable con un Resultset

2011-01-25T14:43:00.003-05:00

Holas, siempre olvido como hacerlo... asi que mejor lo pongo aqui y si a alguien mas le sirve excelente.

El JTable se llama "tblDatos", este ya lo hemos editado con el editor visual de columnas en Netbeans (V6.9.1) (click derecho sobre el JTable -> Table Contents.. -> Columns) y hemos agregado o quitado las que necesitamos , asi como los Titulos y el tipo de contenido.

El codigo seria el siguiente:

===========================================================

SQL="select * from clientes";
rst=stmt.executeQuery(SQL);

if(rst!=null)
{
int f=0;
((DefaultTableModel) tblDatos.getModel()).setRowCount(0);
while(rst.next())
{
((DefaultTableModel) tblDatos.getModel()).setRowCount(tblDatos.getRowCount()+1);

tblDatos.setValueAt(rst.getString("codcliente").toString(),f,0);
tblDatos.setValueAt(rst.getString("cliente"),f,1);
tblDatos.setValueAt(rst.getDouble("monto"),f,2);
f++;
}
lblTotal.setText("TOTAL CLIENTES. => "+String.valueOf(f));
rst.close();

===========================================================

That´s all.
bye

Frase 13

2010-10-25T09:06:00.001-05:00

“Los analfabetos del siglo XXI no serán aquellos que no sepan leer y escribir, sino aquellos que no sepan aprender, desaprender y reaprender."
Alvin Toffler

Frase 12

2010-08-24T17:24:00.002-05:00

A pesar de que muchos dirian que no es una frase "digna" de recordarla, pero dada la situación de nuestro país, yo creo que es digna de recordarse siempre.

"El problema no es tu contrato basura, el problema es la basura que te contrata"
Gremio de Construcción Civil - Perú

Maximas Geek de Chuck Norris

2010-08-20T16:27:00.003-05:00

1. Chuck Norris invento C++ despues de darle una patada giratoria a C.
2. Chuck Norris es el "Domain controller".
3. Chuck Norris tiene el IP 0.0.0.0
4. Chuck Norris puede hacerle ping a 256.256.256.256 y obtener respuesta.
5. Chuck Norris puede hackear cualquier banco desde su palm.
6. La PC de Chuck Norris puede cargar Windows XP Pro con solo tener instalado DOS 6.2.
7. El EMail de Chuck Norris es ChuckNorris. El ES Internet.
8. Chuck Norris es "mailer-daemon".
9. Chuck Norris es Dr Watson.
10. format c: es el pedido para que Chuck Norris le de una patada giratoria a tu PC.
11. Lenguaje Maquina es el otro nombre para el lenguaje de Chuck Norris.
12. El CPU de Chuck Norris no tiene ventilador.
13. Chuck Norris puede escribir DVDs en un floppy drive.
14. Chuck Norris invento Internet.
15. Chuck Norris puede pegar imagenes en Notepad.
16. Chuck Norris con una patada giratoria convierte un modem 14400k en ADSL.
17. La impresora matricial de Chuck Norris imprime fotos – en color.
18. Chuck Norris usa Notepad como una base de datos
20. Chuck Norris monitor has no glare…no-one glares at Chuck Norris.
21. Chuck Norris puede editar archivos PDF.
22. Chuck Norris quema CDs con sus manos.
23. Chuck Norris puede descargar mp3s de Metallica usando Naspter.
24. Chuck Norris tiene una cuenta yahoo con hotmail.
25. Chuck Norris tiene un CPU Intel en una placa madre AMD.
26. Chuck Norris puede programar una MAC con macros de excel.
27. Chuck Norris puede hacer correr Windows Vista en un Pentium I a 133 Mhz
28. Los desarrolladores de Ubuntu crearon el comando sudo porque no pensaron en Chuck Norris
29. Chuck Norris respondió un hoax y salvó a un niño enfermo.
30. Chuck Norris puede programar torres de hanoi sin recursion.

Frase 11

2010-07-27T19:09:00.001-05:00

"En el mundo actual, se está invirtiendo cinco veces más en medicamentos para la virilidad masculina y silicona para mujeres, que en la cura del Alzheimer. De aquí a algunos años, tendremos viejas de tetas grandes y viejos con pene duro, pero ninguno de ellos se acordará para que sirven"

Drauzio Varella - Oncólogo brasileño ganador del Nobel de medicina.

Frase 10

2010-06-29T21:36:00.001-05:00

"Imagino k esa es la parte de la persona k para ser completa necesita k alguien tambien lo necesite
Dios creo hombre y mujer para que estuvieran juntos."

GPV

Un buen programa de Analisis de Grafos

2010-06-05T10:15:00.002-05:00

A todo los interesados en las disciplinas de:

Matematica Discreta
Teoria de Grafos

Analisis de Algoritmos
Investigacion de Operaciones

pos hay este programa que se llama "Grafos" es free, me parece interesante, lo pueden descargar de:
http://personales.upv.es/arodrigu/Grafos/funciones.htm

Bye

Muchos Libros de Ingenieria, Administracion e Informatica para descarga

2010-04-23T10:33:00.001-05:00

Muy buena recopilacion de libros, gracias VisualSAC

http://visualingenieria.blogspot.com/search?updated-min=2006-01-01T00%3A00%3A00-05%3A00&updated-max=2007-01-01T00%3A00%3A00-05%3A00&max-results=38

Usar un alias de campo en otro campo

2010-04-05T10:41:00.002-05:00

Esto se podia hacer en MSAccess muy sencillo, por ejemplo:

select (punit*cantidad) as total, total/1.19 as vventa from factura

el alias total es usado para general el alias vventa.

En MySQL se resuelve usando variables:

SELECT @total:=(punit*cantidad) as total,
@total/1.19 AS vventa FROM factura

That's all

Cambiar contraseña del usuario postgres

2010-03-19T15:28:00.002-05:00

Esto lo he probado en postgres 8.3 y 8.4 sobre CentOS 5.4

- En una sesion de terminal como root :

su postgres

psql template1 (template1 o alguna base q tengan creada)

- ya en el cliente psql poner

\password postgres

- Ahi les pedira el nuevo password, luego salen con \q y listo... es todo.

Bye

Matar una conexion de red activa en windows XP

2009-09-30T09:37:00.003-05:00

Holas, muchas veces nos ha pasado que hacemos un netstat para ver las conexiones activas de nuestro windowsXP y queremos cerrar o terminar alguna de ellas, para hacerlo lo que se debe hacer es matar el proceso que origina esta conexion. Entonces pasos para hacerlo, en una ventana de comandos hacemos lo sig:

1. Listar las conexiones activas con su PID
netstat -o

2. Matamos la conexion de la cual hemos identificado su PID.
taskkill /PID XXXX

* Si les dijera que se debe forzar para poder matar la conexion, entonces seria asi:
taskkill /F /PID XXXX

Ok, eso es todo, bye

Instalar Visual Studio 6.0 sin el JVM

2009-09-02T10:09:00.002-05:00

Hola, bueno este es un TIP muy rapidito y en si es la traduccion y resumen del post original de http://www.muujware.com/journal.asp?JournalItemID=1302882294.

Cuando instalamos Visual Studio 6 (siiii!!! aun lo uso.. y mucha gente tambien :o) ) nos pide obligatoriamente instalar su viejo y obsoleto JVM (Java Virtual Machine) y no te deja continuar con la instalacion de VS6 hasta que no instales el JVM.
Para evitar esta instalacion solo debes crear el archivo msjava.dll en la carpeta C:\windows y listo, el instalador de VS6 ya no pedira instalar el JVM. Bye

Frase 9

2009-08-20T10:41:00.001-05:00

"Tratar a tus usuarios como colaboradores es el comienzo menos complicado para mejorar con rapidez y depurar eficientemente un programa"

Trabajando con Netbeans 6.5.1 y Visual Web JSF - Parte 2

2009-06-30T14:24:00.001-05:00

Holas a todo@s, bueno aqui va la segunda parte del manual /guia.. mejor me apuro con esto porque ya salio la version 6.7 de Netbeans y derepente ya no sirva mucho esta guia,,jajaja,, no lo creo.. pero siempre hay que estar preparado para algun cambio..

PARTE II. CREANDO LA BASE DE DATOS Y CONECTANDOLA A NUESTRO PROYECTO

1. Crear nuestra base de datos en PostgreSQL.
Usando cualquier Administrador (psql, pgadmin3, pgmanager, etc etc) para PostgreSQL creamos una base de datos que se llame "biblioteca".

2. Haciendo la conexion.
Vamos a netbeans y seleccionamos la ficha Services, alli desplegamos el Nodo Databases -> Drivers, luego hacemos click derecho en sobre PostgreSQL* y escogemos "Connect using..."

*Si no tenemos el driver listado debemos agregarlo, bajando el driver jdbc para PostgreSQL de http://pgfoundry.org/projects/jdbc/ y agregandolo con las opciones que netbeans nos da.

Luego nos aparece la ventana para configurar nuestra conexion usando el driver jdbc de PostgreSQL, asi que solo ponemos lo que corresponda en cada campo, mas o menos como la figura siguiente:

Le damos click en "OK", nos pide escoger el esquema, asi que seleccionamos "public" y hacemos click en "Ok",

con lo que tenemos un nuevo nodo en el arbol bajo Databases.. algo como la figura:

desplegamos el nuevo nodo y veremos 3 carpetas "Tables", "Views" y "Procedures". Hacemos click derecho sobre "Tables" y escogemos la opcion "Create Table"..

nos aparece el formulario de creacion de una nueva tabla, asi que crearemos nuestra tabla que se llame "libros" y con los campos como se muestran en la figura (para agregar un nuevo campo solo debemos hacer click en el boton "Add column"):

Asi podemos crear tambien las otras tablas necesarias para nuestra aplicacion: "usuarios" y "prestamo_de_libros", soy consciente de que no uso ningun estandar de nomenclatura ni que el diseño de la base de datos es el adecuado y bla bla bla.. solo es un EJEMPLO con fines netamente didacticos :o), aun asi recomiendo dar integridad referencial (claves foraneas en la tabla "prestamo_de_libros" con algun otro administrador de PostgreSQL de tal forma que cuando despleguemos el nodo "Foreign keys" de la tabla "prestamo_de_libros" tengamos algo como la figura siguiente:

Bueno para los que deseen solamente crear la base de datos desde cualquier otro medio y empezar a hacer la aplicacion aqui les doy el script de creacion de la base de datos "biblioteca":


CREATE TABLE public.libros (
codigo smallint NOT NULL,
titulo character varying(45),
autor character varying(45),
isbn character varying(45)
) WITHOUT OIDS;
--
CREATE TABLE public.usuarios (
codigo smallint NOT NULL,
nombre character varying(50),
direccion character varying(50),
documento character varying(15),
telefono character varying(15),
fecha_nacimiento date,
sexo character(1)
) WITHOUT OIDS;
--
CREATE TABLE public.prestamo_de_libros (
numero integer NOT NULL,
fecha date NOT NULL,
usuario smallint NOT NULL,
libro smallint NOT NULL,
fecha_de_devolucion date NOT NULL
) WITHOUT OIDS;
--
ALTER TABLE ONLY libros
ADD CONSTRAINT libros_pkey PRIMARY KEY (codigo);
--
ALTER TABLE ONLY usuarios
ADD CONSTRAINT usuarios_pkey PRIMARY KEY (codigo);
--
ALTER TABLE ONLY prestamo_de_libros
ADD CONSTRAINT prestamo_de_libros_pkey PRIMARY KEY (numero);
--
ALTER TABLE ONLY prestamo_de_libros
ADD CONSTRAINT prestamo_de_libros_fk FOREIGN KEY (usuario) REFERENCES usuarios(codigo) ON UPDATE RESTRICT ON DELETE RESTRICT;
--
ALTER TABLE ONLY prestamo_de_libros
ADD CONSTRAINT prestamo_de_libros_fk1 FOREIGN KEY (libro) REFERENCES libros(codigo) ON UPDATE RESTRICT ON DELETE RESTRICT;

3. Enlazando el componente "Table".

Abrimos la pagina "FrmLibros" que hicimos anteriormente, luego vamos a nuestra paleta de componentes y jalamos un componente de tipo "Table" a la pagina,

le cambiamos el titulo a "LIBROS", y quedara algo asi:

luego vamos a la ficha "Services", seleccionamos nuestra tabla "Libros" y con el mouse la arrastramos y soltamos sobre el objeto "Table1" que acabamos de colocar en la pagina "FrmLibros" que tenemos abierta, aqui se puede demorar unos segundos en refrescar, y luego tendremos algo como se muestra:

Con esto se ha enlazado el Table con la tabla Libros de la base de datos. Se pueden dar algunas opciones para personalizar el diseño de la tabla usando la ventana de propiedades o haciendo click derecho sobre la tabla y escogiendo la opcion "Table Layout...". Por ejemplo vamos a corregir los titulos para que esten en mayusculas. Hacemos click derecho sobre Table1, escogemos "Table Layout...":

Alli podemos modificar muchos atributos mas, como alineacion de los datos, ancho de columnas, quitar columnas, agregar, etc etc.

Con esto ya podemos ejecutar "F6" y podremos ver los datos de nuestra tabla Libros.
Bueno dejo esta parte ahi, sino me demorarare mas en publicar.. la proxima si sera el insertar borrar y actualizar datos... y prometo que sera en menos tiempo que este post :o) , ademas revisare la nueva version de Netbeans 6.7, haber que cambios hay para VisualWeb. See yaaa

Migrando de MSSQL2000 a PostgreSQL8.3 - Conclusiones

2009-06-24T14:21:00.002-05:00

Ya termine la migración!!!!.. pero... hubieron cosas y cositas que resolver en el camino... asi queee... que mejor que compartirlas con uds...

Estas son las cosas que pasaron o que siempre se deben tener en consideración al momento de hacer una migración de este tipo:

No olvidar la diferencia de mayusculas minusculas, si desean usar Mayusculas o caracteres no ingleses como la ñ o tildes ponerlo siempre entre comillas (").
El driver ODBC no puede capturar resultados de cursores; es decir funciones que devuelven tipos cursor o refcursor. Segun algunos se puede usando tres instrucciones:

  
       begin;
       select * from tufuncion();
       fetch all from "nombre del cursor devuelto";

<<<<Yo no lo pude hacer funcionar en VB6 ni en Delphi, asi que use records, el tiempo ya presionaba mucho.

El driver OleDB cuando retorna mas de 8000 registros aprox. se vuelve lento muy lento. ODBC es siempre rapido pero hay que definir el record para retornar valores.
En Delphi fue muy muy ineficiente usar OleDB asi que alli solo se uso ODBC.
La instruccion "exists" en Postgres es muy lenta, en lo posible se debe evitar su uso; siempre hay una forma de evitarla con lefts joins, right joins y esas cosas.
No existe la sentencia TOP en Select's, en MSSQL se hace algo como: SELECT TOP 10 * FROM tutabla, en PostgreSQL seria: SELECT * FROM tutabla LIMIT 10 , dicen que tambien se puede usar el atributo 'maxrows' de CFQUERY, pero nunca lo use y no tengo idea a que se refieren :o).
La sentencia LIKE diferencia mayusculas y minusculas en postgresql, se puede solucionar con algo como esto: SELECT * FROM tutabla WHERE LOWER(columna) LIKE '%#LCase(var)#%' (O tambien se puedes usar el operador ILIKE).
El operador mas (+) no se usa para concatenar, en su lugar se debe usar la barra doble (||), por ejemplo la instrucción en MSSQL SELECT nombre + ' ' + apellido AS nombrecompleto seria SELECT nombre || ' ' || apellido AS nomobrecompleto , la ultima forma es aceptada tambien en MSSQL.
Hay muchas otras funciones tambien que no existen en PLPgSQL, pero no es dificil encontrar sus equivalencias, por ejemplo:


    month -> date_part
    year -> date_part
    convert -> to_char, cast, ::
    print -> raise notice
    isnull -> coalesce
    str -> to_char

El uso del tipo decimal desde VB a veces funciona y aveces no, el porque..., no lo se, asi que migramos todos los "decimal" a double precision, el problema es que despues hay que formatear las salidas y entradas a la cantidad de decimales que se necesiten.
Es importante tambien saber que la logica de manejo de transacciones en las funciones almacenadas en PostgreSQL es diferente que la de MSSQL con los Procedimientos Almacenados, en MSSQL si queremos controlar la correcta ejecucion de tooodo un store con muchas instrucciones debemos indicar explicitamente que queremos que este store este en una transaccion e ir capturando los codigos de error para hacer un rollback, mientras que en PostgreSQL toda funcion almacenada se ejecuta automaticamente dentro de una transaccion, por lo que si falla nuestra funcion en algun punto se hara un rollback automatico.

Ahora si creo que es todo.. Bytes y espero que esto le sirva a alguien mas....

Backup Simple en PostgreSQL usando pg_dump

2009-06-12T14:44:00.009-05:00

Holas, bueno este post no es totalmente de mi autoria, pero lo he traducido y lo pongo en mi Blog por si alguien mas lo necesita, hago algunos aportes chiquititos al articulo original, para que se entienda bien en un entorno CentOs 5 y PostgreSQL 8.3
La entrada original en ingles esta en http://www.cyberciti.biz/tips/howto-backup-postgresql-databases.html

PostgreSQL es una de las bases de datos open-source mas robustas que existen. Como muchos otros RDBMS este brinda herramientas para realizar tareas de backup de la data.

Paso# 1: Ingresar al sistema como usuario postgres.

Digite el siguiente comando:
$ su postgres
Obtener la lista(s) de la(s) base de datos a sacar backup:
$ psql -l

Paso# 2: Hacer el backup usando pg_dump

Pg_dump es un utilitario para hacer backups de una base de datos PostgreSQL. Solo se puede hacer backup de una sola base de datos a la vez. Sintaxis general:
pg_dump basededatos > archivodestino

Ejemplo: Hacer backup a una base de datos llamada ventas

Escriba los siguientes comandos
$ pg_dump ventas > ventas.dump.out

Para restaurar la base de datos ventas:
$ psql -d ventas -f ventas.dump.out

O

$ createdb ventas
$ psql ventas

Sin embargo, en un ambiente de produccion siempre necesitaremos comprimir el backup de la base de datos:

$ pg_dump ventas | gzip -c > ventas.dump.out.gz

Para restaurar la base de datos usamos el siguiente comando:

$ gunzip ventas.dump.out.gz
$ psql -d ventas -f ventas.dump.out

Paso# 3: Automatizar el proceso
A continuación veremos un script en bash para realizar dicha tarea automaticamente, y luego los comandos necesarios para ponerlo en el gestor de tareas cron del linux.

Creamos el archivo backup.sh
$ nano backup.sh

Y alli escribimos el codigo siguiente:
#!/bin/bash
DIR=/backup/psql
F=$(date +%Y-%m-%0e)
export PGUSER=postgres
export PGPASSWORD=tupassword
[ ! $DIR ] && mkdir -p $DIR || :
LIST=$(psql -l | awk '{ print $1}' | grep -vE '^-|^Listado|^Nombre|template[0|1]')
#LIST="ventas produccion almacen"
for d in $LIST
do
pg_dump $d | gzip -c > $DIR/$d$F.out.gz
done
unset PGUSER
unset PGPASSWORD

Salimos guardando con Ctrl-X.
Yo reemplazo la variable LIST con los nombres de mis bases que quiero sacar backup, el comando que saca los nombres de las bases de datos en el script no me funciona del todo bien, pero la idea es esa :o).

Luego damos permisos de ejecucion al archivo backup.sh
$ chmod 755 backup.sh

Ingresamos la tarea en el cron.
$crontab -e

Configuro para que todos los dias a la 1am se realice el backup, por lo que escribo (para editar deben usar comandos de vi)
00 01 * * * /var/lib/pgsql/backup.sh

Paso #4:Backup completo de todo el gestor de base de datos.
Otra opcion es usar el comando pg_dumpall. como su nombre lo dice genera un backup de TODA la base de datos, guardando los datos de todo el gestor como usuarios, grupos y privilegios. Se puede usar el comando de la sig. forma:
$ pg_dumpall > all.dbs.out

O

$ pg_dumpall | gzip -c > todo.dbs.out.gz

Para restaurar el backup usamos el siguiente comando:
$ psql -f todo.dbs.out postgres

Trabajando con Netbeans 6.5.1 y Visual Web JSF - Parte 1

2009-05-19T17:01:00.003-05:00

Holas a tod@s, esto queria ya publicarlo hace tiempo; logre hacer este ejemplo que es un sistema sencillo con base de datos full Netbeans con VisualWeb JSF revisando muchos ejemplos y en el caso del uso del framework de persistencia tuve algo de suerte tambien :o). Se que muchos desisten de usarlo porque no encuentran un buen manual o guia, espero que este sea un buen comienzo para todos.. Pensaba hacer una sola guía de todo, pero seria muy larga asi que mejor lo hare por partes.
El ejemplo es un pequeño sistema de Bibliotecas en el cual se tiene mantenimiento de Libros, Autores y Usuarios, y se pueden realizar los prestamos de libros y algunas consultas basicas. Espero en el transcurso de cada semana o antes ir subiendo cada parte de esta guía.

PARTE I. CREANDO EL PROYECTO Y LA INTERFAZ

1. Crear el proyecto
Usamos las opciones segun las figuras:
Tipo de Proyecto: Java Web -> Web application

Llamaremos al proyecto "VWBiblio":

Seleccionamos el Servidor de Aplicaciones: yo uso tomcat por lo comercial que es, por ejemplo hay muy pocos host que te den un servidor Glassfish, hay mas documentación y ayuda sobre tomcat; asi que por eso prefiero usarlo.

Seleccionamos el framework: VisualWeb JavaServer Faces

Le damos en "Finish" y ya tenemos creado nuestro proyecto.

2. Creando la Pagina Principal (Menu y fragments)
La pagina por default se llama Page1.jsp, la renombramos(Ctrl+R) a FrmPrincipal (me gusta usar esa nomenclatura :o) ) y presionamos "Refactor"

Agrego una pagina del tipo Fragment para el menu y la llamare "FrmMenu",

Ajusto el ancho y largo del fragment (widht= ,height= )

Luego agrego un control del tipo "Tree", al colocarlo me pide editar el titulo y le pongo "MENU".

Agrego TreeNodes haciendo click derecho sobre el nodo padre y click en "Add Tree Node" hasta tener un menu como el de la figura.

Agrego otra pagina de tipo Fragment para la barra de Titulo y le pongo de nombre "Frmtitulo"

Luego configuro el ancho=800px y alto=75px.
Agrego un control de tipo Label y cambio el texto a "Sistema de Bibliotecas"

Cambio el tamaño de la fuente del Label a 24px, eso lo hago modificando la propiedad "Style" del Label.

Cerramos guardando FrmMenu y FrmTitulo.
Ahora vamos a la pagina FrmPrincipal que sera la que contenga los fragments que hemos creado.
Agregamos un control del tipo "Page Fragment Box", aparece una venta donde se puede seleccionar el fragmento a agregar, automaticamente se seleccionara el fragment "FrmMenu.jspf" que es el Menu que creamos anteriormente, asi que solo hacemos click en el boton "Close"

Agregamos otro "Page Fragment Box" y en la ventana de seleccion escogemos "FrmTitulo.jspf", luego le damos en "Close" con lo cual tenemos los dos fragment en nuestra pagina principal. Los ubicamos usando el mouse de tal forma que nos quede como la figura siguiente.

3. Agregando las demas paginas y la navegacion del Menu.
Como ya tenemos nuestra pagina principal con titulo y Menu, ahora agregaremos las demas paginas de nuestro proyecto y la enlazaremos al Menu de navegacion que hemos creado.
Click derecho en "Web Pages" del proyecto y New -> "VisualWeb JSF Page".

Le cambio del nombre a FrmLibros y le doy click en el boton "Finish".
Del mismo modo agregamos las paginas FrmUsuarios, FrmPrestamo, FrmDeudores y FrmLibrosDisponibles.
Por lo que nuestra carpeta "WebPages" quedara como la figura siguiente:

Ahora abrimos la pagina "FrmLibros" y agregamos los fragments FrmMenu y FrmTitulo al igual que hicimos en la pagina principal "FrmPrincipal".
Tambien agregamos un control de tipo Label y le ponemos como texto "MANTENIMIENTO DE LIBROS". Con ello nos debera quedar una pagina como se muestra en la figura:

Ahora para añadirle la navegacion al menu: regresamos a la pagina de tipo Fragment "FrmMenu", alli seleccionamos el nodo Libros de nuestro Menu,

Luego vamos a la propiedad "url" y la cambiamos usando el boton del lado derecho "...", al aparecer la ventana seleccionamos la pagina "FrmLibros" y hacemoc click en el boton "Ok".

Debemos hacer lo mismo para las otros nodos del Menu y cambiar su propiedad "url" segun la pagina que corresponda.
Con ello si ejecutamos nuestra aplicacion (presionando F6) tendremos ya nuestro aplicativo web con un menu con el que podemos navegar entre las diferentes opciones.

Esto todo por ahora, la siguiente parte sera hacer el primer mantenimiento, para lo que usaremos PostgreSQL enlazado a nuestro proyecto VisualWeb JSF. Bye

Administrando PostgreSQL

2009-04-27T08:22:00.002-05:00

Hola con tod@s otra vez; como ya les conté estaba migrando una base de datos MSSQL2000 a PostreSQL 8,3, bueno la tarea aun sigue, pero esta vez les contare sobre algunas herramientas que son fundamentales en el momento de administrar nuestra base de datos PostgreSQL.

1. psql (http://psql.sourceforge.net). Esta herramienta en modo texto o consola se instala predeterminadamente cuando instalamos el servidor PostgreSQL, es básicamente un programa interactivo para ejecutar comandos SQL en nuestro servidor, aunque no tiene un interfaz gráfico amigable es una poderosa herramienta par administrar de forma interactiva nuestro servidor de base de datos.

2. pgAdmin III (http://www.pgadmin.org/ ) El administrador gráfico por defecto para PostgreSQL, es bueno y nos permite hacer muchas de las tareas de administración y consulta a nuestra base de datos de forma gráfica, es totalmente gratuita y se instala siempre que instalamos PostgreSQL en un entorno Windows. Algunas cosas que no tiene y con lo que seria en si una poderosa herramienta son: un diseñador de consultas al estilo E/R, un depurador de funciones , aunque en este punto encontré que si es posible hacerlo pero hay que recompilar el servidor y la herramienta con algunos parches para que se pueda realizar dicha función, mas información al respecto en http://www.pgadmin.org/docs/1.8/debugger.html. También sería fenomenal si se pudiera exportar a otros formatos como html, xml, xls, etc. ya que solo soporta exportación de los datos consultados a CSV (texto separado por comas).

3. pg_dump. La herramienta predeterminada para hacer copias de seguridad de nuestras bases de datos en PostreSQL, lo malo ( si se le puede llamar asi) es que es en modo texto o consola y es totalmente interactiva, no pudiéndose programar tareas, pero usándolo en combinación con algún otro programa adicional como cron en unix/linux/freebsd se puede hacer muchas cosas interesantes. Pero en definitiva es imprescindible para cualquier administrador de base de datos PostgreSQL.

4. pg_top (http://ptop.projects.postgresql.org/). Interesante programa para poder monitorear el estado de las conexiones, que esta haciendo cada una y algunas cosas mas de nuestro servidor PostgreSQL en ambientes linux. Podríamos compararlo en funcionalidad con el SQLProfiler de MSSQL. Esta herramienta esta hecha al estilo de la interfaz del comando top de Linux. PgAdminIII puede también darnos este tipo de información pero solo si tenemos instalado PGAdmin en el mismo equipo que el servidor. Pero en definitiva la considero también como una herramienta imprescindible para un DBA de PostgreSQL que se respete :o) .

5, SQL Manager for PostgreSQL (http://sqlmanager.net/en/products/postgresql/manager). Poderosa herramienta de administración, consulta y manipulación de datos para PostgreSQL. Permite consultar, modificar, eliminar datos, administrar usuarios y permisos, depurar funciones, exportar a muchos formatos, diseñador de consultas, etc, etc, etc. Todo con excelentes interfaces y asistentes gráficos que hacen que la tarea de administración del servidor sea realmente un trabajo mucho mas sencillo. Yo he probado algunos otros mas y siempre llego a la conclusión de que esta herramienta es la mejor. Lo malo, es que es de pago, pero aun así podemos usarla con dos opciones una es un demo por 30 días con todas las opciones y la otra es una versión “Lite” libre de pago pero con limitaciones en algunas funcionalidades. Aun así si se tiene la posibilidad de comprarla sera una excelente compra.

6, Arinet Automatic Postgresql BackupScript (http://autopgsqlbakup.sourceforge.net/) Mas que un programa es un script basado en pg_dump para poder realizar las tareas de backup de nuestra base de datos de una forma mucho mas sencilla y con mejores opciones. Se debe trabajar también con cron en Unix/Linux/FreeBSD ya que el script esta hecho en bash. Pero para mi caso particular me ha servido bastante en el momento de administrar el backup de mi información. En el sig. link hay un pequeño manual de como ponerlo a trabajar en Linux: http://linux2.arinet.org/index.php?option=com_content&task=view&id=125&Itemid=35

Bueno es todo por ahora, si se de alguna otra herramienta por ahí se los haré saber en un próximo post. Bye

Frase 8

2009-04-02T14:40:00.001-05:00

“La única diferencia entre un sueño y un objetivo es una fecha.”
Edmundo Hoffens

Migrando de MSSQL2000 a PostgreSQL8.3

2009-03-17T11:24:00.002-05:00

Hola, estoy ahora migrando una BD MicroSoft SQL 2000(MSSQL) a PostgreSQL 8.3 (PGSQL)..., la BD MSSQL tiene como principal caracteristica y que ha dado todo el trabajo, muchos Stores Procedures (SPs) asi que la dificl tarea de hacer esa migracion empezo ya.
Los sistemas que actualmente uso y se conectan al MSSQL2000 estan hechos en VisualBasic 6 y en Delphi 5, ya hice pruebas de conectividad y uso de PGSQL con estos lenguajes y todo bien usando el driver OleDB de Postgres (http://pgfoundry.org/projects/oledb/). Generar la cadena de conexion es muy sencillo, en todo caso un ejemplo seria:


CadConn = "Provider=PostgreSQL OLE DB Provider;" & _
     "Password=mipassword;User ID=miusuario;" & _
    "Data Source=localhost;Location=mibasededatos;Extended Properties='';"

El Unico detalle aqui es un problema del driver cuando uno lanza SQLs que devuelven registros, provoca un error de retorno, pero esto no sucede si se hace a traves de SPs.

Ok ahora si a las bases de datos; primero unos alcances: MSSQL usa como lenguaje de programacion Transact-SQL(T-SQL) y PostgreSQL PlPgSQL, para postgres no es el unico, se pueden instalar otros como java, c, etc ,etc. Pero el mas usado y casi por default es PLPGSQL. Asi que dare alguno tips para hacer esta tarea un poco mas sencilla.

Existe una herramienta que se llama SQLWays(http://www.ispirer.com/products) que ofrece hacer dicha migracion, es realmente util, pero siempre hay que revisar lo que ha migrado, ademas al hacer esta tarea de manera automatizada hay muchos SPs que no son optimos o que no se ejecutan.

Ok entonces vamos a los tips especificos

1. En PGSQL no existen "Procedimientos Almacenados" como tales, sino mas bien "Funciones Almacenadas", eso quiere decir que siempre estaremos obligados a devolver algo desde nuestros "SPs".

2. Declaracion de variables:

MSSQL: se usa la palabra DECLARE y el nombre debe empezar con el simbolo @ , por ejem:


           DECLARE @mivar INT

PGSQL: se hace el estilo de C o de java, es decir identificador seguido del tipo de dato, por ejem:


           mivar int;

3. Las asignaciones de valores a variables:

MSSQL: se usa SET , ejem:


            SET @mivar=1.12

PGSQL: se usa el simbolo := , ejem:


            mivar:=1.12;

4. Devolucion de registros o filas, uno de los mas importantes tips creo yo.

MSSQL: se hace el select directamente y punto, por ejem: :o)


create procedure consulta as
    select * from mitabla

PGSQL: como dije anteriormente en PGSQL se usan "funciones Almacenadas" por lo que debemos indicar a nuestra funcion el tipo a devolver. Lo mejor es usar el tipo pg_catalog.refcursor, que creo que esta disponible recien desde la version 8.x de PGSQL.


CREATE OR REPLACE FUNCTION consulta() RETURNS "pg_catalog"."refcursor" AS
   declare data refcursor;
begin
   open data for (
     Select * from mitabla
   );
   return data;
END;

5. Recorrer cursores dentro de los SPs.

MSSQL:


declare @v_1 varchar(10)
declare @v_2 varchar(10)
declare cur1 cursor for
select * from mitabla
OPEN cur1
FETCH NEXT FROM cur1
INTO @v_1, @v_2
WHILE @@FETCH_STATUS = 0 BEGIN
print 'Valor 1 '+v_1 
print 'Valor 2 '+v_2 
FETCH NEXT FROM cur1
  INTO @v_1, @v_2
END
CLOSE cur1

PGSQL:


declare
cur1 refcursor;
v_1 varchar (10) ;
v_2 varchar (10) ;
begin
OPEN cur1 FOR execute('select * from mitabla');
loop
 fetch cur1 into v_1, v_2;

 if not found then
    exit ;
 end if;

 RAISE NOTICE 'Valor 1(%)', v_1;
 RAISE NOTICE 'Valor 2(%)', v_2;

end loop;
close cur1;
end;

* Existe otra forma de recorrer registros en PGSQL, pueden ver mas detalles en http://www.postgresql.org/docs/8.3/interactive/plpgsql-control-structures.html#PLPGSQL-RECORDS-ITERATING.

6. Bueno este tip mas que de SPs, es para la carga de data, mis tablas en MSSQL son de millones de registros asi que la mejor manera de pasar la data del MSSQL a PGSQL es:


1ero. Bajar la data del MSSQL a texto plano, tipo csv, es decir valores separados por comas.
2do. Usar el comando COPY.. FROM de PGSSQL para cargar a data desde los arhivos de texto a las tablas de PGSQL.

Ok, es todo hasta ahora, si veo algo mas lo publicare o si alguien mas puede dar un aporte bienvenido.

Un programa simple de descarga de archivos usando API’s de Windows en Visual Basic

2009-03-09T14:20:00.004-05:00

Hola a todos, bueno en esta oportunidad les contare algo del uso de APIs desde nuestros programas hechos en Visual Basic.
Para los que no saben que es un API… un API(Application Programming Interface) o en castellano “Interfaz de Programación de Aplicaciones” es [gracias Wikipedia :o)] :

Un conjunto de funciones residentes en bibliotecas (generalmente dinámicas, también llamadas DLLs por sus siglas en inglés, término usado para referirse a éstas en Windows) que permiten que una aplicación corra bajo un determinado sistema operativo. En este caso se refiere a las aplicaciones Windows. Debido a su estrecha relación con el desarrollo de software, los programas en sus especificaciones generalmente explicitan la versión de la API del sistema operativo, mediante diversas nomenclaturas tales como la versión específica del sistema operativo (para Windows 98, por ejemplo), o explicitando la versión del conjunto de bibliotecas (Plataforma Win32, etc.). Las funciones API se dividen en varias categorías:
Depuración y manejo de errores
E/S de dispositivos
DLLs, procesos e hilos
Comunicación entre procesos
Manejo de la memoria
Monitoreo del desempeño
Manejo de energía
Almacenamiento
Información del sistema
GDI (interfaz para dispositivos gráficos) de Windows (tales como impresoras)
Interfaz de usuario de Windows

Bueno a lo nuestro.. “y entonces José para que es todo eso, si VB (Visual Basic) tiene un montón de clases, funciones y procedimientos que nos permiten hacer cosas con el sistema operativo” , es cierto pero no todo se puede hacer con lo nativo de Visual Basic, veamos un ejemplo especifico; se requiere hacer un programa en VB de descarga de archivos de Internet, donde nos muestre una barra con el avance de la descarga y obviamente antes nos habra mostrado el tamaño total de la descarga.

Como lo resolvemos??? Existe en VB6 el control Inet y en Vb.Net la clase Net.WebClient, pero con ninguno de ellos podremos hacer una barra de progreso real.

Asi que para eso usaremos el API “WinInet” que como su nombre lo indica esta en el archivo “WinInet.dll” dentro de la carpeta de Windows\system32.

Ahora si, a resolver el problema..

Hagamos la Interfaz usando el diseñador de formularios en VB2005 de tal forma que nos quede algo asi:

Ok, ahora agregamos un modulo que se llame WinInet.bas y declaramos las funciones de la API que usaremos:

Option Explicit
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Const HTTP_QUERY_CONTENT_LENGTH = 5
Public Const HTTP_QUERY_LAST_MODIFIED = 11

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, _
ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer

Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" _
(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, _
ByRef lBufferLength As Long, ByRef lIndex As Long) As Boolean

Una explicacion rápida (el artículo se volvería demasiado extenso si explico a profundidad cada uno de ellos):

InternetOpen: Abre la conexión a Internet.
InternetOpenUrl: Abre la dirección desde donde descargaremos el archivo.
InternetReadFile: Lee o descarga el archivo desde la dirección abierta.
HttpQueryInfo: Lee o extrae algun tipo de información de una dirección en Internet.
InternetCloseHandle: Cierra la conexión abierta a Internet

Listo, ahora que tenemos las funciones hay que usarlas. En el formulario que creamos anteriormente lo que nos interesa es que al presionar el boton etiquetado “Iniciar” descargue el archivo ingresado en la caja de texto al lado de la etiqueta “Ruta(URL):”; ademas deberemos cambiar el nombre de algunos objetos como sigue:

La barra de progreso : pgDownload
La Etiqueta de Tamaño del archivo: lblFileSize
La Etiqueta de Bytes descargados: lblBytesDownloaded
La etiqueta de Estado: LblEstado

entonces el código para ello seria el siguiente:

Private Sub Command1_Click()
DownloadFile Text1.text, “c:\Downloads\archivo.txt”
End Sub

Public Function DownloadFile(FileOrigen As String, FileDestino As String) As Boolean
'On Error GoTo errhandle
Dim hOpen As Long
Dim HOpenURL As Long
Dim sUrl As String
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
Dim percent As Integer
Dim file As String
Dim flen As Long

pgDownload.Value = 0
lblFileSize.Caption = 0
lblBytesDownloaded.Caption = 0
'MsgBox "voy a conectar" + vbCrLf + FileOrigen + vbCrLf + FileDestino

sUrl = FileOrigen 'url
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
HOpenURL = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)

'MsgBox "conectado!!"

DownloadFile = False
Me.LblEstado.Caption = "Descargando.."
Me.LblEstado.Refresh
bDoLoop = True

Dim cnt As Long
cnt = 0
DownloadFile = True

While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(HOpenURL, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
'percent = Int((Len(sBuffer) / flen) * 100)
cnt = cnt + lNumberOfBytesRead
If (cnt > 10000) Then
lblBytesDownloaded.Caption = CStr(Len(sBuffer))
lblBytesDownloaded.Refresh
cnt = 0
End If
pgDownload.Value = lblBytesDownloaded.Caption
If Not CBool(lNumberOfBytesRead) Then
bDoLoop = False
End If
Wend
'Kill FileDestino
Open FileDestino For Binary Access Write As #2
Put #2, , sBuffer
Close #2
pgDownload.Value = 100
lblBytesDownloaded.Caption = file
lblBytesDownloaded.Refresh

If HOpenURL <> 0 Then InternetCloseHandle (HOpenURL)
If hOpen <> 0 Then InternetCloseHandle (hOpen)

End Function

Con eso seria suficiente, espero a alguien le sirva este programita, a mi me sirvio mucho; le hice algunas modificaciones para que me sirva de un actualizador de EXE's en mi red corporativa, si alguien desea que le explique como lo hice e avisan para un siguiente post jeje.

Referencias:
http://www.wikilearning.com/tutorial/los_rincones_del_api_win32_el_cache_de_wininet-enumerar_las_entradas_almacenadas_en_el_cache/3846-6#verOpiniones
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20577961.html
http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3BQ175179
http://en.allexperts.com/q/Visual-Basic-1048/using-wininet-dll.htm
http://www.vbforums.com/showthread.php?t=543107

Frase 7

2009-02-02T15:08:00.000-05:00

"El que quiera hacer todo solo, jamás será un gran líder; tampoco el que quiera quedarse con todo el crédito por hacerlo "
- Andrew Carnegie

Frase 6

2009-01-05T12:41:00.002-05:00

Vuelve a empezar...

aunque sientas el cansancio,
aunque el triunfo te abandone,
aunque un error te lastime,
aunque un negocio se quiebre,
aunque una traición te hiera,
aunque una ilusión se apague,
aunque el dolor queme tus ojos,
aunque ignoren tus esfuerzos,
aunque la ingratitud sea la paga,
aunque la incomprensión corte tu risa,
aunque todo parezca nada...
vuelve a empezar...
(Cecilia Prezioso)

Un bonito regalo

2008-12-26T08:26:00.002-05:00

Holas, quiero compartir con tod@s, este regalo que me hicieron por mi cumpleaños.. el texto simplemente me parece sensacional... Gracias. muchas gracias KS..
=====================================================

......son las casi 10:58 am del 24 de diciembre de 1975 , y ya naciste! , tienes aproximadamente ya casi 10 horas y 37 minutos respirando este aire inesperado
Papà y mamà estan felices por que ya estas aqui y además de todo eres varón!! (jaaaa el machismo por delante)
mas ya no importa tanto la razón, importa más la sensación de felicidad de tenerte aún mas cerca que antes

Y te sientes extraño,todas tus sensaciones son nuevas, sientes un algo que entra hasta tus pulmones muy ligero y aún mas extraño tu pechito se empieza a hinchar y luego a desinflar, estas inspirando y expirando ... ya empezaste a respirar!

Y te sientes frio y un tantito solo, pues ya no son dos, ahora eres uno
claro! sin dudar , no hay nada mas cálido que el vientre de mamá

pero desde antes y hasta ahora todo es un perder y ganar ,ya no estas dentro
pero ahora la puedes rozar,la puedes tocar , puedes sentir sus manos recorriendo tu diminuto rostro, puedes sentir como se asoman sus besos y se entregan a ti envueltos en la mas maravillosa energia y la muestra más pura de amor,lo ves... tal vez haz ganado mas , que perdido...

.......y ya diste tu primer llanto, tu primera protesta como un gran no conformista y es que todos nacemos asi, pero pasan cosas y mas cosas que algunos quedamos atrapados en ese conformismo y otros tantos intentamos mantenerla lejos ..en finn...

...... por ahora tu lenguaje es binario, y es que si tienes la boquita abierta es un 0 (cero) , y si la cierras es un 1(uno),eres un bebe robusto como el increible Hulk ..jajaja tal vez ,bello y muy inteligente desde ya.... ya eres un gran hacker ...y ya empiezas a cuestionar ...
De pronto oyes una voz muy conocida ...sii...es mamá ....de seguro dirás,tan linda como siempre,aún no entiendes lo que intenta decir tan sólo te dejas llevar y mecer por la sinfonia perfecta de su voz y ya casi dormido vuelves a oir más y ahora con más claridad a todo los demàs,y escuchas jose!, ese debe ser mi nombre piensas ..entonces...

Empiezas a sentir tu cuerpecito de un modo diferente,mueves tus piernecitas ,jaaa ya aprendiste a patalear pero presiento que futbolista ..no seras...tranquilo no te muevas tanto,esta bien que ya empieces a controlar tu cuerpo,pero aún dependes de mamá,pero faltara poco para ser independiente como te gusta ser,ahora es tiempo de disfrutar y llego el momento mágico de tu primer amamantamiento, la conexion mas perfecta de amor,placer,nutriciòn y que se yo ......aún tus labios titubean en movimiento pero ella te ayuda y tus labios rosaditos pequeñitos pasan de dibujar el 1 al 0, para poder sentir la seda de los pechos de mamá y de un modo más te dice cuanto te ama .... y a lo lejos una voz susurra como brisa de mar, despacito muy despacito para no asustarte ..y te dice : bienvenido jose joaquin a vivir...
Son las 11:15 am del 24 de diciembre del 2008 y sigues viviendo

te haz dado cuenta que eres un ser muy especial , tienes el derecho y el deber de estar bien contigo...ps q bueno que lo sepas .

Es otro modo más de decir Felíz Dia Jöse.

Impresión Draft desde VB2005

2008-12-23T11:34:00.003-05:00

Hola, tal y como lo dije anteriormente entre al problema de imprimir en Draft desde VB2005 en una EPSON FX890.
Asi que les contare todo lo que probe y con lo que finalmente quede como solución.

1. Use la API de winspool.drv , pero no respeta algunas configuraciones de la impresora como tamaño de pagina, interlineado o corte de pagina automático, asi que esta solución no es la mas eficiente.

2. Instale el power pack 3 de VB2005 con el que habilita el objeto printer para poder ser usado en VB2005, perooooooo, no reconoce las fuentes dela impresora, yo me imagino que es porque la clase printer trabja de todas formas a traves del framework de .net y este no puede accder a las fuentes de la impresora.. asi queeeeeeeeeeeee........ no me sirve esta solución.

3. En VB6 me funciona perfectamente imprimir Draft con el objeto Printer, solo se debe setear el nombre de la fuente a "Draft 10cpi" (printer.fontname="Draft 10cpi") y listo funciona y respeta las configuraciones de la impresora, solo hay que tener cuidado con el tamaño de página que no puede ser menor a 4" de longitud.
Entonces lo que hice fue hacer una dll en VB6 que contenga una clase con el objeto Printer, luego agregue esta dll a VB2005 y todo funciono de maravillas. Lo unico malo claro es que se depende de las librerias de ejecucion de VB6 como la msvbvm60.dll
Ahi les dejo el codigo de la dll, yo le puse de nombre clsDraft.cls
================================
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsDraft"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public Fuente As String

Private Sub Class_Initialize()
Fuente = "Draft 10cpi"
End Sub

Public Sub AbreImpresora(Optional NombreDoc As String = "CROMOTEX")
With Printer
' .PaperSize = vbPRPSUser '256
' .Height = 10773 '19.2
' .width = 4083 '7.2
'.Orientation = vbPRORLandscape
.FontName = Fuente
End With
End Sub

Public Sub CierraImpresora()
Printer.EndDoc
End Sub

Public Sub Imprimir(Texto As String, Optional Salto As Boolean = True)
Printer.FontName = Fuente
Printer.Print Texto
End Sub
================================================

Espero le sirva a alguien mas.

Ahhh aun estoy buscando un Reporteador que tambien me permita usar la fuente Draft en Vb2005.

GPS, una tecnología de moda en el transporte peruano

2008-12-20T12:44:00.002-05:00

Es increíble el boom actual de los GPS en el Perú, ya sea gracias a normativas gubernamentales o al excesivo incremento delincuencial en el país; por lo que entonces debemos ver y/o conocer un poco de esta tecnología y toda la gama de aplicaciones empresariales, gubernamentales a las que se les esta dando uso en nuestro país.

Como siempre debemos empezar con un poco de marco teórico.. así que haremos uso nuevamente de nuestro querido wikipedia..:

“El Global Positioning System (GPS) o Sistema de Posicionamiento Global (más conocido con las siglas GPS, aunque su nombre correcto es NAVSTAR-GPS[1] ) es un Sistema Global de Navegación por Satélite (GNSS) que permite determinar en todo el mundo la posición de un objeto, una persona, un vehículo o una nave, con una precisión hasta de centímetros, usando GPS diferencial, aunque lo habitual son unos pocos metros. Aunque su invención se atribuye a los gobiernos francés y belga, el sistema fue desarrollado e instalado, y actualmente es operado, por el Departamento de Defensa de los Estados Unidos.”

Como les decía en nuestro país esta el “boom” de los GPS, mas porque el gobierno sabe las grandes ventajas que da esta tecnología para fines de control y auditoria. El transporte interprovincial, la industria pesquera, la industria minera son algunos de los obligados a contar con estos sistemas. Por lo que diversidad de empresas han salido al mercado a ofrecer el servicio con mas o menos valores agregados en cada uno los ramos anteriormente mencionados.

Se ofertan en el mercado local dos servicios:

1. A través de tecnología celular GPRS; la conexión con los satélites GPS se hace por medio de conexiones celulares GPRS por lo que los proveedores no garantizan la cobertura en todo el territorio, solo en zonas donde llega la señal celular GPRS de cualquiera de las dos operadoras de telefonía celular en nuestro país (telefónica y claro), aunque la mayoría recomiendan usar una conexión de Claro porque tiene una mayor cobertura GPRS. Los equipos de este servicio oscilan entre unos US$300.00 y US$450.00 con un pago mensual aproximado por conexión de US$25.00 por equipo. Si ven el costo es relativamente barato, pero las zonas de cobertura son el problema, ya que por ejemplo para el caso de un viaje Cuzco – Lima habrá cerca de un 50% del recorrido donde no se tenga señal del equipo y si hablamos de la industria pesquera esto será mucho peor.

2. A través de conexiones satelitales; en este caso la conexión con los satélites de GPS se hace directamente por una conexión satelital por lo que se asegura la conexión en casi cualquier lugar de nuestro planeta. Los equipos oscilan entre los US$1000.00 y US$2000.00 con costes de conexión mensual de aproximadamente US$125.00 por equipo. Aquí se ve que el costo es algo alto, pero para empresas u organizaciones que requieren tener un control permanente independiente del lugar donde se encuentren esta es la única solución.

También hay sistemas híbridos (celular GPRS/satelital) pero son menos ofertados que los dos anteriores.

Aplicaciones. Las aplicaciones que se le dan son diversas, mencionare primero algunas requeridas por temas gubernamentales:

Limites de Pesca
Limite de Velocidad del vehiculo
Número de viajes
Respeto de Rutas
Emergencias.. botón de pánico

Y otros que también se pueden usar, en algunos casos requieren de algún accesorio adicional:

Estado de las puertas.
Robo con remolque.
Seguimiento de tiempo de salida y llegada.
Seguro de secuestro.
Comunicación de voz.
Envió y recepción de mensaje vía SMS.
Seguimiento del estado del motor.
Control de consumos de gasolina.
Conexión a Internet.
Etc, etc :o)

En cuanto a empresas que ofrecen el servicio hay muchas, demasiadas diría yo, por lo que solo nos queda evaluar bien al decidirnos por alguna, tal vez mediante su experiencia dando este servicio en el ramo que estamos nosotros, el precio, servicios adicionales y por supuesto el soporte y atención postventa.

Nos vemos.. espero les sirva para algo esta aproximación a los GPS en el Perú.

IN-TECH scientific database

2008-11-19T17:22:00.002-05:00

Excelente site con libros, periodicos, articulos, etc; mucha información cientifica sobre computación y tecnología.
Copio el contenido de un mail que me llego. En un rato lo traduzco para los hispanohablantes jeje

===============================
Dear Sr,

It is my pleasure to inform you that IN-TECH has started new open
access database at http://www.intechweb.org
IN-TECH scientific database is FREE for everyone, everywhere in the
world.
At the moment IN-TECH database offers more then 2000 peer-reviewed
book and journal articles covering the fields of Artificial
Intelligence, Manufacturing, Robotics and Operations Research.

To search IN-TECH database you do not even need to register. All IN-
TECH articles are accessible in full length immediately on
publication, free of charge.

We hope that you will find IN-TECH database a valuable source for
your scientific work.

Frase 5

2008-11-07T14:57:00.000-05:00

Teoría de las Especies:
"No sobrevive la más fuerte o la más inteligente sino aquella que mejor se adapta a los cambios"
Charles Darwin (1809-1882)

Full Warez

2008-11-06T14:54:00.003-05:00

PorDescargaDirecta.com
http://pordescargadirecta.com
Foro para "compartir" Peliculas, Series, Musica, Juegos, Ebooks, Software, etc via rapidshare, megaupload o cualquiera parecido.

Snips
http://www.esnips.com/
Un lugar tambien para "almacenar" archivos, contiene un buen buscador; lo mejor que he encontrado son EBooks y documentos.

Scribd
http://www.scribd.com/
Otro sitio para "almacenar" archivos.. mas enfocado a ebooks y documentos. Al igual que snips muy bueno para encontrar libros y documentos digitales diversos.

La importancia de una Metodologia de Gestión en el Desarrollo de Software

2008-11-06T09:37:00.004-05:00

Introducción
Cuando empezamos a desarrollarnos dentro del perverso mundo del desarrollo de software algunos lo hacemos de la mano de un buen guía o mentor que nos enseña buenas practicas en el momento de desarrollar software, muchos otros solo siguen su instinto recordando en cada traspié palabras y consejos de algunos maestros o profesores que tuvimos en nuestra formación profesional, bueno eso si recordamos lo que dijeron alguna vez y si en verdad tuvieron algo que decirnos.
Es así como luego de mucho sufrimiento y momentos traumáticos nos damos cuenta de la necesidad de ser "un poco organizados" :o) en el momento de desarrollar software, lo primero que hacemos en ese momento es seguir y aprender de alguien que ya la sufrió y en base a su experiencia estuvo dispuesto a dejarnos una propuesta de metodología de desarrollo de software.
Por lo tanto actualmente tenemos muchas de ellas, unas mejores, peores, populares , queridas y no muy queridas pero propuestas metodologicas al fin y al cabo.. debo señalar casi obligado a las mas populares como: RUP, XP y MSF, pero no son las únicas ni las que yo he encontrado se ajusten mejor al momento de ponerme a hacer software. En algún articulo posterior les contare el porque de lo ultimo que digo, ahora nos centraremos en revisar el porque es importante tener alguna metodología para hacer gestión de nuestros proyectos de desarrollo de software.

Algunas metodologías de gestión

Empezaremos creo preguntándonos que es “Gestión”, esa palabrita que tanto se usa y mal usa para justificar jefaturas, gerencias y demás cargos de dirección, muchas veces mal llevados por falta de no saber hacer justamente eso: “gestión”. Según la Real Academia de la Lengua Española (RAE) gestión es : “Acción o efecto de gestionar o Administrar” :o) entonces que es administrar o gestionar algo.. vayamos al grano, gestionar es “el proceso mediante el cual se obtiene, despliega o utiliza una variedad de recursos básicos para apoyar los objetivos de la organización.”, para nuestro caso seria objetivos de un proyecto de software.
Entonces ya sabemos que es y para que no ayudara… simplemente (si se le puede decir así) para llevar adelante un proyecto de desarrollo de software tratando de que el resultado de este sea de calidad cumpliendo con los plazos y recursos que nos hayamos planteado al inicio de nuestra titánica tarea de hacer un software.

Bueno y que hago ahora entonces:

1. Cuales hay? Daré una pequeña referencia a algunas, las mas populares a mi parecer (por favor si alguien considera que alguna otra mas debería estar, encantado de sus criticas)

PERT (Program Evaluation and Review Technique). Inventado en 1958 por la Oficina de Proyectos Especiales de la Marina de Guerra del Departamento de Defensa de los EE. UU. PERT es básicamente un método para analizar las tareas involucradas en completar un proyecto dado, especialmente el tiempo para completar cada tarea, e identificar el tiempo mínimo necesario para completar el proyecto total.

CCPM (Critical Chain Project Management) la Gestión de proyectos por Cadena Crítica (CCPM por sus siglas en inglés) nace en el 97 a raiz del libro de Eliyahu M. Goldrat, padre putativo no solo de esta criatura sino de la famosa Teoría de las Limitaciones.

Empieza las cosas cuanto antes, no las dejes para el último momento (lo que Goldratt bautiza adecuadamente como el “síndrome del estudiante”).
Reservar una fracción de la duración estimada de cada tarea, intentando acabarla antes y posponiendo esa fracción al final del diagrama de Gantt para crear un denominado “buffer de proyecto”

La Guía del PMBOK®, desarrollada por el Project Management Institute, contiene una descripción general de los fundamentos de la Gestión de Proyectos reconocidos como buenas prácticas. Actualmente en su tercera edición, es el único estándar ANSI para la gestión de proyectos. Todos los programas educativos y certificaciones brindadas por el PMI están estrechamente relacionadas con el PMBOK. El PMI ha publicado los borradores para revisión de la Cuarta Edición de la Guía del PMBOK®, que será publicada a fines del año 2008.

Todas las mencionadas anteriormente son metodologías de gestión de proyectos, que con algunos ajustes se pueden aplicar de manera muy efectiva y eficiente a proyectos de software.

Veamos ahora algunas específicas para proyectos de software.

Métricas, es una metodología de planificación, desarrollo y mantenimiento de sistemas de información. Promovida por el Ministerio de Administraciones Públicas del Gobierno de España para la sistematización de actividades del ciclo de vida de los proyectos software en el ámbito de las administraciones públicas. Esta metodología propia está basada en el modelo de procesos del ciclo de vida de desarrollo ISO/IEC 12207 (Information Technology - Software Life Cycle Processes) así como en la norma ISO/IEC 15504 SPICE (Software Process Improvement And Assurance Standards Capability Determination).

Planificación de Sistemas de Información (PSI).
Desarrollo de Sistemas de Información (DSI). Debido a su complejidad, está a su vez dividido en cinco procesos:

Estudio de Viabilidad del Sistema (EVS).
Análisis del Sistema de Información (ASI).
Diseño del Sistema de Información (DSI).
Construcción del Sistema de Información (CSI).
Implantación y Aceptación del Sistema (IAS).

Mantenimiento de Sistemas de Información (MSI).

RUP (Rational Unified Process), El Proceso Unificado de Rational es un proceso de desarrollo de software y junto con el Lenguaje Unificado de Modelado UML, constituye la metodología estándar más utilizada para el análisis, implementación y documentación de sistemas orientados a objetos. El RUP no es un sistema con pasos firmemente establecidos, sino un conjunto de metodologías adaptables al contexto y necesidades de cada organización.

SCRUM. Es un proceso de desarrollo de software iterativo e incremental utilizado comúnmente en entornos basado en la metodología Agile de desarrollo de software. Aunque Scrum estaba enfocado a la gestión de procesos de desarrollo de software, puede ser utilizado en equipos de mantenimiento de software, o en una aproximación de gestión de programas: Scrum de Scrums.

2. Cual usar? Mi pequeño consejo es que uses aquella con la que te sientas mas cómodo, todas y cada una de ellas tienen sus pros y sus contras, prueba en la medida de lo posible cada una, tal vez con pequeños proyectos donde puedas ver su agilidad en respuesta a cambios de requisitos y la que te brinde la mejor información que tu consideres necesaria al momento de tomar decisiones para poder gestionar tu proyecto. Si lo ves necesario apóyate en una de metodología de gestión general y usa herramientas de alguna orientada al desarrollo de software (eso es lo que yo siempre hago).

Pero SIEMPRE APOYATE EN UNA METODOLOGIA DE GESTION sea cual sea, hará que logres proyectos de mejor calidad, cumpliendo tus tiempos y usando solo los recursos necesarios.

Espero sirva de algo este pequeño articulo, en alguna otra entrega posterior hablare sobre la metodología que mas me gusta y con la que mejores resultados he tenido : SCRUM.
Hasta otra oportunidad.

Drivers Windows XP para HP dv6426us

2008-10-31T10:19:00.002-05:00

Aqui les dejo los links de un foro donde dan los drivers que sirven para mi HP dv6426us.

http://www.topix.com/forum/computers/hp/T4E1C3AVFVG1DB1C9/p4

Dinamicas

2008-10-22T17:18:00.001-05:00

Dinamicas en grupos
http://members.fortunecity.com/dinamico
Excelente coleecion de dinamicas para trabajar diferentes aspectos de grupos organizacionales.

Tecnicas de Creatividad

2008-10-22T08:54:00.004-05:00

Neuronilla.com
http://www.neuronilla.com/component/option,com_deeppockets/task,catShow/id,5/Itemid,70/
Excelente sitio sobre diferentes recursos sobre creatividad.. un factor demasiado importante al momento de resolver problemas mediante la propuesta de soluciones. En el enlace de arriba encontraran una lista de técnicas que se usan para ayudar a desarrollar esa creatividad que todos llevamos dentro.. a mi personalmente me gusta mucho SCAMPER.

Centrar JFrame

2008-10-20T10:58:00.002-05:00

Hola, haber algo sencillo de hacer pero q a veces me paro olvidando.. Netbeans nos ahorra el trabajo de hacer codigo con mucha utilidades visuales.. poco a poco ire publicando varias de las cosas que he podido encontrar..

Centrar un JFrame (Netbeans 6.1)

1. Seleccionar el JFrame que queremos aparezca centrado.
2. En la ventana de propiedades seleccionar la ficha "Code".
3. Cambiar el valor de "Form Size Policy" a "Generate Resize Code".
4. Con lo anterior se activa la edicion de los valores de "Generate Size" y "Generate Center". Predeterminadamente ambas estan seleccionadas, por lo que no sera necesario hacer nada mas.

Y listo con eso ya tus JFrames se mostraran centrados.

Software para Nokia N95

2008-10-17T08:37:00.004-05:00

Holass!!!, ahora que estoy con nuevo juguete.. mi nuevo Nokia N95-3 con 9GB :o) pues hay que buscar software para el hacking.. asi que aquí ire poniendo todos los sitios que encuentre con una descripción del tipo de programas que alli se encuentren.

MyBloop
http://www.mybloop.com/n95
Muchos juegos, pero casi nada de aplicaciones de oficina o para productividad diversas, pocos temas.

Drakkarious 2.0 FP1 & PreFP1{INSTALA SIN FIRMAR}ADIOS AL CERTIFICADO CADUCADO
http://www.todonseries.es/foro/index.php?topic=72.0
Excelente utilitario para instalar aplicativos con certificado caducado, y deveras que funciona!!.. Mi primer Hack al N95.. jeje..

Freeware Symbian
http://www.symbian-freeware.com/
Buen sitio para descargar utilidades interesantes para el N95

Frase 4

2008-10-14T17:22:00.001-05:00

"Si lloras porque perdiste el sol, las lagrimas no te dejaran ver las estrellas que estan cerca"
Autor Desconocido

Tambien pongo una versión en Italiano gracias a mi amiga Pamela, ya que a ella le gusta mas asi :o)
"Se Piango perché hanno perso il sole, le lacrime non sarà in grado di vedere le stelle che sono circa"

Asociación Internacional para el Reconocimiento de Patrones

2008-10-14T08:28:00.002-05:00

International Association for Pattern Recognition

http://www.iapr.org/

The goal was a web site that can support students, researchers and staff. Of course, advances in pattern recognition and its subfields means that developing the site will be a never-ending process.
However, we believe that the current site is now well developed enough for general use.
What resources does the IAPR Education web site have?
================

The most important resources are for students, researchers and educators.
These include lists with URLs to:
- Tutorials and surveys
- Explanatory text
- Online demos
- Datasets
- Book lists
- Free code
- Course notes
- Lecture slides
- Course reading lists
- Coursework/homework
- A list of course web pages at many universities

There are many areas for extension in the web pages, but they already link to more than 3000 resources.

These resources are subdivided into five areas. Of course, the boundaries are never distinct and we undoubtedly will also provoke a few dissenting opinions. However, we have tried to address the main work done by the IAPR community, as clustered into 3 core technology areas and 2 broad families of application areas:

1. Symbolic Pattern Recognition
2. Statistical Pattern Recognition
3. Machine Learning
4. 1D Signal Analysis
5. Computer vision/Image Processing/Machine Vision

Mi aporte OpenSource en VBasic

2008-10-12T00:42:00.003-05:00

Lo unico que he podido aportar hasta ahora es un programita OPEN-SOURCE desarrollado por mi y para el uso del que lo desee, es una "Agenda Telefónica" con caracteristicas interesantes, bueno al menos para la época en que lo desarrolle :o). Pueden descargarlo de la página del proyecto en sourceforge.net

https://sourceforge.net/projects/diretel/

Espero alguien se anime a continuarlo, migrarlo a VBasic.NET o hacer con el lo que mejor les parezca jaja.

Iniciandome en SCRUM

2008-10-12T00:03:00.003-05:00

Hola, bueno pongo iniciandome porque son los sitios o documentos que me han servido para interesarme muchisimo en esta metodología de gestión ágil. La cual a mi parecer no es ningún descubrimiento nuevo en sí, solo darle orden a una forma natural que tienen las personas de llevar adelante tareas. Como me dijo alguna vez un profesor de Administración: "La Administración es solo cosa de sentido común.."
Bueno alli los links:

Explicando SCRUM a mi abuela
http://geeks.ms/blogs/jorge/archive/2007/05/09/explicando-scrum-a-mi-abuela.aspx
Excelentisima explicacion de SCRUM como para que cualquier persona pueda entenderlo, narrado en forma de cuento da a conocer las bases de esta excelente metodología. Gracias a Jorge Serrano.

http://oeguzman.googlepages.com/
Otra excelente explicación de SCRUM muy clara y concisa, aun cuando quiero repasar algunos conceptos lo consulto. Gracias Oscar Guzman por la web.

Scrum y XP desde las trincheras
http://www.proyectalis.com/2008/02/26/scrum-y-xp-desde-las-trincheras/
Sitio web que nos proporciona una traducción al castellano del libro “Scrum&XP from the trenches” de Henrik Kniberg. Alli podran encontrar el enlace para descargar el libro traducido y tambien el enlace para ir al sitio original del Libro en ingles.

Exprimiendo SCRUM
SCRUM y la documentación
http://geeks.ms/blogs/rcorral/archive/2007/05/06/exprimiendo-scrum-scrum-y-la-documentaci-243-n.aspx
SCRUM y la gestión del riesgo
http://geeks.ms/blogs/rcorral/archive/2007/06/28/exprimiendo-scrum-scrum-y-la-gesti-243-n-del-riesgo.aspx
http://geeks.ms/blogs/rcorral/archive/tags/Scrum/default.aspx
En fin esta web es tambien una muy buena fuente de documentos sobre SCRUM tratando de explicar muchas de las interrogantes que podemos hacernos los que estamos involucrados en gestión de proyectos de software y proyectos en general; y mas aun si ya previamente hemos trabajado con alguna otra metodología.

Frase 3

2008-10-11T23:42:00.001-05:00

“Sin ambición uno no comienza nada. Sin trabajo uno no termina nada. Nadie te enviará el premio. Tendrás que ganarlo. La persona que sabe el cómo siempre tendrá trabajo. Quien, además, sepa el por qué será su propio jefe. En cuanto a los métodos, es posible que haya millones y aún más; pero principios hay pocos. El hombre que se aferra a los principios puede seleccionar con éxito sus propios métodos. Quien intente métodos, ignorando los principios, seguramente se meterá en problemas.”
Emerson (1803-1882)

Frase 2

2008-10-10T14:49:00.002-05:00

"El progreso y el desarrollo son imposibles si uno sigue haciendo las cosas tal como siempre las ha hecho."
Wayne W. Dyer

Frase 1

2008-10-10T14:44:00.001-05:00

"Si tú tienes una manzana y yo tengo una manzana y las intercambiamos, entonces ambos aún tendremos una manzana. Pero si tú tienes una idea y yo tengo una idea y las intercambiamos, entonces ambos tendremos dos ideas".
George Bernard Shaw

Impresión Draft

2008-10-10T14:15:00.000-05:00

Holas, por cosas del destino aun estoy jugando con VBasic 6 y otra vez a lidear con la dichosa impresión en Draft para una impresora de matriz. Y lo peor es que con windows Xp y los nuevos modelos de Epson como la FX890 el tamaño personlizado de papel NO EXISTE.. asi que a imprimir en RAW MODE nomas usando la libreria winspool.drv. Alguien sabe si esto ya ha sido solucionado con VB2005 o VB2008??
En fin, ahi dejo el codigo necesario para usar esta libreria. :

' Esta parte pueden ponerla en un modulo Draft.bas o lo q quieran
Option Explicit

Public Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Public Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Public Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Public Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
ByVal pDefault As Long) As Long
Public Declare Function StartDocPrinter Lib "winspool.drv" Alias _
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
pDocInfo As DOCINFO) As Long
Public Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Public Declare Function WritePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
pcWritten As Long) As Long
Public Declare Function EndPage Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long

Global lhPrinter As Long, lreturn As Long, lpcWritten As Long, lDoc As Long, sWrittenData As String, MyDocInfo As DOCINFO

Public Sub Imprimir(Texto As String, Optional Ancho As Integer = 80, Optional Salto As Boolean = True)
If Len(Texto) > Ancho Then
Texto = Left(Texto, Ancho)
End If
If Salto Then Texto = Texto + vbCrLf
lreturn = WritePrinter(lhPrinter, ByVal Texto, Len(Texto), lpcWritten)
End Sub

Public Sub Iniciar_Impresion(DocName As String)
lreturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
MyDocInfo.pDocName = DocName
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
'comprimido
Rem lreturn = WritePrinter(lhPrinter, ByVal Chr$(15) + vbCrLf, Len(Chr$(15) + vbCrLf), lpcWritten)
End Sub

Public Sub Finalizar_Impresion()
lreturn = EndPagePrinter(lhPrinter)
lreturn = EndDocPrinter(lhPrinter)
lreturn = ClosePrinter(lhPrinter)
End Sub

'Y aqui el ejemplo de su uso en un form sencillo con un boton por default
Private Sub Command1_Click()
Dim Linea As String

Iniciar_Impresion("TEST")
Imprimir "HOLA MUNDO"
Imprimir Chr$(15) + vbCrLf ' modo condensado
Imprimir "HELLO WORLD"
Finalizar_Impresion

End Sub

Generar una sola instancia de un JFrame

2007-10-26T16:54:00.001-05:00

Cuando hacemos programas con formularios windows y los llamamos desde un menu, cada vez que hacemos click sobre la opcion del menu nos creara un nuevo form, lo que deseaba es tener una sola instancia de cada formulario, sin usar el modo modal claro esta.

Encontre una forma.. usando el "Patrón Singleton", la verdad no lo entiendo muy iben pero como muchos de uds. solo queremos usarlo, y hacer rapidamnete nuestros programas; he aqui la forma:

1. Diseña tu formulario(jframe, jdialog, jinternalframe, etc) en el IDE Netbeans.

2. Cambia en el formulario la propiedad "defaultCloseOperation" a HIDE

3. Agrega la propiedad "myInstance" a la clase de tu formulario, algo como:
private static myjFrame myInstance;

4. Agrega el metodo getinstance() al formulario, algo como:

public static myjFrame getInstance()
{
if (myInstance == null)
myInstance = new myjFrame();
return myInstance;
}

5 Para usar el formulario desde un menu:

private void jMenuItem2MousePressed(java.awt.event.MouseEvent evt)
{
myjFrame myForm = myjFrame.getInstance();
myForm.setVisible(true);
}

Espero les sirva.