X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/18ff567719ef1e5437bef12b937fe95686c336b5..7ebf0a1c567c187b7819379c45755cf5ef8dac90:/emufs_gui/emufs_view.c?ds=sidebyside

diff --git a/emufs_gui/emufs_view.c b/emufs_gui/emufs_view.c
index 8750c48..fb8436c 100644
--- a/emufs_gui/emufs_view.c
+++ b/emufs_gui/emufs_view.c
@@ -1,5 +1,4 @@
 
-
 #include <stdlib.h>
 #include <curses.h>
 #include <menu.h>
@@ -14,6 +13,7 @@
 #include "facturas.h"
 #include "emufs.h"
 #include "viewer.h"
+#include "tree_viewer.h"
 
 #define CTRLD 4
 
@@ -26,8 +26,8 @@ void menu_mantenimiento();
 void menu_estadisticas();
 void menu_ver_registros();
 void menu_ver_bloques();
+void menu_ver_indices();
 void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg);
-char *preguntar_file();
 
 void ver_estadisticas(EMUFS *fp);
 
@@ -42,111 +42,6 @@ typedef enum {
 		NULL_BLOCK_FOUND    /* Tamaño de bloque <= 0!!! */
 } t_Param;
 
-struct _mis_param_ {
-	int xml_fact; /* Pos en argv  del archivo XML a usar para facturas */
-	int xml_art; /* Pos en argv del archivo XML a usar para articulos */
-	char tipo_arch_fact; /* Tipo de archivo para Facturas */
-	char tipo_arch_art; /* Tipo de archivo para Articulos */
-	char tipo_arch_nota;
-	EMUFS_BLOCK_SIZE tam_bloque_fact;
-	EMUFS_BLOCK_SIZE tam_bloque_art;
-	EMUFS_BLOCK_SIZE tam_bloque_nota;
-} parametros;
-
-/* Verifica Argumentos */
-t_Param param_ok(int argc, char *argv[])
-{
-	int n,i;
-	int file;
-	for(i=1; i<argc; i++) {
-		if ((strcmp(argv[i], "-h")==0) || (strcmp(argv[i], "--help")==0)) return SHOW_HELP;
-
-		if (strcmp(argv[i], "-a") == 0) { /* Articulos! */
-			i++;
-			if (i >= argc) 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;
-					parametros.tipo_arch_art = n;
-					if (n != 2) {
-						if ((i+2) >= argc) return NULL_BLOCK_FOUND;
-						parametros.tam_bloque_art = atoi(argv[i+2]);
-						if (parametros.tam_bloque_art <= 0) return NULL_BLOCK_FOUND;
-					}
-					parametros.xml_art = i;
-				} else {
-					/* Ops, no hay mas parametros */
-					return TIPO_NO_DEFINIDO;
-				}
-			} else {
-				return NO_ART_FILE;
-			}
-		} /* Articulos */
-
-		if (strcmp(argv[i], "-f") == 0) { /* Facturas! */
-			i++;
-			if (i >= argc) return SHOW_HELP;
-			if (strcmp(argv[i]+strlen(argv[i])-3, "xml") == 0) {
-				/* Luego del archivo XML debe seguir el tipo */
-				file = i;
-				i++;
-				if (i<argc) {
-					n = atoi(argv[i]);
-					if ((n < 1) || (n > 3)) return TIPO_INVALIDO;
-					if (((n == 1) || (n == 3)) && ((i+1)>=argc))
-						return BLOQUE_NO_DEFINIDO;
-					parametros.tipo_arch_fact = n;
-					i++;
-					switch (n) {
-						case 1:
-						case 3:
-							parametros.tam_bloque_fact = atoi(argv[i]);
-							if (parametros.tam_bloque_fact <= 0) return NULL_BLOCK_FOUND;
-							i++;
-							if (i >= argc) return SHOW_HELP;
-							n = atoi(argv[i]);
-							if ((n<1) || (n>3)) return SHOW_HELP;
-							parametros.tipo_arch_nota = n;
-							if (((n == 1) || (n == 3)) && ((i+1)>=argc))
-								return SHOW_HELP;
-							i++;
-							if (n != 2) {
-								parametros.tam_bloque_nota = atoi(argv[i]);
-								if (parametros.tam_bloque_nota <= 0) return SHOW_HELP;
-							}
-						break;
-						case 2:
-							if (i >= argc) return SHOW_HELP;
-							n = atoi(argv[i]);
-							if ((n<1) || (n>3)) return SHOW_HELP;
-							parametros.tipo_arch_nota = n;
-							if (((n == 1) || (n == 3)) && ((i+1)>=argc))
-								return SHOW_HELP;
-							i++;
-							if (n != 2) {
-								parametros.tam_bloque_nota = atoi(argv[i]);
-								if (parametros.tam_bloque_nota <= 0) return SHOW_HELP;
-							}
-					}
-					PERR("ACA");
-					parametros.xml_fact = file;
-				} else {
-					/* Ops, no hay mas parametros */
-					return TIPO_NO_DEFINIDO;
-				}
-			} else {
-				return NO_FACT_FILE;
-			}
-		} /* Facturas */
-		
-	}
-	return PARAM_OK;
-}
-
 void print_help(char *s)
 {
 	printf("EMUFS - 1v0\n");
@@ -162,41 +57,224 @@ void print_help(char *s)
 	printf("  tamaño bloque debe ser especificado solo en aquellos tipos que lo requiera.\n");
 }
 
+int leer_tipo_arbol(char *s) {
+	if (strcmp(s, "B") == 0) return 0;
+	if (strcmp(s, "BA") == 0) return 1;
+
+	/* Por defecto es un B */
+	return 0;
+}
+
+void leer_param_ind_art(t_Parametros *param, xmlNode *padre)
+{
+	xmlNode *node;
+	char *tmp, *nombre;
+	node = padre->children;
+	while (node) {
+		if (node->type == XML_ELEMENT_NODE) {
+			if (strcmp(node->name, "indice")==0) {
+				PERR("  LEO INDICE");
+				nombre = xml_get_prop(node, "nombre");
+
+				if (strcmp(nombre, "codigo")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_art[0].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_art[0].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "desc")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_art[1].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_art[1].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "presentacion")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_art[2].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_art[2].tam_bloque = atoi(tmp);
+					free(tmp);
+				}
+				PERR("  LISTO");
+				free(nombre);
+			}
+		}
+		node = node->next;
+	}
+}
+
+void leer_param_ind_fact(t_Parametros *param, xmlNode *padre)
+{
+	xmlNode *node;
+	char *tmp, *nombre;
+	node = padre->children;
+	while (node) {
+		if (node->type == XML_ELEMENT_NODE) {
+			if (strcmp(node->name, "indice")==0) {
+				PERR("  LEO INDICE");
+				nombre = xml_get_prop(node, "nombre");
+
+				if (strcmp(nombre, "numero")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_fac[0].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_fac[0].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "emision")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_fac[1].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_fac[1].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "vto")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_fac[2].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_fac[2].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "cheque")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_fac[3].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_fac[3].tam_bloque = atoi(tmp);
+					free(tmp);
+				} else if (strcmp(nombre, "ctacte")==0) {
+					tmp = xml_get_prop(node, "tipo");
+					param->ind_fac[4].tipo_arbol = leer_tipo_arbol(tmp);
+					free(tmp);
+					tmp = xml_get_prop(node, "bloque");
+					param->ind_fac[4].tam_bloque = atoi(tmp);
+					free(tmp);
+				}
+				PERR("  LISTO");
+				free(nombre);
+			}
+		}
+		node = node->next;
+	}
+}
+
+void leer_param_art(t_Parametros *param, xmlNode *padre)
+{
+	xmlNode *node;
+	char *tmp;
+	node = padre->children;
+	while (node) {
+		if (node->type == XML_ELEMENT_NODE) {
+			if (strcmp(node->name, "fuente")==0) {
+				strcpy(param->xml_art, XML_GET_CONTENT(node->children));
+			} else if (strcmp(node->name, "datos")==0) {
+				tmp = xml_get_prop(node, "tipo");
+				param->tipo_arch_art = atoi(tmp)-1;
+				free(tmp);
+				tmp = xml_get_prop(node, "bloque");
+				param->tam_bloque_art = atoi(tmp);
+				free(tmp);
+			} else if (strcmp(node->name, "indices")==0) {
+				PERR("LEO INDICES")
+				leer_param_ind_art(param, node);
+				PERR("LISTO");
+			}
+		}
+		node = node->next;
+	}
+}
+
+void leer_param_fac(t_Parametros *param, xmlNode *padre)
+{
+	xmlNode *nodo;
+	char *tmp;
+	nodo = padre->children;
+	while (nodo) {
+		if (nodo->type == XML_ELEMENT_NODE) {
+			if (strcmp(nodo->name, "fuente")==0) {
+				strcpy(param->xml_fact, XML_GET_CONTENT(nodo->children));
+			} else if (strcmp(nodo->name, "datos")==0) {
+				tmp = xml_get_prop(nodo, "tipo");
+				param->tipo_arch_fact = atoi(tmp)-1;
+				free(tmp);
+				tmp = xml_get_prop(nodo, "bloque");
+				param->tam_bloque_fact = atoi(tmp);
+				free(tmp);
+			} else if (strcmp(nodo->name, "datos_notas")==0) {
+				tmp = xml_get_prop(nodo, "tipo");
+				param->tipo_arch_nota = atoi(tmp)-1;
+				free(tmp);
+				tmp = xml_get_prop(nodo, "bloque");
+				param->tam_bloque_nota = atoi(tmp);
+				free(tmp);
+			} else if (strcmp(nodo->name, "indices")==0) {
+				PERR("LEO INDICES")
+				leer_param_ind_fact(param, nodo);
+				PERR("LISTO");
+			}
+		}
+		nodo = nodo->next;
+	}
+}
+
+void param_xml(char *s, t_Parametros *param)
+{
+	xmlDocPtr document;
+	xmlNode *node, *inicio;
+
+	document = xmlReadFile(s, NULL,0);
+	if (document == NULL) {
+		return;
+	}
+	inicio = NULL;
+	node = xmlDocGetRootElement(document);
+	/* Busco el TAG principal "EMUFS" */
+	while (node) {
+		if (node->type == XML_ELEMENT_NODE) {
+			PERR(node->name);
+			if (strcmp(node->name, "emufs") == 0) {
+				inicio = node->children;
+				break;
+			}
+		}
+		node = node->next;
+	}
+	if (inicio == NULL) {
+			PERR("NO ENCONTRE TAG PRINCIPAL");
+			xmlFreeDoc(document);
+			xmlCleanupParser();
+			return;
+	}
+
+	node = inicio;
+	while (node) {
+		if (node->type == XML_ELEMENT_NODE) {
+			if (strcmp(node->name, "articulos")==0) {
+				leer_param_art(param, node);
+			} else if (strcmp(node->name, "facturas")==0) {
+				leer_param_fac(param, node);
+			}
+		}
+		node = node->next;
+	}
+}
+
+static t_Parametros parametros;
+
 int main(int argc, char *argv[])
 {
-	int c, fin=0;
 	WINDOW *dialog;
 
-	parametros.xml_art = parametros.xml_fact = -1;
-	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 NO_ART_FILE:
-			printf("Falta parámetro requerido.\nHa utilizado el modificador -a para crear los articulos a partir de un XML pero no ha especificado ningún archivo XML.\n");
-			return 3;
-		case NO_FACT_FILE:
-			printf("Falta parámetro requerido.\nHa utilizado el modificador -f para crear las facturas a partir de un XML pero no ha especificado ningún archivo XML.\n");
-			return 3;
-		case NULL_BLOCK_FOUND:
-			printf("Error de parámerto.\nHa ingresado un valor nulo como tamaño de bloque.\n");
-			return 4;
-		case PARAM_OK:
-			fin = 0;
+	if (argc != 2) {
+		print_help(argv[0]);
 	}
 
+	if (argc == 2)
+		param_xml(argv[1], &parametros);
+
 #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 ");
@@ -247,54 +325,19 @@ int main(int argc, char *argv[])
 	attroff(COLOR_PAIR(2));
 	wrefresh(stdscr);
 
-	dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ...");
-
-	if (parametros.xml_art != -1) {
-		art_cargar(argv[parametros.xml_art], parametros.tipo_arch_art, parametros.tam_bloque_art);
-	} else {
-		art_cargar(NULL, -1, -1);
-	}
-	if (parametros.xml_fact != -1) {
-		fact_cargar(
-					argv[parametros.xml_fact],
-					parametros.tipo_arch_fact,
-					parametros.tam_bloque_fact,
-					parametros.tipo_arch_nota,
-					parametros.tam_bloque_nota
-		);
+	if (argc == 2) {
+		dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ...");
+		art_cargar(&parametros);
+		fact_cargar(&parametros);
 	} else {
-		fact_cargar(NULL, -1, -1, -1, -1);
+		dialog = msg_box(stdscr, COLS, LINES, "Recuperando archivos ...");
+		art_cargar(NULL);
+		fact_cargar(NULL);
 	}
 
 	msg_box_free(stdscr, dialog);
 
-	/* CICLO PRINCIPAL DE LA APLICACION */
-	while ((c = main_menu()) != -1) {
-		switch (c) {
-			case 0:
-				menu_articulos();
-			break;
-			case 1:
-				menu_facturas();
-			break;
-			case 2:
-				menu_ver_registros();
-			break;
-			case 3:
-				menu_ver_bloques();
-			break;
-			case 4:
-				menu_estadisticas();
-			break;
-			case 5:
-				menu_mantenimiento();
-			break;
-			case 6:
-				fin = 1;
-			break;
-		}
-		if (fin == 1) break;
-	}
+	main_menu();
 
 	endwin();
 
@@ -310,11 +353,13 @@ void menu_facturas()
 		MENU_OPCION("Alta", "Crear una nueva factura."),
 		MENU_OPCION("Baja", "Elimina una factura existente."),
 		MENU_OPCION("Modificacion", "Modifica una factura existente."),
+		MENU_OPCION("Consultas", "Consulta varias de articulo."),
+		MENU_OPCION("Recorrer", "Recorrer el archivo por alguno de sus indices."),
 		MENU_OPCION("Volver", "Volver al menu anterior.")
 	};
 	int opt;
 		
-	while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) {
+	while ((opt = menu_ejecutar(mi_menu, 6, "Menu Facturas")) != 5) {
 		switch (opt) {
 			case 0:
 				fact_agregar(NULL);
@@ -324,6 +369,12 @@ void menu_facturas()
 			break;
 			case 2:
 				fact_modificar(NULL);
+			break;
+			case 3:
+				fact_consultas(NULL);
+			break;
+			case 4:
+				fact_recorrer();
 		}
 	}
 }
@@ -334,11 +385,14 @@ void menu_articulos()
 		MENU_OPCION("Alta", "Crear un nuevo articulo."),
 		MENU_OPCION("Baja", "Elimina un articulo existente."),
 		MENU_OPCION("Modificacion", "Modifica un articulo existente."),
+		MENU_OPCION("Consultas", "Consulta varias de articulo."),
+		MENU_OPCION("Recorrer", "Recorrer el archivo por alguno de sus indices."),
+		MENU_OPCION("Ver ventas", "Ver venta de articulos entre 2 fechas."),
 		MENU_OPCION("Volver", "Volver al menu anterior.")
 	};
 	int opt;
 		
-	while ((opt = menu_ejecutar(mi_menu, 4, "Menu Articulos")) != 3) {
+	while ((opt = menu_ejecutar(mi_menu, 7, "Menu Articulos")) != 6) {
 		switch (opt) {
 			case 0:
 				art_agregar(NULL);
@@ -348,6 +402,15 @@ void menu_articulos()
 			break;
 			case 2:
 				art_modificar(NULL);
+			break;
+			case 3:
+				art_consultas(NULL);
+			break;
+			case 4:
+				art_recorrer();
+			break;
+			case 5:
+				art_ver_ventas();
 		}
 	}
 
@@ -438,8 +501,61 @@ void menu_ver_bloques()
 	}
 }
 
+void ver_indice(int arch, char *indice)
+{
+	INDICE *idx;
+	int w, h;
+	WINDOW *win;
+	switch (arch) {
+		case 0:
+			idx = emufs_buscar_indice_por_nombre(art_get_lst()->fp, indice);
+		break;
+		case 1:
+			idx = emufs_buscar_indice_por_nombre(fact_get_lst()->fp, indice);
+	}
+	h = LINES-4;
+	w = COLS-2;
+	win = newwin(h, w, 2, 1);
+
+	if ((idx != NULL) && (idx->tipo != IND_B_PLUS)) {
+		emufs_indice_b_ver(idx, win, w, h, 0);
+	} else {
+		if (idx != NULL) {
+			WINDOW *dlg;
+			dlg = msg_box(win, w, h, "El tipo de arbol B+ no esta soportado en el visor");
+			getch();
+			msg_box_free(win, dlg);
+		}
+	}
+	delwin(win);
+}
+
+void menu_ver_indices()
+{
+	int arch[8] = {0, 0, 0, 1, 1, 1, 1, 1};
+	char *nombres[8] = {"codigo", "desc", "presentacion",
+			"numero", "emision", "vto", "cheque", "ctacte"};
+	MENU(mi_menu) {
+		MENU_OPCION("Articulos->codigo",""),
+		MENU_OPCION("Articulos->desc",""),
+		MENU_OPCION("Articulos->presentacion",""),
+		MENU_OPCION("Facturas->numero",""),
+		MENU_OPCION("Facturas->emision",""),
+		MENU_OPCION("Facturas->vto",""),
+		MENU_OPCION("Facturas->cheque", ""),
+		MENU_OPCION("Facturas->ctacte", ""),
+		MENU_OPCION("Volver", "Volver al menu anterior.")
+	};
+	int c;
+
+	while ((c=menu_ejecutar(mi_menu, 9, "Menu Principal"))!=8) {
+		ver_indice(arch[c], nombres[c]);
+	}
+}
+
 int main_menu()
 {
+	int c;
 	MENU(mi_menu) {
 		MENU_OPCION("Articulos","Alta,baja,consulta y modificacion de articulos."),
 		MENU_OPCION("Facturas","Alta,baja,consulta y modificacion de facturas."),
@@ -447,10 +563,36 @@ int main_menu()
 		MENU_OPCION("Ver Bloques","Ver bloques (en su contexto) de los archivos."),
 		MENU_OPCION("Estadisticas","Ver estadisticas de ocupacion de archivos."),
 		MENU_OPCION("Mantenimiento","Tareas de mantenimiento de los archivos."),
+		MENU_OPCION("Ver Indices", "Permite ver y recorrer los indices"),
 		MENU_OPCION("Salir", "Salir del sistema.")
 	};
 
-	return menu_ejecutar(mi_menu, 7, "Menu Principal");
+	while ((c=menu_ejecutar(mi_menu, 8, "Menu Principal"))!=7) {
+		switch (c) {
+			case 0:
+				menu_articulos();
+			break;
+			case 1:
+				menu_facturas();
+			break;
+			case 2:
+				menu_ver_registros();
+			break;
+			case 3:
+				menu_ver_bloques();
+			break;
+			case 4:
+				menu_estadisticas();
+			break;
+			case 5:
+				menu_mantenimiento();
+			break;
+			case 6:
+				menu_ver_indices();
+		}
+	}
+
+	return 0;
 }
 
 
@@ -531,7 +673,9 @@ void menu_mantenimiento()
 				nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */
 				preguntar_nuevo_tipo("Parametros para  Articulos", &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);
+				parametros.tipo_arch_art = nuevo_tipo;
+				parametros.tam_bloque_art = nuevo_tam_bloque;
+				art_reformatear(&parametros);
 				msg_box_free(stdscr, dlg);
 			break;
 			case 4:
@@ -541,6 +685,7 @@ void menu_mantenimiento()
 				dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
 				fact_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro, nuevo_tipo1, nuevo_tam_bloque1, nuevo_tam_registro1);
 				msg_box_free(stdscr, dlg);
+			break;
 			case 5:
 				s = preguntar_file();
 				if (s) {
@@ -576,13 +721,15 @@ void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *ta
 
 	mvwaddstr(win, 0, 1, title);
 	form = form_crear(win);
-	form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
+	form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3,T4,T5");
 	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;
+	if (strcmp(s, "T4") == 0) n = T4;
+	if (strcmp(s, "T5") == 0) n = T5;
 
 	form_destruir(form);
 
@@ -630,6 +777,19 @@ void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *ta
 			if ((*tam_reg) != -1)
 				(*tam_reg) = form_obtener_valor_int(form, "Tamaño de registro");
 			form_destruir(form);
+			break;
+		case T4:
+		case T5:
+			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);
 	}
 	werase(win);
 	wrefresh(win);
@@ -679,50 +839,25 @@ void ver_estadisticas(EMUFS *fp)
 			waddstr(win, s);
 	}
 
-	if ((fp->tipo == T1) || (fp->tipo == T3)) {
-		wattron(win, A_BOLD);
-		mvwaddstr(win, i++, 1, "Cantidad de bloques : ");
-		wattroff(win, A_BOLD);
-		sprintf(s, "%lu", stats.cant_bloques);
-		waddstr(win, s);
-	}
-	
-	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Cant. Registros : ");
-	wattroff(win, A_BOLD);
-	sprintf(s, "%lu", stats.cant_registros);
-	waddstr(win, s);
-
-	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Tamaño de Archivo de datos : ");
-	wattroff(win, A_BOLD);
-	sprintf(s, "%lu bytes", stats.tam_archivo);
-	waddstr(win, s);
 
 	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Tamaño de Archivos auxiliares : ");
-	wattroff(win, A_BOLD);
-	sprintf(s, "%lu bytes", stats.tam_archivos_aux);
-	waddstr(win, s);
-	
-	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Tamaño ocupado por datos : ");
+	mvwaddstr(win, i++, 1, "Tamaño ocupado por datos / Tamaño archivo : ");
 	wattroff(win, A_BOLD);
-	sprintf(s, "%lu bytes (%.2f %%)", 
-			stats.tam_archivo - stats.tam_info_control_dat - stats.total_fs,
+	sprintf(s, "%lu/%lu bytes (%.2f %%)", 
+			stats.tam_archivo - stats.tam_info_control_dat - stats.total_fs,stats.tam_archivo,
 			(stats.tam_archivo-stats.tam_info_control_dat-stats.total_fs)*100.0f/(float)stats.tam_archivo);
 	waddstr(win, s);
 	
 	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Tamaño de campos de control de datos: ");
+	mvwaddstr(win, i++, 1, "Tamaño info de control(1) / Tamaño archivo : ");
 	wattroff(win, A_BOLD);
-	sprintf(s, "%lu bytes (%.2f %%)", stats.tam_info_control_dat, stats.tam_info_control_dat*100.0f/(float)stats.tam_archivo);
+	sprintf(s, "%lu/%lu bytes (%.2f %%)", stats.tam_info_control_dat+stats.tam_archivos_aux, stats.tam_archivo, (stats.tam_info_control_dat+stats.tam_archivos_aux)*100.0f/(float)stats.tam_archivo);
 	waddstr(win, s);
 
 	wattron(win, A_BOLD);
-	mvwaddstr(win, i++, 1, "Espacio Libre : ");
+	mvwaddstr(win, i++, 1, "Espacio Libre / Tamaño archivo : ");
 	wattroff(win, A_BOLD);
-	sprintf(s, "%lu bytes (%.2f %%)", stats.total_fs, stats.total_fs*100.0f/(float)stats.tam_archivo);
+	sprintf(s, "%lu/%lu bytes (%.2f %%)", stats.total_fs, stats.tam_archivo, stats.total_fs*100.0f/(float)stats.tam_archivo);
 	waddstr(win, s);
 	
 	wattron(win, A_BOLD);
@@ -743,6 +878,41 @@ void ver_estadisticas(EMUFS *fp)
 	sprintf(s, "%lu bytes", stats.min_fs);
 	waddstr(win, s);
 
+	wattron(win, A_BOLD);
+	mvwaddstr(win, i++, 1, "Tamaño de Archivo de datos : ");
+	wattroff(win, A_BOLD);
+	sprintf(s, "%lu bytes", stats.tam_archivo);
+	waddstr(win, s);
+	
+	wattron(win, A_BOLD);
+	mvwaddstr(win, i++, 1, "Tamaño de Archivos auxiliares : ");
+	wattroff(win, A_BOLD);
+	sprintf(s, "%lu bytes", stats.tam_archivos_aux);
+	waddstr(win, s);
+	
+	wattron(win, A_BOLD);
+	mvwaddstr(win, i++, 1, "Información de control en el .dat : ");
+	wattroff(win, A_BOLD);
+	sprintf(s, "%lu bytes", stats.tam_info_control_dat);
+	waddstr(win, s);
+	
+	if ((fp->tipo == T1) || (fp->tipo == T3)) {
+		wattron(win, A_BOLD);
+		mvwaddstr(win, i++, 1, "Cantidad de bloques : ");
+		wattroff(win, A_BOLD);
+		sprintf(s, "%lu", stats.cant_bloques);
+		waddstr(win, s);
+	}
+	
+	wattron(win, A_BOLD);
+	mvwaddstr(win, i++, 1, "Cant. Registros : ");
+	wattroff(win, A_BOLD);
+	sprintf(s, "%lu", stats.cant_registros);
+	waddstr(win, s);
+	
+	wattron(win, A_BOLD);
+	mvwaddstr(win, i++, 1, "(1) Info control del .dat + los archivos auxiliares!.");
+	wattroff(win, A_BOLD);
 	
 	wattron(win, A_BLINK);
 	mvwaddstr(win, i+2, 1, "Presione una tecla para continuar.");
@@ -781,4 +951,3 @@ char *preguntar_file()
 	return t;
 }
 
-