Discussion :

[xavier.ninane]

Bonjour,

Je mets en place la copie de plusieurs fichiers (typiquement, une clôture comptable). Pour ce faire, je parcours en boucle un tableau qui contient les fichiers .fic concernés. Les connexions, répertoire de destination et source sont contenus dans des variables :

Code :

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

1
2
3
4
5
    POUR TOUT lsaFichier DE ltabTableauFic
                     SI HCopieFichier(gcnxConnexionServer,lsaRepDestination + lsaFichier,gcnxConnexionServer,lsaRepRacinesSource + lsaFichier,hCopieIndex) ALORS
                      lblCopieRéussie = Vrai
                     FIN
        FIN

Si j'utilise cette ligne de code avec la constante hCopieIndex ou la constante hSansIndex, pas de soucis : la copie se passe bien.

Par contre, la constante hCréeIndex me renvoie systématiquement un message d'erreur du type
"Que s'est-il passé ?
Erreur renvoyée par le serveur <w8-fixe:4900> :
Impossible d'écrire dans le fichier <BD\4\Compta\ecriture.fic>.

Code erreur : 70152
Niveau : erreur fatale (EL_FATAL)
Code erreur WD55 : 152

Message d'erreur système :
Accès refusé."

Ce qui m'interpelle, c'est que cette erreur fait allusion au fichier source ?!?
Pourquoi la fonction de copie doit avoir accès (et écrire sur) au fichier source ?

Et, cerise sur le gâteau, malgré le message d'erreur, le .fic est bien copié, mais sans index (ou index corrompu), et les index du fichier source sont eux aussi corrompus ?!?

Quelqu'un a une idée de ce qui se passe ? Est-ce que j'ai loupé une "subtilité" ?
L'aide précise pour hCréeIndex : "Le ou les index du fichier de données ne sont pas copiés (fichier NDX et fichier FTX s'il existe). Ils sont automatiquement re-créés sur la destination par ré-indexation.
Si le fichier de données est protégé par mot de passe, le paramètre <Mot de passe> doit être spécifié."

J'avoue ne vraiment pas comprendre...

D'avance merci.

Cordialement.

[guiwi]

Bonjour, peut être que le problème vient d'une connexion ouverte sur la BDD.
Essayez Hdeconnecte avant votre hcopiefichier pour vérifier que ca ne provient pas de la.

[frenchsting]

S'il se déconnecte, il n'aura plus accès à la base (HcopieFichier est une fonction Hxxxx).

Ne serait-ce pas une histoire d'intégrité ?

Pour tester cela, je ferais un

Code :

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

1
2
3
hgereintégrité(xxx,faux)
HcopieFichier(xxx,....,hcopieIndex)
hgereintégrité(xxx,vrai)

Ce n'est pas très propre mais logiquement, mais c'est un test.

Pour être plus "carré", il te reste la possibilité de passer par un alias (halias), et de copier le contenu de ton fichier source vers cet alias.

Tu es en HFCS ou en classic ?

[xavier.ninane]

Concernant une connexion ouverte, la seule qui est ouverte est la mienne, et j'en ai effectivement besoin pour lancer la commande HCopieFichier.
Les fichiers sont par ailleurs libérés.
Donc, je doute que ce soit un problème de connexion.

Concernant l'intégrité, pourquoi pas... Mais ce n'est pas une erreur de violation d'intégrité que le serveur me retourne, mais une erreur d'accès. De plus, l'intégrité se vérifie au moment d'une modification/création d'un enregistrement, or une simple copie ne manipule pas les enregistrement (quoique, venant de PCSoft, je ne sais quel protocole ils utilisent derrière leur fonction HCopieFichier...)

Toujours est-il que je viens de tester l’éventualité d'un problème d'intégrité en collant un HGèreIntégrité(Faux) en début de code et... NADA ! Toujours ce même message d'erreur

Concernant le HAlias : je ne suis absolument pas à l'aise avec ces fonctions. J'ai déjà lu, et relu, et rerelu la doc et j'ai très difficile à appréhender le concept. Ça reste pour moi une des plus grandes nébuleuses de l'univers Windev...

Je suis en C/S.

Si une âme charitable pouvait faire un simple test chez lui, histoire d'évacuer l'éventualité d'un bug chez PCSoft : il me semble anormal que cette fonction touche aux index du fichier d'origine. (et y foute une mélasse sans nom)
Je ferai également un test sur un autre projet.

[xavier.ninane]

Testé sur un autre projet : rigoureusement le même message d'erreurs

[Lo²]

Hello,

Histoire de te rassurer, je viens d'effectuer un test et je rencontre le même message ^^
Plus de précision :
- Si je ferme la connexion en cours, j'ai le message
- Si je ne ferme pas la connexion, le fichier de copie est créé mais mon serveur C/S ne trouve pas de ndx correspondant


Question : Pourquoi souhaites-tu copier sans les index ? C'est pour une histoire de durée ?

[xavier.ninane]

@Lo²

De fait, il y avait cet aspect "durée", mais aussi l'intérêt de recréer les index (j'ai remarqué que même en réindexant, les fichiers d'index avaient une fâcheuse tendance à l'embonpoint).
L'idée était également de copier ces fichiers, recréer ces index, et sortir ces fichiers de toute maintenance future de la base : ils reflètent une situation qui est figée, on n'écrira plus dedans.

Et puis, ça c'est mon côté un peu obstiné : j'aime pas quand ça me résiste, j'aime comprendre...

Je vais attendre encore peu, histoire de voir si un 3e larron rencontre également le problème, et je vais de toute façon faire remonter vers PCSoft.

[guiwi]

Avez vous essayer ce code ci dessous :
HClient.Base = NomBDD
HDeconnecteClient(connexionBDD,"Deco",30)
// la suite du code

Et non hdeconnecteclient ne déconnecte pas le poste qui déclenche la commande (enfin pas en windev19)

Si ce n'est pas ca, regardez du coté de l'utilisateur qui accède à la base. Si ce n'est pas "admin", vérifiez qu'il possède bien tous les droits sur la base de données mais ca m'etonnerait que ca soit cela.

[xavier.ninane]

Je répète que je suis le seul à me connecter à la base. Donc, si HdéconnecteClient ne me déconnecte pas, je ne vois pas l'utilité.

Comme je suis en phase de développement (raison pour laquelle je suis le seul connecté à cette base), je fais mes tests en qualité d'admin.

Cependant, pour évacuer définitivement cette question de connexion : j'ai testé, le message d'erreur est rigoureusement le même.

@Lo² : quand le fichier est copié, sans ses index, et avec le message d'erreur, peux-tu vérifier si tu as également un problème avec le .ndx du fichier source ? Merci.

[Lo²]

confirmé

[frenchsting]

Pour le Halias, je peux te donner un exemple simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
sdIsaFichierDestination est une Source de Données
SI HAlias(IsaFichierExistant, sdIsaFichier)  ALORS // alias = clone
HchangeNom(sdIsaFichier, "IsaFichierNouveau") // on lui donne un beau nom à cet alias
hchangerep(sdIsaFichier, lsaRepDestination) // on se place au bon endroit
hcreation(sdIsaFichier) // on le crée
pour tout IsaFichierExistant // on fait la copie
  hcopieenreg(sdIsaFichier,IsaFichierExistant)
  hajoute(sdIsaFichier)
fin
hannulealias(sdIsaFichier) // suppression de l'alias

Une idée qui me vient : fais tu un hferme("*") avant le hcopiefichier ?

Autre idée : Je pense que le fait d'être en C/S "limite" le hcopiefichier(). Tu ne dois pas avoir le droit (au sens droit utilisateur/programme:windows) de faire ce que tu veux dans le dossier dbb de manta.

[xavier.ninane]

@Frenchsting : je viens d'essayer le HFerme => ça ne fonctionne toujours pas... J'ai fait remonter à PCSoft, je vais voir ce qu'ils disent, et je posterai leur réponse.

Concernant le HAlias, une des étapes que je ne comprends pas, c'est pourquoi il faut faire un HChangeNom.
L'aide de PCSoft est, je trouve, particulièrement mal rédigée pour HAlias et j'ai l'impression que leurs exemples ne sont pas très cohérents, ce qui n'aide pas à capter les concepts sous-jacents.

Et quand je vois le nombre de lignes de codes nécessaires avec HAlias, il faut reconnaître que HCopieFichier est tout de même vachement (10 x ) plus rapide.

Ceci dit, merci de ta tentative pour lever la brume qui entoure cette fonction.

[frenchsting]

Tu es obligé de faire un hchangenom car comme le halias crée un clone du fichier d'origine, il a par définition, le même nom.
Pour être complet, c'est un clone logique et pas physique. C'est pour cela que l'on fait un hchangenom (et éventuellement un hchangerep). Le hcreation permet de passer à la forme physique (vive le sport ).

Je pense qu'au départ, les performances de HF étant limitées, cette fonction a été créée pour pouvoir faire de l'archivage (càd, vider les fichiers de travail).

[xavier.ninane]

@ Lo²

Salut.

Le support technique de PCSoft n'est pas arrivé à reproduire le problème (et ne m'a guère aidé, si ce n'est en me disant que le problème résidait dans mon projet, et bla, et bla, et bla)

Comme tu as aussi rencontré ce soucis, et que je l'ai reproduit dans un autre projet, je me suis dit "Y a certainement qqch. qui déconne, mais où ?"

J'ai donc créé un projet, à partir de rien, pour tenter de reproduire l'incident et l'envoyer au support technique.

Et... Plus d'incident dans ce nouveau projet. A devenir dingue

Je cherche pourquoi : j'ai importé mes descriptions de fichier, j'ai importé la procédure. Bref, tout à l'identique.
Sauf un hCréationSiInexistant que j'avais placé à l'initialisation.

Et donc : la fonction fonctionne parfaitement (avec la constante hCréeIndex) en utilisant préalablement un hOuvre ou un hCréationSiInexistant.

Peux-tu refaire un petit test chez toi, et me confirmer la chose ?

Merci.

[Lo²]

Hello,

Avec un HOuvre(..) sur le fichier source, la copie s'effectue mais l'index est corrompu.

Le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
HOuvre(monFichierCS)
 
MaConnexionCopie est une Connexion
MaConnexionCopie..Provider = MaConnexion..Provider
MaConnexionCopie..Utilisateur = MaConnexion..Utilisateur
MaConnexionCopie..MotDePasse = ""
MaConnexionCopie..Serveur = MaConnexion..Serveur
MaConnexionCopie..BaseDeDonnées = MaConnexion..BaseDeDonnées + "Copie"
 
SI PAS HCopieFichier(MaConnexionCopie, ".\monFichierCSCopie.fic", MaConnexion, ".\monFichierCS.fic", hCréeIndex) ALORS
	Erreur(HErreurInfo(hErrComplet))
FIN