PROCEDURE P1_Enregistrement (
         Tab_Stocks :    OUT T_Tableau;
         Init       :    OUT Boolean) IS

      Ligne : Integer;
      B     : Character;
      Num   : Integer;


   BEGIN
      New_Line (5);

      Put_Line ("                           _     _                                 _   ");
      Put_Line ("                          (_)   | |                               | |  ");
      Put_Line ("  ___ _ __  _ __ ___  __ _ _ ___| |_ _ __ ___ _ __ ___   ___ _ __ | |_ ");
      Put_Line (" / _ \ '_ \| '__/ _ \/ _` | / __| __| '__/ _ \ '_ ` _ \ / _ \ '_ \| __|");
      Put_Line ("|  __/ | | | | |  __/ (_| | \__ \ |_| | |  __/ | | | | |  __/ | | | |_ ");
      Put_Line (" \___|_| |_|_|  \___|\__, |_|___/\__|_|  \___|_| |_| |_|\___|_| |_|\__|");
      Put_Line ("                      __/ |                                            ");
      Put_Line ("                     |___/                                              ");


      New_Line (3);



      Put_Line (" Vous voici dans la phase d'enregistrement de votre produit. ");
      Put_Line (" Vous devez remplir son numero , sa quantite initiale, sa quantite de sortie et son seuil");
      Put_Line ("Pour finir votre enregistrement, ecrivez -1 dans un numero de produit.");

      New_Line (1);
      Ligne := 1;

      LOOP
         Put(" Numero du produit ");
         Put(Ligne,2);
         New_Line(1);









         k2:=true;
while k2 = true loop









         Get (Num);




















               verif(I).num:=Num;
                   
              K:=1;
                  k2:=false;
            while K<I loop
           
               if Verif(K).num = Verif(I).num
                     then K2:=True;
                  Put_Line ("numero deja entre");
                 
               end if;
                K:=K+1;
            end loop;
            
          

         end loop;
k2:=true;












            EXIT WHEN Num = Sentinelle;
            Tab_Stocks(Ligne).Nump:=Num;
            Put(" Quantite initiale du produit ");
            New_Line(1);
            Get (Tab_Stocks(Ligne).Qinit);
            Put(" Quantite de sortie du produit ");
            New_Line(1);
            Get (Tab_Stocks(Ligne).Qsortie);
            Put(" Seuil de reapprovisionement du produit ");
            New_Line(1);
            Get (Tab_Stocks(Ligne).Seuilfin);
            Ligne := Ligne +1;
            EXIT WHEN Ligne+1 > Nb_Ligne_Tab;

      END LOOP;
      Tab_Stocks(Ligne).Nump := Sentinelle;
      New_Line(1);

      Init := True;




      New_Line (2);
      Put_Line ("                           _     _                                 _   ");
      Put_Line ("                          (_)   | |                               | |  ");
      Put_Line ("  ___ _ __  _ __ ___  __ _ _ ___| |_ _ __ ___ _ __ ___   ___ _ __ | |_ ");
      Put_Line (" / _ \ '_ \| '__/ _ \/ _` | / __| __| '__/ _ \ '_ ` _ \ / _ \ '_ \| __|");
      Put_Line ("|  __/ | | | | |  __/ (_| | \__ \ |_| | |  __/ | | | | |  __/ | | | |_ ");
      Put_Line (" \___|_| |_|_|  \___|\__, |_|___/\__|_|  \___|_| |_| |_|\___|_| |_|\__|");
      Put_Line ("                      __/ |                                            ");
      Put_Line ("                     |___/                                              ");

      New_Line (2);
      Put_Line ("            __  __          _              ");
      Put_Line ("           / _|/ _|        | |             ");
      Put_Line ("       ___| |_| |_ ___  ___| |_ _   _  ___ ");
      Put_Line ("      / _ \  _|  _/ _ \/ __| __| | | |/ _ \");
      Put_Line ("     |  __/ | | ||  __/ (__| |_| |_| |  __/");
      Put_Line ("      \___|_| |_| \___|\___|\__|\__,_|\___|");

      New_Line (3);

      Put("Appuyez sur une touche pour poursuivre");
      Get_Immediate(B);


   END P1_Enregistrement;