Discussion :

[CarineFred]

Bonjour,

Je souhaite copier des enregistrements (du moins un) d'une table hyperfile dans une autre table mais ces 2 tables ne se trouvent pas dans le même répertoire.
De plus, j'aimerais que ces tables aient le même nom.

J'ai imaginé plusieurs possibilités mais sans aboutissement.

Comment puis-je faire ?
Quelqu'un a une idée ?

Merci d'avance de vos aides.

[Jannus]

Il faut lire et stocker les enregistrements, changer de base, écrire les enregistrements.

[Grmmml]

Salut,

De mémoire, pour un fichier TOTO il faut faire du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
// Créer la description pour le fichier dans le deuxieme repertoire
tutu est une source de donnée    // Variable utilisée pour manipuler le 2eme fichier
Halias(TOTO, tutu)    // Définie la même structure que TOTO pour tutu
HChangeNom(tutu, "toto")   // Indique que tutu correspond a un fichier physique TOTO.FIC
hChangeRep(tutu, "le nouveau repertoire)   // Définir le répertoire pysique pour tutu
HCreationSiInnexistant(tutu)   // Créer le fichier si besoins
 
// Copie de toute les ligne
pour tout TOTO
  hcopieenreg(tutu, toto, hCopieIdAuto)
  hajoute(tutu, hFixeIdAuto)
fin

A adapter en fonction de tes besoins.

Bob.

[CarineFred]

J'ai bien écris les instructions (à quelques chose près) comme Grmmml m'a dit (j'avais essayé même avant). Le problème c'est que si je ne change pas de répertoire c'est bon mais dès que je change de répertoire on dirait qu'il n'a plus l'enregistrement à copier en mémoire.
Quelqu'un a une idée ?

[Grmmml]

Sans le bout de code concerné, ca va être difficile de t'aider.

Bob.

[CarineFred]

Voici le 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
22
23
 
        sdSaisieCliCmdOpe est une Source de Données
	HAlias(SaisieCliCmd, sdSaisieCliCmdOpe)
	HChangeNom(SaisieCliCmd, sdSaisieCliCmdOpe)
	//
	//HCréationSiInexistant(SaisieCliOpe)
	// La réservation est possible.
	// Copie des lignes sélectionnées dans la table 'SaisieCliCmd' dans le répertoire de l'opérateur.
	//HChangeRep(SaisieCliCmd, gsRepertoireEnCours+"\"+gsPersonneSaisie)
	POUR TOUTE LIGNE DE TABLE_ListeCmd
		SI TABLE_ListeCmd.COL_Reservation = 1 ALORS
			// Ligne du tableau est coché alors copie de la ligne dans la table 'SaisieCliCmd' de l'opérateur.
			HLitPremier(SaisieCliCmd,NumEnr)
			SI HTrouve(SaisieCliCmd) = Vrai ALORS
				// On copie la ligne dans la table SaisieCliCmd
				HChangeRep("*", gsRepertoireEnCours+"\"+gsPersonneSaisie)
				HCopieEnreg(sdSaisieCliCmdOpe,SaisieCliCmd)
				HAjoute(sdSaisieCliCmdOpe)
				//HChangeRep("*", gsRepertoireEnCours)
			FIN
 
		FIN
	FIN

[Grmmml]

Tout d'abord, je t'incite fortement à tester tous les codes retour des appels de fonction. Je ne l'avais pas fait dans mon exmple pour plus de simplicité/clarté.

Je penses que ton code devrait être quelques chose comme

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
 
        sdSaisieCliCmdOpe est une Source de Données
	HAlias(SaisieCliCmd, sdSaisieCliCmdOpe)
	HChangeNom(sdSaisieCliCmdOpe, SaisieCliCmd..NomPhysique)
        HChangeRep(sdSaisieCliCmdOpe, gsRepertoireEnCours+"\"+gsPersonneSaisie)
 
	// La réservation est possible.
	// Copie des lignes sélectionnées dans la table 'SaisieCliCmd' dans le répertoire de l'opérateur.
	POUR TOUTE LIGNE DE TABLE_ListeCmd
		SI TABLE_ListeCmd.COL_Reservation = 1 ALORS
			// Ligne du tableau est coché alors copie de la ligne dans la table 'SaisieCliCmd' de l'opérateur.
			HLitPremier(SaisieCliCmd,NumEnr)
			SI HTrouve(SaisieCliCmd) = Vrai ALORS
				HCopieEnreg(sdSaisieCliCmdOpe,SaisieCliCmd)
				HAjoute(sdSaisieCliCmdOpe)
			FIN
 
		FIN
	FIN

Bob.