// Fill the different items of the file ...

// Was a file name specified for the description of the product?
IF NOT EDT_FILE_NAME ~= "" THEN
	// Checks whether this file exists
	IF fFileExist(EDT_FILE_NAME) = False THEN
		Error("Cannot add " + ...
			"the product description file " + ...
			"in the database: ", HErrorInfo())
		RETURN // or RETURN False
	END

	// Add the file that contains the product description 
	// in the binary memo item of the record
	IF HLinkMemo(PRODUCT,PRODUCTDESCRIPTION, EDT_FILE_NAME, ...
			hMemoBin,"File description") = False THEN
		Error("Cannot add " + ...
			"the product description file " + ...
			"in the database: ", HErrorInfo())
		RETURN //or SEND BACK False
	END
END

// Adds (or modifies) the product to the file of products
IF HAdd(PRODUCT) = False THEN // or IF HModify(PRODUCT) = False THEN
	Error("Unable to update the product file:", ...
			HErrorInfo())
	RETURN //or SEND BACK False
END

RETURN True

// Procedure used to add a product
FUNCTION bAddProduct(sProductName, sImage)

Product name
PRODUCT.NAME = sProductName

// Product image
IF HLinkMemo(PRODUCT,PHOTO, sImage, hMemoImg) = False THEN
	RETURN False
END

// Adds the product to the product file
IF HAdd(PRODUCT) = False THEN
	RETURN False
END

RETURN True