//recherche si enregistrement dans stok
Si HLitRecherchePremier(Vin,IDvin,Table.idvin) ALORS
 HLitRecherche(Stock,idvin,Vin.IDvin)
 SI H.trouve ALORS
  Info("Vous ne pouvez pas supprimer ce vin. Il y a des    enregistrements le concernant.")
 SINON
  // Suppression de l'enregistrement à partir de la table
  SI PAS HSupprime(Vin) alors
   erreur(herreurinfo())
  sinon
   TableSupprime(Table)
  FIN
Fin