emufs_gui/viewer.c

   1
   2 #include "viewer.h"
   3 #include "idx.h"
   4 #include "articulos.h"
   5 #include "facturas.h"
   6 #include "gui.h"
   7 #include "common.h"
   8
   9 /* Se encarga de reemplazar los \0 un caracter visual, y segurar un \0 al final */
  10 static char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
  11 static char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
  12
  13 static char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
  14 static char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho);
  15
  16 static int preguntar_id(WINDOW *win, EMUFS *fp);
  17
  18 void mostrar_info(WINDOW *padre, int h, int offset_alto, int opt)
  19 {
  20         /* Info de teclas */
  21         wattron(padre, A_BOLD);
  22         wattron(padre, COLOR_PAIR(COLOR_RED));
  23         mvwaddstr(padre, h-offset_alto+1, 5, "Teclas :");
  24         wattroff(padre, A_BOLD);
  25         wattroff(padre, COLOR_PAIR(COLOR_RED));
  26         mvwaddstr(padre, h-offset_alto+2, 8, "Salir = ENTER");
  27         mvwaddstr(padre, h-offset_alto+3, 8, "Scroll = A/Z");
  28         mvwaddstr(padre, h-offset_alto+4, 8, "Seleccionar registros = K/L");
  29         if (opt) {
  30                 mvwaddstr(padre, h-offset_alto+5, 8, "Acciones: ");
  31                 waddstr(padre, "A");
  32                 wattron(padre, A_BOLD);
  33                 waddch(padre, 'g');
  34                 wattroff(padre, A_BOLD);
  35                 waddstr(padre, "regar ");
  36                 wattron(padre, A_BOLD);
  37                 waddstr(padre, "M");
  38                 wattroff(padre, A_BOLD);
  39                 waddstr(padre, "ofidicar ");
  40                 wattron(padre, A_BOLD);
  41                 waddstr(padre, "E");
  42                 wattroff(padre, A_BOLD);
  43                 waddstr(padre, "liminar ");
  44         }
  45         mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B");
  46
  47         /* Info de leyenda */
  48         wattron(padre, A_BOLD);
  49         wattron(padre, COLOR_PAIR(COLOR_RED));
  50         mvwaddstr(padre, h-offset_alto+1, 45, "Leyenda :");
  51         wattroff(padre, A_BOLD);
  52         wattroff(padre, COLOR_PAIR(COLOR_RED));
  53         mvwaddstr(padre, h-offset_alto+2, 48, "  |   = Separador de campo");
  54         mvwaddstr(padre, h-offset_alto+3, 48, "[XXX] = Campo numerico");
  55         mvwaddstr(padre, h-offset_alto+4, 48, "(XXX) = ID de registro");
  56         mvwaddstr(padre, h-offset_alto+5, 48, "{XXX} = Tam. de registro");
  57         mvwaddstr(padre, h-offset_alto+6, 48, "  .   = Esp. Libre");
  58 }
  59
  60 char *juntar_memoria(char *s1, char *s2, char *s3, int size1, int size2, int size3)
  61 {
  62         char *salida;
  63         int tam=0;
  64         if (s1) tam += size1;
  65         if (s2) tam += size2;
  66         if (s3) tam += size3;
  67         salida = (char *)malloc(tam);
  68         if (salida == NULL) {
  69                         free(s1);
  70                         free(s2);
  71                         free(s3);
  72                         return NULL;
  73         }
  74
  75         if (s1) memcpy(salida, s1, size1); else size1 = 0;
  76         if (s2) memcpy(salida+size1, s2, size2); else size2 = 0;
  77         if (s3) memcpy(salida+size1+size2, s3, size3);
  78         if (s1) free(s1);
  79         if (s2) free(s2);
  80         if (s3) free(s3);
  81         return salida;
  82 }
  83
  84 void ver_bloques(WINDOW *padre, int w, int h, int cual)
  85 {
  86         /* Ventanas donde mostrar las cosas */
  87         char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
  88         WINDOW *actual[2], *dlg;
  89         EMUFS_REG_SIZE size, size_actual, size_siguiete, size_anterior;
  90         int scroll, actual_ancho;
  91         int max_scroll, c, offset_alto;
  92         /* Indices que hay validos en IDX */
  93         EMUFS_REG_ID indices_total, indices_actual;
  94         char *bloque_actual, *bloque_anterior, *bloque_siguiente;
  95         char *data; /* Registros a mostrar en pantalla */
  96         EMUFS *fp;
  97         int pos_actual, ancho_registro, offset, pos;
  98         EMUFS_Estadisticas stats;
  99
 100         if (cual == 0)
 101                 fp = emufs_abrir("articulos");
 102         else if (cual == 1)
 103                 fp = emufs_abrir("facturas");
 104         else if (cual == 2)
 105                 fp = emufs_abrir("notas");
 106
 107         stats = fp->leer_estadisticas(fp);
 108
 109         wattron(padre, COLOR_PAIR(COLOR_BLUE));
 110         mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
 111         wattroff(padre, COLOR_PAIR(COLOR_BLUE));
 112         switch (fp->tipo) {
 113                 case T1:
 114                         waddstr(padre, "Registro variable con bloque parametrizado.");
 115                         if (cual == 0)
 116                                 procesar = procesar_registro_articulo_tipo1;
 117                         else
 118                                 procesar = procesar_registro_factura_tipo1;
 119                 break;
 120                 case T2:
 121                         waddstr(padre, "Registro variable sin bloques.");
 122                         actual[0] = msg_box(padre, w, h, "El tipo de archivo no contiene bloques.");
 123                         getch();
 124                         msg_box_free(padre, actual[0]);
 125                         return;
 126                 break;
 127                 case T3:
 128                         if (cual == 0)
 129                                 procesar = procesar_registro_articulo_tipo3;
 130                         else
 131                                 procesar = procesar_registro_factura_tipo3;
 132                         waddstr(padre, "Registro fijo con bloque parametrizado.");
 133         }
 134
 135
 136         indices_actual = 0;
 137         indices_total = stats.cant_bloques;
 138         /* Leo */
 139         fp->leer_bloque_raw(fp, indices_actual, &bloque_actual, &bloque_anterior, &bloque_siguiente, &size_actual, &size_anterior, &size_siguiete);
 140         pos_actual = 0;
 141         bloque_actual = procesar(fp, bloque_actual, &size_actual, &pos_actual, &ancho_registro);
 142         pos_actual = 0;
 143         bloque_siguiente = procesar(fp, bloque_siguiente, &size_siguiete, &pos_actual, &ancho_registro);
 144         pos_actual = 0;
 145         bloque_anterior = procesar(fp, bloque_anterior, &size_anterior, &pos_actual, &ancho_registro);
 146         if (!bloque_siguiente) {
 147                 bloque_siguiente = (char *)malloc(size_siguiete);
 148                 memset(bloque_siguiente, 0, size_siguiete);
 149         }
 150         if (!bloque_anterior) {
 151                 bloque_anterior = (char *)malloc(size_anterior);
 152                 memset(bloque_anterior, 0, size_anterior);
 153         }
 154         pos_actual = size_anterior; /* Resalta desde el fin del bloque anterior */
 155         ancho_registro = size_actual;
 156         data = juntar_memoria(bloque_anterior, bloque_actual, bloque_siguiente, size_anterior, size_actual, size_siguiete);
 157
 158         PERR("HASTA ACA VOY BIEN");
 159         offset_alto = 8;
 160         max_scroll = (size_actual+size_anterior+size_siguiete) / (w-4) - (h-offset_alto-2);
 161         if (max_scroll < 0) max_scroll = 0;
 162
 163         actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
 164         actual_ancho = w-4;
 165         actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
 166         box(actual[0], 0, 0);
 167
 168         curs_set(0);
 169
 170         mostrar_info(padre, h, offset_alto, 0);
 171
 172         mvwaddnstr(actual[1], 0, 0, data, pos_actual);
 173         wattron(actual[1], A_BOLD);
 174         waddnstr(actual[1], data+pos_actual, ancho_registro);
 175         wattroff(actual[1], A_BOLD);
 176         waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
 177
 178         wrefresh(actual[1]);
 179         wrefresh(actual[0]);
 180         wrefresh(padre);
 181         scroll = 0;
 182         while ((c=getch()) != 13) {
 183                 switch (c) {
 184                         case 'b':
 185                         case 'B':
 186                                 dlg = newwin(4, 50, h/2-2, w/2-25);
 187                                 box(dlg, 0, 0);
 188                                 indices_actual = preguntar_id(dlg, fp);
 189                                 if (indices_actual < 0) indices_actual = 0;
 190                                 if (indices_actual > indices_total) indices_actual = indices_total-1;
 191                                 werase(dlg);
 192                                 wrefresh(dlg);
 193                                 delwin(dlg);
 194                                 wrefresh(padre);
 195                                 curs_set(0);
 196                         break;
 197                         case 'a': /* Scroll */
 198                                 scroll--;
 199                                 if (scroll < 0) scroll = 0;
 200                         break;
 201                         case 'z': /* Scroll */
 202                                 scroll++;
 203                                 if (scroll > max_scroll) scroll = max_scroll;
 204                         break;
 205                         case 'l':
 206                                 if (indices_actual < indices_total) {
 207                                         indices_actual++;
 208                                         if (indices_actual >= indices_total) indices_actual = indices_total-1;
 209                                         if (data) free(data);
 210                                         fp->leer_bloque_raw(fp, indices_actual, &bloque_actual, &bloque_anterior, &bloque_siguiente, &size_actual, &size_anterior, &size_siguiete);
 211                                         bloque_actual = procesar(fp, bloque_actual, &size_actual, &pos_actual, &ancho_registro);
 212                                         bloque_siguiente = procesar(fp, bloque_siguiente, &size_siguiete, &pos_actual, &ancho_registro);
 213                                         bloque_anterior = procesar(fp, bloque_anterior, &size_anterior, &pos_actual, &ancho_registro);
 214                                         pos_actual = size_anterior; /* Resalta desde el fin del bloque anterior */
 215                                         ancho_registro = size_actual;
 216                                         data = juntar_memoria(bloque_anterior, bloque_actual, bloque_siguiente, size_anterior, size_actual, size_siguiete);
 217                                 }
 218                         break;
 219                         case 'k':
 220                                 if (indices_actual != EMUFS_NOT_FOUND) {
 221                                         indices_actual--;
 222                                         if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
 223                                         if (data) free(data);
 224                                         fp->leer_bloque_raw(fp, indices_actual, &bloque_actual, &bloque_anterior, &bloque_siguiente, &size_actual, &size_anterior, &size_siguiete);
 225                                         bloque_actual = procesar(fp, bloque_actual, &size_actual, &pos_actual, &ancho_registro);
 226                                         bloque_siguiente = procesar(fp, bloque_siguiente, &size_siguiete, &pos_actual, &ancho_registro);
 227                                         bloque_anterior = procesar(fp, bloque_anterior, &size_anterior, &pos_actual, &ancho_registro);
 228                                         pos_actual = size_anterior; /* Resalta desde el fin del bloque anterior */
 229                                         ancho_registro = size_actual;
 230                                         data = juntar_memoria(bloque_anterior, bloque_actual, bloque_siguiente, size_anterior, size_actual, size_siguiete);
 231                                 }
 232                 }
 233                 /* Borro las ventanas */
 234                 werase(actual[1]);
 235
 236                 /* Imprimo los registros */
 237                 if (data) {
 238                         offset = scroll*actual_ancho; /* Cantidad de caracteres que tengo que saltar */
 239                         pos = pos_actual - offset; /* Cantidad de caracteres que hay antes de mi a imprimir */
 240                         mvwaddnstr(actual[1], 0, 0, data+offset, pos);
 241                         if (pos > 0)
 242                                 offset += pos;
 243                         else
 244                                 offset -= pos;
 245                         wattron(actual[1], A_BOLD);
 246                         waddnstr(actual[1], data+offset, ancho_registro+((pos<0)?pos:0));
 247                         wattroff(actual[1], A_BOLD);
 248                         offset += ancho_registro+((pos<0)?pos:0);
 249                         waddnstr(actual[1], data+offset, size-offset);
 250                 }
 251
 252                 wrefresh(actual[1]);
 253                 wrefresh(padre);
 254         }
 255         if (data) free(data);
 256
 257         emufs_destruir(fp);
 258         delwin(actual[0]);
 259         wrefresh(padre);
 260         curs_set(1);
 261 }
 262
 263 void ver_registros(WINDOW *padre, int w, int h, int cual)
 264 {
 265         /* Ventanas donde mostrar las cosas */
 266         char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
 267         WINDOW *actual[2], *dlg;
 268         EMUFS_REG_SIZE size;
 269         int scroll, actual_ancho;
 270         int max_scroll, c, offset_alto;
 271         /* Indices que hay validos en IDX */
 272         EMUFS_REG_ID *indices, indices_total, indices_actual;
 273         char *data; /* Registros a mostrar en pantalla */
 274         char codigo[50]; /* Variable para guardar el codigo actual para mandar a modificar */
 275         EMUFS *fp;
 276         int pos_actual, ancho_registro, offset, pos;
 277
 278         if (cual == 0)
 279                 fp = emufs_abrir("articulos");
 280         else
 281                 fp = emufs_abrir("facturas");
 282
 283         wattron(padre, COLOR_PAIR(COLOR_BLUE));
 284         mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
 285         wattroff(padre, COLOR_PAIR(COLOR_BLUE));
 286         switch (fp->tipo) {
 287                 case T1:
 288                 case T2:
 289                         waddstr(padre, "Registro variable con bloque parametrizado.");
 290                         if (cual == 0)
 291                                 procesar = procesar_registro_articulo_tipo1;
 292                         else
 293                                 procesar = procesar_registro_factura_tipo1;
 294                 break;
 295                 case T3:
 296                         if (cual == 0)
 297                                 procesar = procesar_registro_articulo_tipo3;
 298                         else
 299                                 procesar = procesar_registro_factura_tipo3;
 300                         waddstr(padre, "Registro fijo con bloque parametrizado.");
 301         }
 302
 303         indices = emufs_idx_get(fp, &indices_total);
 304
 305         indices_actual = 0;
 306         if (indices) {
 307                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 308                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 309         }
 310
 311
 312         offset_alto = 8;
 313         max_scroll = size / (w-4) - (h-offset_alto-2);
 314         if (max_scroll < 0) max_scroll = 0;
 315
 316         actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
 317         actual_ancho = w-4;
 318         actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
 319         box(actual[0], 0, 0);
 320
 321         curs_set(0);
 322
 323         mostrar_info(padre, h, offset_alto, 1);
 324
 325         if (data) {
 326                 mvwaddnstr(actual[1], 0, 0, data, pos_actual);
 327                 wattron(actual[1], A_BOLD);
 328                 waddnstr(actual[1], data+pos_actual, ancho_registro);
 329                 wattroff(actual[1], A_BOLD);
 330                 waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
 331         }
 332
 333         wrefresh(actual[1]);
 334         wrefresh(actual[0]);
 335         wrefresh(padre);
 336         scroll = 0;
 337         while ((c=getch()) != 13) {
 338                 switch (c) {
 339                         case 'b':
 340                         case 'B':
 341                                 dlg = newwin(4, 50, h/2-2, w/2-25);
 342                                 box(dlg, 0, 0);
 343                                 preguntar_id(dlg, fp);
 344                                 werase(dlg);
 345                                 wrefresh(dlg);
 346                                 delwin(dlg);
 347                                 wrefresh(padre);
 348                                 curs_set(0);
 349                         break;
 350                         case 'e':
 351                         case 'E':
 352                                 if (indices_actual != EMUFS_NOT_FOUND)
 353                                         fp->borrar_registro(fp, indices[indices_actual]);
 354
 355                                 free(indices);
 356                                 indices = emufs_idx_get(fp, &indices_total);
 357                                 if (indices_actual >= indices_total) {
 358                                         indices_actual = indices_total - 1;
 359                                 }
 360
 361                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 362                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 363                         break;
 364                         case 'g':
 365                         case 'G':
 366                                 if (cual == 0)
 367                                         art_agregar(NULL);
 368                                 else
 369                                         fact_agregar(NULL);
 370                                 free(data);
 371                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 372                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 373
 374                                 free(indices);
 375                                 indices = emufs_idx_get(fp, &indices_total);
 376
 377                                 /* Tengo que re-pintar algunas cosas */
 378                                 mostrar_info(padre, h, offset_alto, 1);
 379                                 box(actual[0], 0, 0);
 380                                 wrefresh(actual[0]);
 381                         break;
 382                         case 'M':
 383                         case 'm': /* Quiero editar !!! */
 384                                 sprintf(codigo, "%lu", indices[indices_actual]);
 385                                 if (cual == 0)
 386                                         art_modificar(codigo);
 387                                 else
 388                                         fact_modificar(codigo);
 389                                 /* Vuelvo a cargar el articulo actual */
 390
 391                                 free(data);
 392                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 393                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 394
 395                                 /* Tengo que re-pintar algunas cosas */
 396                                 mostrar_info(padre, h, offset_alto, 1);
 397                                 box(actual[0], 0, 0);
 398                                 wrefresh(actual[0]);
 399                         break;
 400                         case 'a': /* Scroll */
 401                                 scroll--;
 402                                 if (scroll < 0) scroll = 0;
 403                         break;
 404                         case 'z': /* Scroll */
 405                                 scroll++;
 406                                 if (scroll > max_scroll) scroll = max_scroll;
 407                         break;
 408                         case 'l':
 409                                 if (indices_actual < indices_total) {
 410                                         indices_actual++;
 411                                         if (indices_actual >= indices_total) indices_actual = indices_total-1;
 412                                         if (data) free(data);
 413                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 414                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 415                                 }
 416                         break;
 417                         case 'k':
 418                                 if (indices_actual != EMUFS_NOT_FOUND) {
 419                                         indices_actual--;
 420                                         if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
 421                                         if (data) free(data);
 422                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 423                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 424                                 }
 425
 426                 }
 427                 /* Borro las ventanas */
 428                 werase(actual[1]);
 429
 430                 /* Imprimo los registros */
 431                 if (data) {
 432                         offset = scroll*actual_ancho;
 433                         pos = pos_actual - offset;
 434                         mvwaddnstr(actual[1], 0, 0, data+offset, pos);
 435                         offset += pos;
 436                         wattron(actual[1], A_BOLD);
 437                         waddnstr(actual[1], data+offset, ancho_registro);
 438                         wattroff(actual[1], A_BOLD);
 439                         offset += ancho_registro;
 440                         waddnstr(actual[1], data+offset, size-offset);
 441                 }
 442
 443                 wrefresh(actual[1]);
 444                 wrefresh(padre);
 445         }
 446         if (indices) free(indices);
 447         if (data) free(data);
 448
 449         emufs_destruir(fp);
 450         delwin(actual[0]);
 451         wrefresh(padre);
 452         curs_set(1);
 453 }
 454
 455 char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 456 {
 457         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 458         int cant_header, i=0, j, tam_data;
 459         if (ptr == NULL) return NULL;
 460
 461         /* Calculo cuantos headers de registros va a haber en el archivo */
 462         if (emu->tam_bloque > emu->tam_reg) {
 463                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
 464                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
 465                 tam_data = sizeof(t_Articulo)-sizeof(unsigned int);
 466         } else {
 467                 cant_header = 1;
 468                 tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int);
 469         }
 470
 471         /* El tamaño del nuevo array lo calculo asi :
 472          *
 473          *   tamañoviejo - tamaño_headers_en_int - tamaño_ints_en_registro
 474          *               + 10*(cant_headers+cant_registros) +1
 475          *
 476          *   En tipo3, la cantidad de headers y cant de registros es la misma
 477          *   El 10 es por : (XXXXXXXX)
 478          *   +1 == Por el \0
 479          */
 480         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1);
 481         if (salida == NULL) {
 482                 return NULL;
 483         }
 484         tmp = ptr;
 485         tmp1 = salida;
 486         pos_actualizada = 0;
 487         while (i<cant_header) {
 488                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 489                  * en el cambio de formato
 490                  */
 491                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 492                         (*pos_actual) = tmp1-salida;
 493                         pos_actualizada = 1;
 494                 }
 495                 /* Pongo el ID del registro */
 496                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 497                 tmp1 += 10;
 498                 tmp += sizeof(EMUFS_REG_ID);
 499                 /* Pongo el campo numero del registro */
 500                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 501                 tmp1 += 10;
 502                 tmp += sizeof(unsigned int);
 503                 j = 0;
 504                 while (j < (tam_data)) {
 505                         if (*tmp == '\0') {
 506                                 if (ant == (*tmp))
 507                                         (*tmp1) = '.';
 508                                 else
 509                                         (*tmp1) = '|';
 510                         } else {
 511                                 (*tmp1) = (*tmp);
 512                         }
 513                         ant = (*tmp);
 514                         tmp++;
 515                         tmp1++;
 516                         j++;
 517                 }
 518                 i++;
 519         }
 520         free(ptr);
 521
 522         if (emu->tam_bloque > emu->tam_reg) {
 523                 (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1;
 524                 (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1;
 525         } else {
 526                 (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21;
 527                 (*ancho) = (*size);
 528         }
 529         memset(tmp1, '.', (*size)-(tmp1-salida));
 530         salida[*size-2] = '\0';
 531
 532         return salida;
 533 }
 534
 535 char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 536 {
 537         EMUFS_REG_SIZE offset, curr_size;
 538         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 539         int cant_header, i=0, j;
 540         if (ptr == NULL) return NULL;
 541
 542         /* Cuento la cantidad de registros en este bloque */
 543         cant_header = 0;
 544         offset = 0;
 545         do {
 546                 /* Me salto el ID, que no me interesa saber su valor */
 547                 offset += sizeof(EMUFS_REG_ID);
 548                 /* Copio el tamaño del registro de la cabecera. */
 549                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
 550                 offset += sizeof(EMUFS_REG_SIZE);
 551
 552                 /* Desplazo el offset */
 553                 if (curr_size == 0) {
 554                         /* Si el tamaño de registro es 0, quiere decir que llegue a la
 555                          * parte que esta vacia */
 556                         break;
 557                 } else {
 558                         cant_header++;
 559                         offset += curr_size;
 560                 }
 561         } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
 562
 563         /* Proceso */
 564         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1);
 565         tmp = ptr;
 566         tmp1 = salida;
 567         pos_actualizada = 0;
 568         while (i<cant_header) {
 569                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 570                  * en el cambio de formato
 571                  */
 572                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 573                         (*pos_actual) = tmp1-salida;
 574                         pos_actualizada = 1;
 575                 }
 576                 /* Pongo el ID del registro */
 577                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 578                 tmp1 += 10;
 579                 tmp += sizeof(EMUFS_REG_ID);
 580                 /* Pongo el tamaño del registro */
 581                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
 582                 curr_size = *((EMUFS_REG_SIZE *)tmp);
 583                 if (pos_actualizada == 1) {
 584                         (*ancho) = curr_size-sizeof(unsigned int)+30;
 585                         pos_actualizada = 2;
 586                 }
 587                 tmp1 += 10;
 588                 tmp += sizeof(EMUFS_REG_SIZE);
 589                 /* Pongo el campo numero del registro */
 590                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 591                 tmp1 += 10;
 592                 tmp += sizeof(unsigned int);
 593                 j = sizeof(unsigned int);
 594                 PERR("Voy aca");
 595                 while (j < curr_size) {
 596                         if (*tmp == '\0') {
 597                                 if (ant == (*tmp))
 598                                         (*tmp1) = '.';
 599                                 else
 600                                         (*tmp1) = '|';
 601                         } else {
 602                                 (*tmp1) = (*tmp);
 603                         }
 604                         ant = (*tmp);
 605                         tmp++;
 606                         tmp1++;
 607                         j++;
 608                 }
 609                 PERR("Y hasta todo bien");
 610                 i++;
 611         }
 612         /* Tengo que trabajar sobre lo que me falte (seguro es espacio libre) */
 613         (*size) = (*size)-sizeof(unsigned int)*cant_header*3+3*cant_header*10+1;
 614         memset(tmp1, '.', (*size)-(tmp1-salida));
 615         free(ptr);
 616         salida[*size-2] = '\0';
 617
 618         return salida;
 619 }
 620
 621 int preguntar_id(WINDOW *win, EMUFS *fp)
 622 {
 623         int n=-1;
 624         t_Form *form = form_crear(win);
 625         form_agregar_widget(form, INPUT, "ID a buscar", 8, "");
 626
 627         do {
 628                 form_set_valor(form, "ID a buscar", "");
 629                 form_ejecutar(form, 1,1);
 630
 631                 n = form_obtener_valor_int(form, "ID a buscar");
 632         } while (n>0);
 633
 634         form_destruir(form);
 635         return n;
 636 }
 637
 638 char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 639 {
 640         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 641         char flotante[10];
 642         int cant_header, i=0, j, tam_data, k;
 643         int cant_items;
 644         if (ptr == NULL) return NULL;
 645
 646         PERR("Empieza el baile");
 647
 648         /* Calculo cuantos headers de registros va a haber en el archivo */
 649         if (emu->tam_bloque > emu->tam_reg) {
 650                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
 651                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
 652                 tam_data = emu->tam_reg-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
 653         } else {
 654                 cant_header = 1;
 655                 tam_data = (*size) - sizeof(EMUFS_REG_ID)-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
 656         }
 657
 658         /* El tamaño del nuevo array lo calculo asi :
 659          *
 660          */
 661         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);*/
 662         if (salida == NULL) {
 663                 PERR("Error de malloc en salida");
 664                 return NULL;
 665         }
 666         tmp = ptr;
 667         pos_actualizada = 0;
 668         (*ancho) = 0;
 669         while (i<cant_header) {
 670                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 671                  * en el cambio de formato
 672                  */
 673                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 674                         (*pos_actual) = tmp1-salida;
 675                         pos_actualizada = 1;
 676                 }
 677                 /* Pongo el ID del registro */
 678                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 679                 tmp1 += 10;
 680                 tmp += sizeof(EMUFS_REG_ID);
 681                 /* Pongo el campo numero */
 682                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 683                 tmp1 += 10;
 684                 tmp += sizeof(int);
 685                 /* Pongo campo procdoi */
 686                 sprintf(flotante, "[%5.2f]", *((float *)tmp));
 687                 memcpy(tmp1, flotante, strlen(flotante));
 688                 tmp1 += strlen(flotante);
 689                 tmp += sizeof(float);
 690                 /* Pongo campo numero_remito */
 691                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 692                 tmp1 += 10;
 693                 tmp += sizeof(int);
 694                 /* Pongo numero de items */
 695                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 696                 cant_items = *((int *)tmp);
 697                 tmp1 += 10;
 698                 tmp += sizeof(int);
 699                 /* Pongo reg_nota */
 700                 sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp));
 701                 tmp1 += 10;
 702                 tmp += sizeof(EMUFS_BLOCK_ID);
 703
 704                 if (pos_actualizada == 1) {
 705                         (*ancho) = 50+strlen(flotante);
 706                 }
 707                 j = 0;
 708                 while (j < (tam_data-10*sizeof(t_Item))) {
 709                         if (*tmp == '\0') {
 710                                 if (ant == (*tmp)){
 711                                         (*tmp1) = '.';
 712                                 } else {
 713                                         (*tmp1) = '|';
 714                                 }
 715                         } else {
 716                                 (*tmp1) = (*tmp);
 717                         }
 718                         ant = (*tmp);
 719                         tmp++;
 720                         tmp1++;
 721                         if (pos_actualizada == 1)
 722                                 (*ancho)++;
 723                         j++;
 724                 }
 725                 /* Ahora proceso los items */
 726                 k = 0;
 727                 while (k < 10) {
 728                         sprintf(tmp1, "[%08d]", *((int *)tmp));
 729                         tmp1 += 10;
 730                         tmp += sizeof(int);
 731                         if (pos_actualizada == 1)
 732                                 (*ancho)+=10;
 733                         j = 0;
 734                         while (j < (sizeof(t_Item)-sizeof(int))) {
 735                                 if (*tmp == '\0') {
 736                                         if (ant == (*tmp)){
 737                                                 (*tmp1) = '.';
 738                                         } else {
 739                                                 (*tmp1) = '|';
 740                                         }
 741                                 } else {
 742                                         (*tmp1) = (*tmp);
 743                                 }
 744                                 ant = (*tmp);
 745                                 tmp++;
 746                                 tmp1++;
 747                                 if (pos_actualizada == 1)
 748                                         (*ancho)++;
 749                                 j++;
 750                         }
 751                         k++;
 752                 }
 753                 if (pos_actualizada == 1)
 754                         pos_actualizada = 2;
 755                 i++;
 756         }
 757         free(ptr);
 758
 759         PERR("Termine");
 760         if (emu->tam_bloque > emu->tam_reg) {
 761                 (*size) = tmp1-salida;
 762         } else {
 763                 (*size) = tmp1-salida;
 764                 (*ancho) = tmp1-salida;
 765         }
 766         salida[*size-1] = '\0';
 767
 768         return salida;
 769 }
 770
 771 char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 772 {
 773         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 774         EMUFS_REG_SIZE offset, curr_size;
 775         char flotante[10];
 776         int cant_header, i=0, j, tam_data, k;
 777         int cant_items;
 778         if (ptr == NULL) return NULL;
 779
 780         PERR("Empieza el baile");
 781         cant_header = 0;
 782         offset = 0;
 783         do {
 784                 /* Me salto el ID, que no me interesa saber su valor */
 785                 offset += sizeof(EMUFS_REG_ID);
 786                 /* Copio el tamaño del registro de la cabecera. */
 787                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
 788                 offset += sizeof(EMUFS_REG_SIZE);
 789
 790                 /* Desplazo el offset */
 791                 if (curr_size == 0) {
 792                         /* Si el tamaño de registro es 0, quiere decir que llegue a la
 793                          * parte que esta vacia */
 794                         break;
 795                 } else {
 796                         cant_header++;
 797                         offset += curr_size;
 798                 }
 799         } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
 800
 801         /* El tamaño del nuevo array lo calculo asi :
 802          *
 803          */
 804         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);*/
 805         if (salida == NULL) {
 806                 PERR("Error de malloc en salida");
 807                 return NULL;
 808         }
 809         tmp = ptr;
 810         pos_actualizada = 0;
 811         (*ancho) = 0;
 812         i = 0;
 813         while (i<cant_header) {
 814                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 815                  * en el cambio de formato
 816                  */
 817                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 818                         (*pos_actual) = tmp1-salida;
 819                         pos_actualizada = 1;
 820                 }
 821                 /* Pongo el ID del registro */
 822                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 823                 tmp1 += 10;
 824                 tmp += sizeof(EMUFS_REG_ID);
 825                 /* Cantidad de espacio que ocupa la data */
 826                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
 827                 tam_data = *((EMUFS_REG_SIZE *)tmp) - sizeof(int)*3 - sizeof(float) - sizeof(EMUFS_BLOCK_ID);
 828                 tmp1 += 10;
 829                 tmp += sizeof(EMUFS_REG_SIZE);
 830                 /* Pongo el campo numero */
 831                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 832                 tmp1 += 10;
 833                 tmp += sizeof(int);
 834                 /* Pongo campo procdoi */
 835                 sprintf(flotante, "[%5.2f]", *((float *)tmp));
 836                 memcpy(tmp1, flotante, strlen(flotante));
 837                 tmp1 += strlen(flotante);
 838                 tmp += sizeof(float);
 839                 /* Pongo campo numero_remito */
 840                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 841                 tmp1 += 10;
 842                 tmp += sizeof(int);
 843                 /* Pongo numero de items */
 844                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 845                 cant_items = *((int *)tmp);
 846                 tmp1 += 10;
 847                 tmp += sizeof(int);
 848                 /* Pongo reg_nota */
 849                 sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp));
 850                 tmp1 += 10;
 851                 tmp += sizeof(EMUFS_BLOCK_ID);
 852
 853                 if (pos_actualizada == 1) {
 854                         (*ancho) = 60+strlen(flotante);
 855                 }
 856                 j = 0;
 857                 PERR("Voy por la data");
 858                 while (j < (tam_data-cant_items*sizeof(t_Item))) {
 859                         if (*tmp == '\0') {
 860                                 if (ant == (*tmp)){
 861                                         (*tmp1) = '.';
 862                                 } else {
 863                                         (*tmp1) = '|';
 864                                 }
 865                         } else {
 866                                 (*tmp1) = (*tmp);
 867                         }
 868                         ant = (*tmp);
 869                         tmp++;
 870                         tmp1++;
 871                         if (pos_actualizada == 1)
 872                                 (*ancho)++;
 873                         j++;
 874                 }
 875                 /* Ahora proceso los items */
 876                 k = 0;
 877                 while (k < cant_items) {
 878                         sprintf(tmp1, "[%08d]", *((int *)tmp));
 879                         tmp1 += 10;
 880                         tmp += sizeof(int);
 881                         if (pos_actualizada == 1)
 882                                 (*ancho)+=10;
 883                         j = 0;
 884                         while (j < (sizeof(t_Item)-sizeof(int))) {
 885                                 if (*tmp == '\0') {
 886                                         if (ant == (*tmp)){
 887                                                 (*tmp1) = '.';
 888                                         } else {
 889                                                 (*tmp1) = '|';
 890                                         }
 891                                 } else {
 892                                         (*tmp1) = (*tmp);
 893                                 }
 894                                 ant = (*tmp);
 895                                 tmp++;
 896                                 tmp1++;
 897                                 if (pos_actualizada == 1)
 898                                         (*ancho)++;
 899                                 j++;
 900                         }
 901                         k++;
 902                 }
 903                 if (pos_actualizada == 1)
 904                         pos_actualizada = 2;
 905                 PERR(salida);
 906                 i++;
 907         }
 908         /* llego no . hasta el final */
 909         while (tmp < (ptr+(*size))) {
 910                 (*tmp1) = '.';
 911                 tmp1++;
 912                 tmp++;
 913         }
 914         free(ptr);
 915
 916         PERR("Termine");
 917         if (emu->tam_bloque > emu->tam_reg) {
 918                 (*size) = tmp1-salida;
 919         } else {
 920                 (*size) = tmp1-salida;
 921                 (*ancho) = tmp1-salida;
 922         }
 923         salida[*size-1] = '\0';
 924
 925         return salida;
 926 }
 927