probleme ecriture fichier txt sur serveur (TraceDebut)
Utilisateur WDF
Inscrit:
19/04/2006 18:20
Post(s): 63
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)

Contribution le : 06/07/2011 16:32
Créer un fichier PDF de la contribution Imprimer


Re: probleme ecriture fichier txt sur serveur (TraceDebut)
DSI WDF
Inscrit:
05/05/2004 13:46
Post(s): 314
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

Contribution le : 06/07/2011 18:14
Créer un fichier PDF de la contribution Imprimer


Re: probleme ecriture fichier txt sur serveur (TraceDebut)
Utilisateur WDF
Inscrit:
19/04/2006 18:20
Post(s): 63
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

Contribution le : 06/07/2011 18:53
Créer un fichier PDF de la contribution Imprimer


Re: probleme ecriture fichier txt sur serveur (TraceDebut)
Animateur WDF
Inscrit:
26/06/2002 16:24
De wdforge.org
Post(s): 2822
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.

Contribution le : 11/07/2011 09:13
_________________
R&B
Contact, CV.
Créer un fichier PDF de la contribution Imprimer


Re: probleme ecriture fichier txt sur serveur (TraceDebut)
Utilisateur WDF
Inscrit:
19/04/2006 18:20
Post(s): 63
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

Contribution le : 12/07/2011 01:58
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant




Enregistrer votre réponse
CompteNom   Mot de passe   Authentification
Message:


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2