* BUGFIX : En emufs_destruir habia un bug donde eliminaba mal y se colgaba

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

diff --git a/emufs_gui/articulos.c b/emufs_gui/articulos.c
index e5a685056abfd82505002653cf1e5aec1a38c069..f7ee0985bc47d2adf6b2249f66880b406f1ac753 100644 (file)
--- a/emufs_gui/articulos.c
+++ b/emufs_gui/articulos.c
@@ -159,6 +159,7 @@ t_LstArticulos *art_cargar(t_Parametros *param)
        } else {
                PERR("Voy a recuperar desde un archivo");
                tmp->fp = emufs_abrir("articulos");
+               fprintf(stderr, "PTR=%p %p\n", tmp, tmp->fp);
                if (tmp->fp == NULL) {
                        PERR("No se pudo cargar archivo de articulos.");
                        free(tmp);
@@ -1150,3 +1151,134 @@ void art_recorrer()
        }
 }
 
+void art_ver_ventas()
+{
+#ifdef cONDORITO
+       char desde_fecha[10], hasta_fecha[10];
+       t_Lista *lista;
+       t_Form *form;
+       WINDOW *win, *win1;
+       INDICE *idx;
+       CLAVE k_menor, k_mayor;
+
+       win = newwin(LINES-4, COLS-2, 2, 1);
+       win1 = derwin(win, LINES-6, COLS-4, 1, 1);
+       werase(win);
+       box(win, 0, 0);
+       wrefresh(win);
+       
+       /* El usuario ingresa rango a listar */
+       form = form_crear(win1);
+       form_agregar_widget(form, INPUT, "Desde Fecha", 8, "");
+       form_agregar_widget(form, INPUT, "Hasta Fecha", 8, "");
+       form_ejecutar(form, 2, 2);
+
+       strcpy(desde_fecha, form_obtener_valor_char(form, "Desde Fecha"));
+       strcpy(hasta_fecha, form_obtener_valor_char(form, "Hasta Fecha"));
+       
+       form_destruir(form);
+       werase(win1);
+       wrefresh(win1);
+
+       /* Si el usuario no ingreso alguno de los datos, lo obtengo del indice */
+       /*idx = emufs_buscar_indice_por_nombre(fact_get_lst()->fp, "emision");*/
+
+       /* Uso el indice por numero de articulo */
+       idx = fact_get_lst()->fp->externo;
+
+       if (idx==NULL) PERR("INDICE EMISION NO SE ENCUENTRA!!");
+       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(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);
+       }
+       
+       /* Creo la lista donde mostrar la consulta*/
+       /* Muestro solo info relevante */
+       lista = lista_crear(4, win1, COLS-4, LINES-6);
+
+       /* Creo las columnas */
+       lista_agregar_columna(lista, "Fecha", DATO_STR, 0, 9);       /* emision    */
+       lista_agregar_columna(lista, "Numero", DATO_INT, 20, 8);     /* numero articulo    */
+       lista_agregar_columna(lista, "Cantidad", DATO_INT, 30, 10);  /* estado     */
+
+       /* 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);
+                       }
+                       lista_agregar_fila(lista,
+                               fact.emision,
+                               get_estado(fact.estado),
+                               get_forma_pago(fact.fp),
+                               get_importe_factura(fact.items, fact.cant_items, fact.procdoi)
+                       );
+               }
+               if (datos) free(datos);
+               if (fact.items) free(fact.items);
+               k_menor = idx->obtener_sig_clave(idx, k_menor);
+       }
+
+       curs_set(0);
+       lista_ejecutar(lista);
+       curs_set(1);
+       wrefresh(win1);
+       wrefresh(win);
+       werase(win1);
+       werase(win);
+       wrefresh(win);
+       delwin(win);
+#endif
+}
+
+void art_actualizar_stock(int numero, int cv)
+{
+       t_Articulo *articulo;
+       EMUFS_REG_ID dummy;
+       char *tmp;
+       EMUFS_REG_SIZE size;
+       int error, stock;
+
+       articulo = art_obtener(lst_articulos, numero, &dummy);
+       if (articulo != NULL) {
+               /* Actualizo el stock */
+               stock = atoi(articulo->existencia);
+               stock -= cv;
+               sprintf(articulo->existencia, "%d", stock);
+               tmp = procesar_guardar_articulo(articulo, &size, lst_articulos);
+               if (tmp) {
+                       CLAVE k;
+                       INDICE_DATO dummy1;
+                       k.i_clave = numero;
+                       /* dummy se pasa porque esto se hace por clave primaria, y el INDICE_DATO que se
+                        * pasa solo es requerido cuando son claves multiples
+                        */
+                       PERR("Guardando modificacion de Stock");
+                       error = 0;
+                       fprintf(stderr, "PTR=%p %p\n", lst_articulos, lst_articulos->fp);
+                       lst_articulos->fp->modificar_registro(lst_articulos->fp, k, tmp, size, &error, dummy1);
+                       PERR("Listo");
+                       free(tmp);
+               }
+       }
+}
+