QUAND EXCEPTION
	Erreur("Le commercial sélectionné n'a pas été supprimée : ","Vous ne pouvez pas supprimer un commercial qui a déjà réalisé des RDVs")	
FIN
  // ne fait rien si aucun enregistrement sélectionné dans la table
  SI TableSelect(Frm_ListEmp.Tab_Commercial)=-1 ALORS RETOUR

  // Si c'est la ligne de saisie/sélection, on ne peut pas la supprimer
  SI TableSelect(Frm_ListEmp.Tab_Commercial)>TableOccurrence(Frm_ListEmp.Tab_Commercial) ALORS 
	Info("Il n'y a aucun enregistrement sur cette ligne.","Suppression impossible.")
	RETOUR
  FIN								

  // si la suppression est confirmée, suppression de la ligne de la table et de
  // l'enregistrement correspondant dans le fichier COMMERCIAL
  SI OuiNon("Voulez-vous vraiment supprimer ce commercial ?") ALORS 
	// Suppression de l'enregistrement à partir de la table
	indice_LigneCom est un entier
	indice_LigneCom = TableSelect(Frm_ListEmp.Tab_Commercial,1)
	TableSupprime(Frm_ListEmp.Tab_Commercial,indice_LigneCom)
  FIN
  // On relance le rafraichissement automatique de la fenêtre
  TableAffiche(Frm_ListEmp.Tab_Commercial)