* chamullo conclusiones

[z.facultad/75.06/emufs.git] / emufs_gui / emufs_view.c

diff --git a/emufs_gui/emufs_view.c b/emufs_gui/emufs_view.c
index 719a549aabb86fff44332a7ae6a1c919e57162c2..1b6844d002e6e4032422b971b83dc99448f2f515 100644 (file)
--- 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>
 #include <stdlib.h>
 #include <curses.h>
 #include <menu.h>


@@ -14,6 +13,7 @@
 #include "facturas.h"
 #include "emufs.h"
 #include "viewer.h"
 #include "facturas.h"
 #include "emufs.h"
 #include "viewer.h"

+#include "tree_viewer.h"

 
 #define CTRLD 4
 
 
 #define CTRLD 4
 


@@ -26,7 +26,8 @@ void menu_mantenimiento();
 void menu_estadisticas();
 void menu_ver_registros();
 void menu_ver_bloques();
 void menu_estadisticas();
 void menu_ver_registros();
 void menu_ver_bloques();

-void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg);
+void menu_ver_indices();
+void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg);

 
 void ver_estadisticas(EMUFS *fp);
 
 
 void ver_estadisticas(EMUFS *fp);
 


@@ -41,123 +42,278 @@ typedef enum {
                NULL_BLOCK_FOUND    /* Tamaño de bloque <= 0!!! */
 } t_Param;
 
                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 */
-       EMUFS_BLOCK_SIZE tam_bloque_fact;
-       EMUFS_BLOCK_SIZE tam_bloque_art;
-} parametros;
-
-/* Verifica Argumentos */
-t_Param param_ok(int argc, char *argv[])
+void print_help(char *s)

 {
 {

-       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], "-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;
+       printf("EMUFS - 2v0\n");
+       printf("Modo de uso :%s [<emufs.xml>|-h] \n", s);
+       printf("\temufs.xml es el archivo XML que cumple con emufs.dtd con la configuracion a usar.\n");
+       printf("\t-h Muestra este msg de ayuda.\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);

                                }
                                }

-                       } else {
-                               return NO_ART_FILE;
+                               PERR("  LISTO");
+                               free(nombre);

                        }
                        }

-               } /* 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 */
-                               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_fact = n;
-                                       if (n != 2) {
-                                               parametros.tam_bloque_fact = atoi(argv[i+2]);
-                                               if (parametros.tam_bloque_fact <= 0) return NULL_BLOCK_FOUND;
-                                       }
-                                       parametros.xml_fact = i;
-                               } else {
-                                       /* Ops, no hay mas parametros */
-                                       return TIPO_NO_DEFINIDO;
+               }
+               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);

                                }
                                }

-                       } else {
-                               return NO_FACT_FILE;
+                               PERR("  LISTO");
+                               free(nombre);

                        }
                        }

-               } /* Facturas */
-               
+               }
+               node = node->next;

        }
        }

-       return PARAM_OK;

 }
 
 }
 

-void print_help(char *s)
+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)

 {
 {

-       printf("EMUFS - 1v0\n");
-       printf("Modo de uso : %s [-[f|a] <archivo articulos XML> tipo [tamaño bloque]] \n", s);
-       printf("  -f indica que lo que está a continuación seran los datos para generar el archivo de facturas.\n");
-       printf("  -a indica que lo que está a continuación seran los datos para generar el archivo de articulos.\n");
-       printf("  'tipo' es el modo de archivo. Siendo :\n");
-       printf("     1 - Registros long. variables con bloque parametrizado\n");
-       printf("     2 - Registros long. variables sin bloque\n");
-       printf("     3 - Registros long fija con bloque parametrizado\n");
-       printf("  tamaño bloque debe ser especificado solo en aquellos tipos que lo requiera.\n");
+       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 main(int argc, char *argv[])
 {

-       int c, fin=0;

        WINDOW *dialog;
 
        WINDOW *dialog;
 

-       parametros.xml_art = parametros.xml_fact = -1;
-       switch (param_ok(argc, argv)) {
-               case SHOW_HELP:
+       if (argc > 2) {
+               print_help(argv[0]);
+               exit(0);
+       }
+
+       if (argc == 2) {
+               if (strcmp(argv[1], "-h")==0) {

                        print_help(argv[0]);
                        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;
+                       exit(0);
+               }
+               param_xml(argv[1], &parametros);
+
+               /* Valido que los tamaños de los bloques sean multiplos de 512 */
+               if ((parametros.tam_bloque_art%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.tam_bloque_fact%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_art[0].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_art[1].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_art[2].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_fac[0].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_fac[1].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_fac[2].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_fac[3].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }
+               if ((parametros.ind_fac[4].tam_bloque%512) != 0) {
+                       PERR("Los tamaños de bloque deben ser multiplos de 512!!");
+                       exit(1);
+               }

        }
 
 #ifdef DEBUG
        }
 
 #ifdef DEBUG


@@ -210,48 +366,19 @@ int main(int argc, char *argv[])
        attroff(COLOR_PAIR(2));
        wrefresh(stdscr);
 
        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);
+       if (argc == 2) {
+               dialog = msg_box(stdscr, COLS, LINES, "Generando archivos ...");
+               art_cargar(&parametros);
+               fact_cargar(&parametros);

        } else {
        } 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);
-       } else {
-               fact_cargar(NULL, -1, -1);
+               dialog = msg_box(stdscr, COLS, LINES, "Recuperando archivos ...");
+               art_cargar(NULL);
+               fact_cargar(NULL);

        }
 
        msg_box_free(stdscr, dialog);
 
        }
 
        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();
 
 
        endwin();
 


@@ -267,11 +394,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("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;
                
                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);
                switch (opt) {
                        case 0:
                                fact_agregar(NULL);


@@ -281,6 +410,12 @@ void menu_facturas()
                        break;
                        case 2:
                                fact_modificar(NULL);
                        break;
                        case 2:
                                fact_modificar(NULL);

+                       break;
+                       case 3:
+                               fact_consultas(NULL);
+                       break;
+                       case 4:
+                               fact_recorrer();

                }
        }
 }
                }
        }
 }


@@ -291,11 +426,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("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;
                
                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);
                switch (opt) {
                        case 0:
                                art_agregar(NULL);


@@ -305,6 +443,15 @@ void menu_articulos()
                        break;
                        case 2:
                                art_modificar(NULL);
                        break;
                        case 2:
                                art_modificar(NULL);

+                       break;
+                       case 3:
+                               art_consultas(NULL);
+                       break;
+                       case 4:
+                               art_recorrer();
+                       break;
+                       case 5:
+                               art_ver_ventas();

                }
        }
 
                }
        }
 


@@ -346,25 +493,12 @@ void menu_ver_registros()
        WINDOW *dialog;
 
        while ((opt = menu_ejecutar(mi_menu, 4, "Menu Ver Registros")) != 3) {
        WINDOW *dialog;
 
        while ((opt = menu_ejecutar(mi_menu, 4, "Menu Ver Registros")) != 3) {

-               switch (opt) {
-                       case 0:
-                               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
-                               ver_registros(dialog, COLS-2, LINES-4, 0);
-                               werase(dialog);
-                               wrefresh(dialog);
-                               delwin(dialog);
-                               refresh();
-                       break;
-                       case 1:
-                               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
-                               ver_registros(dialog, COLS-2, LINES-4, 1);
-                               werase(dialog);
-                               wrefresh(dialog);
-                               delwin(dialog);
-                               refresh();
- /*                    break; */
-       /*              case 2: */
-               }
+               dialog = derwin(stdscr, LINES-4, COLS-2, 2, 1);
+               ver_registros(dialog, COLS-2, LINES-4, opt);
+               werase(dialog);
+               wrefresh(dialog);
+               delwin(dialog);
+               refresh();

        }
 }
 
        }
 }
 


@@ -408,8 +542,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 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."),
        MENU(mi_menu) {
                MENU_OPCION("Articulos","Alta,baja,consulta y modificacion de articulos."),
                MENU_OPCION("Facturas","Alta,baja,consulta y modificacion de facturas."),


@@ -417,10 +604,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 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.")
        };
 
                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;

 }
 
 
 }
 
 


@@ -469,16 +682,18 @@ void menu_mantenimiento()
                MENU_OPCION("Compactar Notas","Elimina espacio no utilizado."),
                MENU_OPCION("Cambiar tipo Archivo Articulos","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Cambiar tipo Archivo Facturas","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Compactar Notas","Elimina espacio no utilizado."),
                MENU_OPCION("Cambiar tipo Archivo Articulos","Permite cambiar el tipo del archivo."),
                MENU_OPCION("Cambiar tipo Archivo Facturas","Permite cambiar el tipo del archivo."),

-               MENU_OPCION("Cambiar tipo Archivo Notas","Permite cambiar el tipo del archivo."),
+               MENU_OPCION("Exportar Articulos", "Genera un archivo XML con los articulos."),
+               MENU_OPCION("Expostar Facturas", "Genera un archivo XML con las facturas."),

                MENU_OPCION("Volver", "Volver al menu anterior.")
        };
 
        int opt;
                MENU_OPCION("Volver", "Volver al menu anterior.")
        };
 
        int opt;

-       int nuevo_tam_registro, nuevo_tam_bloque;
-       int nuevo_tipo;
+       int nuevo_tam_registro, nuevo_tam_bloque, nuevo_tipo;
+       int nuevo_tam_registro1, nuevo_tam_bloque1, nuevo_tipo1;

        WINDOW *dlg;
        WINDOW *dlg;

+       char *s;

 
 

-       while ((opt = menu_ejecutar(mi_menu, 7, "Menu Mantenimiento")) != 6) {
+       while ((opt = menu_ejecutar(mi_menu, 8, "Menu Mantenimiento")) != 7) {

                switch (opt) {
                        case 0:
                                dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");
                switch (opt) {
                        case 0:
                                dlg = msg_box(stdscr, COLS, LINES, "Compactando archivo.... Aguarde");


@@ -497,40 +712,69 @@ void menu_mantenimiento()
                        break;
                        case 3:
                                nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */
                        break;
                        case 3:
                                nuevo_tam_registro = -1; /* No permito cambiar el tamaño de registro */

-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_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");
                                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:
                                nuevo_tam_registro = 0;
                                msg_box_free(stdscr, dlg);
                        break;
                        case 4:
                                nuevo_tam_registro = 0;

-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               preguntar_nuevo_tipo("Parametros para Facturas", &nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               preguntar_nuevo_tipo("Parametros para Notas", &nuevo_tipo1, &nuevo_tam_bloque1, &nuevo_tam_registro1);
+                               dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
+                               parametros.tipo_arch_fact = nuevo_tipo;
+                               parametros.tam_bloque_fact = nuevo_tam_bloque;
+                               parametros.tipo_arch_nota = nuevo_tipo1;
+                               parametros.tam_bloque_nota = nuevo_tam_bloque1;
+                               fact_reformatear(&parametros);
+                               msg_box_free(stdscr, dlg);

                        break;
                        case 5:
                        break;
                        case 5:

-                               nuevo_tam_registro = -2;
-                               preguntar_nuevo_tipo(&nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
+                               s = preguntar_file();
+                               if (s) {
+                                       dlg = msg_box(stdscr, COLS, LINES, "Exportando .... Aguarde");
+                                       PERR("Exportando");
+                                       art_exportar_xml(s);
+                                       msg_box_free(stdscr, dlg);
+                                       free(s);
+                               }
+                               break;
+                       case 6:
+                               s = preguntar_file();
+                               if (s) {
+                                       dlg = msg_box(stdscr, COLS, LINES, "Exportando .... Aguarde");
+                                       PERR("Exportando");
+                                       fact_exportar_xml(s);
+                                       msg_box_free(stdscr, dlg);
+                                       free(s);
+                               }

                }
        }
 }
 
                }
        }
 }
 

-void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
+void preguntar_nuevo_tipo(const char *title, int *tipo, int *tam_bloque, int *tam_reg)

 {
        WINDOW *win;
        t_Form *form;
        char *s;
        int n, is_ok;
 
 {
        WINDOW *win;
        t_Form *form;
        char *s;
        int n, is_ok;
 

-       win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+       win = newwin(LINES/2, 2*COLS/3, LINES/4, 2*COLS/6);

        box(win, 0, 0);
 
        box(win, 0, 0);
 

+       mvwaddstr(win, 0, 1, title);

        form = form_crear(win);
        form = form_crear(win);

-       form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3");
+       form_agregar_widget(form, RADIO, "Tipo de archivo", 5, "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;
        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);
 
 
        form_destruir(form);
 


@@ -578,6 +822,19 @@ void preguntar_nuevo_tipo(int *tipo, int *tam_bloque, int *tam_reg)
                        if ((*tam_reg) != -1)
                                (*tam_reg) = form_obtener_valor_int(form, "Tamaño de registro");
                        form_destruir(form);
                        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);
        }
        werase(win);
        wrefresh(win);


@@ -625,44 +882,56 @@ void ver_estadisticas(EMUFS *fp)
                        wattroff(win, A_BOLD);
                        sprintf(s, "%lu bytes", fp->tam_reg);
                        waddstr(win, s);
                        wattroff(win, A_BOLD);
                        sprintf(s, "%lu bytes", fp->tam_reg);
                        waddstr(win, s);

+               break;
+               case T5:
+                       waddstr(win, "Registro long. fija con bloque parametrizado (Seq. Indexado)");
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_bloque);
+                       waddstr(win, s);
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de registro : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_reg);
+                       waddstr(win, s);
+               break;
+               case T4:
+                       waddstr(win, "Registro long. variable con bloque parametrizado (Seq. Indexado)");
+                       wattron(win, A_BOLD);
+                       mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+                       wattroff(win, A_BOLD);
+                       sprintf(s, "%lu bytes", fp->tam_bloque);
+                       waddstr(win, s);

        }
 
        }
 

+

        wattron(win, A_BOLD);
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Cant. Registros : ");
+       mvwaddstr(win, i++, 1, "Tamaño ocupado por datos / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu", stats.cant_registros);
+       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);
        waddstr(win, s);

-
+       

        wattron(win, A_BOLD);
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Tamaño de Archivo : ");
+       mvwaddstr(win, i++, 1, "Tamaño info de control(1) / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu bytes", 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);
        waddstr(win, s);
 
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Tamaño de Datos : ");
+       mvwaddstr(win, i++, 1, "Espacio Libre / Tamaño archivo : ");

        wattroff(win, A_BOLD);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu bytes (%.2f %%)", stats.tam_archivo-stats.tam_info_control_dat, (stats.tam_archivo-stats.tam_info_control_dat)*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);
        
        waddstr(win, s);
        

-       wattron(win, A_BOLD);
-       mvwaddstr(win, i++, 1, "Tamaño de Info de Control : ");
-       wattroff(win, A_BOLD);
-       sprintf(s, "%lu bytes (%.2f %%)", stats.tam_info_control_dat+stats.tam_archivos_aux, (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, "Media de espacio libre : ");
        wattroff(win, A_BOLD);
        sprintf(s, "%lu bytes/bloque", stats.media_fs);
        waddstr(win, s);
 
        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Media de espacio libre : ");
        wattroff(win, A_BOLD);
        sprintf(s, "%lu bytes/bloque", stats.media_fs);
        waddstr(win, s);
 

-       wattron(win, A_BOLD);
-       mvwaddstr(win, i++, 1, "Espacio Libre : ");
-       wattroff(win, A_BOLD);
-       sprintf(s, "%lu bytes", stats.total_fs);
-       waddstr(win, s);
-

        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Maximo de Espacio libre : ");
        wattroff(win, A_BOLD);
        wattron(win, A_BOLD);
        mvwaddstr(win, i++, 1, "Maximo de Espacio libre : ");
        wattroff(win, A_BOLD);


@@ -676,11 +945,41 @@ void ver_estadisticas(EMUFS *fp)
        waddstr(win, s);
 
        wattron(win, A_BOLD);
        waddstr(win, s);
 
        wattron(win, A_BOLD);

-       mvwaddstr(win, i++, 1, "Cantidad de bloques : ");
+       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);
        wattroff(win, A_BOLD);

-       sprintf(s, "%lu", stats.cant_bloques);
+       sprintf(s, "%lu bytes", stats.tam_info_control_dat);

        waddstr(win, s);
        
        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.");
        wattroff(win, A_BLINK);
        wattron(win, A_BLINK);
        mvwaddstr(win, i+2, 1, "Presione una tecla para continuar.");
        wattroff(win, A_BLINK);


@@ -693,3 +992,28 @@ void ver_estadisticas(EMUFS *fp)
        delwin(win);
 }
 
        delwin(win);
 }
 

+char *preguntar_file()
+{
+       WINDOW *win;
+       t_Form *form;
+       char *s, *t;
+
+       win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+       box(win, 0, 0);
+
+       form = form_crear(win);
+       form_agregar_widget(form, INPUT, "Nombre de archivo", 30, "");
+       form_ejecutar(form, 1,1);
+
+       s = form_obtener_valor_char(form, "Nombre de archivo");
+
+       if (strlen(s) == 0) {
+               form_destruir(form);
+               return NULL;
+       }
+       t = (char *)malloc(sizeof(char*)*(strlen(s)+1));
+       strcpy(t, s);
+       form_destruir(form);
+       return t;
+}
+