Discussion :

[forstera]

(re) Bonjour à tous

Je poursuis mon projet de gestion de pensums pour enseignants. Lors de l'attribution d'enseignants a des modules d'enseignements dans les différentes classes, il est possible de fusionner deux modules d'enseignement en 1 (notamment lorsque d'effectifs réduits).

Pour schématiser, c'est un peu le même système que le partage de vols par différentes compagnies aériennes

Lorsque j'affiche donc mes enseignements dans les différentes classes, j'ai tenté de programmer un glisser - déposé pour fusionner deux leçons en une (selon image ci-dessous) mais c'est la première fois que je fais cela et je bute sur la destination ..



Le champ table (rempli par programmation) possède donc les deux attributs : Est source et Est destination

Dans le code d'initialisation de mon champ Table, j'ai donc les lignes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TABLE_REQ_LeconsParCoursEffectif.DndSource = dndProgrammé
DnDEvénement(StockeInfos, TABLE_REQ_LeconsParCoursEffectif, dndDébutGlisser)
DnDEvénement(Fusionne, TABLE_REQ_LeconsParCoursEffectif, dndFinGlisser)

Pour pouvoir déterminer une leçon précise (selon la classe, le cours, l'année et le semestre), il me faut 3 clés. Ces clés sont récupérées dans ma fonction StockeInfos qui se présente comme suit :

Je stocke mes 3 clés dans 3 variables globales ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCÉDURE StockeInfos()
 
nIndice est un entier
nIndice = TableIndiceRupture(RUPT_Lecon)
DnDCurseur(dndCopier)
 
gnMonIDLiaisonCoursEffectif	= TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLiaisonCoursEffectif_ClasseSemestre
gnMonIDLecon				= TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLecon
gnMonIDLecMatEns			= TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLecMatEns

Finalement, ma procédure pour la fin de la transaction devrait me permettre de récupérer les 3 clés de la destination pour la fusion mais impossible de récupérer ces valeurs :

mes 3 valeurs de ma source sont bien là mais je n'arrive pas à pointer la destination.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
PROCÉDURE Fusionne()
nIndice est un entier
nIndice = TableIndiceRupture(RUPT_Lecon)
DnDCurseur(dndCopier)
 
Info(gnMonIDLiaisonCoursEffectif)  //   Affiche ma première clé de la source 
Info(gnMonIDLecon)                     //   Affiche ma seconde clé de la source 
Info(gnMonIDLecMatEns)           // Affiche ma troisième clé de la source 
 
Info(_DND.ChampCible)           //N'affiche rien ! 
 
Info(TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLiaisonCoursEffectif_ClasseSemestre)   //   Affiche la même valeur que la source 
Info(TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLecon)          //   Affiche la même valeur que la source 
Info(TABLE_REQ_LeconsParCoursEffectif[nIndice].COL_IDLecMatEns)  //   Affiche la même valeur que la source

[tbc92]

Dans le code d'initialisation de ton champ Table, tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TABLE_REQ_LeconsParCoursEffectif.DndSource = dndProgrammé
DnDEvénement(StockeInfos, TABLE_REQ_LeconsParCoursEffectif, dndDébutGlisser)
DnDEvénement(Fusionne, TABLE_REQ_LeconsParCoursEffectif, dndFinGlisser)

Puisque tu as mis ça dans le code d'initialisation du champ table, ce serait plus élégant de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
moimeme.DndSource = dndProgrammé
DnDEvénement(StockeInfos, moimeme, dndDébutGlisser)
DnDEvénement(Fusionne, moimeme, dndFinGlisser)

Mais pour ma part, je n'aime pas quand les portions de codes sont disséminées un peu partout, je mettrais le code que tu avais, mais dans le code d'initialisation de la fenêtre interne (si j'ai bien suivi, cette table est dans une fenêtre interne).

Cette procédure "Fusionne", elle est bien dans la fenêtre interne ?
J'ai un cas un peu similaire, où je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dnd__cible est un entier 
qtable est une chaîne 
qtable = _DND.ChampCible
dnd__cible = TableInfoXY( qtable,tiNumLigne,  _DND.SourisPosX , _DND.SourisPosY )
SI dnd__cible < 1 ALORS RENVOYER -1

Dans mon cas, c'est le numéro de la ligne où on lâche l'objet qui m'intéressait. Et je veux arrêter le process si on lâche l'objet sur les entêtes de colonnes de la table,

En fait, je me dis que la variable _DND champCible ou qtable est quasiment inutile. Par construction, cette procédure ne s'exécute que si on a fait un 'lacher' sur la table TABLE_REQ_LeconsParCoursEffectif
On devrait avoir le même résultat avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dnd__cible est un entier 
dnd__cible = TableInfoXY( TABLE_REQ_LeconsParCoursEffectif,tiNumLigne,  _DND.SourisPosX , _DND.SourisPosY )
SI dnd__cible < 1 ALORS RENVOYER -1

Rappel : cette procédure "Fusionne()" est dans la fenêtre interne, celle qui contient la table TABLE_REQ_LeconsParCoursEffectif.

[forstera]

Dans le code d'initialisation de ton champ Table, tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TABLE_REQ_LeconsParCoursEffectif.DndSource = dndProgrammé
DnDEvénement(StockeInfos, TABLE_REQ_LeconsParCoursEffectif, dndDébutGlisser)
DnDEvénement(Fusionne, TABLE_REQ_LeconsParCoursEffectif, dndFinGlisser)

Puisque tu as mis ça dans le code d'initialisation du champ table, ce serait plus élégant de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
moimeme.DndSource = dndProgrammé
DnDEvénement(StockeInfos, moimeme, dndDébutGlisser)
DnDEvénement(Fusionne, moimeme, dndFinGlisser)

Mais pour ma part, je n'aime pas quand les portions de codes sont disséminées un peu partout, je mettrais le code que tu avais, mais dans le code d'initialisation de la fenêtre interne (si j'ai bien suivi, cette table est dans une fenêtre interne).

Cette procédure "Fusionne", elle est bien dans la fenêtre interne ?
J'ai un cas un peu similaire, où je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dnd__cible est un entier 
qtable est une chaîne 
qtable = _DND.ChampCible
dnd__cible = TableInfoXY( qtable,tiNumLigne,  _DND.SourisPosX , _DND.SourisPosY )
SI dnd__cible < 1 ALORS RENVOYER -1

Dans mon cas, c'est le numéro de la ligne où on lâche l'objet qui m'intéressait. Et je veux arrêter le process si on lâche l'objet sur les entêtes de colonnes de la table,

En fait, je me dis que la variable _DND champCible ou qtable est quasiment inutile. Par construction, cette procédure ne s'exécute que si on a fait un 'lacher' sur la table TABLE_REQ_LeconsParCoursEffectif
On devrait avoir le même résultat avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dnd__cible est un entier 
dnd__cible = TableInfoXY( TABLE_REQ_LeconsParCoursEffectif,tiNumLigne,  _DND.SourisPosX , _DND.SourisPosY )
SI dnd__cible < 1 ALORS RENVOYER -1

Rappel : cette procédure "Fusionne()" est dans la fenêtre interne, celle qui contient la table TABLE_REQ_LeconsParCoursEffectif.

Top, merci

Pour répondre à ta question : Cette procédure "Fusionne", elle est bien dans la fenêtre interne ?
-> Oui elle est bien dans ma fenêtre interne.

et pour :

qtable est une chaîne
qtable = _DND.ChampCible

chez moi cela ne donne rien, mais je dois avoir fait des erreurs sur la programmation de mes DND..

je vais essayer ton code, merci beaucoup