HDateEnreg() en Client/Serveur

Version imprimable

08/02/2018, 11h20
Jb_One36

HDateEnreg() en Client/Serveur

Bonjour à tous !

J'ai un petit soucis, je souhaite connaître la date de modification d'un fichier de données en C/S. Il y a effectivement la fonction HDateEnreg() mais elle ne fonctionne pas en C/S, j'ai l'impression qu'il effectue la recherche non pas sur mon serveur mais en local sur ma machine ce que je ne veaux bien évidemment.

Voici les différentes étapes que j'utilise :

1) HChangeConnexion()
2) HChangeRép() car mes fichiers de données se trouvent dans un autre dossier mais à la racine du dossier principal, exemple :

UnFichier.FIC
UnDossier >> UnAutreFichier.FIC

3) HDateEnreg() --> Ici, si je souhaite connaitre la dernière modif du fichier "UnAutreFichier.FIC" cela ne marche pas, je n'ai pas de date

La syntaxe : HDateEnreg("UnDossier\UnAutreFichier")

En vous remerciant à tous d'avance pour votre aide.

Cordialement.
12/02/2018, 10h02
zouzoukha

fdate() avec paramètre fAccès

Bonjour Jb1

La fonction fdate (opérant sur tout type de fichiers) avec le paramètre fAccès pourrait-elle convenir ?

Bon DEV
12/02/2018, 11h32
tbc92

La fonction hDateEnreg() fait autre chose. Elle renvoie la date de modification d'un enregistrement précis ; pour un fichier donné, si ce fichier contient 1000 lignes, on a donc potentiellement 1000 valeurs différentes pour hDateEnreg, et il faudrait récupérer la plus grande de ces 1000 valeurs. Et hDateEnreg() renvoie squelque chose uniquement si on dit quel enregistrement on veut consulter.
Dans la doc, rien ne dit que hDateEnreg ne fonctionne pas en CS, et ce serait surprenant.

L'alternative, c'est hVersion. Ca ne donne pas une date, mais ça permet de voir si ce numéro a changé entre 2 instants.

Bonjour,
Tu peut aussi te bidouiller une journalisation minimum que tu rempliras via un trigger
A la volée :
Dans l'initialisation de ton projet:

Code:

1
2
 
HDécritTrigger("*","HModifie,HSupprime,HRaye,HAjoute,HEcrit","MonJournal",hTriggerAprès)

En procédure globale:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
FONCTION MonJournal():entier
 
nHandleJournal est un entier
nTailleJournal est entier
sEtatModification est chaîne
 
nHandleJournal=fOuvre(fRepDonnées+"\MonJournal.Txt",foCréationSiInexistant)
SI nHandleJournal=-1 ALORS
	RENVOYER -1
SINON
	nTailleJournal=fTaille(nHandleJournal)
	SI fPositionne(nHandleJournal,nTailleJournal,fpDébut)=-1 ALORS
		RENVOYER -1
	FIN
FIN
 
sEtatModification=H.NomFichier+TAB
SELON Majuscule(H.FonctionTrigger)
	CAS "HAJOUTE"
		sEtatModification+="Ajout"
	CAS "HMODIFIE"
		sEtatModification+="Modification"
	CAS "HSUPPRIME"
		sEtatModification+="Suppression"
	CAS "HRAYE"
		sEtatModification+="Rayage"
	CAS "HECRIT"
		sEtatModification+="Ecriture"
FIN
sEtatModification+=TAB+DateVersChaîne(DateDuJour())+" "+HeureVersChaîne(HeureSys())
 
SI PAS fEcritLigne(nHandleJournal,sEtatModification) ALORS
	RENVOYER ErreurInfo(errCode)
SINON
	RENVOYER 0
FIN

Je n'ai pas eu le temps de tester, mais l'idée est là

Edit : Test effectué en Ajout, résultat OK