Me aseguro de que tengo cantidad de claves impares para el B+

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

diff --git a/emufs_gui/facturas.c b/emufs_gui/facturas.c
index 2df27ea46cf68c12fe04e5e842736385aa409d83..6225a6dedc9f28e004118cad0c88ee931ed5b72d 100644 (file)
--- a/emufs_gui/facturas.c
+++ b/emufs_gui/facturas.c
@@ -5,6 +5,8 @@
 #include "menu.h"
 #include "lista.h"
 #include "articulos.h"
 #include "menu.h"
 #include "lista.h"
 #include "articulos.h"

+#include "base.h"
+#include "extsort.h"

 
 static t_LstFacturas *lst_facturas;
 
 
 static t_LstFacturas *lst_facturas;
 


@@ -19,6 +21,17 @@ static int agregar_nodo_factura(t_LstFacturas *lst, t_Reg_Factura *nodo);
 int eliminar_nodo_factura(t_LstFacturas *lst, t_Reg_Factura *nodo);
 #endif
 
 int eliminar_nodo_factura(t_LstFacturas *lst, t_Reg_Factura *nodo);
 #endif
 

+/* Tipo de dato a meter en el archivo para un ord. externo */
+typedef struct _ord_data_ {
+       int numero;
+       char emision[9];
+       char estado[3];
+       char fp[3];
+       float importe;
+} t_OrdExt_Data;
+
+int comparar_externo(void *it1, void *it2);
+

 /* Funciones para carga desde el XML */
 static t_Item *leer_items(xmlNode *, int *cant, int size);
 static char *leer_nota(xmlNode *, int max);
 /* Funciones para carga desde el XML */
 static t_Item *leer_items(xmlNode *, int *cant, int size);
 static char *leer_nota(xmlNode *, int max);


@@ -250,7 +263,6 @@ t_LstFacturas *fact_cargar(t_Parametros *param)
                                        void *save;
                                        memset(&fact, 0, sizeof(t_Factura));
                                        prop = xml_get_prop(node, "NroFac");
                                        void *save;
                                        memset(&fact, 0, sizeof(t_Factura));
                                        prop = xml_get_prop(node, "NroFac");

-                                       PERR(prop);

                                        fact.numero = atoi(prop); xmlFree(prop);
                                        prop = xml_get_prop(node, "PorcDoI");
                                        fact.procdoi = atof(prop); xmlFree(prop);
                                        fact.numero = atoi(prop); xmlFree(prop);
                                        prop = xml_get_prop(node, "PorcDoI");
                                        fact.procdoi = atof(prop); xmlFree(prop);


@@ -765,7 +777,6 @@ static int procesar_leer_factura(t_Factura *dst, void *src, EMUFS_REG_SIZE size,
                return 0;
        }
 
                return 0;
        }
 

-       fprintf(stderr, "TIPO = %d\n", lst->fp->tipo);

        switch (lst->fp->tipo) {
                case T1:
                case T2:
        switch (lst->fp->tipo) {
                case T1:
                case T2:


@@ -964,10 +975,8 @@ int fact_exportar_xml(const char *filename)
        
        fprintf(fp, "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n");
        fprintf(fp, "<FACTURAS>\n");
        
        fprintf(fp, "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n");
        fprintf(fp, "<FACTURAS>\n");

-       fprintf(stderr, "EXPORTAR : Menor Clave = %d\n", k.i_clave);

        while (k.i_clave != -1) {
                fact = fact_buscar(lst_facturas, k.i_clave, &id, &id1);
        while (k.i_clave != -1) {
                fact = fact_buscar(lst_facturas, k.i_clave, &id, &id1);

-               fprintf(stderr, "Lei factura numero %d y apunta a %p\n", k.i_clave, fact);

                if (fact != NULL) {
                        fprintf(fp, "\t<FACTURA NroFac=\"%08d\" ", fact->numero);
                        fprintf(fp, "FechaEmisión=\"%s\" ", fact->emision);
                if (fact != NULL) {
                        fprintf(fp, "\t<FACTURA NroFac=\"%08d\" ", fact->numero);
                        fprintf(fp, "FechaEmisión=\"%s\" ", fact->emision);


@@ -988,7 +997,6 @@ int fact_exportar_xml(const char *filename)
                        free(fact);
                }
                k = idx->obtener_sig_clave(idx, k);
                        free(fact);
                }
                k = idx->obtener_sig_clave(idx, k);

-               fprintf(stderr, "XXX Siguiente = %d\n", k.i_clave);

        }
        fprintf(fp, "\t</FACTURAS>\n");
 
        }
        fprintf(fp, "\t</FACTURAS>\n");
 


@@ -1027,6 +1035,7 @@ void fact_consultas_codigos(char *s)
        WINDOW *win, *win1;
        INDICE *idx;
        CLAVE k, menor, mayor;
        WINDOW *win, *win1;
        INDICE *idx;
        CLAVE k, menor, mayor;

+       int editar;

 
        idx = lst_facturas->fp->indices;
 
 
        idx = lst_facturas->fp->indices;
 


@@ -1084,9 +1093,15 @@ void fact_consultas_codigos(char *s)
        }
 
        curs_set(0);
        }
 
        curs_set(0);

-       lista_ejecutar(lista);
+       editar = lista_ejecutar(lista);

        curs_set(1);
        
        curs_set(1);
        

+       if (editar != -1) {
+               char cc[20];
+               sprintf(cc, "%d", editar);
+               fact_modificar(cc);
+       }
+       

        wrefresh(win1);
        wrefresh(win);
        werase(win1);
        wrefresh(win1);
        wrefresh(win);
        werase(win1);


@@ -1116,6 +1131,8 @@ void fact_consultas_fechas(char *s)
        WINDOW *win, *win1;
        INDICE *idx;
        CLAVE k_menor, k_mayor;
        WINDOW *win, *win1;
        INDICE *idx;
        CLAVE k_menor, k_mayor;

+       int todo=0;
+       int editar;

 
        win = newwin(LINES-4, COLS-2, 2, 1);
        win1 = derwin(win, LINES-6, COLS-4, 1, 1);
 
        win = newwin(LINES-4, COLS-2, 2, 1);
        win1 = derwin(win, LINES-6, COLS-4, 1, 1);


@@ -1141,19 +1158,70 @@ void fact_consultas_fechas(char *s)
        /* Si el usuario no ingreso alguno de los datos, lo obtengo del indice */
        idx = emufs_buscar_indice_por_nombre(lst_facturas->fp, "emision");
        if (idx==NULL) PERR("INDICE EMISION NO SE ENCUENTRA!!");
        /* Si el usuario no ingreso alguno de los datos, lo obtengo del indice */
        idx = emufs_buscar_indice_por_nombre(lst_facturas->fp, "emision");
        if (idx==NULL) PERR("INDICE EMISION NO SE ENCUENTRA!!");

+
+       /* XXX Politica de seleccion de uso de ord externo
+        *
+        * Se usa ordenamiento externo en alguno de estos 2 casos :
+        *   * Se requiere un listado de todo el rango de fechas
+        *   * Se requiere un listado de todos los Estados
+        *
+        *   Para cualquier otro caso, se ordena directamente
+        *   en la lista
+        */

        if (strlen(desde_fecha) == 0) {
                k_menor = idx->obtener_menor_clave(idx);
                emufs_indice_obtener_valor_desde_clave(idx, k_menor, desde_fecha);
                PERR("OBTUVE MENOR CLAVE DESDE EL INDICE");
                PERR(desde_fecha);
        if (strlen(desde_fecha) == 0) {
                k_menor = idx->obtener_menor_clave(idx);
                emufs_indice_obtener_valor_desde_clave(idx, k_menor, desde_fecha);
                PERR("OBTUVE MENOR CLAVE DESDE EL INDICE");
                PERR(desde_fecha);

+               todo++;

        }
        if (strlen(hasta_fecha) == 0) {
                k_mayor = idx->obtener_mayor_clave(idx);
                emufs_indice_obtener_valor_desde_clave(idx, k_mayor, hasta_fecha);
                PERR("OBTUVE MAYOR CLAVE DESDE EL INDICE");
                PERR(hasta_fecha);
        }
        if (strlen(hasta_fecha) == 0) {
                k_mayor = idx->obtener_mayor_clave(idx);
                emufs_indice_obtener_valor_desde_clave(idx, k_mayor, hasta_fecha);
                PERR("OBTUVE MAYOR CLAVE DESDE EL INDICE");
                PERR(hasta_fecha);

+               todo++;
+       }
+
+       if (strcmp(estado, "Todos") == 0) todo = 2;
+
+       if (todo == 2) {
+               /* Debo utilizar un ord, externo!! */
+               FILE *fp;
+               /* Creo el archivo a ordenar */
+               fp = fopen("tmp_ord.xxx", "w");
+               while (k_menor.i_clave != -1) {
+                       t_Factura fact;
+                       int error, cant, i;
+                       char *leo;
+                       t_OrdExt_Data ord;
+                       EMUFS_REG_SIZE size;
+                       INDICE_DATO *datos;
+                       CLAVE k1;
+                       datos = idx->buscar_entradas(idx, k_menor, &cant);
+                       for(i=0; i<cant; i++) {
+                               error = 1;
+                               k1.i_clave = datos[i].id;
+                               leo = lst_facturas->fp->leer_registro(lst_facturas->fp, k1, &size, &error);
+                               if (leo != NULL) {
+                                       procesar_leer_factura(&fact, leo, size, lst_facturas);
+                                       free(leo);
+                                       ord.numero = fact.numero;
+                                       strcpy(ord.emision, fact.emision);
+                                       strcpy(ord.estado, fact.estado);
+                                       strcpy(ord.fp, fact.fp);
+                                       ord.importe = get_importe_factura(fact.items, fact.cant_items, fact.procdoi);
+                                       fwrite(&ord, sizeof(t_OrdExt_Data), 1, fp);
+                               }
+                       }
+                       if (datos) free(datos);
+                       if (fact.items) free(fact.items);
+                       k_menor = idx->obtener_sig_clave(idx, k_menor);
+               }
+               fclose(fp);
+               /* Mando a ordenar */
+               extsort("tmp_ord.xxx", 5*sizeof(t_OrdExt_Data), sizeof(t_OrdExt_Data), comparar_externo);

        }
        }

-       

        /* Creo la lista donde mostrar la consulta*/
        /* Muestro solo info relevante */
        lista = lista_crear(4, win1, COLS-4, LINES-6);
        /* Creo la lista donde mostrar la consulta*/
        /* Muestro solo info relevante */
        lista = lista_crear(4, win1, COLS-4, LINES-6);


@@ -1166,29 +1234,24 @@ void fact_consultas_fechas(char *s)
        lista_agregar_columna(lista, "Importe", DATO_FLOAT, 50, 8);   /* importe         */
 
        /* Leo los datos desde el archivo */
        lista_agregar_columna(lista, "Importe", DATO_FLOAT, 50, 8);   /* importe         */
 
        /* Leo los datos desde el archivo */

-       while (k_menor.i_clave != -1) {
-               t_Factura fact;
-               int error, cant, i;
-               char *leo;
-               EMUFS_REG_SIZE size;
-               INDICE_DATO *datos;
-               CLAVE k1;
-               datos = idx->buscar_entradas(idx, k_menor, &cant);
-               for(i=0; i<cant; i++) {
-                       error = 1;
-                       k1.i_clave = datos[i].id;
-                       leo = lst_facturas->fp->leer_registro(lst_facturas->fp, k1, &size, &error);
-                       if (leo != NULL) {
-                               procesar_leer_factura(&fact, leo, size, lst_facturas);
-                               free(leo);
-                               /*k.i_clave = fact->reg_nota;
-                               error = 0;
-                               fact->nota = lst->fp_texto->leer_registro(lst->fp_texto, k, &size, &error);
-                               */
-                       }
-                       if (strcmp(estado, "Todos") != 0) {
+       if (todo != 2) {
+               while (k_menor.i_clave != -1) {
+                       t_Factura fact;
+                       int error, cant, i;
+                       char *leo;
+                       EMUFS_REG_SIZE size;
+                       INDICE_DATO *datos;
+                       CLAVE k1;
+                       datos = idx->buscar_entradas(idx, k_menor, &cant);
+                       for(i=0; i<cant; i++) {
+                               error = 1;
+                               k1.i_clave = datos[i].id;
+                               leo = lst_facturas->fp->leer_registro(lst_facturas->fp, k1, &size, &error);
+                               if (leo != NULL) {
+                                       procesar_leer_factura(&fact, leo, size, lst_facturas);
+                                       free(leo);
+                               }

                                if (strcmp(estado, fact.estado) == 0) {
                                if (strcmp(estado, fact.estado) == 0) {

-                                       fprintf(stderr, "Agrego factura num=%d con %d items\n", fact.numero, fact.cant_items);

                                        lista_agregar_fila_ordenada(lista,
                                                fact.numero,
                                                fact.emision,
                                        lista_agregar_fila_ordenada(lista,
                                                fact.numero,
                                                fact.emision,


@@ -1198,15 +1261,59 @@ void fact_consultas_fechas(char *s)
                                        );
                                }
                        }
                                        );
                                }
                        }

+                       if (datos) free(datos);
+                       if (fact.items) free(fact.items);

                }
                }

-               if (datos) free(datos);
-               if (fact.items) free(fact.items);

                k_menor = idx->obtener_sig_clave(idx, k_menor);
                k_menor = idx->obtener_sig_clave(idx, k_menor);

-       }
+       } else {
+               /* Cargo la lista a partir del archivo ordenado externamente */
+               FILE *fp;
+               int j;
+               char st[3];
+               t_OrdExt_Data ord;
+               
+               j =( strcmp(estado, "Todos") == 0);
+               fp = fopen("tmp_ord.xxx", "r");

 
 

+               /* si j == 1 tengo que paginar por estado */
+               fread(&ord, sizeof(t_OrdExt_Data), 1, fp);
+               strcpy(st, ord.estado);
+               while (!feof(fp)) {
+                       lista_agregar_fila(lista,
+                               ord.numero,
+                               ord.emision,
+                               get_estado(ord.estado),
+                               get_forma_pago(ord.fp),
+                               ord.importe
+                       );
+                       strcpy(st, ord.estado);
+                       
+                       fread(&ord, sizeof(t_OrdExt_Data), 1, fp);
+                       /* Si el estado cambio y j == 1 */
+                       if ((strcmp(st, ord.estado) != 0) && (j == 1)) {
+                               /* Hago la pausa para mostrar lo que hay */
+                               editar = lista_ejecutar(lista);
+                               if (editar != -1) {
+                                       char cc[20];
+                                       sprintf(cc, "%d", editar);
+                                       fact_modificar(cc);
+                               }
+                               /* bue, ya miraron, ahora limpio y sigo con el resto */
+                               lista_clear(lista);
+                       }
+               }
+
+               /* Elimino el archivo temporal */
+               unlink("tmp_ord.xxx");
+       }

        curs_set(0);
        curs_set(0);

-       lista_ejecutar(lista);
+       editar = lista_ejecutar(lista);

        curs_set(1);
        curs_set(1);

+       if (editar != -1) {
+               char cc[20];
+               sprintf(cc, "%d", editar);
+               fact_modificar(cc);
+       }

        wrefresh(win1);
        wrefresh(win);
        werase(win1);
        wrefresh(win1);
        wrefresh(win);
        werase(win1);


@@ -1227,6 +1334,7 @@ void fact_consultas_varias(char *nombre_indice, char *titulo)
        CLAVE k;
        EMUFS *fs;
        EMUFS_REG_SIZE size;
        CLAVE k;
        EMUFS *fs;
        EMUFS_REG_SIZE size;

+       int editar;

 
        fs = lst_facturas->fp;
 
 
        fs = lst_facturas->fp;
 


@@ -1269,11 +1377,11 @@ void fact_consultas_varias(char *nombre_indice, char *titulo)
                if (tmp != NULL) {
                        procesar_leer_factura(&factura, tmp, size, lst_facturas);
                        lista_agregar_fila(lista,
                if (tmp != NULL) {
                        procesar_leer_factura(&factura, tmp, size, lst_facturas);
                        lista_agregar_fila(lista,

-                                                       factura.numero,
-                                                       factura.emision,
-                                                       get_estado(factura.estado),
-                                                       get_forma_pago(factura.fp)
-                                       );
+                               factura.numero,
+                               factura.emision,
+                               get_estado(factura.estado),
+                               get_forma_pago(factura.fp)
+                       );

                        free(tmp);
                } else {
                        PERR("NO SE PUDO RECUPERAR EL REGISTRO DE DATOS");
                        free(tmp);
                } else {
                        PERR("NO SE PUDO RECUPERAR EL REGISTRO DE DATOS");


@@ -1281,8 +1389,13 @@ void fact_consultas_varias(char *nombre_indice, char *titulo)
        }
 
        curs_set(0);
        }
 
        curs_set(0);

-       lista_ejecutar(lista);
+       editar = lista_ejecutar(lista);

        curs_set(1);
        curs_set(1);

+       if (editar != -1) {
+               char cc[20];
+               sprintf(cc, "%d", editar);
+               fact_modificar(cc);
+       }

        
        wrefresh(win1);
        wrefresh(win);
        
        wrefresh(win1);
        wrefresh(win);


@@ -1362,10 +1475,8 @@ void mostrar_fact(WINDOW *win, CLAVE k, char *s, INDICE *idx)
                        free(fact);
                        fact = NULL;
                } else {
                        free(fact);
                        fact = NULL;
                } else {

-                       fprintf(stderr, "Tengo %d datos\n", cant);

                        k.i_clave = datos[0].id;
                        PERR("Leo el primer dato");
                        k.i_clave = datos[0].id;
                        PERR("Leo el primer dato");

-                       fprintf(stderr, "ID = %ld en bloque %ld\n", datos[0].id, datos[0].bloque);

                        error = 1;
                        tmp = lst_facturas->fp->leer_registro(lst_facturas->fp, k, &size, &error);
                        if (tmp == NULL) {
                        error = 1;
                        tmp = lst_facturas->fp->leer_registro(lst_facturas->fp, k, &size, &error);
                        if (tmp == NULL) {


@@ -1496,3 +1607,19 @@ int fact_hay_con_item(int numero)
        return 1; /* Hay alguna factura que contiene el articulo */
 }
 
        return 1; /* Hay alguna factura que contiene el articulo */
 }
 

+int comparar_externo(void *it1, void *it2)
+{
+       t_OrdExt_Data *d1, *d2;
+       d1 = (t_OrdExt_Data *)it1;
+       d2 = (t_OrdExt_Data *)it2;
+
+       /* Primero veo de ordenar por Estado */
+       if (strcmp(d1->estado, d2->estado) == 0) {
+               /* Tienen el mismo estado, los ordeno por numero de fatura */
+               return d1->numero - d2->numero;
+       }
+
+       /* como no son iguales, comparo los estados */
+       return strcmp(d1->estado, d2->estado);
+}
+