Discussion :

[ARNAUD ZIRIPE]

Bonsoir chers tous.
Cela fait un bon moment que je ne suis plus apparu dans le forum. Occupations de travail oblige.
J'ai une préoccupation que je voudrais vous soumettre car j'ai besoin d'aide.
j'ai installé en local sur un poste mon logiciel et des données ont été saisies. J'ai installé le même logiciel sur un autre poste et je souhaiterais y transférer les données saisies via une clé USB. J'ai copié le dossier du disque "C" du premier poste pour le coller dans le second mais ça ne marche. Comment faire?

[Voroltinquo]

Bonjour, regarde du côté de la réplication

[tbc92]

Tu as différents fichiers, par exemple un fichier Factures.FIC
Sur le nouveau poste, via l'explorateur windows, recherche TOUS les fichiers qui s'appellent factures.fic.
Je pense que tu vas en trouver 2.
Un fichier qui est celui que tu as copié, qui est dans un répertoire R1.
Et un autre, dans un autre répertoire R2.
Et le programme, pour je ne sais quelle raison, il utilise celui du répertoire R2.
Donc tu copies le fichier correct dans le bon répertoire.
Et évidemment, ce qu'il faut copier, c'est tous les fichiers.

Et sinon, pour éviter ces difficultés, tu aurais pu gérer cela dans ton programme, et la fonction magique, c'est hGereRep().

[frenchsting]

Bonjour,

c'est ce que j'allais répondre : hchangeRep() est ton ami

[ARNAUD ZIRIPE]

Merci à tous pour votre aide.
Jai saisie ce code dans un bouton de sauvegarde

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
sDatesauv est une chaîne
sDatesauv=DateVersChaîne(DateDuJour,"jj_mm_aaaa")
bRepertoire est un booléen
sSel est une chaîne
 
SI OuiNon(Oui,"Voulez-vous vraiment sauvegarder les données") ALORS
	//Source est une chaine = fRepExe()
	sSel= fRepSélecteur(" ","Sélectionner un repertoire.....", "Sélectionner un repertoire")
	SI sSel <>"" ALORS
 
			bRepertoire=fCopieFichier(fRepEnCours()+ "\DATA\*.* ",sSel + " \sauvegarde du" +" " + sDatesauv,frRécursif)
 
			Info("Sauvegarde effectuée avec succès.")
		SINON 
			Info("La sauvegarde a échoué.")
		FIN
	FIN

et cet autre code dans la fin d'initiation de la fenêtre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
FEN_Principale..Plan=1
 
HLitDernier(Etablissement)
LIB_nometable=Etablissement.Nom
LIB_site="Site :"+" "+Etablissement.Site+"    "+"Email:"+" "+Etablissement.Email
//IMG_SansNom5=Etablissement.Logo
TimerSys(MiseAheure,100,1)
 
SI Facture_Produit..NouvelEnregistrement ALORS
	SAI_N_Facture=HeureVersChaîne(HeureSys(),"MMSSCC")
FIN

mais un message d'erreur s'affiche me disant qu'il est impossible de créer le répertoire de sauvegarde. Que faire?

[Voroltinquo]

...je souhaiterais y transférer les données saisies via une clé USB.

Où se trouve l'accès à ta clé USB dans ton code ?

[Jon Shannow]

Quelle ligne de ton code fait apparaître l'erreur.
Si tu ne nous donnes aucun détail, il est impossible de t'aider.

[frenchsting]

Bonjour,

Remarques auxquelles j'ajouterais que :
- premier code : Tu ne nous dis pas si le fcopiefichier() a fonctionné et si tous les fichiers sont bien présents.
- deuxième code : Tu commences par lire un enregistrement et afficher une de ses rubriques. Tu ne montres pas à quel endroit tu souhaites faire ton changement de base

[ARNAUD ZIRIPE]

Bonjour chers tous.
Vue que c'était compliqué d'aller directement à la clé USB, j'ai décidé de faire une sauvegarde de la base de donnée su le bureau et c'est cette base que je vais ensuite récupérer pour l'utiliser sur le second poste ave une restauration.

l'erreur se trouve à ce niveau

Code :

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

bRepertoire=fCopieFichier(fRepEnCours()+ "\DATA\*.* ",sSel + " \sauvegarde du" +" " + sDatesauv,frRécursif)

Voici le message d'erreur

Erreur à la ligne 11 du traitement Sélection du menu de _Menu.OPT_Base_de_données.OPT_Sauvegarder.
Vous avez appelé la fonction fCopieFichier.
Impossible de créer le répertoire <C:\Users\ZIRIPE\Desktop \sauvegarde du 09_10_2024>.

Détail de l'erreur système :

Le chemin d’accès spécifié est introuvable.
(3)

----- Informations techniques -----

Projet : facture

Appel WL :
Traitement de 'Sélection du menu de _Menu.OPT_Base_de_données.OPT_Sauvegarder' (FEN_Principale._Menu.OPT_Base_de_données.OPT_Sauvegarder), ligne 11, thread 0
Fonction 'fCopieFichier', syntaxe 1

Que s'est-il passé ?
Impossible de créer le répertoire <C:\Users\ZIRIPE\Desktop \sauvegarde du 09_10_2024>.

Code erreur : 0
Niveau : erreur fatale (EL_FATAL)

Code d'erreur système : 3
Message d'erreur système :
Le chemin d’accès spécifié est introuvable.

Dump de l'erreur du module 'wd200std.dll' (20.0.117.0).
Informations de débogage :
Fonction (8,183)
Informations supplémentaires :
EIT_SRCFILE : <C:\Users\ZIRIPE\Desktop \sauvegarde du 09_10_2024>
EIT_PILEWL :
Sélection du menu de _Menu.OPT_Base_de_données.OPT_Sauvegarder (FEN_Principale._Menu.OPT_Base_de_données.OPT_Sauvegarder), ligne 11
EIT_DATEHEURE : 09/10/2024 07:54:06

[frenchsting]

L'erreur est que tu as un espace avant le "" et qui ne doit pas exister :

Code :

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

" \sauvegarde du" => "\sauvegarde du"

[Voroltinquo]

Ne serait il pas logique de récupérer/enregistrer les données dans fRepDonnées. Cela éviterait bien des soucis

[ARNAUD ZIRIPE]

Bonjour chers tous.
frenchsting, j'ai supprimer les espace mais c'est toujours le même message d'erreur.
Voroltinquo, je ne saisie pas bien ce que tu veux dire.

[Voroltinquo]

Les données qui vont transiter, via ta clé USB, sont issues du répertoire de données du poste A et vont se retrouver vers le répertoire de données du poste B. Autant utiliser fRepDonnées plutôt que de coder le chemin en semi dur. Cela évitera bien des problèmes si l'utilisateur à choisi un autre répertoire de données lors de l'install

[frenchsting]

+1 volroltinquo

Autres espaces générateurs d'erreur trouvés... Ecris plutôt qq chose comme ceci :

Code :

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

bRepertoire=fCopieFichier(completerep(fRepEnCours())+ "DATA\*.*", completerep(sSel) + "sauvegarde du " + sDatesauv, frRécursif)

En espérant que les valeurs de ssel, SdateSauve soient correctes.
Pas sûr que le frrecusrif soit utile (de toute façon, il est activé par défaut)

Dernier point : bRepertoire comme nom de variable, résultat du fcopiefichier, je ne trouve pas ça top comme nom...

[ARNAUD ZIRIPE]

frenchsting avec la correction du code que tu m'as proposé, ça marche sauf que le dossier de sauvegarde généré est vide.

[frenchsting]

3 choses :
- Tu ne testes pas la valeur de brépertoire
- Tu ne traites pas, le cas échéant, l'erreur qui aurait été détectées
- Le plus important, à mon avis, HcopieFichier est plus adapté pour la copie de fichiers HF

[serendib]

frenchsting avec la correction du code que tu m'as proposé, ça marche sauf que le dossier de sauvegarde généré est vide.

Donc ça marche pas

[frenchsting]

Donc ça marche pas

Moi, j'aimerais bien que tout le monde soit content juste parce que mes programmes ne crashent pas (et qu'on se cogne de ce que ça fait )

[Voroltinquo]

3 choses :
...
- Le plus important, à mon avis, HcopieFichier est plus adapté pour la copie de fichiers HF

Le problème de HCopieFichier est qu'il est théoriquement réservé au C/S. Qui plus est créer une pseudo connexion sur une Clé USB obligerait à sauvegarder le WDA sur cette clé.

[frenchsting]

Oui, mais comme il n'est pas précisé le type de SGDB utilisé, j'émets cette idée.

J'avoue qu'essayer de faire un fcopiefichier sur des fichiers HF ouverts (et encore plus si c'est du HFCS), c'est pas gagné...