//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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2978&post_id=12469