preguntar_nuevo_tipo("Parametros para Facturas", &nuevo_tipo, &nuevo_tam_bloque, &nuevo_tam_registro);
preguntar_nuevo_tipo("Parametros para Notas", &nuevo_tipo1, &nuevo_tam_bloque1, &nuevo_tam_registro1);
dlg = msg_box(stdscr, COLS, LINES, "Cambiando el formato de archivo .... Aguarde");
- fact_reformatear(nuevo_tipo, nuevo_tam_bloque, nuevo_tam_registro, nuevo_tipo1, nuevo_tam_bloque1, nuevo_tam_registro1);
+ parametros.tipo_arch_fact = nuevo_tipo;
+ parametros.tam_bloque_fact = nuevo_tam_bloque;
+ parametros.tipo_arch_nota = nuevo_tipo1;
+ parametros.tam_bloque_nota = nuevo_tam_bloque1;
+ fact_reformatear(¶metros);
msg_box_free(stdscr, dlg);
break;
case 5:
char *s;
int n, is_ok;
- win = newwin(LINES/2, COLS/2, LINES/4, COLS/4);
+ win = newwin(LINES/2, 2*COLS/3, LINES/4, 2*COLS/6);
box(win, 0, 0);
mvwaddstr(win, 0, 1, title);
form = form_crear(win);
- form_agregar_widget(form, RADIO, "Tipo de archivo", 3, "T1,T2,T3,T4,T5");
+ form_agregar_widget(form, RADIO, "Tipo de archivo", 5, "T1,T2,T3,T4,T5");
form_ejecutar(form, 1,1);
s = form_obtener_valor_char(form, "Tipo de archivo");
wattroff(win, A_BOLD);
sprintf(s, "%lu bytes", fp->tam_reg);
waddstr(win, s);
+ break;
+ case T5:
+ waddstr(win, "Registro long. fija con bloque parametrizado (Seq. Indexado)");
+ wattron(win, A_BOLD);
+ mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+ wattroff(win, A_BOLD);
+ sprintf(s, "%lu bytes", fp->tam_bloque);
+ waddstr(win, s);
+ wattron(win, A_BOLD);
+ mvwaddstr(win, i++, 1, "Tamaño de registro : ");
+ wattroff(win, A_BOLD);
+ sprintf(s, "%lu bytes", fp->tam_reg);
+ waddstr(win, s);
+ break;
+ case T4:
+ waddstr(win, "Registro long. variable con bloque parametrizado (Seq. Indexado)");
+ wattron(win, A_BOLD);
+ mvwaddstr(win, i++, 1, "Tamaño de bloque : ");
+ wattroff(win, A_BOLD);
+ sprintf(s, "%lu bytes", fp->tam_bloque);
+ waddstr(win, s);
}