Administrator operations

[Silvio.Falconi]

to perform some operations the administrator needs exclusivity, so you should check if a user is online and / or the archives are open.

Does anyone have any idea how to go about doing these checks

Pls, a small sample to init

[Otto]

Hello Silvio,
We have a central database from which we can lock the workstations.
But it always assumes that all users exit the program first.
Then it is no longer possible to open the program and the maintenance work can be carried out.
Best regards,
Otto

Code: Select all | Expand

 METHOD PC_erfassen() CLASS TAllgemein
    local lapped := .t.
    *----------------------------------------------------------
    
    //hier werden alle WINHOTEL.exen registriert
    if file( Setup():Daten() + "dataallg\PCS.dbf" )= .F.
        DbCreate( Setup():Daten() + "dataallg\PCS.dbf",;
        {{"SERIALNR"   , "C",  20,   0} ,;
        {"BIOSDATE"    , "C",  10,   0} ,;
        {"COMPUTER"    , "C",   5,   0} ,;
        {"SPERRE"      , "C",  20,   0} ,;
        {"APPPATH"     , "C",  20,   0} ,;
        {"DATENVERZ"   , "C",  20,   0} ,;
        {"DATUM"       , "D",   8,   0} ,;
        {"ZEIT"        , "C",  10,   0}  })
    endif
    use ( Setup():Daten() + "dataallg\" + "PCS") NEW
    go top
    do while .not. eof()
        if (Upper(ALLTRIM(PCS->SERIALNR)) = Setup():cSerialHD) .and. (PCS->BiosDate = Setup():cBiosDate) .and.;
            ( Upper(ALLTRIM(PCS->AppPath))   =  Upper(ALLTRIM( Setup():AppPath )) )
            lapped := .f.
            exit
        endif
        select PCS
        skip
    enddo
    if lapped = .t.
        select PCS
        append_blank()
        
    endif
    if len(ALLTRIM(PCS->sperre)) > 0
        MetroMsgInfo( "Infobox","Arbeitsstation gesperrt wg. " + PCS->sperre )
    return (.F.)
endif

IF rlock()
    PCS->SERIALNR  := Setup():cSerialHD
    PCS->computer  := Setup():cComputerNr
    PCS->BiosDate  := Setup():cBiosDate
    PCS->AppPath   := Setup():AppPath
    PCS->datenverz := Setup():DATEN
    PCS->DATUM     := date()
    PCS->zeit      := time()
    //   commit
    
else
return (.F.)

endif

select PCS
use

RETURN (.T.)
//----------------------------------------------------------------------------//

[Silvio.Falconi]

I had thought of an archive where to insert all the archives worked by the application. If an archive is open, a warning message must be displayed.

Obviously the Check_Utenti procedure in addition to checking the open archives checks if a record in the Users archive has an asterisk in the Status field because when a user enters the application, the login checks and inserts an asterisk in a field and this is removed on exit.
therefore the user_check procedure must return a true or false logical variable of the type

function test()
local oDlt, lCont

cDbfPath:=cFilePath(GetModuleFileName( GetInstance() )) + "2013\dbf\"
cExePath:= cFilePath(GetModuleFileName( GetInstance() ))
* SET DEFAULT TO &cDbfPath

RddSetDefault( "DBFCDX" )

DEFINE DIALOG oDlt RESOURCE "Dlg_Tmp" //FONT oWnd:oFont
REDEFINE SAY PROMPT "Verificando utenti..." ID 10 OF oDlt
oDlt:bStart:={|| lCont:=CheckUsers(),oDlt:End()}
ACTIVATE DIALOG oDlt CENTERED
IF !lCont
msginfo("you can make admin operations")

.....( the admin operations)


ENDIF
RETURN (NIL)



it's just easier said than built
if i send you a file do you have a chance to try if it works?