je suis en wd15 et serveur 2008

Dans une procedure stoke sur le serveur hfcs

en mode test, j'applique ma procedure stoke en mode test a partir de l'analyse
il cree le repertoire Trace sur le disque du serveur
cree la trace sur le poste client , la trace est ok
mais n'enregistre pas sur le serveur2008 le fichier txt et il ne le cree meme pas le fichier


sur le poste client j'ai fait le test en mode local ,en creant un bouton,le tout marche bien
cree le repertoire sur le disque local
cree la trace
cree et enregistre le fichier txt


voici le code de la procedure stocke sur le serveur hfcs

/////////////////////////////////
// declaration des fichiers en externes

SI PAS HDéclareExterne("Prix.fic" ,"Prix") ALORS
// Erreur de déclaration du fichier
RENVOYER HErreurInfo()
FIN

SI PAS HDéclareExterne("Myclient.fic" ,"Myclient") ALORS
// Erreur de déclaration du fichier
RENVOYER HErreurInfo()
FIN
////////////////////////

AugmentationIndex est un monétaire
AugmentationIndex2 est un monétaire


/////////////// creation et verification de l'existence du repertoire trace //////////
/////////////// sur les disque du serveur 2008 /////////

MonRépertoire est une chaîne = "C:\Trace\"
SI fRépertoireExiste(MonRépertoire) ALORS
// Info("Le répertoire "+ MonRépertoire +" existe bien sur le disque")

SINON
// Création d'un répertoire
fRepCrée("C:\Trace\")

FIN
//////////////////////////////////////////

HLitPremier(Myclient,IDMyClient)

TANTQUE PAS HEnDehors(Myclient)
// Traitement de l'enregistrementtrace (Myclient,IDMyClient)
// trace (Myclient.IDMyClient)
SI Myclient.DateIndexation = DateDuJour( )ALORS
// info (Myclient.IDMyClient)
SI Myclient.IndexPourc1 <> 0 ALORS
// Traitement de l'enregistrement
// on trouve la liste de prix du client et on la modifie par le IndexPourc1


//////////////////////////// fiche prix parcours /////////////////////
sRubCléParcours est une chaîne

// On active le filtre
sRubCléParcours = HFiltre(Prix, "ClientNo='"+Myclient.IDAvantage+"'")

// Parcours des enregistrements filtrés
HLitPremier(Prix, sRubCléParcours)
TANTQUE PAS HEnDehors()


/////////////// Calcul et creation du du fichier indesation dans repertoire trace //////
AugmentationIndex = (Prix.PrixPrimaire * Myclient.IndexPourc1) /100
AugmentationIndex2 = (Prix.PrixVenteRemplacement * Myclient.IndexPourc1) /100

madate est une Date = DateSys()
monheure est une Heure = HeureSys()

Cheminfichier est une chaîne = "C:\Trace\DateIndex" + DateVersChaîne(madate,"AAAAMMJJ") + HeureVersChaîne(monheure,"HHMMSS") +".txt"

TraceDébut(trFenêtre + trFichier ,Cheminfichier)
...
Trace ("index 1",Prix.ClientNo,Gauche(Prix.NomClient,25),Gauche(Prix.DescService,20),"Prix",Prix.PrixPrimaire,"%%", Myclient.IndexPourc1,"Aug",AugmentationIndex )

Prix.PrixPrimaire = Arrondi(Prix.PrixPrimaire + AugmentationIndex)
Prix.PrixVenteRemplacement = Arrondi(Prix.PrixVenteRemplacement + AugmentationIndex2)
HModifie(Prix)
AugmentationIndex = 0
AugmentationIndex2 = 0
HLitSuivant(Prix, sRubCléParcours)
FIN // fin du filtre
// On désactive le filtre
HDésactiveFiltre(Prix)

HAnnuleDéclaration(Myclient)
HAnnuleDéclaration(Prix)

Bonjour,

Il s'agit peut être d'un problème de droits d'écriture.
Pour éviter ceci vous pouvez essayer d'écrire vos fichiers dans le répertoire "Application Data" : fRepGlobalCommun()

Cordialement

fRepGlobalCommun() N'est pas supporte par hfcs ni de meme par les procedure stockees

j'ai essayer
Cheminfichier est une chaîne = "c:\utilisateurs\Public\Documents publics\DateIndex.txt"
meme probleme

Je ne pense pas avoir de probleme d'ecriture
car je cree mon repertoire Trace dans le c:\ dur serveur 2008

Qui exécute la procédure ? le serveur.
il faut donc fournir un chemin qui lui soit accessible en lecture écriture pour y déposer votre fichier.

Le mieux est que la procédure modifie le chemin et utilise les chemins du serveur pour s'exécuter.

le chemin serveur est ok
la preuve il cree le repertoire trace

je crois que la fonction TraceDebut est mal supporte

Dans ma procedure stocke j' y ai mis un fSauveTexte , le fichier se sauvre tres bien aucun probleme , je crois que c'est le TraceDebut qui n'est pas supporte par la procedure stocke.
Apres les lignes suivante
//////////////////////////////////////////////////////////////
TraceDébut(trFenêtre + trFichier ,Cheminfichier)
...
Trace ("index 1",Prix.ClientNo,Gauche(Prix.NomClient,25),Gauche(Prix.DescService,20),"Prix",Prix.PrixPrimaire,"%%",
Myclient.IndexPourc1,"Aug",AugmentationIndex )
erreurinfo()
sMaChaine est une chaîne = Prix.NomClient
fSauveTexte(Cheminfichier, sMaChaine)

/////////////////////////////////////////////////////////////

Aune erreur et le fichier se sauve bien

Donc si je veux me servir de fSauveTexte comment je dois l'ecrire pour saugarder le contenu de mon trace
pour l'instant je n'ai qu'une seule ligne d'ecrite et je devrais en avoir 22

Comment j'ecris ca pour optenir le contenu de mon trace

merci