/* Ordena un fichero de pedidos utilizando una tabla índice */
#include <stdio.h>
#include <string.h>

typedef struct{
	char codcli[7];
   char codart[7];
   char fecha[9];
   short unidades;
   }TIPOPEDIDO;

typedef struct {
			char clave[7];
         long posicion;
         } ElementoIdx;

ElementoIdx TablaIndex[1000];  // Tabla indice


TIPOPEDIDO reg;
FILE *pped;
FILE *pord;
int numped=0;



int AbrirFicheros()
{
pped=fopen("Pedidos.dat","r");
pord=fopen("Pedord.dat","w");
if ((pped==NULL)||(pord==NULL))
	{
   return 0;
   }
else
   {
   return 1;
   }
}


void CargarTabla()
{
int i=0;
fread(& reg,sizeof(TIPOPEDIDO),1 ,pped);
while (!feof(pped))
	{
    if (reg.unidades!=0)
    	{
    	strcpy(TablaIndex[numped].clave,reg.codcli);
      // Guardo la posición relativa: El nº de registro en el fichero
    	TablaIndex[numped].posicion = i;
    	numped++;
    	}
     i++;
     fread(& reg,sizeof(TIPOPEDIDO),1,pped);
    }
}


/* Ordenación por el método de selección directa */
void OrdenarTabla()
{
int i,j;
ElementoIdx min;
int posmin;
for(i=0;i<numped-1;i++)
	{
   min = TablaIndex[i];
   posmin=i;
   // Busco el elemento más pequeño
   for(j=i+1;j<numped;j++)
   	{
      if( strcmp (TablaIndex[j].clave,min.clave)<0 )
      	{
         // Cambio el mínimo provisional
         min=TablaIndex[j];
         posmin=j;
         }
      }
   // Lo coloco al final de la parte ordenada
   TablaIndex[posmin]=TablaIndex[i];
   TablaIndex[i]=min;
   }
}


void VolcarTabla()
{
int i;
for(i=0;i<numped;i++)
	{
   // posición ( Nº de registro ) * Tamaño del registro
   fseek(pped,TablaIndex[i].posicion * sizeof(reg),SEEK_SET);
   // Leo el registro de PEDIDOS
   fread( & reg,sizeof(TIPOPEDIDO),1,pped);
   // Grabo el registro en PEDORD
   fwrite( & reg,sizeof(TIPOPEDIDO),1,pord);
   }
}



void CerrarFicheros()
{
fclose(pped);
fclose(pord);
}



main()
{
if (AbrirFicheros()==0)
	{
   puts("No se puede ordenar pedidos");
   return 1;
   }
CargarTabla();
OrdenarTabla();
VolcarTabla();
CerrarFicheros();
puts("Fin del proceso.");
getchar();
return 0;
}