#include "facturas.h"
#include "idx.h"
#include "common.h"
+#include "menu.h"
+#include "lista.h"
static t_LstFacturas *lst_facturas;
char *prop;
EMUFS_REG_SIZE size;
t_LstFacturas *tmp;
+ t_Factura *factura;
EMUFS_REG_ID id;
lst_facturas = NULL;
cant_items = 0;
}
tmp->fp = emufs_crear("facturas", tipo-1, tam_bloque, sizeof(t_Factura)-sizeof(char *)-sizeof(t_Item*)+cant_items*sizeof(t_Item));
-#ifdef DEBUG
- fprintf(stderr, "Facturas : Tipo=%d Tam Bloque = %d\n", tipo-1, tam_bloque);
- fprintf(stderr, "Notas : Tipo=%d Tam Bloque = %d\n", tipo_nota-1, bloque_nota);
-#endif
+ emufs_agregar_indice(tmp->fp, "emision", IND_EXAHUSTIVO, IND_B, IDX_STRING, STRUCT_OFFSET(factura, emision), 512);
+ emufs_agregar_indice(tmp->fp, "numero", IND_PRIMARIO, IND_B, IDX_INT, 0, 512);
tmp->fp_texto = emufs_crear("notas", tipo_nota-1, bloque_nota, 100);
for (node=inicio ; node ; node = node->next) {
if (node->type == XML_ELEMENT_NODE) {
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);
save = procesar_guardar_factura(&fact, lst_facturas, &size);
if (save != NULL) {
error = 0;
- id = tmp->fp->grabar_registro(tmp->fp, save, size, &error);
- agregar_nodo_factura(tmp, crear_nodo_factura(id, fact.reg_nota, fact.numero));
- if (fact.items) free(fact.items);
- if (fact.nota) free(fact.nota);
+ tmp->fp->grabar_registro(tmp->fp, save, size, &error);
+ if (fact.items) {
+ free(fact.items);
+ fact.items = NULL;
+ }
+ if (fact.nota) {
+ free(fact.nota);
+ fact.nota = NULL;
+ }
free(save);
}
}
xmlCleanupParser();
} else {
#ifdef NO_SE_USA_MAS
+ /* TODO RECUPERAR INDICES DESDE EL ARCHIVO */
PERR("Voy a recuperar desde un archivo");
tmp->fp = emufs_abrir("facturas");
if (tmp->fp == NULL) {
char *leo;
EMUFS_REG_SIZE size;
int error;
+ CLAVE k;
if (lst == NULL) return NULL;
fact = NULL;
- leo = lst->fp->leer_registro(lst->fp,
- emufs_indice_generar_clave_desde_valor(lst->fp->indices, (char*)&numero), &size, &error);
+ k = emufs_indice_generar_clave_desde_valor(lst->fp->indices, (char*)&numero);
+ error = 0;
+ leo = lst->fp->leer_registro(lst->fp, k, &size, &error);
if (leo != NULL) {
fact = (t_Factura *)malloc(sizeof(t_Factura));
if (fact == NULL) {
(*id_texto) = reg->texto_reg;
*/
free(leo);
- //fact->nota = lst->fp_texto->leer_registro(lst->fp_texto, reg->texto_reg, &size, &error);
+ k.i_clave = fact->reg_nota;
+ error = 0;
+ fact->nota = lst->fp_texto->leer_registro(lst->fp_texto, k, &size, &error);
}
return fact;
{
WINDOW *win;
t_Factura *fact;
- t_Reg_Factura *nodo;
EMUFS_REG_ID id;
+ CLAVE k;
win = newwin(LINES-4, COLS-2, 2, 1);
box(win, 0, 0);
return;
}
- nodo = lst_facturas->primero;
- while (nodo) {
- if (nodo->numero == fact->numero) {
- /*lst_facturas->fp->borrar_registro(lst_facturas->fp, nodo->num_reg);*/
- /*lst_facturas->fp_texto->borrar_registro(lst_facturas->fp_texto, nodo->texto_reg);*/
- eliminar_nodo_factura(lst_facturas, nodo);
- break;
- }
- nodo = nodo->sig;
- }
+ k = emufs_indice_generar_clave_desde_valor(lst_facturas->fp->indices, (char *)(&fact->numero));
+ lst_facturas->fp->borrar_registro(lst_facturas->fp, k);
+ k.i_clave = fact->reg_nota;
+ lst_facturas->fp_texto->borrar_registro(lst_facturas->fp_texto, k);
free(fact->items);
free(fact);
char tmp_str[10];
void *entrada;
-
+ /* XXX XXX XXX TODO */
+ return;
+
win = newwin(LINES-4, COLS-2, 2, 1);
box(win, 0, 0);
fact = fact_form_buscar(win, &id, &id_texto);
} else {
id = atoi(s);
- fact = NULL;
- nodo = lst_facturas->primero;
- while (nodo) {
- if (nodo->num_reg == id) {
- fact = fact_buscar(lst_facturas, nodo->numero, &id, &id_texto);
- break;
- }
- nodo = nodo->sig;
- }
+ fact = fact_buscar(lst_facturas, nodo->numero, &id, &id_texto);
}
if (fact == NULL) {
fact.cant_items = cant;
fact.nota = form_obtener_valor_char(form_nota, "");
+ id_texto = lst_facturas->fp_texto->grabar_registro(lst_facturas->fp_texto, fact.nota, strlen(fact.nota)+1, &error);
+ fact.reg_nota = id_texto;
+
entrada = procesar_guardar_factura(&fact,lst_facturas, &size);
if (entrada) {
error = 0;
- id = lst_facturas->fp->grabar_registro(lst_facturas->fp, entrada, size, &error);
- id_texto = lst_facturas->fp_texto->grabar_registro(lst_facturas->fp_texto, fact.nota, strlen(fact.nota)+1, &error);
+ lst_facturas->fp->grabar_registro(lst_facturas->fp, entrada, size, &error);
agregar_nodo_factura(lst_facturas, crear_nodo_factura(id, id_texto, fact.numero));
free(entrada);
}
return 1;
}
+char *get_estado(char *s)
+{
+ if (strcmp(s, "PN")==0) return "Pago Normal";
+ if (strcmp(s, "CD")==0) return "Credito al dia";
+ if (strcmp(s, "CM")==0) return "Credito en mora";
+ if (strcmp(s, "SF")==0) return "Cheque sin fondos";
+ if (strcmp(s, "PM")==0) return "Pagada con Mora";
+ if (strcmp(s, "NC")==0) return "No Cobrada";
+
+ return s;
+}
+
+char *get_forma_pago(char *s)
+{
+ if (strcmp(s, "CO") == 0) return "Contado";
+ if (strcmp(s, "CR") == 0) return "Credito";
+ if (strcmp(s, "CH") == 0) return "Cheque";
+
+ return s;
+}
+
+void fact_consultas_codigos(char *s)
+{
+ EMUFS_REG_ID dummy;
+ int desde_codigo, hasta_codigo;
+ int i;
+ t_Factura *factura;
+ t_Lista *lista;
+ t_Form *form;
+ WINDOW *win, *win1;
+
+ 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 Codigo", 8, "0");
+ form_agregar_widget(form, INPUT, "Hasta Codigo", 8, "99999999");
+
+ form_ejecutar(form, 2, 2);
+
+ desde_codigo = form_obtener_valor_int(form, "Desde Codigo");
+ hasta_codigo = form_obtener_valor_int(form, "Hasta Codigo");
+
+ form_destruir(form);
+ werase(win1);
+ wrefresh(win1);
+
+ /* 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, DATO_INT, 0, 8); /* numero */
+ lista_agregar_columna(lista, DATO_STR, 10, 9); /* emision */
+ lista_agregar_columna(lista, DATO_STR, 20, 19); /* estado */
+ lista_agregar_columna(lista, DATO_STR, 40, 9); /* fp */
+
+ /* Leo los datos desde el archivo */
+ for(i=desde_codigo; i<=hasta_codigo; i++) {
+ factura = fact_buscar(lst_facturas, i, &dummy, &dummy);
+ if (factura != NULL) {
+ lista_agregar_fila(lista,
+ factura->numero,
+ factura->emision,
+ get_estado(factura->estado),
+ get_forma_pago(factura->fp)
+ );
+ }
+ }
+
+ curs_set(0);
+ lista_ejecutar(lista);
+ curs_set(1);
+
+ wrefresh(win1);
+ wrefresh(win);
+ werase(win1);
+ werase(win);
+ wrefresh(win);
+ delwin(win);
+}
+
+void fact_consultas_varias(char *nombre_indice, char *titulo)
+{
+ int i, cant, error;
+ char *desc, *tmp;
+ t_Factura factura;
+ t_Lista *lista;
+ t_Form *form;
+ INDICE_DATO *datos;
+ WINDOW *win, *win1;
+ CLAVE k;
+ EMUFS *fs;
+ EMUFS_REG_SIZE size;
+
+ fs = lst_facturas->fp;
+
+ 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, titulo, 50, "");
+
+ form_ejecutar(form, 2, 2);
+
+ tmp = form_obtener_valor_char(form, titulo);
+ desc = malloc(sizeof(char)*(strlen(tmp)+1));
+ strcpy(desc, tmp);
+
+ form_destruir(form);
+ werase(win1);
+ wrefresh(win1);
+
+ /* 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, DATO_INT, 0, 8); /* numero */
+ lista_agregar_columna(lista, DATO_STR, 10, 9); /* emision */
+ lista_agregar_columna(lista, DATO_STR, 20, 19); /* estado */
+ lista_agregar_columna(lista, DATO_STR, 40, 9); /* fp */
+
+ /* Leo los datos desde el archivo */
+ datos = emufs_buscar_registros(fs, nombre_indice, desc, &cant);
+ for(i=0; i<cant; i++) {
+ k.i_clave = datos[i].id;
+ error = 1;
+ tmp = (char *)fs->leer_registro(fs, k, &size, &error);
+ 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)
+ );
+ free(tmp);
+ } else {
+ PERR("NO SE PUDO RECUPERAR EL REGISTRO DE DATOS");
+ }
+ }
+
+ curs_set(0);
+ lista_ejecutar(lista);
+ curs_set(1);
+
+ wrefresh(win1);
+ wrefresh(win);
+ werase(win1);
+ werase(win);
+ wrefresh(win);
+ delwin(win);
+}
+
+void fact_consultas(char *s)
+{
+ MENU(mi_menu) {
+ MENU_OPCION("por Codigos", "Consulta de Articulos por rango de codigo."),
+ MENU_OPCION("por Fecha de Emision", "Consulta por fecha unica"),
+ MENU_OPCION("por Presentacion", "Consulta por Presentacion"),
+ MENU_OPCION("Volver", "Volver al menu anterior.")
+ };
+ int opt;
+
+ while ((opt = menu_ejecutar(mi_menu, 4, "Consulta de Articulos")) != 3) {
+ switch (opt) {
+ case 0:
+ fact_consultas_codigos(s);
+ break;
+ case 1:
+ fact_consultas_varias("emision", "Fecha");
+ break;
+ case 2:
+ fact_consultas_varias("presentacion", "Presentacion");
+ }
+ }
+}
+
projects / z.facultad / 75.06 / emufs.git / blobdiff