Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement WinDev Multi séléection

Multi séléection

4 réponses
Avatar
joseph cvjetic
Bonjour
J'ouvre une fenêtre Vision+ par un bouton
La table dans cette fenêtre est en mode multi sélection
Ok ça se passe bien mais comment récupérer les enregistrements ??
Voici le code du bouton faisant appel à la fenêtre vision+
C'est le code qui me permettait de récupérer un record.
LOCAL

ret est un booléen

ret=Ouvre(Vision_ACCESSOIRES) // Ouvre la fenêtre Vision+

SI ret=Vrai ALORS // Si un enreg; est sélectionné

TableAjoute(Table_ACC,ACCESSOIRES.A_TYPE+TAB+ACCESSOIRES.A_MONTANT)

OF_TOTAL_ACCESSOIRES = OF_TOTAL_ACCESSOIRES + ACCESSOIRES.A_MONTANT


Calcul()

// La fenêtre a été modifiée

MaFenêtre..Modifié = Vrai

GP_APPLIQUER..Etat = Actif

FIN

Merci
J Cvjetic
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
STASZEWSKI André
Bonjour,

Voir la fonction TableSelectOccurence()

--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 3.1 sur www.PlaneteDev.fr.st
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph

"joseph cvjetic" a écrit dans le message de
news:4219fd19$0$2273$
Bonjour
J'ouvre une fenêtre Vision+ par un bouton
La table dans cette fenêtre est en mode multi sélection
Ok ça se passe bien mais comment récupérer les enregistrements ??
Voici le code du bouton faisant appel à la fenêtre vision+
C'est le code qui me permettait de récupérer un record.
LOCAL

ret est un booléen

ret=Ouvre(Vision_ACCESSOIRES) // Ouvre la fenêtre Vision+

SI ret=Vrai ALORS // Si un enreg; est sélectionné

TableAjoute(Table_ACC,ACCESSOIRES.A_TYPE+TAB+ACCESSOIRES.A_MONTANT)

OF_TOTAL_ACCESSOIRES = OF_TOTAL_ACCESSOIRES + ACCESSOIRES.A_MONTANT


Calcul()

// La fenêtre a été modifiée

MaFenêtre..Modifié = Vrai

GP_APPLIQUER..Etat = Actif

FIN

Merci
J Cvjetic




Avatar
J-M des Grottes
joseph cvjetic bien qu'il ne soit qu'un être humain, a buriné sagement
ce 21/02/2005 la plaque de marbre suivante:
Bonjour
J'ouvre une fenêtre Vision+ par un bouton
La table dans cette fenêtre est en mode multi sélection
Ok ça se passe bien mais comment récupérer les enregistrements ??
Voici le code du bouton faisant appel à la fenêtre vision+
C'est le code qui me permettait de récupérer un record.
LOCAL

ret est un booléen

ret=Ouvre(Vision_ACCESSOIRES) // Ouvre la fenêtre Vision+

SI ret=Vrai ALORS // Si un enreg; est sélectionné

TableAjoute(Table_ACC,ACCESSOIRES.A_TYPE+TAB+ACCESSOIRES.A_MONTANT)

OF_TOTAL_ACCESSOIRES = OF_TOTAL_ACCESSOIRES + ACCESSOIRES.A_MONTANT


Calcul()

// La fenêtre a été modifiée

MaFenêtre..Modifié = Vrai

GP_APPLIQUER..Etat = Actif

FIN

Merci
J Cvjetic



Tout est dans le manuel.. ;o)

--
Remove (nospam) from my Email.
Dr J-M des Grottes - HIS-Etterbeek-Ixelles - Nephrology - Belgium
Avatar
joseph cvjetic
Bonjour,
Effectivement j'avais vu le code suivant :
i est un entier
NbSelectionne est un entier = TableSelectOccurrence (Table)
POUR i=1 A NbSelectionne
Trace(Table[TableSelect(Table,i)])
FIN
La fonction trace me donne bien le résultat escompté
Mais comment récupérer les records dans le code ci-dessous?
j Cvjetic


"STASZEWSKI André" a écrit dans le message de news:
cvd7em$r4i$
Bonjour,

Voir la fonction TableSelectOccurence()

--
Cordialement,
André STASZEWSKI
(Gratuit) Photo Visu 3.1 sur www.PlaneteDev.fr.st
Pour me contacter cliquez ici : http://cerbermail.com/?OT0Wnwyzph

"joseph cvjetic" a écrit dans le message de
news:4219fd19$0$2273$
Bonjour
J'ouvre une fenêtre Vision+ par un bouton
La table dans cette fenêtre est en mode multi sélection
Ok ça se passe bien mais comment récupérer les enregistrements ??
Voici le code du bouton faisant appel à la fenêtre vision+
C'est le code qui me permettait de récupérer un record.
LOCAL

ret est un booléen

ret=Ouvre(Vision_ACCESSOIRES) // Ouvre la fenêtre Vision+

SI ret=Vrai ALORS // Si un enreg; est sélectionné

TableAjoute(Table_ACC,ACCESSOIRES.A_TYPE+TAB+ACCESSOIRES.A_MONTANT)

OF_TOTAL_ACCESSOIRES = OF_TOTAL_ACCESSOIRES + ACCESSOIRES.A_MONTANT


Calcul()

// La fenêtre a été modifiée

MaFenêtre..Modifié = Vrai

GP_APPLIQUER..Etat = Actif

FIN

Merci
J Cvjetic








Avatar
e-pluriel
Voici un exemple.

LOCAL
i est un entier
NbSelectionne est un entier = TableSelectOccurrence(Table)

gListeDesChoix="" //RAZ NECESSAIRE
//pour chaque occurrence sélectionnée
POUR i=1 A NbSelectionne
//on ajoute le apcléunik et cacléunik dans la liste des choix
gListeDesChoix=gListeDesChoix+Table[TableSelect(Table,i)][11]
FIN