// Variables

sMonFichier est une chaîne
sMonNouveauFichier est une chaîne
sCheminFichier est une chaîne
lnIdPhotoHotelAjoute est un entier


// On traite tous les fichier ajoutés dans le champ upload
POUR i = 1 _A_ MoiMême..Occurrence

// Initialisation du nom de l'image temporaire et de son chemin
sMonFichier = "Hotels_"+Hotels.IDHotels+"_"+i+".jpg"
sCheminFichier = ComplèteRep(fRepDonnées()) + sMonFichier

//Envoi de l'image sur le serveur
// l'image doit-être uplaodé dans le répertoire des donénes, là où on a des droits en écriture
UploadCopieFichier(UPL_UploadMulti, ComplèteRep(fRepDonnées()), sMonFichier, i)

// On redimensionne l'image
// IMG_Redimensionne est un champ image généré, homothétique centré, invisible
IMG_Redimensionne = ComplèteRep(fRepDonnées()) + sMonFichier
SI PAS dSauveImageJPEG(IMG_Redimensionne, sCheminFichier, 100, imgJPEGProgressif) ALORS Erreur(ErreurInfo())

// On ajouter cet enregistrement dans le fichier
// On a autant d'enregistrement que de photo correspondante à cet hôtel
SI PAS HAttacheMémo(Photos_Hotel, Photos, sCheminFichier, hMemoImg) ALORS
Erreur("Erreur lors de l'attachement de l'image : " + RC + HErreurInfo())
RETOUR

SINON
Photos_Hotel.Indice_Affichage = i
Photos_Hotel.IDHotels = Hotels.IDHotels

SI PAS HAjoute(Photos_Hotel) ALORS
Erreur("Erreur lors de l'attachement de l'image : " + RC + HErreurInfo())
RETOUR

SINON
// On récupère l'identifiant de cet enregistrement
// Celui-ci va être utilisé pour généré un nom unique à l'image affichée par le site
lnIdPhotoHotelAjoute = Photos_Hotel.IDPhotos_Hotel

FIN
FIN

// On déplace cette nouvelle image dans le répertoire _WEB
// Cela permet son affichage dans le site WEB
// Lors de ce déplacement on la renomme d'un nom unique

sMonNouveauFichier = "Hotels_"+Hotels.IDHotels+"_"+lnIdPhotoHotelAjoute+".jpg"

SI EnModeTest ALORS
fCopieFichierRépertoireWeb(sMonFichier, "IMAGES_HOTELS/TEST/"+sMonNouveauFichier)
SINON
fCopieFichierRépertoireWeb(sMonFichier, "IMAGES_HOTELS/"+sMonNouveauFichier)
FIN

// Suppression du fichier temporaire
fSupprime(sMonFichier)

FIN

Info("Les fichiers ont bien été envoyés","Vous pouvez maintenant définir l'ordre des photos.")