Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

t_est := ''

Code: Alles auswählen

do case
case t_est = 0
@ 1,10 say 'Programm gesperrt!'
wait(20)
return ( .f. )
endcase

t_est = 0

Programmablauf...

t_est = 1

Code: Alles auswählen

select 7
use erfassung
 do while ! rec_lock( 2 )
    k_warn(' ABRUCH! Es wird momentan erfasst!' )
    RETURN( .f. )
 enddo

Programmablauf...

dbclosearea(7)

Code: Alles auswählen

if ! file(cSteuFile)
   aStru := { { "PCID","c",20,0 } }
   dbcreate( cSteuFile, aStru )
endif

Code: Alles auswählen

d:="InUse.myprog"
if (nFH:=ChkProgFree())>0
... meine Procedure.....
    FClose(nFH)
    FErase(d)
else
    *** gesperrt
endif

function ChkProgFree(d)
if FExist(d)
   FErase(d)
endif
if FExist(d)
   * Existiert noch immer (konnte nicht gelöscht werden, da in Benutzung)
   ** Programm gesperrt
 endif
nFH:=FCreate(d)
return nFH

Code: Alles auswählen

use logfile shared alias LOG NEW // am Programmanfang, immer offen, NEW öffnet unter Xbase++ in leerem Select-Bereich
...
IF LOG->(FLock()) // NICHT irgendwelche NET... lock Konstuktionen, weil wir genau einen Versuch möchten !
   // Ich konnte sperren, also darf ich als einziger darauf schreiben
   replace LOG->RechnerID with netname() // so könnte man den Rechner speichern der zuletzt Schreibrechte erhalten hat
   LOG->(dbGoBottom())
   LOG->(dbGoTop())
   ...
ELSE 
   // Fehlgeschlagen, es muss schon in bearbeitung sein 
   ? "Datei in Bearbeitung auf: " + LOG->RechnerID
ENDIF