// Renseignement des différentes rubriques du fichier ...

// Un nom de fichier a été indiqué pour la description du produit?
SI PAS SAI_NOM_FICHIER ~= "" ALORS
	// Oui, on vérifie que ce fichier existe bien
	SI fFichierExiste(SAI_NOM_FICHIER) = Faux ALORS
		Erreur("Impossible d'ajouter " + ...
			"le fichier de description du produit " + ...
			"dans la base: ", HErreurInfo())
		RETOUR // ou RENVOYER Faux
	FIN

	// Ajout du fichier qui contient la description du produit 
	// dans la rubrique mémo binaire de l'enregistrement
	SI HAttacheMémo(PRODUIT, DESCRIPTIONPRODUIT, SAI_NOM_FICHIER, ...
			hMémoBin, "Description du fichier") = Faux ALORS
		Erreur("Impossible d'ajouter " + ...
			"le fichier de description du produit " + ...
			"dans la base: ", HErreurInfo())
		RETOUR //ou RENVOYER Faux
	FIN
FIN

// Ajoute (ou modifie) le produit au fichier des produits
SI HAjoute(PRODUIT) = Faux ALORS // ou SI HModifie(PRODUIT) = Faux ALORS
	Erreur("Impossible de mettre à jour le fichier produit:", ...
			HErreurInfo())
	RETOUR //ou RENVOYER Faux
FIN

RENVOYER Vrai

// Procédure d'ajout d'un produit
FONCTION bAjouteProduit(sNomProduit, sImage)

// Nom du produit
PRODUIT.NOM = sNomProduit

// Photo du produit
SI HAttacheMémo(PRODUIT,PHOTO, sImage, hMémoImg) = Faux ALORS
	RENVOYER Faux
FIN

// Ajoute le produit au fichier des produits
SI HAjoute(PRODUIT) = Faux ALORS
	RENVOYER Faux
FIN

RENVOYER Vrai