guten... WasAuchImmerFürTagesZeit du hast....
Eigentlich kein FOX-Problem, aber da habe ich es festgestellt. Bislang, unter XP-Rechnern nie aufgetreten, habe es erst seit ich zwei PC's auf Windows 7 umgestellt habe.
Meine Frage ist, An welcher Schraube muss ich herumdrehen, dass W7 mir diese Date scheller zumacht. Bzw, was ich ggf. am Code (s.U) weg oder dazuoptimieren kann.
(Info) Insgesamt hab ich mehrere PC's miteinander verbunden, die alle auf einen dieser Rechner zugreifen. Daher kann es vorkommen, dass an mehreren Plätzen gleichzeitig eine Datensatz-Neuanlage eingegeben wird.
Nun passiert das, wenn ich unter W7 eine Tabelle auf einem anderen PC öffne, diese nach dem schließen mehr als 10 Sek. immer noch als offen am Zielrechner gemeldet wird. (lt. Übersicht der Computerverwaltung->Geöffnete Dateien)
Der Zugriff erfolgt wie hier abgebildet
&& Ticket-Daten vorbereiten und in ein Objekt packen
....
&& Neues Ticket erstellen
IF !EMPTY(ADIR(DummyArray,(.DisTable))
FOR Lc_I = 1 to 3 TRY
USE (.DisTable) ALIAS (.DisName) in SELECT(.DisName) EXCLUSIVE
CATCH
ENDTRY
IF USED(.DisName)
EXIT
ENDIF
WAIT "Ticket wird angelegt" WINDOW TIMEOUT 2 NOCLEAR
ENDFOR
WAIT CLEAR ENDIF
IF !USED(.DisName) && bin gerade mal Offline??
= SaveOffline(Lc_Ergebnis) && Ticket wird über Timer-Polling
RETUEN .f. && paar sekunden später gespeichert
ENDIF
SELECT(.DisName)
SET ORDER TO TICK IN (.DisName)
GO BOTT IN (.DisName)
SCATTER FIELDS DisTicket NAME Lc_Ergebnis ADDITIVE
Lc_Ergebnis.DisTicket = Lc_Ergebnis.DisTicket + 1
&& Datenrecycling, ältesten gelöschten/freigegebenen Satz verwenden
SET ORDER TO RECY IN (.DisName)
GO TOP IN (.DisName)
IF EOF(.DisName)
APPEND BLANK
ENDIF
GATHER NAME Lc_Ergebnis MEMO
** Wegen W7 eingefügt, da verzögtertes schreiben
FLUSH IN (.DisName) FORCE
USE IN SELECT(.DisName)
Wenn unter XP (früher W2k) die letzte Zeile bearbeitet wird, dann wird am Zielrechner (auch XP-PC) diese auch SOFORT geschlossen. Wird diese aber unter W7 ausgeführt, dann dauert das so irgendwas zwischen 10-15 Sekunden, bis die zu ist.
Dadurch hatte ich bislang noch keine Kollision von wegen FILE IN USE, wenn innerhalb dieser kurzen Zeit eine andere Anwendung bzw. ein anderer PC auf diese Datei zugreifen wollte.
Diese Datei wird u.A. so alle 5-10 Sek. von jedem Arbeitsplatz auf Änderung geprüft.
=FDATE(.DisTable,1)
und bei Änderung mit NOUPDATE zum einlesen der neuen Daten kurz geöffnet.
Aufgefallen ist mir das schon vorher, denn die Aktualisierung der anderen Übersichten (die aus dieser Tabelle ausgelesen werden) zwischen 10 und 30 Sek. verzögert angezeigt werden. daher das FLUSH.
&& Übersicht aktualisieren.
&& Wird über Timer alle paar Sek. aufgerufen
Lc_DisTime = FDATE(.DisTable,1)
IF Lc_DisTime == .LastDisRead
RETURN .t.
ENDIF
TRY
USE (.DisTable) ALIAS (.DisName) IN SELECT(.DisName) NOUPDATE
CATCH
ENDTRY
IF !USED(.DisName)
RETURN .f.
ENDIF
&& Neue und geänderte Daten einlesen
SELECT * FROM (.DisName) ;
INTO CURSOR (.DisTemp) READWRITE ;
WHERE TimStmp >= .LastDisRead
USE IN SELECT(.DisName)
.LastDisRead = Lc_DisTime
&& Übersicht aktualisieren
....
Ps: ein AutoIncrement auf das Feld geht nicht, denn diese Nummer kann öfters vorkommen
