X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/a149135d6cf1d32b45f3c92c8562170e5771faf9..13e8a152bee88ed48a0987ddac713dd7cf525966:/emufs_gui/gui.c?ds=sidebyside

diff --git a/emufs_gui/gui.c b/emufs_gui/gui.c
index 95c55bf..5346b6c 100644
--- a/emufs_gui/gui.c
+++ b/emufs_gui/gui.c
@@ -3,11 +3,14 @@
 #include <curses.h>
 #include <menu.h>
 #include <signal.h>
-#include <panel.h>
 #include <string.h>
+#include <stdarg.h>
 
 #include "form.h"
 #include "articulos.h"
+#include "facturas.h"
+#include "emufs.h"
+#include "registros.h"
 
 #define CTRLD 4
 
@@ -15,32 +18,93 @@ static void finish(int sig);
 
 int main_menu();
 void menu_articulos();
+void menu_facturas();
+void menu_mantenimiento();
+void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg);
 
-int main(int argc, char *argv[])
+/* cuadro de msg. w y h son de la ventana padre */
+WINDOW *msg_box(WINDOW *win, int w, int h, const char *format, ...);
+void msg_box_free(WINDOW *padre, WINDOW *win);
+
+typedef enum {PARAM_OK, SHOW_HELP, TIPO_NO_DEFINIDO, TIPO_INVALIDO, BLOQUE_NO_DEFINIDO} t_Param;
+
+/* Verifica Argumentos */
+t_Param param_ok(int argc, char *argv[])
 {
-	int c, fin=0;
-	if (argc != 2) {
-		printf("Modo de uso : %s archivo_de_articulos.xml\n", argv[0]);
-		return 1;
+	int n,i;
+	for(i=1; i<argc; i++) {
+		if ((strcmp(argv[i], "-h")==0) || (strcmp(argv[i], "--help")==0)) return SHOW_HELP;
+
+		if (strcmp(argv[i]+strlen(argv[i])-3, "xml") == 0) {
+			/* Luego del archivo XML debe seguir el tipo */
+			if ((i+1)<argc) {
+				n = atoi(argv[i+1]);
+				if ((n < 1) || (n > 3)) return TIPO_INVALIDO;
+				if (((n == 1) || (n == 3)) && ((i+2)>=argc))
+					return BLOQUE_NO_DEFINIDO;
+			} else {
+				/* Ops, no hay mas parametros */
+				return TIPO_NO_DEFINIDO;
+			}
+		}
 	}
 
-	/* Inicio Curses */
-	signal(SIGINT, finish);      /* arrange interrupts to terminate */
-	initscr();      /* initialize the curses library */
-	keypad(stdscr, TRUE);  /* enable keyboard mapping */
-	nonl();         /* tell curses not to do NL->CR/NL on output */
-	cbreak();       /* take input chars one at a time, no wait for \n */
-	noecho();       /* don't echo input */
-	
-	/* Verifico un tamaño minimo de consola */
-	if ((LINES < 25) || (COLS < 80)) {
-		endwin();
-		printf("El tamaño de la consola debe ser de por lo menos 80x25!\n");
-		return 1;
+	return PARAM_OK;
+}
+
+void print_help(char *s)
+{
+	printf("EMUFS - 1v0\n");
+	printf("Modo de uso : %s [<archivo articulos XML> tipo=[1|2|3]]\n", s);
+	printf("\nSi especifica un archivo XML desde donde cargar los articulos debera tambien especificar el tipo");
+	printf(" de archivo a crear, siendo 1, 2, 3\n");
+}
+
+int main(int argc, char *argv[])
+{
+	int c, fin=0;
+	WINDOW *dialog;
+
+	switch (param_ok(argc, argv)) {
+		case SHOW_HELP:
+			print_help(argv[0]);
+			return 0;
+		case TIPO_NO_DEFINIDO:
+			printf("Falta parámetro requerido.\nLuego del nombre del archivo debe especificar el tipo de archivo\n");
+			return 1;
+		case BLOQUE_NO_DEFINIDO:
+			printf("Falta parámetro requerido.\nLuego del tipo de archivo debe especificar el tamaño del bloque a utilizar\n");
+			return 1;
+		case TIPO_INVALIDO:
+			printf("Tipo de archivo no valido. Los valores posibles para el tipo de archivo son:\n");
+			printf("\t1 - Archivo de bloque parametrizado y registro de long. variable.\n");
+			printf("\t2 - Archivo de registros variables sin bloques.\n");
+			printf("\t3 - Archivos de bloque parametrizado y registro de long. parametrizada.\n");
+			return 2;
+		case PARAM_OK:
+			fin = 0;
 	}
 
-	art_cargar(argv[1]);
+#ifdef DEBUG
+	printf("CUIDADO! - Uds esta a punto de ejecutar EMUFS Gui compilado con mensajes de debug (-DDEBUG). ");
+	printf("Esto puede causar que ante un error alguna función trate de emitir un mensaje por pantalla ");
+	printf("haciendo que el aspecto visual se vea desvirtuado.\n\n");
+	printf("Todos los mensajes de error se envian por stderr, por lo que es conveniente que vuelva a ejecutar ");
+	printf("el programa de la siguiente manera :\n");
+	printf("\t#> %s <parametros> 2> error.log\n\n", argv[0]);
+	printf("De esta forma el SO se encargaga de redirigir stderr al archivo error.log y evitar algun problema en ");
+	printf("visualizacion de la aplicacion.\n");
+	printf("Para continuar **bajo su propio riesgo** presione una tecla. Puede cancelar la ejecucion en este punto con CTRL+C\n");
+	fgetc(stdin);
+#endif
 
+	/* Inicio Curses */
+	signal(SIGINT, finish);
+	initscr();
+	keypad(stdscr, TRUE);
+	nonl();
+	cbreak();
+	noecho();
 	/* Si se soporta color, los inicializo */
 	if (has_colors()) {
 		start_color();
@@ -55,6 +119,13 @@ int main(int argc, char *argv[])
 		init_pair(COLOR_YELLOW, COLOR_YELLOW, COLOR_BLACK);
 	}
 	
+	/* Verifico un tamaño minimo de consola */
+	if ((LINES < 25) || (COLS < 80)) {
+		endwin();
+		printf("El tamaño de la consola debe ser de por lo menos 80x25!\n");
+		return 1;
+	}
+
 	/* Ventana, caracter para linea vertical, caracter para linea horizontal*/
 	box(stdscr, ACS_VLINE, ACS_HLINE);
 	/* Ventana, Y, X, Texto */
@@ -64,15 +135,37 @@ int main(int argc, char *argv[])
 	attroff(COLOR_PAIR(2));
 	wrefresh(stdscr);
 
+	dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ...");
+	if (argc == 4) {
+		art_cargar(argv[1], atoi(argv[2]), atoi(argv[3]));
+		if (!fact_cargar("facturas.xml", 1, 400))
+			fprintf(stderr, "ERROR CARGANDO FACTURAS\n");
+	} else
+		art_cargar(NULL, -1, -1);
+
+	msg_box_free(stdscr, dialog);
+
+	/* CICLO PRINCIPAL DE LA APLICACION */
 	while ((c = main_menu()) != -1) {
 		switch (c) {
 			case 0:
 				menu_articulos();
 			break;
-		//	case 1:
-		//	case 2:
-		//	case 3:
-			case 4:
+			case 1:
+				menu_facturas();
+			break;
+			case 2:
+				dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
+				ver_registros(dialog, COLS-2, LINES-4);
+				werase(dialog);
+				wrefresh(dialog);
+				delwin(dialog);
+				refresh();
+			break;
+			case 5:
+				menu_mantenimiento();
+			break;
+			case 6:
 				fin = 1;
 			break;
 		}
@@ -82,11 +175,98 @@ int main(int argc, char *argv[])
 	endwin();
 
 	art_liberar(NULL);
+	fact_liberar(NULL);
 
-	MD_Listar();
 	return 0;
 }
 
+void menu_facturas()
+{
+	WINDOW *menu_win;
+	MENU *menu;
+	ITEM **items;
+	int c, salir;
+	char *opciones[] = {
+					"Alta",
+					"Baja",
+					"Modificacion",
+					"Volver"
+	};
+
+	items = (ITEM **)calloc(5, sizeof(ITEM *));
+
+	items[0] = new_item(opciones[0], "Crear una nueva factura.");
+	set_item_userptr(items[0], fact_agregar);
+	items[1] = new_item(opciones[1], "Eliminar una factura existente.");
+	set_item_userptr(items[1], fact_eliminar);
+	items[2] = new_item(opciones[2], "Modificar una factura existente.");
+	set_item_userptr(items[2], fact_modificar); 
+	items[3] = new_item(opciones[3], "Volver al menu anterior.");
+	items[4] = NULL;
+
+	menu = new_menu((ITEM **)items);
+	menu_win = newwin(8, COLS-2, 3, 1);
+	keypad(menu_win, TRUE);
+	set_menu_mark(menu, " > ");
+	set_menu_win(menu, menu_win);
+	set_menu_sub(menu, derwin(menu_win, 5, COLS-4, 3, 1));
+
+	box(menu_win, 0, 0);
+	mvwaddch(menu_win, 2, 0, ACS_LTEE);
+	mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
+	mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
+	wattron(menu_win, COLOR_PAIR(COLOR_RED));
+	mvwaddstr(menu_win, 1, 1, "Menu Facturas");
+	wattroff(menu_win, COLOR_PAIR(COLOR_RED));
+	post_menu(menu);
+	wrefresh(menu_win);
+
+	curs_set(0);
+	salir = 0;
+	while((!salir) && (c = getch()) != KEY_F(3)) {
+		switch(c) {
+			case KEY_DOWN:
+				menu_driver(menu, REQ_DOWN_ITEM);
+				break;
+			case KEY_UP:
+				menu_driver(menu, REQ_UP_ITEM);
+			break;
+			case 13:
+			case 10: {
+				ITEM *cur;
+				void (*p)(char *);
+
+				cur = current_item(menu);
+				if (strcmp(item_name(cur), opciones[3]) == 0) {
+					salir = 1;
+				} else {
+					p = item_userptr(cur);
+					unpost_menu(menu);
+					refresh();
+					p(NULL); /* Paso NULL para que ejecute la accion por defecto */
+					post_menu(menu);
+					box(menu_win,0,0);
+					mvwaddch(menu_win, 2, 0, ACS_LTEE);
+					mvwhline(menu_win, 2, 1, ACS_HLINE, 67);
+					mvwaddch(menu_win, 2, 67, ACS_RTEE);
+					wrefresh(menu_win);
+				}
+				pos_menu_cursor(menu);
+			}
+		}
+		wrefresh(menu_win);
+	}	
+	curs_set(1);
+	
+	unpost_menu(menu);
+	delwin(menu_win);
+	free_item(items[0]);
+	free_item(items[1]);
+	free_item(items[2]);
+	free_item(items[3]);
+	free_menu(menu);
+	free(items);
+}
 void menu_articulos()
 {
 	WINDOW *menu_win;
@@ -112,16 +292,16 @@ void menu_articulos()
 	items[4] = NULL;
 
 	menu = new_menu((ITEM **)items);
-	menu_win = newwin(8, 68, 3, 1);
+	menu_win = newwin(8, COLS-2, 3, 1);
 	keypad(menu_win, TRUE);
 	set_menu_mark(menu, " > ");
 	set_menu_win(menu, menu_win);
-	set_menu_sub(menu, derwin(menu_win, 5, 66, 3, 1));
+	set_menu_sub(menu, derwin(menu_win, 5, COLS-4, 3, 1));
 
 	box(menu_win, 0, 0);
 	mvwaddch(menu_win, 2, 0, ACS_LTEE);
-	mvwhline(menu_win, 2, 1, ACS_HLINE, 67);
-	mvwaddch(menu_win, 2, 67, ACS_RTEE);
+	mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
+	mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
 	wattron(menu_win, COLOR_PAIR(COLOR_RED));
 	mvwaddstr(menu_win, 1, 1, "Menu Articulos");
 	wattroff(menu_win, COLOR_PAIR(COLOR_RED));
@@ -150,7 +330,7 @@ void menu_articulos()
 					p = item_userptr(cur);
 					unpost_menu(menu);
 					refresh();
-					p((char *)item_name(cur));
+					p(NULL); /* Paso NULL para que ejecute la accion por defecto */
 					post_menu(menu);
 					box(menu_win,0,0);
 					mvwaddch(menu_win, 2, 0, ACS_LTEE);
@@ -172,6 +352,7 @@ void menu_articulos()
 	free_item(items[2]);
 	free_item(items[3]);
 	free_menu(menu);
+	free(items);
 }
 
 int main_menu()
@@ -185,29 +366,33 @@ int main_menu()
 					"Facturas",
 					"Ver Registros",
 					"Ver Bloques",
+					"Estadisticas",
+					"Mantenimiento",
 					"Salir"
 	};
 
-	items = (ITEM **)calloc(5, sizeof(ITEM *));
+	items = (ITEM **)calloc(8, sizeof(ITEM *));
 
 	items[0] = new_item(opciones[0], "Alta,baja,consulta y modificacion de articulos.");
 	items[1] = new_item(opciones[1], "Alta,baja,consulta y modificacion de facturas.");
 	items[2] = new_item(opciones[2], "Ver registros de un archivo.");
 	items[3] = new_item(opciones[3], "Ver bloques de un archivo.");
-	items[4] = new_item(opciones[4], "Salir del sistema.");
-	items[5] = NULL;
+	items[4] = new_item(opciones[4], "Ver estadisticas de ocupacion de archivos.");
+	items[5] = new_item(opciones[5], "Tareas de mantenimiento de los archivos.");
+	items[6] = new_item(opciones[6], "Salir del sistema.");
+	items[7] = NULL;
 
 	menu = new_menu((ITEM **)items);
-	menu_win = newwin(9, 68, 3, 1);
+	menu_win = newwin(14, COLS-2, 3, 1);
 	keypad(menu_win, TRUE);
 	set_menu_mark(menu, " > ");
 	set_menu_win(menu, menu_win);
-	set_menu_sub(menu, derwin(menu_win, 6, 66, 3, 1));
+	set_menu_sub(menu, derwin(menu_win, 10, COLS-4, 3, 1));
 
 	box(menu_win, 0, 0);
 	mvwaddch(menu_win, 2, 0, ACS_LTEE);
-	mvwhline(menu_win, 2, 1, ACS_HLINE, 67);
-	mvwaddch(menu_win, 2, 67, ACS_RTEE);
+	mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
+	mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
 	wattron(menu_win, COLOR_PAIR(COLOR_RED));
 	mvwaddstr(menu_win, 1, 1, "Menu Principal");
 	wattroff(menu_win, COLOR_PAIR(COLOR_RED));
@@ -217,7 +402,7 @@ int main_menu()
 	curs_set(0);
 	opcion = -1;
 	salir = 0;
-	while((!salir) && (c = getch()) != KEY_F(1)) {
+	while((!salir) && (c = getch())) {
 		switch(c) {
 			case KEY_DOWN:
 				menu_driver(menu, REQ_DOWN_ITEM);
@@ -226,12 +411,13 @@ int main_menu()
 				menu_driver(menu, REQ_UP_ITEM);
 			break;
 			case 13:
-			case 10: {
+			case 10: 
+			{
 				ITEM *cur;
 				int i;
 
 				cur = current_item(menu);
-				for(i=0; i<5; ++i) {
+				for(i=0; i<7; ++i) {
 					if (strcmp(item_name(cur), opciones[i]) == 0)
 						opcion = i;
 				}
@@ -251,7 +437,11 @@ int main_menu()
 	free_item(items[1]);
 	free_item(items[2]);
 	free_item(items[3]);
+	free_item(items[4]);
+	free_item(items[5]);
+	free_item(items[6]);
 	free_menu(menu);
+	free(items);
 
 	return opcion;
 }
@@ -265,3 +455,216 @@ static void finish(int sig)
 	exit(0);
 }
 
+WINDOW *msg_box(WINDOW *win, int w, int h, const char *format, ...)
+{
+	va_list ap;
+	char txt[255];
+	int mw, mh;
+	WINDOW *dialog;
+	va_start(ap, format);
+	vsprintf(txt, format, ap);
+	va_end(ap);
+
+	mw = strlen(txt)+2;
+	mh = 3;
+	dialog = derwin(win, mh, mw, h/2-mh/2, w/2-mw/2);
+	box(dialog, 0 ,0);
+	mvwaddstr(dialog, 1, 1, txt);
+	wrefresh(dialog);
+	curs_set(0);
+	return dialog;
+}
+
+void msg_box_free(WINDOW *padre, WINDOW *win)
+{
+	werase(win);
+	wrefresh(win);
+	delwin(win);
+	curs_set(1);
+	wrefresh(padre);
+}
+
+void menu_mantenimiento()
+{
+	WINDOW *menu_win, *dlg;
+	MENU *menu;
+	ITEM **items;
+	int c, salir, nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro;
+	char *opciones[] = {
+					"Compactar Articulos",
+					"Compactar Facturas",
+					"Compactar Notas",
+					"Cambiar tipo Archivo Articulos",
+					"Cambiar tipo Archivo Facturas",
+					"Cambiar tipo Archivo Notas",
+					"Volver"
+	};
+
+	items = (ITEM **)calloc(8, sizeof(ITEM *));
+
+	items[0] = new_item(opciones[0], "Elimina espacio no utilizado.");
+	items[1] = new_item(opciones[1], "Elimina espacio no utilizado.");
+	items[2] = new_item(opciones[2], "Elimina espacio no utilizado.");
+	items[3] = new_item(opciones[3], "Permite cambiar el tipo del archivo.");
+	items[4] = new_item(opciones[4], "Permite cambiar el tipo del archivo.");
+	items[5] = new_item(opciones[5], "Permite cambiar el tipo del archivo.");
+	items[6] = new_item(opciones[6], "Volver al menu anterior.");
+	items[7] = NULL;
+
+	menu = new_menu((ITEM **)items);
+	menu_win = newwin(12, COLS-2, 3, 1);
+	keypad(menu_win, TRUE);
+	set_menu_mark(menu, " > ");
+	set_menu_win(menu, menu_win);
+	set_menu_sub(menu, derwin(menu_win, 8, COLS-4, 3, 1));
+
+	box(menu_win, 0, 0);
+	mvwaddch(menu_win, 2, 0, ACS_LTEE);
+	mvwhline(menu_win, 2, 1, ACS_HLINE, COLS-3);
+	mvwaddch(menu_win, 2, COLS-3, ACS_RTEE);
+	wattron(menu_win, COLOR_PAIR(COLOR_RED));
+	mvwaddstr(menu_win, 1, 1, "Menu Mantenimiento");
+	wattroff(menu_win, COLOR_PAIR(COLOR_RED));
+	post_menu(menu);
+	wrefresh(menu_win);
+
+	curs_set(0);
+	salir = 0;
+	while((!salir) && (c = getch()) != KEY_F(3)) {
+		switch(c) {
+			case KEY_DOWN:
+				menu_driver(menu, REQ_DOWN_ITEM);
+				break;
+			case KEY_UP:
+				menu_driver(menu, REQ_UP_ITEM);
+			break;
+			case 13:
+			case 10: 
+			{
+				ITEM *cur;
+
+				cur = current_item(menu);
+				if (strcmp(item_name(cur), opciones[6]) == 0) {
+					salir = 1;
+				} else {
+					if (strcmp(item_name(cur), opciones[0]) == 0) {
+						art_get_lst()->fp->compactar(art_get_lst()->fp);
+					}
+					if (strcmp(item_name(cur), opciones[1]) == 0) {
+						fact_get_lst()->fp->compactar(fact_get_lst()->fp);
+					}
+					if (strcmp(item_name(cur), opciones[2]) == 0) {
+						fact_get_lst()->fp_texto->compactar(fact_get_lst()->fp_texto);
+					}
+					if (strcmp(item_name(cur), opciones[3]) == 0) {
+						unpost_menu(menu);
+						nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */
+						preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+						dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
+						art_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro);
+						msg_box_free(stdscr, dlg);
+						box(menu_win, 0, 0);
+						post_menu(menu);
+					}
+					if (strcmp(item_name(cur), opciones[4]) == 0) {
+						unpost_menu(menu);
+						nuevo_tam_registro = 0;
+						preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+						box(menu_win, 0, 0);
+						post_menu(menu);
+					}
+					if (strcmp(item_name(cur), opciones[5]) == 0) {
+						unpost_menu(menu);
+						nuevo_tam_registro = -2;
+						preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+						box(menu_win, 0, 0);
+						post_menu(menu);
+					}
+				}
+			}
+		}
+		wrefresh(menu_win);
+	}	
+	curs_set(1);
+	
+	unpost_menu(menu);
+	delwin(menu_win);
+	free_item(items[0]);
+	free_item(items[1]);
+	free_item(items[2]);
+	free_item(items[3]);
+	free_menu(menu);
+
+	free(items);
+}
+
+void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
+{
+	WINDOW *win;
+	t_Form *form;
+	char *s;
+	int n, is_ok;
+
+	win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+	box(win, 0, 0);
+
+	form = form_crear(win);
+	form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
+	form_ejecutar(form, 1,1);
+
+	s = form_obtener_valor_char(form, "Tipo de archivo");
+	if (strcmp(s, "T1") == 0) n = T1;
+	if (strcmp(s, "T2") == 0) n = T2;
+	if (strcmp(s, "T3") == 0) n = T3;
+
+	form_destruir(form);
+
+	werase(win);
+	box(win, 0, 0);
+	wrefresh(win);
+
+	(*tipo) = n;
+	switch (n) {
+		case T1:
+			form = form_crear(win);
+			form_agregar_widget(form, INPUT, "Tamaño de bloque", 8, "");
+			is_ok = 0;
+			do {
+				form_set_valor(form, "Tamaño de bloque", "");
+				form_ejecutar(form, 1,1);
+				if (form_obtener_valor_int(form, "Tamaño de bloque") > 0) is_ok = 1;
+			} while (!is_ok);
+			(*tam_bloque) = form_obtener_valor_int(form, "Tamaño de bloque");
+			form_destruir(form);
+		break;
+		case T2:
+			break;
+		case T3:
+			if (((*tam_reg) != -1) && ((*tam_reg) != -2)) {
+				mvwaddstr(win, LINES/2-3, 1, "Nota: El tamaño de registro puede");
+				mvwaddstr(win, LINES/2-2, 1, "llegar a ser redondeado por el sistema.");
+			}
+			form = form_crear(win);
+			form_agregar_widget(form, INPUT, "Tamaño de bloque", 8, "");
+			if ((*tam_reg) != -1)
+				form_agregar_widget(form, INPUT, "Tamaño de registro", 8, "");
+			is_ok = 0;
+			do {
+				form_set_valor(form, "Tamaño de bloque", "");
+				if ((*tam_reg) != -1)
+					form_set_valor(form, "Tamaño de registro", "");
+				form_ejecutar(form, 1,1);
+				if (form_obtener_valor_int(form, "Tamaño de bloque") > 0) is_ok = 1;
+				if ((*tam_reg) != -1) {
+					if (form_obtener_valor_int(form, "Tamaño de registro") > 0) is_ok = 1; else is_ok = 0;
+				}
+			} while (!is_ok);
+			(*tam_bloque) = form_obtener_valor_int(form, "Tamaño de bloque");
+			if ((*tam_reg) != -1)
+				(*tam_reg) = form_obtener_valor_int(form, "Tamaño de registro");
+			form_destruir(form);
+	}
+	werase(win);
+	wrefresh(win);
+	delwin(win);
+}