1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
sRepCourant est une chaîne
sRepCourant= fRepEnCours()
// Ouverture de la fenêtre de sélection
HLitPremier(Article,NumArt)
TANTQUE HTrouve() ET PAS HEnDehors()
Photo.NumArt = Article.NumArt
sRes=fSélecteurImage("", "", "Sélectionnez une image.....", "*,GIF"+TAB+"*.GIF"+RC+"*,WMF"+TAB+"*.WMF"+RC+"*.PCX"+TAB+"*.PCX"+RC+"*.JPG"+TAB+"*.JPG"+RC+"*.BMP"+TAB+"*.BMP"+RC+fFiltreImage())
SI sRes<>"" ALORS
// Affectation des champs
IMG_Cover = sRes
Photo.images=IMG_Cover //Transfert l'image sélectionnée dans la rubrique du fichier
HAjoute(Photo)
fCopieFichier(sRes,sRepCourant,frConfirmer) //Copie l'image dans le répertoire courant de l'application
HLitSuivant(Article,NumArt)
FIN
FIN |
Partager