j est un entier sur 8 octets
POUR j=1 À 3333

// Recherche l'image du produit dans le répertoire des images
__Recherche_Image_du_Produit(Table_Produit.COL_IDProduits,Table_Produit.COL_Reference)

FIN



PROCEDURE INTERNE __Recherche_Image_du_Produit(ID,Ref)
TableSelectPlus(Table_Produit,j)
HLitRecherchePremier(Produit,IDProduit,ID)
SI HTrouve(Produit) ALORS
SAI_Chemin_De_Image = Rep_Chemin_Photo +"\"+ Table_Produit.COL_Reference +".jpg"
// Affiche l'image dans les champ pour contrôler visuelle de l'image
SAI_Nom_Image = fExtraitChemin(SAI_Chemin_De_Image,fFichier+fExtension)
IMG_Produit = Rep_Chemin_Photo +"\"+ Table_Produit.COL_Reference +".jpg"
UnFichier est une chaîne = SAI_Chemin_De_Image
Temporisation(10)
JAUGE_Http++
SI fFichierExiste(UnFichier)=Vrai ALORS
SI Int_Test_Transfert_Image = Vrai ALORS
__Transfert_Image_sur_Prestashop()
FIN
SINON
SI EnModeTest() ALORS Trace("Référence :" +Ref +" avec ID n°(" +ID+ ") n'existe pas.")
FIN
FIN
FIN





PROCEDURE INTERNE __Transfert_Image_sur_Prestashop()
HTTPCréeFormulaire("FORM") // Création du formulaire à envoyer
HTTPAjouteFichier("FORM", "image",SAI_Chemin_De_Image)// Ajout de l'image dans le formulaire
// Envoi du formulaire - on ajoute une image à l'article
SI HTTPEnvoieFormulaire("FORM",Prestashop_URL +"/api/images/products/" + ID_Image,httpPost,"","","multipart/form-data",Prestashop_CLE_API,"") ALORS
Texte est une chaîne = HTTPDonneRésultat()
pos est un entier = Position(Texte,"error")
SI pos > 0 ALORS// Affichage du message d'erreur dans la fenêtre de trace
Trace("L'image référencer (" +Refs +") na pas était ajouter.")
SINON
Trace("L'image référencer (" +Refs +") a était ajouter avec succès sur prestashop.")
FIN
SINON
Erreur(ErreurInfo())
FIN
FIN