emufs_gui/registros.c

   1
   2 #include "registros.h"
   3 #include "idx.h"
   4 #include "articulos.h"
   5 #include "facturas.h"
   6
   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);
  10
  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);
  13
  14 static int preguntar_id(WINDOW *win, EMUFS *fp);
  15
  16 void mostrar_info(WINDOW *padre, int h, int offset_alto)
  17 {
  18         /* Info de teclas */
  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: ");
  28         waddstr(padre, "A");
  29         wattron(padre, A_BOLD);
  30         waddch(padre, 'g');
  31         wattroff(padre, A_BOLD);
  32         waddstr(padre, "regar ");
  33         wattron(padre, A_BOLD);
  34         waddstr(padre, "M");
  35         wattroff(padre, A_BOLD);
  36         waddstr(padre, "ofidicar ");
  37         wattron(padre, A_BOLD);
  38         waddstr(padre, "E");
  39         wattroff(padre, A_BOLD);
  40         waddstr(padre, "liminar ");
  41         mvwaddstr(padre, h-offset_alto+6, 8, "Buscar ID : B");
  42
  43         /* Info de leyenda */
  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");
  55 }
  56
  57 void ver_registros(WINDOW *padre, int w, int h, int cual)
  58 {
  59         /* Ventanas donde mostrar las cosas */
  60         char *(*procesar)(EMUFS*, char*, EMUFS_REG_SIZE*, int*, int*);
  61         WINDOW *actual[2], *dlg;
  62         EMUFS_REG_SIZE size;
  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 */
  69         EMUFS *fp;
  70         int pos_actual, ancho_registro, offset, pos;
  71
  72         if (cual == 0)
  73                 fp = emufs_abrir("articulos");
  74         else
  75                 fp = emufs_abrir("facturas");
  76
  77         wattron(padre, COLOR_PAIR(COLOR_BLUE));
  78         mvwaddstr(padre, 0, 0, "Tipo de archivo : ");
  79         wattroff(padre, COLOR_PAIR(COLOR_BLUE));
  80         switch (fp->tipo) {
  81                 case T1:
  82                         waddstr(padre, "Registro variable con bloque parametrizado.");
  83                         if (cual == 0)
  84                                 procesar = procesar_registro_articulo_tipo1;
  85                         else
  86                                 procesar = procesar_registro_factura_tipo1;
  87                 break;
  88                 case T2:
  89                         waddstr(padre, "Registro variable sin bloques.");
  90                 break;
  91                 case T3:
  92                         if (cual == 0)
  93                                 procesar = procesar_registro_articulo_tipo3;
  94                         else
  95                                 procesar = procesar_registro_factura_tipo3;
  96                         waddstr(padre, "Registro fijo con bloque parametrizado.");
  97         }
  98
  99         indices = emufs_idx_get(fp, &indices_total);
 100
 101         indices_actual = 0;
 102         if (indices) {
 103                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 104                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 105         }
 106
 107
 108         offset_alto = 8;
 109         max_scroll = size / (w-4) - (h-offset_alto-2);
 110         if (max_scroll < 0) max_scroll = 0;
 111
 112         actual[0] = derwin(padre, h-offset_alto, w-2, 1, 1);
 113         actual_ancho = w-4;
 114         actual[1] = derwin(actual[0], h-offset_alto-2, w-4, 1, 1);
 115         box(actual[0], 0, 0);
 116
 117         curs_set(0);
 118
 119         mostrar_info(padre, h, offset_alto);
 120
 121         mvwaddnstr(actual[1], 0, 0, data, pos_actual);
 122         wattron(actual[1], A_BOLD);
 123         waddnstr(actual[1], data+pos_actual, ancho_registro);
 124         wattroff(actual[1], A_BOLD);
 125         waddnstr(actual[1], data+pos_actual+ancho_registro, size-(pos_actual+ancho_registro));
 126
 127         wrefresh(actual[1]);
 128         wrefresh(actual[0]);
 129         wrefresh(padre);
 130         scroll = 0;
 131         while ((c=getch()) != 13) {
 132                 switch (c) {
 133                         case 'b':
 134                         case 'B':
 135                                 dlg = newwin(4, 50, h/2-2, w/2-25);
 136                                 box(dlg, 0, 0);
 137                                 preguntar_id(dlg, fp);
 138                                 werase(dlg);
 139                                 wrefresh(dlg);
 140                                 delwin(dlg);
 141                                 wrefresh(padre);
 142                                 curs_set(0);
 143                         break;
 144                         case 'e':
 145                         case 'E':
 146                                 if (indices_actual != EMUFS_NOT_FOUND)
 147                                         fp->borrar_registro(fp, indices[indices_actual]);
 148
 149                                 free(indices);
 150                                 indices = emufs_idx_get(fp, &indices_total);
 151                                 if (indices_actual >= indices_total) {
 152                                         indices_actual = indices_total - 1;
 153                                 }
 154
 155                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 156                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 157                         break;
 158                         case 'g':
 159                         case 'G':
 160                                 if (cual == 0)
 161                                         art_agregar(NULL);
 162                                 else
 163                                         fact_agregar(NULL);
 164                                 free(data);
 165                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 166                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 167
 168                                 free(indices);
 169                                 indices = emufs_idx_get(fp, &indices_total);
 170
 171                                 /* Tengo que re-pintar algunas cosas */
 172                                 mostrar_info(padre, h, offset_alto);
 173                                 box(actual[0], 0, 0);
 174                                 wrefresh(actual[0]);
 175                         break;
 176                         case 'M':
 177                         case 'm': /* Quiero editar !!! */
 178                                 sprintf(codigo, "%lu", indices[indices_actual]);
 179                                 if (cual == 0)
 180                                         art_modificar(codigo);
 181                                 else
 182                                         fact_modificar(codigo);
 183                                 /* Vuelvo a cargar el articulo actual */
 184
 185                                 free(data);
 186                                 data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 187                                 data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 188
 189                                 /* Tengo que re-pintar algunas cosas */
 190                                 mostrar_info(padre, h, offset_alto);
 191                                 box(actual[0], 0, 0);
 192                                 wrefresh(actual[0]);
 193                         break;
 194                         case 'a': /* Scroll */
 195                                 scroll--;
 196                                 if (scroll < 0) scroll = 0;
 197                         break;
 198                         case 'z': /* Scroll */
 199                                 scroll++;
 200                                 if (scroll > max_scroll) scroll = max_scroll;
 201                         break;
 202                         case 'l':
 203                                 if (indices_actual < indices_total) {
 204                                         indices_actual++;
 205                                         if (indices_actual >= indices_total) indices_actual = indices_total-1;
 206                                         if (data) free(data);
 207                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 208                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 209                                 }
 210                         break;
 211                         case 'k':
 212                                 if (indices_actual != EMUFS_NOT_FOUND) {
 213                                         indices_actual--;
 214                                         if (indices_actual == EMUFS_NOT_FOUND) indices_actual = 0;
 215                                         if (data) free(data);
 216                                         data = (char *)fp->leer_registro_raw(fp, indices[indices_actual], &size, &pos_actual);
 217                                         data = procesar(fp, data, &size, &pos_actual, &ancho_registro);
 218                                 }
 219
 220                 }
 221                 /* Borro las ventanas */
 222                 werase(actual[1]);
 223
 224                 /* Imprimo los registros */
 225                 if (data) {
 226                         offset = scroll*actual_ancho;
 227                         pos = pos_actual - offset;
 228                         mvwaddnstr(actual[1], 0, 0, data+offset, pos);
 229                         offset += pos;
 230                         wattron(actual[1], A_BOLD);
 231                         waddnstr(actual[1], data+offset, ancho_registro);
 232                         wattroff(actual[1], A_BOLD);
 233                         offset += ancho_registro;
 234                         waddnstr(actual[1], data+offset, size-offset);
 235                 }
 236
 237                 wrefresh(actual[1]);
 238                 wrefresh(padre);
 239         }
 240         if (indices) free(indices);
 241         if (data) free(data);
 242
 243         emufs_destruir(fp);
 244         delwin(actual[0]);
 245         wrefresh(padre);
 246         curs_set(1);
 247 }
 248
 249 char *procesar_registro_articulo_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 250 {
 251         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 252         int cant_header, i=0, j, tam_data;
 253         if (ptr == NULL) return NULL;
 254
 255         /* Calculo cuantos headers de registros va a haber en el archivo */
 256         if (emu->tam_bloque > emu->tam_reg) {
 257                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
 258                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
 259                 tam_data = sizeof(t_Articulo)-sizeof(unsigned int);
 260         } else {
 261                 cant_header = 1;
 262                 tam_data = *size - sizeof(EMUFS_REG_ID)-sizeof(unsigned int);
 263         }
 264
 265         /* El tamaño del nuevo array lo calculo asi :
 266          *
 267          *   tamañoviejo - tamaño_headers_en_int - tamaño_ints_en_registro
 268          *               + 10*(cant_headers+cant_registros) +1
 269          *
 270          *   En tipo3, la cantidad de headers y cant de registros es la misma
 271          *   El 10 es por : (XXXXXXXX)
 272          *   +1 == Por el \0
 273          */
 274         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*2 + 2*cant_header*10+1);
 275         if (salida == NULL) {
 276                 return NULL;
 277         }
 278         tmp = ptr;
 279         tmp1 = salida;
 280         pos_actualizada = 0;
 281         while (i<cant_header) {
 282                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 283                  * en el cambio de formato
 284                  */
 285                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 286                         (*pos_actual) = tmp1-salida;
 287                         pos_actualizada = 1;
 288                 }
 289                 /* Pongo el ID del registro */
 290                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 291                 tmp1 += 10;
 292                 tmp += sizeof(EMUFS_REG_ID);
 293                 /* Pongo el campo numero del registro */
 294                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 295                 tmp1 += 10;
 296                 tmp += sizeof(unsigned int);
 297                 j = 0;
 298                 while (j < (tam_data)) {
 299                         if (*tmp == '\0') {
 300                                 if (ant == (*tmp))
 301                                         (*tmp1) = '.';
 302                                 else
 303                                         (*tmp1) = '|';
 304                         } else {
 305                                 (*tmp1) = (*tmp);
 306                         }
 307                         ant = (*tmp);
 308                         tmp++;
 309                         tmp1++;
 310                         j++;
 311                 }
 312                 i++;
 313         }
 314         free(ptr);
 315
 316         if (emu->tam_bloque > emu->tam_reg) {
 317                 (*size) = (*size)-sizeof(unsigned int)*cant_header*2+2*cant_header*10+1;
 318                 (*ancho) = sizeof(t_Articulo)-sizeof(unsigned int)*2+20+1;
 319         } else {
 320                 (*size) = (*size)-sizeof(EMUFS_REG_ID)-sizeof(unsigned int)+21;
 321                 (*ancho) = (*size);
 322         }
 323         memset(tmp1, '.', (*size)-(tmp1-salida));
 324         salida[*size-1] = '\0';
 325
 326         return salida;
 327 }
 328
 329 char *procesar_registro_articulo_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 330 {
 331         EMUFS_REG_SIZE offset, curr_size;
 332         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 333         int cant_header, i=0, j;
 334         if (ptr == NULL) return NULL;
 335
 336         /* Cuento la cantidad de registros en este bloque */
 337         cant_header = 0;
 338         offset = 0;
 339         do {
 340                 /* Me salto el ID, que no me interesa saber su valor */
 341                 offset += sizeof(EMUFS_REG_ID);
 342                 /* Copio el tamaño del registro de la cabecera. */
 343                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
 344                 offset += sizeof(EMUFS_REG_SIZE);
 345
 346                 /* Desplazo el offset */
 347                 if (curr_size == 0) {
 348                         /* Si el tamaño de registro es 0, quiere decir que llegue a la
 349                          * parte que esta vacia */
 350                         break;
 351                 } else {
 352                         cant_header++;
 353                         offset += curr_size;
 354                 }
 355         } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
 356
 357         /* Proceso */
 358         salida = (char *)malloc((*size)-sizeof(unsigned int)*cant_header*3 + 3*cant_header*10+1);
 359         tmp = ptr;
 360         tmp1 = salida;
 361         pos_actualizada = 0;
 362         while (i<cant_header) {
 363                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 364                  * en el cambio de formato
 365                  */
 366                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 367                         (*pos_actual) = tmp1-salida;
 368                         pos_actualizada = 1;
 369                 }
 370                 /* Pongo el ID del registro */
 371                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 372                 tmp1 += 10;
 373                 tmp += sizeof(EMUFS_REG_ID);
 374                 /* Pongo el tamaño del registro */
 375                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
 376                 curr_size = *((EMUFS_REG_SIZE *)tmp);
 377                 if (pos_actualizada == 1) {
 378                         (*ancho) = curr_size-sizeof(unsigned int)+30;
 379                         pos_actualizada = 2;
 380                 }
 381                 tmp1 += 10;
 382                 tmp += sizeof(EMUFS_REG_SIZE);
 383                 /* Pongo el campo numero del registro */
 384                 sprintf(tmp1, "[%08d]", *((unsigned int *)tmp));
 385                 tmp1 += 10;
 386                 tmp += sizeof(unsigned int);
 387                 j = sizeof(unsigned int);
 388                 PERR("Voy aca");
 389                 while (j < curr_size) {
 390                         if (*tmp == '\0') {
 391                                 if (ant == (*tmp))
 392                                         (*tmp1) = '.';
 393                                 else
 394                                         (*tmp1) = '|';
 395                         } else {
 396                                 (*tmp1) = (*tmp);
 397                         }
 398                         ant = (*tmp);
 399                         tmp++;
 400                         tmp1++;
 401                         j++;
 402                 }
 403                 PERR("Y hasta todo bien");
 404                 i++;
 405         }
 406         /* Tengo que trabajar sobre lo que me falte (seguro es espacio libre) */
 407         (*size) = (*size)-sizeof(unsigned int)*cant_header*3+3*cant_header*10+1;
 408         memset(tmp1, '.', (*size)-(tmp1-salida));
 409         free(ptr);
 410         salida[*size-1] = '\0';
 411
 412         return salida;
 413 }
 414
 415 int preguntar_id(WINDOW *win, EMUFS *fp)
 416 {
 417         int n=-1, j=0;
 418         t_Form *form = form_crear(win);
 419         form_agregar_widget(form, INPUT, "ID a buscar", 8, "");
 420
 421         do {
 422                 if (j != 0) {
 423                         curs_set(0);
 424                         wattron(win, COLOR_PAIR(COLOR_YELLOW));
 425                         wattron(win, A_BOLD);
 426                         mvwaddstr(win, 2, 1, "Registro no encontrado!!");
 427                         wattroff(win, A_BOLD);
 428                         wattroff(win, COLOR_PAIR(COLOR_YELLOW));
 429                         wrefresh(win);
 430                         getch();
 431                         werase(win);
 432                         box(win, 0, 0);
 433                 }
 434                 form_ejecutar(form, 1,1);
 435
 436                 n = form_obtener_valor_int(form, "ID a buscar");
 437                 j = 1;
 438         } while (emufs_idx_existe_id(fp, n) != 0);
 439
 440         form_destruir(form);
 441         return n;
 442 }
 443
 444 char *procesar_registro_factura_tipo3(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 445 {
 446         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 447         char flotante[10];
 448         int cant_header, i=0, j, tam_data, k;
 449         int cant_items;
 450         if (ptr == NULL) return NULL;
 451
 452         PERR("Empieza el baile");
 453
 454         /* Calculo cuantos headers de registros va a haber en el archivo */
 455         if (emu->tam_bloque > emu->tam_reg) {
 456                 cant_header = emu->tam_bloque / (emu->tam_reg+sizeof(EMUFS_REG_ID));
 457                 if (cant_header == 0) cant_header++; /* Si tam_reg > tam_bloque, voy a tener solo 1 header */
 458                 tam_data = emu->tam_reg-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
 459         } else {
 460                 cant_header = 1;
 461                 tam_data = (*size) - sizeof(EMUFS_REG_ID)-sizeof(int)*3-sizeof(float)-sizeof(EMUFS_BLOCK_ID);
 462         }
 463
 464         /* El tamaño del nuevo array lo calculo asi :
 465          *
 466          */
 467         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);*/
 468         if (salida == NULL) {
 469                 PERR("Error de malloc en salida");
 470                 return NULL;
 471         }
 472         tmp = ptr;
 473         pos_actualizada = 0;
 474         (*ancho) = 0;
 475         while (i<cant_header) {
 476                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 477                  * en el cambio de formato
 478                  */
 479                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 480                         (*pos_actual) = tmp1-salida;
 481                         pos_actualizada = 1;
 482                 }
 483                 /* Pongo el ID del registro */
 484                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 485                 tmp1 += 10;
 486                 tmp += sizeof(EMUFS_REG_ID);
 487                 /* Pongo el campo numero */
 488                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 489                 tmp1 += 10;
 490                 tmp += sizeof(int);
 491                 /* Pongo campo procdoi */
 492                 sprintf(flotante, "[%5.2f]", *((float *)tmp));
 493                 memcpy(tmp1, flotante, strlen(flotante));
 494                 tmp1 += strlen(flotante);
 495                 tmp += sizeof(float);
 496                 /* Pongo campo numero_remito */
 497                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 498                 tmp1 += 10;
 499                 tmp += sizeof(int);
 500                 /* Pongo numero de items */
 501                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 502                 cant_items = *((int *)tmp);
 503                 tmp1 += 10;
 504                 tmp += sizeof(int);
 505                 /* Pongo reg_nota */
 506                 sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp));
 507                 tmp1 += 10;
 508                 tmp += sizeof(EMUFS_BLOCK_ID);
 509
 510                 if (pos_actualizada == 1) {
 511                         (*ancho) = 50+strlen(flotante);
 512                 }
 513                 j = 0;
 514                 while (j < (tam_data-10*sizeof(t_Item))) {
 515                         if (*tmp == '\0') {
 516                                 if (ant == (*tmp)){
 517                                         (*tmp1) = '.';
 518                                 } else {
 519                                         (*tmp1) = '|';
 520                                 }
 521                         } else {
 522                                 (*tmp1) = (*tmp);
 523                         }
 524                         ant = (*tmp);
 525                         tmp++;
 526                         tmp1++;
 527                         if (pos_actualizada == 1)
 528                                 (*ancho)++;
 529                         j++;
 530                 }
 531                 /* Ahora proceso los items */
 532                 k = 0;
 533                 while (k < 10) {
 534                         sprintf(tmp1, "[%08d]", *((int *)tmp));
 535                         tmp1 += 10;
 536                         tmp += sizeof(int);
 537                         if (pos_actualizada == 1)
 538                                 (*ancho)+=10;
 539                         j = 0;
 540                         while (j < (sizeof(t_Item)-sizeof(int))) {
 541                                 if (*tmp == '\0') {
 542                                         if (ant == (*tmp)){
 543                                                 (*tmp1) = '.';
 544                                         } else {
 545                                                 (*tmp1) = '|';
 546                                         }
 547                                 } else {
 548                                         (*tmp1) = (*tmp);
 549                                 }
 550                                 ant = (*tmp);
 551                                 tmp++;
 552                                 tmp1++;
 553                                 if (pos_actualizada == 1)
 554                                         (*ancho)++;
 555                                 j++;
 556                         }
 557                         k++;
 558                 }
 559                 if (pos_actualizada == 1)
 560                         pos_actualizada = 2;
 561                 i++;
 562         }
 563         free(ptr);
 564
 565         PERR("Termine");
 566         if (emu->tam_bloque > emu->tam_reg) {
 567                 (*size) = tmp1-salida;
 568         } else {
 569                 (*size) = tmp1-salida;
 570                 (*ancho) = tmp1-salida;
 571         }
 572         salida[*size-1] = '\0';
 573
 574         return salida;
 575 }
 576
 577 char *procesar_registro_factura_tipo1(EMUFS *emu, char *ptr, EMUFS_REG_SIZE *size, int *pos_actual, int *ancho)
 578 {
 579         char *tmp, *salida, *tmp1, pos_actualizada, ant;
 580         EMUFS_REG_SIZE offset, curr_size;
 581         char flotante[10];
 582         int cant_header, i=0, j, tam_data, k;
 583         int cant_items;
 584         if (ptr == NULL) return NULL;
 585
 586         PERR("Empieza el baile");
 587         cant_header = 0;
 588         offset = 0;
 589         do {
 590                 /* Me salto el ID, que no me interesa saber su valor */
 591                 offset += sizeof(EMUFS_REG_ID);
 592                 /* Copio el tamaño del registro de la cabecera. */
 593                 memcpy(&curr_size, ptr + offset, sizeof(EMUFS_REG_SIZE));
 594                 offset += sizeof(EMUFS_REG_SIZE);
 595
 596                 /* Desplazo el offset */
 597                 if (curr_size == 0) {
 598                         /* Si el tamaño de registro es 0, quiere decir que llegue a la
 599                          * parte que esta vacia */
 600                         break;
 601                 } else {
 602                         cant_header++;
 603                         offset += curr_size;
 604                 }
 605         } while (offset+sizeof(EMUFS_REG_SIZE)+sizeof(EMUFS_REG_ID) < (*size));
 606
 607         /* El tamaño del nuevo array lo calculo asi :
 608          *
 609          */
 610         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);*/
 611         if (salida == NULL) {
 612                 PERR("Error de malloc en salida");
 613                 return NULL;
 614         }
 615         tmp = ptr;
 616         pos_actualizada = 0;
 617         (*ancho) = 0;
 618         i = 0;
 619         while (i<cant_header) {
 620                 /* Verifico la pos_actual para el resaltado, asi queda coherente
 621                  * en el cambio de formato
 622                  */
 623                 if (((tmp - ptr) == *pos_actual) && (!pos_actualizada)) {
 624                         (*pos_actual) = tmp1-salida;
 625                         pos_actualizada = 1;
 626                 }
 627                 /* Pongo el ID del registro */
 628                 sprintf(tmp1, "(%08lu)", *((EMUFS_REG_ID *)tmp));
 629                 tmp1 += 10;
 630                 tmp += sizeof(EMUFS_REG_ID);
 631                 /* Cantidad de espacio que ocupa la data */
 632                 sprintf(tmp1, "{%08lu}", *((EMUFS_REG_SIZE *)tmp));
 633                 tam_data = *((EMUFS_REG_SIZE *)tmp) - sizeof(int)*3 - sizeof(float) - sizeof(EMUFS_BLOCK_ID);
 634                 tmp1 += 10;
 635                 tmp += sizeof(EMUFS_REG_SIZE);
 636                 /* Pongo el campo numero */
 637                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 638                 tmp1 += 10;
 639                 tmp += sizeof(int);
 640                 /* Pongo campo procdoi */
 641                 sprintf(flotante, "[%5.2f]", *((float *)tmp));
 642                 memcpy(tmp1, flotante, strlen(flotante));
 643                 tmp1 += strlen(flotante);
 644                 tmp += sizeof(float);
 645                 /* Pongo campo numero_remito */
 646                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 647                 tmp1 += 10;
 648                 tmp += sizeof(int);
 649                 /* Pongo numero de items */
 650                 sprintf(tmp1, "[%08d]", *((int *)tmp));
 651                 cant_items = *((int *)tmp);
 652                 tmp1 += 10;
 653                 tmp += sizeof(int);
 654                 /* Pongo reg_nota */
 655                 sprintf(tmp1, "(%08lu)", *((EMUFS_BLOCK_ID*)tmp));
 656                 tmp1 += 10;
 657                 tmp += sizeof(EMUFS_BLOCK_ID);
 658
 659                 if (pos_actualizada == 1) {
 660                         (*ancho) = 60+strlen(flotante);
 661                 }
 662                 j = 0;
 663                 PERR("Voy por la data");
 664                 while (j < (tam_data-cant_items*sizeof(t_Item))) {
 665                         if (*tmp == '\0') {
 666                                 if (ant == (*tmp)){
 667                                         (*tmp1) = '.';
 668                                 } else {
 669                                         (*tmp1) = '|';
 670                                 }
 671                         } else {
 672                                 (*tmp1) = (*tmp);
 673                         }
 674                         ant = (*tmp);
 675                         tmp++;
 676                         tmp1++;
 677                         if (pos_actualizada == 1)
 678                                 (*ancho)++;
 679                         j++;
 680                 }
 681                 /* Ahora proceso los items */
 682                 k = 0;
 683                 while (k < cant_items) {
 684                         sprintf(tmp1, "[%08d]", *((int *)tmp));
 685                         tmp1 += 10;
 686                         tmp += sizeof(int);
 687                         if (pos_actualizada == 1)
 688                                 (*ancho)+=10;
 689                         j = 0;
 690                         while (j < (sizeof(t_Item)-sizeof(int))) {
 691                                 if (*tmp == '\0') {
 692                                         if (ant == (*tmp)){
 693                                                 (*tmp1) = '.';
 694                                         } else {
 695                                                 (*tmp1) = '|';
 696                                         }
 697                                 } else {
 698                                         (*tmp1) = (*tmp);
 699                                 }
 700                                 ant = (*tmp);
 701                                 tmp++;
 702                                 tmp1++;
 703                                 if (pos_actualizada == 1)
 704                                         (*ancho)++;
 705                                 j++;
 706                         }
 707                         k++;
 708                 }
 709                 if (pos_actualizada == 1)
 710                         pos_actualizada = 2;
 711                 PERR(salida);
 712                 i++;
 713         }
 714         /* llego no . hasta el final */
 715         while (tmp < (ptr+(*size))) {
 716                 (*tmp1) = '.';
 717                 tmp1++;
 718                 tmp++;
 719         }
 720         free(ptr);
 721
 722         PERR("Termine");
 723         if (emu->tam_bloque > emu->tam_reg) {
 724                 (*size) = tmp1-salida;
 725         } else {
 726                 (*size) = tmp1-salida;
 727                 (*ancho) = tmp1-salida;
 728         }
 729         salida[*size-1] = '\0';
 730
 731         return salida;
 732 }
 733