return 0;
}
- fprintf(stderr, "TIPO = %d\n", lst->fp->tipo);
switch (lst->fp->tipo) {
case T1:
case T2:
fprintf(fp, "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n");
fprintf(fp, "<FACTURAS>\n");
- fprintf(stderr, "EXPORTAR : Menor Clave = %d\n", k.i_clave);
while (k.i_clave != -1) {
fact = fact_buscar(lst_facturas, k.i_clave, &id, &id1);
- fprintf(stderr, "Lei factura numero %d y apunta a %p\n", k.i_clave, fact);
if (fact != NULL) {
fprintf(fp, "\t<FACTURA NroFac=\"%08d\" ", fact->numero);
fprintf(fp, "FechaEmisiĆ³n=\"%s\" ", fact->emision);
free(fact);
}
k = idx->obtener_sig_clave(idx, k);
- fprintf(stderr, "XXX Siguiente = %d\n", k.i_clave);
}
fprintf(fp, "\t</FACTURAS>\n");
free(leo);
}
if (strcmp(estado, fact.estado) == 0) {
- fprintf(stderr, "Agrego factura num=%d con %d items\n", fact.numero, fact.cant_items);
lista_agregar_fila_ordenada(lista,
fact.numero,
fact.emision,
free(fact);
fact = NULL;
} else {
- fprintf(stderr, "Tengo %d datos\n", cant);
k.i_clave = datos[0].id;
PERR("Leo el primer dato");
- fprintf(stderr, "ID = %ld en bloque %ld\n", datos[0].id, datos[0].bloque);
error = 1;
tmp = lst_facturas->fp->leer_registro(lst_facturas->fp, k, &size, &error);
if (tmp == NULL) {