HAUSERMANN Laurent
3 impasse Marcel Brot
54000 NANCY (France !)
83.36.75.01.


 

     Je vais vous expliquer mon programme de gestion de stock de magasin  
     de pull. Il a été écrit pour le magasin " ETTY-BOUTIQUE " dont le patron
     est un de mes amis. Il est donc du domaine public en quelque sorte.

Quelques explications techniques:
       -) Le programme sauvegarde automatiquement les données ce 
          qui évite l'oubli ou pire la mauvaise panne de courant.
       -) La commande de réassortissement est (je trouve) assez
          pratique puisqu'elle permet une fois bien maitrisée
          un réassortissement rapide. De plus elle economise
          de la place sur l'écran (déjà bien rempli).
       

Tableau principal:

    Art_resident$() Tableau dans lequel est stocké l'article en memoire
                    
             NB: Art_resident$(0,0) contient une chaine de nombre
                    qui indique les couleurs utilisées.
                    
             NB: Dans chaque case les données sont réparties comme 
                 ceci:
                      Art_resident$(x,y)="'nb achat coul x taille y'+nb vente
                                           coul x taille y'"

        
Fichier de données:
    ARTICLE.TYM
      2                           | Nb d'article
      Une chemise de Bucheron     | Description article 1
      50                          | Prix ht article 1
      100                         | Prix ttc article 1
      Une chemise d'INFORMATICIEN | Description article 2
      50                          | Prix ht article 2
      100                         | Prix ttc article 2
      etc
      etc
      etc


     FOUR.TYM
       1                        | Nb de fournisseurs
       Le Petit AMIGA Illustré  | Description fourniseur 1
       
     COUL.TYM
       2                        | Nb de couleurs
       VIOLET                   | Descripton couleur 1
       ROUGE                    | Description couleur 2
 
     1.TYM
     ^
     |- NB ARTICLE

       1                | Nb Fournisseur
       4                | Type de taille
       01               | Couleur 
       1                | Taille
       00010000         | Données
       0                | Marque la fin pour cette couleur
       10               | Couleur                          (1)
       1                | Taille                           (2)
       00020000         | Données                          (3)
       0                | Marque la fin pour cette couleur (4)  
       11               | (1)
       1                | (2)
       00030000         | (3)
       0                | (4)
       *                | Marque la fin du fichier



                    J'espère que vous avez compris!!!

                                 FIN


                                                          Hausermann Laurent
                                                          ------------------