Passage d'une sous-sous-table a une table liée

Bonjour,
je dois transcrire une base contenant des sous-sous-tables en une base n'en contenant plus (car la v2004 ne les prend plus en compte).

Ma sous-sous-table est la table [ALLOC]ENFANT'PREST ENFT
La nouvelle table liée que jai créée est la table PREST ENFT. Cette table est lié avec la sous-table [ALLOC]ENFANT (PREST ENFT est la table N, [ALLOC]ENFANT est la table 1) et d'autres tables indépendantes.

Jai donc une partie de code qui est celle-ci (sur l'ancienne base):

Code:

---

1 2 3 4 5

tant que (non(Fin sous enregistrement([ALLOC]ENFANTS'PREST ENFT))) ..... SOUS ENREGISTREMENT SUIVANT([ALLOC]ENFANTS'PREST ENFT) fin tant que

---

Je l'ai remplacé par celui-ci qui ne marche pas :

Code:

---

1 2 3 4 5 6 7

TOUT SELECTIONNER([PREST_ENFT]) DEBUT SELECTION Tant que (Non(Fin de selection([PREST_ENFT]))) .... ENREGISTREMENT SUIVANT([PREST_ENFT]) Fin tant que

---

jaimerai savoir quel code il faudrait que je mette pour pouvoir faire une selection identique a celle sur l'ancienne base.

Merci d'avance

je pense que je vais modifiée ma question,

comment est ce que vous feriez pour parcourir un ensemble d'enregistrements contenus dans une table et faire une selection sur ceux qui vous interesse?

Merci d'avance

Bonjour,

Que voulez vous faire exactement ?

Voulez vous imprimer ces enregistrements ? les afficher ?

Pour les sélectionner vous pouvez les adjoindre dans un ensmemble.
Ensemble vide([matable];"$EnsAGarder")

tout selectionner([matable])
tant que (non(fin de selection([matable])))
si (condition de selection validé)
adjoindre element([matable];"$EnsAGarder")
fin de si


liberer enregistrement([matable])
enregistrement suivant([matable])
fin tant que

`La vous pouvez maintenant utiliser l'ensemble(EnsAGarder)
et faire des traitements particuliers en bouclant sur tous les enregistrements de l'ensemble

Citation:

---

Envoyé par CGareau

Bonjour,

Que voulez vous faire exactement ?

Voulez vous imprimer ces enregistrements ? les afficher ?

---

Jaimerai faire un traitement sur ces enregistrement, pas d'affichage ni d'impression.

Plus precisement, voici le code de traitement a l'interieur du tant que:

Ancienne base :

Code:

---

1 2 3 4 5

tant que (non(Fin sous enregistrement([ALLOC]ENFANTS'PREST ENFT))) VTJ:=VTJ+[PREST_ENFT]Nb Jour Part CE SOUS ENREGISTREMENT SUIVANT([ALLOC]ENFANTS'PREST ENFT) fin tant que

---

Nouvelle base :

Code:

---

1 2 3 4 5 6 7

TOUT SELECTIONNER([PREST_ENFT]) DEBUT SELECTION Tant que (Non(Fin de selection([PREST_ENFT]))) VTJ:=VTJ+[PREST_ENFT]Nb Jour Part CE ENREGISTREMENT SUIVANT([PREST_ENFT]) Fin tant que

---

Il s'agit juste d'un traitement que je fais sur un champ. Pour cela je dois parcourir tous les enregistrements de la table.

Bonjour,

Vous avez oublié de préciser le nom de la table avec la commande DEBUT SELECTION :

Code:

---

DEBUT SELECTION([PREST_ENFT])

---

En fait le probleme est celui ci:

qd je suis dans le formulaire de saisie, dès que je rentre un champ et que je valide, il y a un traitement et puis tous les autres champs se mettent a 0.

En isolant le probleme, jai pu determiner d'ou il venait, et il vient de ce bout de code et plus precisement du "TOUT SELECTIONNER" qui met en memoire le premier enregistrement et fait le traitement sur tous les autres enregistrements.
Mais a la fin du traitement, il garde les valeurs du dernier enregistrement et les inscrit dans les champs du formulaire de saisie.
donc ici en l'occurence, le dernier enregistrement possede ts les champs a 0.

Jaimerai bien faire le traitement sans que les valeurs que jai inscrites dans les champs soit modifiées.

OK.
En effet lorsque vous faites votre traitement, vous perdez votre sélection courante.
Avez vous besoin de ce traitement lors de la saisie de vos champs ?
Pourquoi ne faites vous pas votre traitement au moment où vous validez le formulaire, après que votre enregistrement soit sauvegardé ?

oui jai besoin de faire ce traitement pendnat la saisie (malheureusement:? ) il doit etre fait de maniere dynamique au cas ou il y ait une condition qui ne soit pas respecté.

jai essayer, de maniere très "moche" du point de vue programmation, de sauvegarder les champs dans des variables locales, faire le traitement, et ensuite restituer les variables aux champs en questions. Le probleme c'est que ca ne marche tjs pas.

Code:

---

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

$code:=[PREST_ENFT]Code $discipline:=[PREST_ENFT]Discipline $nbjours:=[PREST_ENFT]Nbre de jours $nbjourspartCE:=[PREST_ENFT]Nb Jour Part CE $depengagee:=[PREST_ENFT]Dép Engagée $date:=[PREST_ENFT]Date $montantprest:=[PREST_ENFT]Montant Prest $libelle:=[PREST_ENFT]Libellé $arrhe:=[PREST_ENFT]Arrhes $reglement:=[PREST_ENFT]Réglt à effect $numpiece:=[PREST_ENFT]N° Pièce $ordrede:=[PREST_ENFT]A l ordre de   CHERCHER([PREST_ENFT];[PREST_ENFT]Code="30";*) CHERCHER([PREST_ENFT];*&*;[PREST_ENFT]Marqueur#1) VTJ:=0     TOUT SELECTIONNER([PREST_ENFT]) DEBUT SELECTION([PREST_ENFT]) Tant que (Non(Fin de selection([PREST_ENFT]))) VTJ:=VTJ+[PREST_ENFT]Nb Jour Part CE ENREGISTREMENT SUIVANT([PREST_ENFT]) Fin tant que TABLE PAR DEFAUT([PREST_ENFT])   [PREST_ENFT]Code:=$code [PREST_ENFT]Discipline:=$discipline [PREST_ENFT]Nbre de jours:=$nbjours [PREST_ENFT]Nb Jour Part CE:=$nbjourspartCE [PREST_ENFT]Dép Engagée:=$depengagee [PREST_ENFT]Date:=$date [PREST_ENFT]Montant Prest:=$montantprest [PREST_ENFT]Libellé:=$libelle [PREST_ENFT]Arrhes:=$arrhe [PREST_ENFT]Réglt à effect:=$reglement [PREST_ENFT]N° Pièce:=$numpiece [PREST_ENFT]A l ordre de:=$ordrede

---

Qu'en pense tu?

Sinon je vais essayer de faire le traitement lors de la validation du formulaire.

La commande TABLE PAR DEFAUT([PREST ENFT]) ne sert a rien. Jai oublié de l'enlever.

Bonjour,

Pourquoi faites vous un CHERCHER si après vous faites un TOUT SELECTIONNER ?

Dans votre traitement vous incrémentez une variable et non un champ. Je vous conseil donc d'éxécuter votre script à la fin de votre formulaire.


Si vous persistez dans votre choix je vous conseil de remplacer vos champs par des variables et votre script par celui-ci :

Code:

---

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

VTJ:=0     TOUT SELECTIONNER([PREST_ENFT]) DEBUT SELECTION([PREST_ENFT]) Tant que (Non(Fin de selection([PREST_ENFT]))) VTJ:=VTJ+$nbjourspartCE ENREGISTREMENT SUIVANT([PREST_ENFT]) Fin tant que   CREER ENREGISTREMENT([PREST_ENFT])   [PREST_ENFT]Code:=$code [PREST_ENFT]Discipline:=$discipline [PREST_ENFT]Nbre de jours:=$nbjours [PREST_ENFT]Nb Jour Part CE:=$nbjourspartCE [PREST_ENFT]Dép Engagée:=$depengagee [PREST_ENFT]Date:=$date [PREST_ENFT]Montant Prest:=$montantprest [PREST_ENFT]Libellé:=$libelle [PREST_ENFT]Arrhes:=$arrhe [PREST_ENFT]Réglt à effect:=$reglement [PREST_ENFT]N° Pièce:=$numpiece [PREST_ENFT]A l ordre de:=$ordrede   STOCKER ENREGISTREMENT([PREST_ENFT])

---

Cordialement

Le code ne vient pas de moi, je ne le connait donc pas tres bien. C'est vrai que le TOUT SELECTIONNER apres le CHERCHER ne sert a rien.

Le code que j'ai afficher n'est qu'un problème que je rencontre et que j'essaie de régler.

Le gros du probleme, c'est arriver a trouver le code qui remplacerai le traitement fait en v6.5 qui est celui ci :

Code:

---

1 2 3 4

tant que (non(Fin sous enregistrement([ALLOC]ENFANTS'PREST ENFT))) VTJ:=VTJ+[PREST_ENFT]Nb Jour Part CE SOUS ENREGISTREMENT SUIVANT([ALLOC]ENFANTS'PREST ENFT) fin tant que

---

j'essaie de trouver le code qui remplacerai le tant que fait sur la sous-sous-table.

Bonjour,

Vous pouvez remplacer votre traitement par celui-ci :

Code:

---

1 2 3 4 5

Tant que (Non(Fin de selection([PREST_ENFT]))) VTJ:=VTJ+$nbjourspartCE ENREGISTREMENT SUIVANT([PREST_ENFT]) Fin tant que

---

Cordialement

Javais deja essayé ce code mais en fait, qd je saisie des informations sur un formulaire, le traitement que je fais a la fin se fait sur tous les enregistrements et donc supprime la selection courante c-a-d les valeurs que javais saisies. Et je n'arrive pas a retrouver ces valeurs sauf si je les sauvegarde auparavent dans des variables locales et que je les restituent a la fin du traitement.

C'est pour cela que je voulais savoir sil existe un code generique qui me permettait de faire cela, ou sinon une maniere de sauvegarder l'enregistrement courant.

Je vous renvoie alors vers le code de mon précedent message !

La manière la plus simple étant de remplacer vos champs par des variables. Ainsi les valeurs ne seront enregistrées dans la table qu'au moment de la validation et vous pourrez effectuer tous les traitements pendant la saisie sans aucun problème.

Merci bcp pour votre reponse, ca marche mieux maintenant