// clic sur btn_supprimer
// demande de confirmation
SI OuiNon(Non,"Voulez-vous vraiment supprimer l'enregistrement ?") ALORS
	// suppression
	HSupprime(Client)
	SI ErreurDétectée ALORS
		Erreur("Impossible de supprimer l'enregistrement."+RC+HErreurInfo())
		RETOUR
	FIN
	
	// On indique qu'un enregistrement a été modifié (le rafraichissement des données sera nécessaire)
	Mafenetre..Modifier = Vrai
	
	// lecture de l'enregistrement suivant
	HLitSuivant(Client,IDClient)
	
	// si l'enregistrement supprimé était le dermier enregistrement
	SI HEnDehors() ALORS
		// lecture du dernier enregistrement
		HLitDernier(Client,IDClient)
		// il n'y a plus d'enregistrement dans le fichier
		SI HEnDehors() ALORS
			// vide les champs
			RADEfface()
			// informe l'utilisateur que le fichier est vide
			Info("Le fichier est vide")
			// terminé
			RETOUR
		FIN
	FIN
	
	// transfert du buffer du fichier dans les champs
	FichierVersEcran()
FIN

Si HEnDehors() alors
 Info("Aucun fournisseur ne correspond")
Fin