Discussion :

[JayFloyd]

Bonsoir, je bloque sur un sujet simple.
Je débute, donc méaculpa
je pense que cela peux provenir d'Id auto
j'ai deux tables gamme et action avec une gamme contient plusieurs actions la clé est IDGAMME

je souhaite dupliquer des actions d'une gamme existante

je crée donc une gamme vierge 'je garde en mémoire l'ID de la gamme crée "COL_ProceduresGlobales_Gammes.gnID_gamme", pas de soucis et vais chercher une gamme existante et remplie, je souhaite dupliquer avec d'autres ID mes action et avec L'ID de la gamme que je viens de créer

je fais donc pour récuperer la gamme que je souhaite dupliquer sur clic d'un bouton apres sélection d'une gamme d'une zone répétée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
COL_ProceduresGlobales_Gammes.gnID_gamme_copie=ZoneRépétéeSelect(ZR_Gamme)
 
HLitRecherchePremier(ACTION,GAMME_IDGAMME,COL_ProceduresGlobales_Gammes.gnID_gamme_copie)
TANTQUE HEnDehors(ACTION)=Faux
 
    HCopieEnreg(ACTION,ACTION,hValDéfaut)
    ACTION.GAMME_IDGAMME=COL_ProceduresGlobales_Gammes.gnID_gamme
    HAjoute(ACTION)
 
    HLitSuivant(ACTION,GAMME_IDGAMME)
    FIN

visiblement ca marche pas, mon fichier action contient des rubriques avec des cle doublons sauf IDACTION

ou est l'erreur ?

[frenchsting]

Ton COL_ProceduresGlobales_Gammes.gnID_gamme vaut quoi ?

[JayFloyd]

Ton COL_ProceduresGlobales_Gammes.gnID_gamme vaut quoi ?

c'est l'id de la gamme vierge

[frenchsting]

Je me doute bien de ce que c'est.

Ma question est (était) : (lorsque tu mets un point d'arrêt,) c'est bien la valeur de la gamme vierge qui est affichée ?

[Hemgé]

Bonjour,

Pourriez-vous exposer plus clairement ce qui "ne marche pas" ?

Tout d'abord, je suppose que vous avez vérifié que COL_ProceduresGlobales_Gammes.gnID_gamme_copie contient bien la valeur attendue.

Par ailleurs, avec la réserve que je n'utilise pas HFSQL et donc sous la supervision de ceux qui en ont l'expérience :

Vous lisez un enregistrement du fichier ACTION et vous réécrivez dans ce fichier ACTION, en y ajoutant un enregistrement qui partage les mêmes index, dont votre clé de parcours.
Est-ce que cela ne perturbe pas votre parcours de lecture ?
Vous pouvez le vérifier aisément en traçant votre parcours (voir Trace() ).
S'il y a problème, il faudrait travailler avec un alias (HAlias() ) pour l'ajout.

A mon sens, vous n'êtes pas obligé de passer par HCopiEnreg.
Puisque vous travaillez sur le fichier ACTION en lecture comme en écriture, vous utilisez le même buffer et il vous suffit de modifier l'ID avec de passer à l'ajout.
De toute façon, il me semble qu'il serait plus clair et plus propre de passer par une variable de type Enregistrement, disponible depuis WD19.

Bon travail,

Hemgé

[Lo²]

Bonjour,

Je plussoie totalement Hemgé sur l'utilisation de la variable Enregistrement.

[JayFloyd]

Je me doute bien de ce que c'est.

Ma question est (était) : (lorsque tu mets un point d'arrêt,) c'est bien la valeur de la gamme vierge qui est affichée ?

oui absolument c'est bien l'id de la gamme vierge, j'ai bien vérifié

[JayFloyd]

Bonjour,

Pourriez-vous exposer plus clairement ce qui "ne marche pas" ?

Tout d'abord, je suppose que vous avez vérifié que COL_ProceduresGlobales_Gammes.gnID_gamme_copie contient bien la valeur attendue.

Par ailleurs, avec la réserve que je n'utilise pas HFSQL et donc sous la supervision de ceux qui en ont l'expérience :

Vous lisez un enregistrement du fichier ACTION et vous réécrivez dans ce fichier ACTION, en y ajoutant un enregistrement qui partage les mêmes index, dont votre clé de parcours.
Est-ce que cela ne perturbe pas votre parcours de lecture ?
Vous pouvez le vérifier aisément en traçant votre parcours (voir Trace() ).
S'il y a problème, il faudrait travailler avec un alias (HAlias() ) pour l'ajout.

A mon sens, vous n'êtes pas obligé de passer par HCopiEnreg.
Puisque vous travaillez sur le fichier ACTION en lecture comme en écriture, vous utilisez le même buffer et il vous suffit de modifier l'ID avec de passer à l'ajout.
De toute façon, il me semble qu'il serait plus clair et plus propre de passer par une variable de type Enregistrement, disponible depuis WD19.

Bon travail,

Hemgé

Effectivement je pense que le parcours est perturbé, je ne trace pas dans la boucle, il n'y a rien, si je trace sous hlitrecherche j'ai une action qui arrive je pense aléatoirement une action de la gamme a copier.
Je vais voir en passant par un alias

[Lo²]

Pour information, dans l'aide de HAjoute(..), il est indiqué :

Code :

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

L'enregistrement ajouté devient l'enregistrement en cours. L'identifiant automatique est automatiquement renseigné. Par défaut, le parcours en cours n'est pas affecté.

J'ai un gros doute sur le fait que la parcours en cours ne soit pas affecté.
Ce que je me dis sur la vie de ta boucle est donc :
- Lecture d'un enregistrement
- Copie de l'enregistrement
- Modification d'une valeur
- Ajout du nouvel enregistrement

j'y vois plusieurs problèmes potentiels :
- L'exemple de HCopieEnreg() prend un fichier destination différent du fichier source. Ce n'est pas le cas pour toi, tu boucles et ajoute sur le même fichier.
- HCopieEnreg() copie l'enregistrement en cours de lecture (en mémoire) dans l'enregistrement en cours du fichier lu. Je ne suis pas certain du résultat étant donné que les fichiers sont identiques.
- Après le HAjoute(), c'est l'enregistrement qui vient d'être ajouté qui est l'enregistrement en cours, et donc le HLitSuivant() se base sur lui, à mon avis (non certain d'où mon doute sur le parcours non affecté). L'enregistrement suivant est-il bien celui qui aurait être dans le cas d'un bouclage classique sans manipulation de données ?

La solution la plus simple et propre à mon avis, c'est de passer par la variable Enregistrement et par un tableau, ce qui donnerait :
- Lecture d'un enregistrement
- Copie de l'enregistrement dans la variable Enregistrement
- Modification d'une valeur de la variable Enregistrement
- Ajout de la variable Enregistrement dans un tableau

Ensuite tu parcours le tableau d'enregistrement pour faire un HAjoute(..) tranquillement.

Ou alorsautre solution, au lieu de parcourir ton fichier, tu le parcours via une requête, qui ne sera pas perturbée par le HAjoute(..) de la boucle.

[tbc92]

J'étais complètement aligné avec Hemgé, mais en relisant la doc sur Hajoute(), il semblerait que par défaut, Hajoute() ne perturbe pas les lectures. Peut être que la doc est erronée.

En tout cas, comme les autres intervenants, je ne vois pas du tout l'intérêt de la ligne HcopieEnreg(), si c'est pour copier un enregistrement sur lui-même.

[JayFloyd]

J'étais complètement aligné avec Hemgé, mais en relisant la doc sur Hajoute(), il semblerait que par défaut, Hajoute() ne perturbe pas les lectures. Peut être que la doc est erronée.

En tout cas, comme les autres intervenants, je ne vois pas du tout l'intérêt de la ligne HcopieEnreg(), si c'est pour copier un enregistrement sur lui-même.

Bon j'ai essayé avec une vaiable enregistrement mais sans grand succes.
J'avait une erreur sur le renvoie de la valeur de zone sélect que j'ai corrigé.
Mais je n'ai toujours pas de nouveaux enregistrement ACTION

Grr
voila mon code

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
ZoneRépétéeSelect(ZR_Gamme)
COL_ProceduresGlobales_Gammes.gnID_gamme_copie=ATT_ID_Gamme
 
EnregAction est un Enregistrement de ACTION
 
HLitRecherchePremier(ACTION,GAMME_IDGAMME,COL_ProceduresGlobales_Gammes.gnID_gamme_copie)
 
TANTQUE HEnDehors(ACTION)=Faux
 
	EnregAction.ACTION_FREQ=ACTION.ACTION_FREQ
	EnregAction.ACTION_FREQATOUSLES=ACTION.ACTION_FREQATOUSLES
	EnregAction.ACTION_LIBMEMO=ACTION.ACTION_LIBMEMO
	EnregAction.ACTION_ORDRE=ACTION.ACTION_ORDRE
	EnregAction.GAMME_IDGAMME=COL_ProceduresGlobales_Gammes.gnID_gamme
	EnregAction.IDDOMAINE=ACTION.IDDOMAINE
 
	ACTION=EnregAction
	HAjoute(ACTION,EnregAction)
 
	HLitSuivant(ACTION,GAMME_IDGAMME)
	FIN

[Lo²]

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
ZoneRépétéeSelect(ZR_Gamme)
COL_ProceduresGlobales_Gammes.gnID_gamme_copie=ATT_ID_Gamme

EnregAction est un Enregistrement de ACTION

HLitRecherchePremier(ACTION,GAMME_IDGAMME,COL_ProceduresGlobales_Gammes.gnID_gamme_copie)

TANTQUE HEnDehors(ACTION)=Faux
	
	EnregAction = ACTION

        HRAZ(ACTION)
	ACTION=EnregAction
	HAjoute(ACTION,EnregAction)
	
	HLitSuivant(ACTION,GAMME_IDGAMME)
	FIN

J'ai modifié ton code :
- tu n'es pas obligé de lister chaque rubrique de l'enregistrement pour mettre la valeur dans la variable Enregistrement, autrement l'intérêt serait moindre ^^
- HRAZ() pour vider totalement le contenu en mémoire de l'enregistrement lu
- la suppression d'une ligne inutile et source d'erreur

Edith : Je ne suis pas certain de l'utilité du HRAZ() après ma relecture.

[JayFloyd]

J'ai modifié ton code :
- tu n'es pas obligé de lister chaque rubrique de l'enregistrement pour mettre la valeur dans la variable Enregistrement, autrement l'intérêt serait moindre ^^
- HRAZ() pour vider totalement le contenu en mémoire de l'enregistrement lu
- la suppression d'une ligne inutile et source d'erreur

Edith : Je ne suis pas certain de l'utilité du HRAZ() après ma relecture.

J'en suis arrivé au même résultat entre temps

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
ZoneRépétéeSelect(ZR_Gamme)
COL_ProceduresGlobales_Gammes.gnID_gamme_copie=ATT_ID_Gamme
 
EnregAction est un Enregistrement de ACTION
 
HLitRecherchePremier(ACTION,GAMME_IDGAMME,COL_ProceduresGlobales_Gammes.gnID_gamme_copie)
 
TANTQUE HEnDehors(ACTION)=Faux
	EnregAction=ACTION
 
	EnregAction.GAMME_IDGAMME=COL_ProceduresGlobales_Gammes.gnID_gamme
 
Trace(EnregAction.ACTION_LIBMEMO)
	HRAZ(ACTION)
	HAjoute(ACTION,EnregAction)
 
	HLitSuivant(ACTION,GAMME_IDGAMME)
	FIN

par contre je ne rentre pas dans ma boucle il n'y a pas de trace, je comprends pas....

et a propos dans votre code vous ne renseignez pas le nouvel ID de la gamme vierge. j'ai rajouté
EnregAction.GAMME_IDGAMME=COL_ProceduresGlobales_Gammes.gnID_gamme

mais sans succes

[Lo²]

N'oublie pas la balise # pour le code.

Après un HLitRecherchePremier(..) généralement je fais un test avec HTrouve() histoire d'être certain d'avoir un résultat.
Un ajout du test et un debug pas-à-pas donnent quoi ?

edit : En effet, j'avais oublié la modification de valeur mais tu l'as vu

[frenchsting]

Tu as un HRAZ(ACTION) juste avant le hajoute : ton ACTION est donc "vide".

Pour faire un déroulé pas à pas : juste avant de cliquer sur le bouton qui lance ton code, appuie sur contrôle + pause, puis pas à pas avec F7.

[JayFloyd]

Tu as un HRAZ(ACTION) juste avant le hajoute : ton ACTION est donc "vide".

Pour faire un déroulé pas à pas : juste avant de cliquer sur le bouton qui lance ton code, appuie sur contrôle + pause, puis pas à pas avec F7.

Bon j'ai supprimé le hraz, et fait défillé pas a pas, je trouve qu'une action avec htrouve=faux, je ne vois pas pourquoi j'ai dix valeurs exactement sur le meme format et je devrais etre a vrai sur htrouvre.
Donc je ne rentre pas dans ma boucle, peut etre un PB sur Hlitrecherchepremier
sur la doc il font avec HLitPremier(...
Je vais essayer en rajoutant un hfiltre a hlitpremier

[frenchsting]

Si tu survoles (avec ta souris) la ligne de code en mode pas à pas, tu peux connaître la valeur de COL_ProceduresGlobales_Gammes.gnID_gamme_copie.

Si elle est correcte, vérifie que tu n'as pas un pb de type de variable/rubrique.

[JayFloyd]

Bon ça y est le code précedent était bon.
Le problème venait d'un filtre de recherche précédente qui tronquait les données.
Un petit coup de hdesactivefiltre aprés l'affichage de ma zone répétée a suffit.
Donc mon code final sera

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
ZoneRépétéeSelect(ZR_Gamme)
COL_ProceduresGlobales_Gammes.gnID_gamme_copie=ATT_ID_Gamme
 
EnregAction est un Enregistrement de ACTION
// Recherche du premier élément
HLitRecherchePremier(ACTION,GAMME_IDGAMME,COL_ProceduresGlobales_Gammes.gnID_gamme_copie)
 
TANTQUE HTrouve(ACTION)
	EnregAction=ACTION
	EnregAction.GAMME_IDGAMME=COL_ProceduresGlobales_Gammes.gnID_gamme
	HAjoute(ACTION,EnregAction)
		HLitSuivant(ACTION,GAMME_IDGAMME)
	FIN

Merci à tous

[dsr57]

Bonjour

Ne pas oublier le Tag RESOLU

Bon dev

[Hemgé]

Bonsoir,

Je constate que JayFloyd a écopé d'un vote négatif pour sa dernière intervention.

Ceci, alors que de manière tout à fait correcte et dans l'esprit d'un forum d'entraide, il revenait vers nous pour
1. nous remercier
2. expliquer l'origine de son problème
3. nous communiquer le code définitif correct, qui pourra donc être utile à tout autre lecteur.
Ce dont je le remercie.

Puis-je rappeler que le vote négatif ne constitue pas un moyen de sanctionner ou d'exprimer un état d'âme.
La bulle d'aide précise le contexte : inutile, faux, pas d'accord, ...
Je ne comprend dès lors pas la motivation du censeur.

La bulle d'aide du vote positif précise elle aussi son contexte : pertinent, utile, je confirme, ...
Je gratifie donc la correction et la convivialité de JayFloyd par un vote positif, tant dans l'absolu (voir mes 3 commentaires supra) que pour 'défaire' ce vote négatif injustifié.

J'en profite pour faire appel aux censeurs masqués et leur demander de participer aux solutions plutôt que de se comporter - trop régulièrement - en tontons flingueurs.
Peut-être les modérateurs pourraient-ils effectuer un rapide contrôle pour voir s'il n'y a pas lieu de rappeler un ou deux acariâtres obstinés à de meilleures pratiques.

Hemgé