1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| httpMaReq est une chaîne
CleToken est une chaîne = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
sARoot est une chaîne = "https://api.shopping-feed.com"
sStoredID est une chaîne = "XXXX"
sUnfichier sont des chaînes
oBody est un JSON
ReqHttp est un httpRequête
// Configuration de la requête HTTP
ReqHttp..URL = ChaîneConstruit("%1/v1/store/%2/order/upload-documents",sARoot,sStoredID)
ReqHttp..Entête["Accept"] = "*/*"
ReqHttp..Entête["Authorization"] = "Bearer " + CleToken
ReqHttp..ContentType = typeMimeFormulaireMultiPartie
ReqHttp..Méthode = httpPost
// On sélectionne le fichier à envoyer
sUnfichier = fSélecteur("D:\Facturation","","Sélectionner la facture","*.pdf","PDF",fselOuvre)
// On crée le body à envoyer
oBody.order[1].id = "19784199805"
oBody.order[1].documents[1].type = "invoice"
// Création du formulaire
HTTPCréeFormulaire("FORM")
// On remplit le formulaire
HTTPAjouteParamètre("FORM","body",oBody.VersChaîne())
HTTPAjouteFichier("FORM", "files[0]", sUnfichier) // --> je ne sais pas si l'indice commence à 0 ou à 1
// On envoie le formulaire
SI HTTPEnvoieFormulaire ("FORM",ReqHttp) ALORS
Info("fichier envoyé")
SINON
Erreur("Echec de l'envoi du formulaire : ", ErreurInfo())
FIN |
Partager