PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Drag and Drop table à la fois source et cible
Drag and Drop table à la fois source et cible
Iniciado por Juju, 19,sep. 2023 16:11 - 7 respuestas
Miembro registrado
87 mensajes
Publicado el 19,septiembre 2023 - 16:11
Bonjour,

J'ai une FI contenant un champ TABLE nommé TABLE_DOCUMENT
Ce champ TABLE est déjà programmé en Source pour permettre de déplacer des fichiers de cette table vers une autre table de pièces jointes TABLE_PJ.

Mais j'aimerai maintenant aussi pouvoir faire du drag and drop depuis l'explorateur Windows vers ce champ TABLE_DOCUMENT.

Est ce que c'est possible que mon champ TABLE_DOCUMENT soit à la fois source et cible ?
Je n'arrive pas à le programmer pour que ça fonctionne en drag and drop depuis l'explorateur. Le dndprogrammé de TABLE_DOCUMENT vers TABLE_PJ étant lui déjà en place et fonctionnel...

Je ne sais pas si je suis claire ....
Miembro registrado
548 mensajes
Publicado el 19,septiembre 2023 - 16:42
salut
oui, c'est tout a fait possible que la table soit source et cible

--
José
Miembro registrado
87 mensajes
Publicado el 19,septiembre 2023 - 17:05
Je n'arrive pas à le faire fonctionner, ça ne me met pas l'icône de déplacement et souvent je casse par la même occasion l'autre drag and drop déjà en place.
Les deux peuvent être actif en même temps où faut il activer, désactiver ?... je ne comprends pas trop pourquoi je n'y arrive pas
Miembro registrado
949 mensajes
Publicado el 20,septiembre 2023 - 01:05
Bonjour,
Dans la description du champs Table -> Onglet "Détail" -> Glisser / Déplacer -> cases à cocher : Est Source, Est Cible.
Les 2 options sont elles cochées ?

Avez-vous activer ExplorerAccepte ?
https://doc.pcsoft.fr/?3030014
https://doc.pcsoft.fr/?3030015

Cdlt
Mensaje modificado, 20,septiembre 2023 - 01:11
Miembro registrado
1.157 mensajes
Publicado el 20,septiembre 2023 - 10:38
Bonjour,

On ne peut pas faire un drag & drop depuis l'explorateur (me semble-t-il). Il faut passer par un champ Libellé comme dans l'exemple Drag A Drop livré avec WINDEV.

--
Thierry TILLIER
Développeur WINDEV -WEBDEV
Formation WINDEV : https://coursdinfo-video.teachizy.fr/
Livre WINDEV : https://amzn.eu/d/6xTow1z
Tuto WINDEV sur ma chaîne Youtube
Miembro registrado
949 mensajes
Publicado el 20,septiembre 2023 - 11:31
Bonjour Thierry
Pourquoi ?
J'ai mis les liens des pages pour le faire, il faut déclarer le champs qui reçoit le Drag & Drop et une procédure à exécuter.
J'ai déjà vu faire.
Cdlt
Miembro registrado
1.157 mensajes
Publicado el 20,septiembre 2023 - 16:20
Bonjour Cédric,

En effet, encore une réponse de ma part en pensant à autre chose, désolé.

--
Thierry TILLIER
Développeur WINDEV -WEBDEV
Formation WINDEV : https://coursdinfo-video.teachizy.fr/
Livre WINDEV : https://amzn.eu/d/6xTow1z
Tuto WINDEV sur ma chaîne Youtube
Miembro registrado
87 mensajes
Publicado el 26,septiembre 2023 - 10:18
Top merci beaucoup, effectivement je ne l'avais pas paramétré dans l'onglet Détail, je n'en avais pas eu besoin pour le fait qu'il soit source, donc je n'ai pas pensé à le faire... j'ai repris du début et fait cela en premier puis :

ExplorerAccepte(Vrai)
Evénement("RecupFichiers","*.",563)


Avec une procédure RecupFichiers :

// Nombre de fichiers posés dans l'application par Drag and Drop
nbFic est un entier = ExplorerRécupère(_EVE.wParam)
sNomFic est une chaîne
// Récupération de tous les fichiers
i est un entier
POUR i = 1 À nbFic
sNomFic=ExplorerRécupère(_EVE.wParam,i)
// Ajoute le fichier
// Demander le nommage du fichier
sMonExtension est une chaîne = Droite(sNomFic,3)
sMonNomFichier est une chaîne = Ouvre(POPUP_NOMMAGE_FICHIER)

// Enregistrer sous le fichier dans le répertoire
sFichierFinal est une chaîne = ""

HLitRecherchePremier(VOITURE,Ordre,numLp)
sFichierFinal = gsParamCheminPiecesAdmin + [fSep] + "V"+ NuméroDossier+" - " + SansEspace(Identifiant) + " - " + sMonNomFichier + "." + sMonExtension
sNomFichier est une chaîne = "V"+ NuméroDossier+" - " + SansEspace(Identifiant) + " - " + sMonNomFichier + "." + sMonExtension

SI PAS fFichierExiste(sFichierFinal) ALORS
SI fCopieFichier(sNomFic, sFichierFinal) ALORS
ToastAffiche("Fichier sauvegardé à l'emplacement demandé ",toastLong,cvMilieu,chCentre)
SINON
ToastAffiche("Impossible de sauvegarder votre fichier",toastLong,cvMilieu,chCentre)
FIN
SINON

FIN

// Ajouter ensuite l'emplacement du fichier dans le tableau
TableAjouteLigne(TABLE_DOCUMENT,sNomFichier, sFichierFinal)
FIN

// Positionne la table en fin
TablePosition(TABLE_DOCUMENT, TABLE_DOCUMENT.Occurrence)