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

// Un nom de fichier a été indiqué pour la description du produit ?
IF NOT SAI_NOM_FICHIER ~= "" THEN
	// Oui, on vérifie que ce fichier existe bien
	IF fFileExist(SAI_NOM_FICHIER) = False THEN
		Error("Impossible d'ajouter " + ...
			"le fichier de description du produit " + ...
			"dans la base : ", HErrorInfo())
		RETURN // ou RENVOYER Faux
	END

	// Ajout du fichier qui contient la description du produit 
	// dans la rubrique mémo binaire de l'enregistrement
	IF HLinkMemo(PRODUIT, DESCRIPTIONPRODUIT, SAI_NOM_FICHIER, ...
			hMemoBin, "Description du fichier") = False THEN
		Error("Impossible d'ajouter " + ...
			"le fichier de description du produit " + ...
			"dans la base : ", HErrorInfo())
		RETURN //ou RENVOYER Faux
	END
END

// Ajoute (ou modifie) le produit au fichier des produits
IF HAdd(PRODUIT) = False THEN // ou SI HModifie(PRODUIT) = Faux ALORS
	Error("Impossible de mettre à jour le fichier produit :", ...
			HErrorInfo())
	RETURN //ou RENVOYER Faux
END

RETURN True

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

// Nom du produit
PRODUIT.NOM = sNomProduit

// Photo du produit
IF HLinkMemo(PRODUIT,PHOTO, sImage, hMemoImg) = False THEN
	RETURN False
END

// Ajoute le produit au fichier des produits
IF HAdd(PRODUIT) = False THEN
	RETURN False
END

RETURN True