TABLES DE TRI ASSOCIES AUX FICHIERS

//08-sep-2008 16:57:32

/* La ligne de commande pour construire listocc.exe
gcc -fpack-struct -Wno-pointer-sign -olstoc.exe lstoc.c
*/

typedef unsigned short ushort;
typedef unsigned long  ulong;
typedef unsigned char  uchar;

#include <stdio.h>
#include <conio.h>
#include <io.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <fcntl.h>
#include <sys\stat.h>

//-------------------------------------
uchar nom_nomenclature[]="NOMENCL.FFF";
short nf_nom;
ulong nb_art_nom;
ushort RCS_NOM; //longueur d'article
struct ART_NOM  ///structure d'article
{
   ulong  code;
   uchar  nom_d_article[40];
   uchar  um[3];
   uchar  rien[29];
} art_nom;
struct TAB_NOM //table associe au fichier
{
   ulong code;
   uchar nom_d_article[40];
   ulong position_dans_fichier_nom;
} *p_nom,*q_nom;
int fc_nom(void const *a,void const *b) //fonction pour qsort
{
   struct TAB_NOM const *p1=a;
   struct TAB_NOM const *p2=b;
   return strnicmp(p1->nom_d_article,p2->nom_d_article,40);
}
ulong LIEU;
int cherche_nom(ulong code) //function qui cherche un certain code
{
   for(LIEU=0;LIEU<nb_art_nom;LIEU++)
   {
      p_nom=q_nom+LIEU;
      if(code==p_nom->code) return 0;
   }
   return 1;
}
//--------------------------------
uchar nom_du_stock[]="STOCKS.FFF";
short nf_stock;
ulong nb_art_stock;
ushort RCS_STOCK;  //longueur d'article
struct ART_STOCK   //structure d'article
{
   ushort gestion;
   ulong  code;
   double prix;     // *1000 pour obtenir des valeurs entiers
   double quantite; // *1000 idem
   uchar  rien[6];
} art_stock;
struct TAB_STOCK //table associe au fichier
{
   ulong  position_dans_table_nom;
   double prix;
   ushort position_dans_fichier_stock;
} *p_stock,*q_stock;
int fc_stock(void const *a,void const *b) //fonction pour qsort
{
   struct TAB_STOCK const *p1=a;
   struct TAB_STOCK const *p2=b;
   if(p1->position_dans_table_nom<p2->position_dans_table_nom) return -1;
   if(p1->position_dans_table_nom>p2->position_dans_table_nom) return  1;
   if(p1->prix<p2->prix) return -1;
   if(p1->prix>p2->prix) return  1;
   return 0;
}

void tete_de_liste(void);
void total_code(void);

//Variables
//---------
FILE *fich;
ushort nb_lignes_sur_page,compteur_lignes;
uchar man[500]; //string pour sprintf

ulong i,entier;
ushort j;

ulong ancien_code;

ulong LIBRE;
uchar *O;

ushort mois,annee;

double quantite_code,valeur_code,valeur_courante,VALEUR_TOTALE;

uchar nb_positions_sur_code,nb_char[6];
ushort ligne_max;

int main(void)
{
   RCS_NOM=sizeof(art_nom);
   RCS_STOCK=sizeof(art_stock);

   //Pour la date des stocks
   mois=4;
   annee=2008;

   //Ouverture du fichier nomenclature
   if((nf_nom=open(nom_nomenclature,O_BINARY|O_RDONLY))<1)
   {
      printf("\nFichier %s non trouve.",nom_nomenclature);
      exit(0);
   }

   //Longueur en octets
   nb_art_nom=filelength(nf_nom);

   //Le fichier est valide ?
   if(nb_art_nom%RCS_NOM)
   {
      printf("\nFichier %s corrompu.",nom_nomenclature);
      exit(0);
   }

   //Longueur en articles
   nb_art_nom/=RCS_NOM;

   //Ouverture du fichier stocks
   if((nf_stock=open(nom_du_stock,O_BINARY|O_RDONLY))<1)
   {
      printf("\nFichier %s non trouve.",nom_du_stock);
      exit(0);
   }

   //Longueur en octets
   nb_art_stock=filelength(nf_stock);

   //Le fichier est valide ?
   if(nb_art_stock%RCS_STOCK)
   {
      printf("\nFichier %s corrompu.",nom_du_stock);
      exit(0);
   }

   //Longueur en articles
   nb_art_stock/=RCS_STOCK;

   //Necessaire de memoire pour stocker les tables
   LIBRE=nb_art_nom*sizeof(*q_nom)+nb_art_stock*sizeof(*q_stock);

   //Reservation de memoire
   if((O=malloc((size_t)LIBRE))==NULL)
   {
      printf("\nImpossible de reserver %lu d'octets en memoire.",LIBRE);
      exit(0);
   }

   //Construction de la table TAB_NOM
   p_nom=q_nom=(struct TAB_NOM *)O;
   entier=0; //nombre d-elements
   for(i=0;i<nb_art_nom;i++)
   {
      read(nf_nom,&art_nom,RCS_NOM);
      if(!art_nom.code) continue;  //article efface
      p_nom->code=art_nom.code;
      strncpy(p_nom->nom_d_article,art_nom.nom_d_article,40);
      p_nom->position_dans_fichier_nom=i;
      p_nom++;entier++;
   }
   nb_art_nom=entier;
   //Tri de la table TAB_NOM
   qsort((uchar *)q_nom,nb_art_nom,sizeof(*q_nom),fc_nom);

   //La fin de la table TAB_NOM
   p_nom=q_nom+nb_art_nom;

   //Construction de la table TAB_STOCK
   p_stock=q_stock=(struct TAB_STOCK *)p_nom;
   entier=0;
   //et calcul des nombres des characters des colonnes de l'entet de la liste
   memset(nb_char,0,6);
   for(i=0;i<nb_art_stock;i++)
   {
      read(nf_stock,&art_stock,RCS_STOCK);
      //Pour cet exemple, seulement les gestions 11 et 13
      if(art_stock.gestion!=11&&art_stock.gestion!=13) continue;
      if(cherche_nom(art_stock.code)) continue;

      lseek(nf_nom,p_nom->position_dans_fichier_nom*RCS_NOM,SEEK_SET);
      read(nf_nom,&art_nom,RCS_NOM);

      //combien des chars
      for(j=40;j;j--) if(art_nom.nom_d_article[j-1]!=' ') break;
      if(j>nb_char[5]) nb_char[5]=j;

      p_stock->position_dans_table_nom=LIEU; //pour ordre alphabetique
      p_stock->prix=art_stock.prix;
      p_stock->position_dans_fichier_stock=i;
      p_stock++;entier++;

      //combien des chars pour code
      j=sprintf(man,"%lu",art_stock.code);
      if(nb_char[0]<j) nb_char[0]=j;

      //combien des chars pour prix
      j=sprintf(man,"%.3f",1e-3*art_stock.prix);
      if(j>nb_char[1]) nb_char[1]=j;

      //combien des chars pour quantite
      j=sprintf(man,"%.3f",1e-3*art_stock.quantite);
      if(j>nb_char[3]) nb_char[3]=j;

      //calcul de la valeur
      valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
      if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;

      //combien des chars pour valeur
      j=sprintf(man,"%.2f",1e-2*valeur_courante);
      if(j>nb_char[4]) nb_char[4]=j;
   }
   nb_art_stock=entier;
   //Tri de la table TAB_STOCK
   qsort((uchar *)q_stock,nb_art_stock,sizeof(*q_stock),fc_stock);

   //pour la ligne de total_code, calcul des colonnes
   nb_positions_sur_code=0;
   ancien_code=0xFFFFFFFF;
   for(i=0;i<nb_art_stock;i++)
   {
      p_stock=q_stock+i;
      lseek(nf_stock,p_stock->position_dans_fichier_stock*RCS_STOCK,SEEK_SET);
      read(nf_stock,&art_stock,RCS_STOCK);
      if(ancien_code!=art_stock.code)
      {
         if(ancien_code!=0xFFFFFFFF)
         {
            j=sprintf(man,"%.3f",1e-3*quantite_code);
            if(j>nb_char[3]) nb_char[3]=j;
            j=sprintf(man,"%.2f",1e-2*valeur_code);
            if(j>nb_char[4]) nb_char[4]=j;
         }
         ancien_code=art_stock.code;
         valeur_code=quantite_code=0e0;
      }
      valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
      if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;
      quantite_code+=art_stock.quantite;
      valeur_code+=valeur_courante;
   }
   if(ancien_code!=0xFFFFFFFF)
   {
      j=sprintf(man,"%.3f",1e-3*quantite_code);
      if(j>nb_char[3]) nb_char[3]=j;
      j=sprintf(man,"%.2f",1e-2*valeur_code);
      if(j>nb_char[4]) nb_char[4]=j;
   }

   //Les longueurs minimum necessaires
   if(nb_char[0]<4) nb_char[0]=4; //longueur du mot "Code"     = 4
   if(nb_char[1]<4) nb_char[1]=4; //longueur du mot "Prix"     = 4
   nb_char[2]=3;                  //longueur du mot "U/M"      = 3
   if(nb_char[3]<8) nb_char[3]=8; //longueur du mot "Quantite" = 8
   if(nb_char[4]<6) nb_char[4]=6; //longueur du mot "Valeur"   = 6
   if(nb_char[5]<7) nb_char[5]=7; //longueur du mot "Denomme"  = 7

   //Calcule de la longueur d'une ligne
   ligne_max=1;for(j=0;j<6;j++) ligne_max+=nb_char[j]+1;

   printf("Nombre des lignes sur une page:");
   scanf("%u",&nb_lignes_sur_page);
   compteur_lignes=nb_lignes_sur_page+1;

   //Fichier image de la liste sortie
   fich=stdout;
   //   ou
   //fich=stdprn;
   //   ou
   //fich=fopen("liste.doc","wt");

   //Debut de la liste
   VALEUR_TOTALE=0e0;
   nb_positions_sur_code=0;
   ancien_code=0xFFFFFFFF;
   for(i=0;i<nb_art_stock;i++)
   {
      p_stock=q_stock+i;
      lseek(nf_stock,p_stock->position_dans_fichier_stock*RCS_STOCK,SEEK_SET);
      read(nf_stock,&art_stock,RCS_STOCK);

      //Si un autre code
      if(ancien_code!=art_stock.code) total_code();

      //Si on depasse la capacite de la page
      if(compteur_lignes+1>nb_lignes_sur_page)
      {
         printf("Presse Enter pour continuer ou X pour abandonner");
         if(toupper(getch())=='X') return 1;
         tete_de_liste();
      }

      compteur_lignes++;

      if(nb_positions_sur_code==0) //Premiere position sur cet code
      {
         cherche_nom(art_stock.code);
         lseek(nf_nom,p_nom->position_dans_fichier_nom*RCS_NOM,SEEK_SET);
         read(nf_nom,&art_nom,RCS_NOM);
         if(art_nom.nom_d_article[0]==' ') art_nom.nom_d_article[0]='?';
      }
      else //Un autre position
      {
         memset(art_nom.um,' ',3);
         memset(art_nom.nom_d_article,' ',40);
      }
      valeur_courante=floor(1e-4*fabs(art_stock.quantite)*art_stock.prix+0.5);
      if(art_stock.quantite<0e0) valeur_courante=-valeur_courante;

      VALEUR_TOTALE+=valeur_courante;

      if(art_nom.nom_d_article[0]!=' ') //Premiere position sur cet code
      {
         fprintf(fich,"|%*lu|",nb_char[0],art_stock.code);
      }
      else
      {
         fprintf(fich,"|%*s|",nb_char[0],"");
      }
      fprintf(fich,"%*.3f|",nb_char[1],1e-3*art_stock.prix);
      fprintf(fich,"%3.3s|",art_nom.um);
      fprintf(fich,"%*.3f|",nb_char[3],1e-3*art_stock.quantite);
      fprintf(fich,"%*.2f|",nb_char[4],1e-2*valeur_courante);
      fprintf(fich,"%*.*s|\n",nb_char[5],nb_char[5],art_nom.nom_d_article);

      quantite_code+=art_stock.quantite;
      valeur_code+=valeur_courante;
      nb_positions_sur_code++;
   }
   total_code();

   j=nb_char[3]+nb_char[4]+1;
   fprintf(fich,"|%*sTotal general|%*.2f|%*s|\n",nb_char[0]+nb_char[1]+nb_char[2]+2-13,"",j,1e-2*VALEUR_TOTALE,nb_char[5],"");

   memset(man,'=',ligne_max);man[ligne_max]='\0';
   fprintf(fich,"%s\n",man);

   close(nf_nom);
   close(nf_stock);

   free((uchar *)O);

   return 1;
}

void tete_de_liste(void)
{
   //title au centre
   j=sprintf(man,"La liste des stocks le 01/%02u/%04u",mois,annee);
   if(j>ligne_max) j=ligne_max;j=ligne_max-j;j>>=1;
   fprintf(fich,"\n%*s%s\n",j,"",man);

   memset(man,'=',ligne_max);man[ligne_max]='\0';
   fprintf(fich,"%s\n",man);

   fprintf(fich,"|%*sCode|%*sPrix|U/M|%*sQuantite|%*sValeur|Denomme%*s|\n",
   nb_char[0]-4,"",nb_char[1]-4,"",nb_char[3]-8,"",nb_char[4]-6,"",nb_char[5]-7,"");

   fprintf(fich,"%s\n",man);

   compteur_lignes=4;
}

void total_code(void)
{
   if(ancien_code!=0xFFFFFFFF&&nb_positions_sur_code>1)
   {
      if(compteur_lignes+1>nb_lignes_sur_page)
      {
         printf("Presse Enter pour continuer ou X pour abandonner");
         if(toupper(getch())=='X') exit(0);
         tete_de_liste();
      }

      compteur_lignes++;

      memset(man,'-',50);
      fprintf(fich,"|%*s|%*.*s|%*.*s|",nb_char[0],"",nb_char[1],nb_char[1],man,nb_char[2],nb_char[2],man);
      fprintf(fich,"%*.3f|",nb_char[3],1e-3*quantite_code);
      fprintf(fich,"%*.2f|",nb_char[4],1e-2*valeur_code);
      fprintf(fich,"%*.*s|\n",nb_char[5],nb_char[5],man);
   }
   ancien_code=art_stock.code;
   valeur_code=quantite_code=0e0;
   nb_positions_sur_code=0;
}