7 /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */
8 static char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
9 static char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
11 static char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
12 /*static char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);*/
14 static int preguntar_id(WINDOW *win, EMUFS *fp);
16 void mostrar_info(WINDOW *padre, int h, int offset_alto)
19 wattron(padre, A_BOLD);
20 wattron(padre, COLOR_PAIR(COLOR_RED));
21 mvwaddstr(padre, h-offset_alto+1, 5, "Teclas :");
22 wattroff(padre, A_BOLD);
23 wattroff(padre, COLOR_PAIR(COLOR_RED));
24 mvwaddstr(padre, h-offset_alto+2, 8, "Salir = ENTER");
25 mvwaddstr(padre, h-offset_alto+3, 8, "Scroll = A/Z");
26 mvwaddstr(padre, h-offset_alto+4, 8, "Seleccionar registros = K/L");
27 mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: ");
29 wattron(padre, A_BOLD);
31 wattroff(padre, A_BOLD);
32 waddstr(padre, "regar ");
33 wattron(padre, A_BOLD);
35 wattroff(padre, A_BOLD);
36 waddstr(padre, "ofidicar ");
37 wattron(padre, A_BOLD);
39 wattroff(padre, A_BOLD);
40 waddstr(padre, "liminar ");
41 mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B");
44 wattron(padre, A_BOLD);
45 wattron(padre, COLOR_PAIR(COLOR_RED));
46 mvwaddstr(padre, h-offset_alto+1, 45, "Leyenda :");
47 wattroff(padre, A_BOLD);
48 wattroff(padre, COLOR_PAIR(COLOR_RED));
49 mvwaddstr(padre, h-offset_alto+2, 48, " | = Separador de campo");
50 mvwaddstr(padre, h-offset_alto+3, 48, "[XXX] = Campo numerico");
51 mvwaddstr(padre, h-offset_alto+4, 48, "(XXX) = ID de registro");
52 mvwaddstr(padre, h-offset_alto+5, 48, "{XXX} = Tam. de registro");
53 mvwaddstr(padre, h-offset_alto+6, 48, " . = Esp. Libre");
54 mvwaddstr(padre, h-offset_alto+7, 48, " < > = Separador Bloques");
57 void ver_registros(WINDOW *padre, int w, int h, int cual)
59 /* Ventanas donde mostrar las cosas */
60 char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
61 WINDOW *actual[2], *dlg;
63 int scroll, actual_ancho;
64 int max_scroll, c, offset_alto;
65 /* Indices que hay validos en IDX */
66 EMUFS_REG_ID *indices, indices_total, indices_actual;
67 char *data; /* Registros a mostrar en pantalla */
68 char codigo[50]; /* Variable para guardar el codigo actual para mandar a modificar */
70 int pos_actual, ancho_registro, offset, pos;
73 fp = emufs_abrir("articulos");
75 fp = emufs_abrir("facturas");
77 wattron(padre, COLOR_PAIR(COLOR_BLUE));
78 mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
79 wattroff(padre, COLOR_PAIR(COLOR_BLUE));
82 waddstr(padre, "Registro variable con bloque parametrizado.");
83 procesar = procesar_registro_articulo_tipo1;
86 waddstr(padre, "Registro variable sin bloques.");
90 procesar = procesar_registro_articulo_tipo3;
92 procesar = procesar_registro_factura_tipo3;
93 waddstr(padre, "Registro fijo con bloque parametrizado.");
96 indices = emufs_idx_get(fp, &indices_total);
100 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
101 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
106 max_scroll = size / (w-4) - (h-offset_alto-2);
107 if (max_scroll < 0) max_scroll = 0;
109 actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
111 actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
112 box(actual[0], 0, 0);
116 mostrar_info(padre, h, offset_alto);
118 mvwaddnstr(actual[1], 0, 0, data, pos_actual);
119 wattron(actual[1], A_BOLD);
120 waddnstr(actual[1], data+pos_actual, ancho_registro);
121 wattroff(actual[1], A_BOLD);
122 waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
128 while ((c=getch()) != 13) {
132 dlg = newwin(4, 50, h/2-2, w/2-25);
134 preguntar_id(dlg, fp);
143 if (indices_actual != EMUFS_NOT_FOUND)
144 fp->borrar_registro(fp, indices[indices_actual]);
147 indices = emufs_idx_get(fp, &indices_total);
148 if (indices_actual >= indices_total) {
149 indices_actual = indices_total - 1;
152 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
153 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
162 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
163 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
166 indices = emufs_idx_get(fp, &indices_total);
168 /* Tengo que re-pintar algunas cosas */
169 mostrar_info(padre, h, offset_alto);
170 box(actual[0], 0, 0);
174 case 'm': /* Quiero editar !!! */
175 sprintf(codigo, "%lu", indices[indices_actual]);
177 art_modificar(codigo);
179 fact_modificar(codigo);
180 /* Vuelvo a cargar el articulo actual */
183 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
184 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
186 /* Tengo que re-pintar algunas cosas */
187 mostrar_info(padre, h, offset_alto);
188 box(actual[0], 0, 0);
191 case 'a': /* Scroll */
193 if (scroll < 0) scroll = 0;
195 case 'z': /* Scroll */
197 if (scroll > max_scroll) scroll = max_scroll;
200 if (indices_actual < indices_total) {
202 if (indices_actual >= indices_total) indices_actual = indices_total-1;
203 if (data) free(data);
204 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
205 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
209 if (indices_actual != EMUFS_NOT_FOUND) {
211 if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
212 if (data) free(data);
213 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
214 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
218 /* Borro las ventanas */
221 /* Imprimo los registros */
223 offset = scroll*actual_ancho;
224 pos = pos_actual - offset;
225 mvwaddnstr(actual[1], 0, 0, data+offset, pos);
227 wattron(actual[1], A_BOLD);
228 waddnstr(actual[1], data+offset, ancho_registro);
229 wattroff(actual[1], A_BOLD);
230 offset += ancho_registro;
231 waddnstr(actual[1], data+offset, size-offset);
237 if (indices) free(indices);
238 if (data) free(data);
246 char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
248 char *tmp, *salida, *tmp1, pos_actualizada, ant;
249 int cant_header, i=0, j, tam_data;
250 if (ptr == NULL) return NULL;
252 /* Calculo cuantos headers de registros va a haber en el archivo */
253 if (emu->tam_bloque > emu->tam_reg) {
254 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
255 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
256 tam_data = sizeof(t_Articulo)-sizeof(unsigned int);
259 tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int);
262 /* El tamaƱo del nuevo array lo calculo asi :
264 * tamaƱoviejo - tamaƱo_headers_en_int - tamaƱo_ints_en_registro
265 * + 10*(cant_headers+cant_registros) +1
267 * En tipo3, la cantidad de headers y cant de registros es la misma
268 * El 10 es por : (XXXXXXXX)
271 salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1);
272 if (salida == NULL) {
273 fprintf(stderr, "Error de malloc en salida\n");
279 while (i<cant_header) {
280 fprintf(stderr, "voy a hacer el %d de %d\n", i, cant_header);
281 /* Verifico la pos_actual para el resaltado, asi queda coherente
282 * en el cambio de formato
284 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
285 (*pos_actual) = tmp1-salida;
288 /* Pongo el ID del registro */
289 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
290 fprintf(stderr, "ID=%lu\n",*((EMUFS_REG_ID *)tmp) );
292 tmp += sizeof(EMUFS_REG_ID);
293 /* Pongo el campo numero del registro */
294 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
295 fprintf(stderr, "Numero=%d\n",*((unsigned int *)tmp) );
297 tmp += sizeof(unsigned int);
299 while (j < (tam_data)) {
317 if (emu->tam_bloque > emu->tam_reg) {
318 (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1;
319 (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1;
321 (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21;
324 memset(tmp1, '.', (*size)-(tmp1-salida));
325 salida[*size-1] = '\0';
330 char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
332 EMUFS_REG_SIZE offset, curr_size;
333 char *tmp, *salida, *tmp1, pos_actualizada, ant;
334 int cant_header, i=0, j;
335 if (ptr == NULL) return NULL;
337 /* Cuento la cantidad de registros en este bloque */
340 fprintf(stderr, "Tam = %lu\n", *size);
342 /* Me salto el ID, que no me interesa saber su valor */
343 offset += sizeof(EMUFS_REG_ID);
344 /* Copio el tamaƱo del registro de la cabecera. */
345 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
346 offset += sizeof(EMUFS_REG_SIZE);
348 /* Desplazo el offset */
349 if (curr_size == 0) {
350 /* Si el tamaƱo de registro es 0, quiere decir que llegue a la
351 * parte que esta vacia */
356 fprintf(stderr, "Sume %lu\n", curr_size);
358 } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
361 fprintf(stderr, "Cantidad de headers = %d\n", cant_header);
362 salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1);
366 while (i<cant_header) {
367 /* Verifico la pos_actual para el resaltado, asi queda coherente
368 * en el cambio de formato
370 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
371 (*pos_actual) = tmp1-salida;
374 /* Pongo el ID del registro */
375 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
377 tmp += sizeof(EMUFS_REG_ID);
378 /* Pongo el tamaƱo del registro */
379 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
380 curr_size = *((EMUFS_REG_SIZE *)tmp);
381 if (pos_actualizada == 1) {
382 (*ancho) = curr_size-sizeof(unsigned int)+30;
386 tmp += sizeof(EMUFS_REG_SIZE);
387 /* Pongo el campo numero del registro */
388 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
390 tmp += sizeof(unsigned int);
391 j = sizeof(unsigned int);
393 fprintf(stderr, "son %lu\n", curr_size);
394 while (j < curr_size) {
408 PERR("Y hasta todo bien");
411 /* Tengo que trabajar sobre lo que me falte (seguro es espacio libre) */
412 (*size) = (*size)-sizeof(unsigned int)*cant_header*3+3*cant_header*10+1;
413 memset(tmp1, '.', (*size)-(tmp1-salida));
415 salida[*size-1] = '\0';
420 int preguntar_id(WINDOW *win, EMUFS *fp)
423 t_Form *form = form_crear(win);
424 form_agregar_widget(form, INPUT, "ID a buscar", 8, "");
429 wattron(win, COLOR_PAIR(COLOR_YELLOW));
430 wattron(win, A_BOLD);
431 mvwaddstr(win, 2, 1, "Registro no encontrado!!");
432 wattroff(win, A_BOLD);
433 wattroff(win, COLOR_PAIR(COLOR_YELLOW));
439 form_ejecutar(form, 1,1);
441 n = form_obtener_valor_int(form, "ID a buscar");
443 } while (emufs_idx_existe_id(fp, n) != 0);
449 char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
451 char *tmp, *salida, *tmp1, pos_actualizada, ant;
453 int cant_header, i=0, j, tam_data, k;
455 if (ptr == NULL) return NULL;
457 PERR("Empieza el baile");
459 /* Calculo cuantos headers de registros va a haber en el archivo */
460 if (emu->tam_bloque > emu->tam_reg) {
461 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
462 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
463 tam_data = emu->tam_reg-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
466 tam_data = (*size) - sizeof(EMUFS_REG_ID)-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
469 fprintf(stderr, "Tengo %d headers\n", cant_header);
470 /* El tamaƱo del nuevo array lo calculo asi :
473 tmp1 = salida = (char *)malloc(1000000); /*(*size)-(sizeof(char *)+sizeof(t_Item *)+sizeof(EMUFS_REG_ID)+sizeof(int)*3+sizeof(float)+sizeof(EMUFS_BLOCK_ID))*cant_header + 5*cant_header*10+1);*/
474 if (salida == NULL) {
475 PERR("Error de malloc en salida");
481 while (i<cant_header) {
482 /* Verifico la pos_actual para el resaltado, asi queda coherente
483 * en el cambio de formato
485 fprintf(stderr, "%d == %d\n", tmp-ptr, *pos_actual);
486 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
487 (*pos_actual) = tmp1-salida;
490 /* Pongo el ID del registro */
491 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
493 tmp += sizeof(EMUFS_REG_ID);
494 /* Pongo el campo numero */
495 sprintf(tmp1, "[%08d]", *((int *)tmp));
498 /* Pongo campo procdoi */
499 sprintf(flotante, "[%5.2f]", *((float *)tmp));
500 memcpy(tmp1, flotante, strlen(flotante));
501 tmp1 += strlen(flotante);
502 tmp += sizeof(float);
503 /* Pongo campo numero_remito */
504 sprintf(tmp1, "[%08d]", *((int *)tmp));
507 /* Pongo numero de items */
508 sprintf(tmp1, "[%08d]", *((int *)tmp));
509 cant_items = *((int *)tmp);
513 sprintf(tmp1, "{%08lu}", *((EMUFS_BLOCK_ID*)tmp));
515 tmp += sizeof(EMUFS_BLOCK_ID);
517 if (pos_actualizada == 1) {
518 (*ancho) = 50+strlen(flotante);
521 while (j < (tam_data-10*sizeof(t_Item))) {
534 if (pos_actualizada == 1)
538 /* Ahora proceso los items */
541 sprintf(tmp1, "[%08d]", *((int *)tmp));
544 if (pos_actualizada == 1)
547 while (j < (sizeof(t_Item)-sizeof(int))) {
560 if (pos_actualizada == 1)
566 if (pos_actualizada == 1)
573 if (emu->tam_bloque > emu->tam_reg) {
574 (*size) = tmp1-salida;
576 (*size) = tmp1-salida;
577 (*ancho) = tmp1-salida;
579 salida[*size-1] = '\0';