Discussion :

[Raptor92]

Bonsoir

Dans le code ci-dessous, j'arrive bien à déplacer une tache, pour autant, je n'arrive pas à la déplacer tout en gardant la tache d'origine
De fait, je souhaite pouvoir copier la tache plutôt que la déplacer

Merci pour ceux qui me mettrais sur la voie
Bien à vous

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
// Déplacement d'une tâche
 
HLitRecherche(TACHE,IDTACHE,clPlanning:TacheEnCours)
SI PAS HTrouve() ALORS RENVOYER Faux
 
// Confirmation affectation à une personne différente ?
SI clPlanning:IDItemEnCours<>clPlanning:IDItemSurvolé ALORS
	SI PAS OuiNon("Réaffecter  la tâche à "+clPlanning:LibItemSurvolé+" ?") ALORS RENVOYER Faux
FIN
 
//--ID PERSONNE DEPART
Trace(clPlanning:IDItemEnCours)
 
//-- ID PERSONNE ARRIVEE
Trace(clPlanning:IDItemSurvolé)
 
 
 
// Déplacement des plages de planning
sDateMini, sDateMaxi sont des chaînes
HLitRecherche(Planning,IDTACHE,clPlanning:TacheEnCours)
TANTQUE HTrouve(Planning)
	Planning.DATEPLANNING=EntierVersDate(DateVersEntier(Planning.DATEPLANNING)+clPlanning:nJoursDécalage())
	//-- Trace la date de début
	Trace(sDateMini)
	SI sDateMini="" ALORS sDateMini=Planning.DATEPLANNING
	SI sDateMini>Planning.DATEPLANNING ALORS sDateMini=Planning.DATEPLANNING
	// Trace la date de fin
	Trace(sDateMaxi)
	SI sDateMaxi="" ALORS sDateMaxi=Planning.DATEPLANNING
	SI sDateMaxi<Planning.DATEPLANNING ALORS sDateMaxi=Planning.DATEPLANNING
	HModifie(Planning)
	HLitSuivant(Planning,IDTACHE)
FIN
 
// Décalage et réaffectation de la tâche
TACHE.DATEDEBUT=sDateMini
TACHE.DATEFIN=sDateMaxi
TACHE.IDPERSONNE=clPlanning:IDItemSurvolé
HModifie(TACHE)

[frenchsting]

Un bout de code de mon projet (à adapter) :

Déclaration :

Code :

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

1
2
objRdvInitial est un RendezVous dynamique
objRdvPourCopier est un RendezVous dynamique

Code :

Code :

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

1
2
3
4
5
6
 
SI objRdvInitial  <> Null ALORS
	delete objRdvPourCopier
	objRdvPourCopier = new RendezVous()
	objRdvPourCopier <= objRdvInitial 
FIN