X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/ee3853f9b2bed3fa3a1f3a90c8dca81686d39fc8..7ebf0a1c567c187b7819379c45755cf5ef8dac90:/emufs_gui/facturas.c

diff --git a/emufs_gui/facturas.c b/emufs_gui/facturas.c
index 23e9deb..bc1bd73 100644
--- a/emufs_gui/facturas.c
+++ b/emufs_gui/facturas.c
@@ -5,6 +5,8 @@
 #include "menu.h"
 #include "lista.h"
 #include "articulos.h"
+#include "base.h"
+#include "extsort.h"
 
 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
 
+/* 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);
@@ -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");
-					PERR(prop);
 					fact.numero = atoi(prop); xmlFree(prop);
 					prop = xml_get_prop(node, "PorcDoI");
 					fact.procdoi = atof(prop); xmlFree(prop);
@@ -649,8 +661,9 @@ void fact_agregar(char *s)
 				cant++;
 				its = (t_Item *)realloc(its, cant*sizeof(t_Item));
 				if (its != NULL) {
+					art_actualizar_stock(atoi(entrada), atoi(cv));
 					its[cant-1].numero = atoi(entrada);
-					strcpy(its[cant-1].cv, form_obtener_valor_char(form, "CV"));
+					strcpy(its[cant-1].cv, cv);
 					strcpy(its[cant-1].pvu, art->pvu);
 				}
 				free(art);
@@ -764,7 +777,6 @@ static int procesar_leer_factura(t_Factura *dst, void *src, EMUFS_REG_SIZE size,
 		return 0;
 	}
 
-	fprintf(stderr, "TIPO = %d\n", lst->fp->tipo);
 	switch (lst->fp->tipo) {
 		case T1:
 		case T2:
@@ -963,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(stderr, "EXPORTAR : Menor Clave = %d\n", k.i_clave);
 	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);
@@ -987,7 +997,6 @@ int fact_exportar_xml(const char *filename)
 			free(fact);
 		}
 		k = idx->obtener_sig_clave(idx, k);
-		fprintf(stderr, "XXX Siguiente = %d\n", k.i_clave);
 	}
 	fprintf(fp, "\t</FACTURAS>\n");
 
@@ -1026,6 +1035,7 @@ void fact_consultas_codigos(char *s)
 	WINDOW *win, *win1;
 	INDICE *idx;
 	CLAVE k, menor, mayor;
+	int editar;
 
 	idx = lst_facturas->fp->indices;
 
@@ -1083,9 +1093,15 @@ void fact_consultas_codigos(char *s)
 	}
 
 	curs_set(0);
-	lista_ejecutar(lista);
+	editar = lista_ejecutar(lista);
 	curs_set(1);
 	
+	if (editar != -1) {
+		char cc[20];
+		sprintf(cc, "%d", editar);
+		fact_modificar(cc);
+	}
+	
 	wrefresh(win1);
 	wrefresh(win);
 	werase(win1);
@@ -1115,6 +1131,8 @@ void fact_consultas_fechas(char *s)
 	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);
@@ -1140,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!!");
+
+	/* 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);
+		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);
+		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", 4096, 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);
@@ -1165,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 */
-	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) {
-					fprintf(stderr, "Agrego factura num=%d con %d items\n", fact.numero, fact.cant_items);
 					lista_agregar_fila_ordenada(lista,
 						fact.numero,
 						fact.emision,
@@ -1197,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);
-	}
+	} 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);
-	lista_ejecutar(lista);
+	editar = lista_ejecutar(lista);
 	curs_set(1);
+	if (editar != -1) {
+		char cc[20];
+		sprintf(cc, "%d", editar);
+		fact_modificar(cc);
+	}
 	wrefresh(win1);
 	wrefresh(win);
 	werase(win1);
@@ -1226,6 +1334,7 @@ void fact_consultas_varias(char *nombre_indice, char *titulo)
 	CLAVE k;
 	EMUFS *fs;
 	EMUFS_REG_SIZE size;
+	int editar;
 
 	fs = lst_facturas->fp;
 
@@ -1268,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,
-							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");
@@ -1280,8 +1389,13 @@ void fact_consultas_varias(char *nombre_indice, char *titulo)
 	}
 
 	curs_set(0);
-	lista_ejecutar(lista);
+	editar = lista_ejecutar(lista);
 	curs_set(1);
+	if (editar != -1) {
+		char cc[20];
+		sprintf(cc, "%d", editar);
+		fact_modificar(cc);
+	}
 	
 	wrefresh(win1);
 	wrefresh(win);
@@ -1361,10 +1475,8 @@ void mostrar_fact(WINDOW *win, CLAVE k, char *s, INDICE *idx)
 			free(fact);
 			fact = NULL;
 		} else {
-			fprintf(stderr, "Tengo %d datos\n", cant);
 			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) {
@@ -1495,3 +1607,19 @@ int fact_hay_con_item(int numero)
 	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);
+}
+