Requisito Utente
Necessaria lettura di un parametro del Site Admin.
Soluzione Proposta
In fase di Login viene letto un parametro dal Site Admin. Nel caso sia presente un certo valore non sarà possibile accedere al progetto e verrà visualizzato un messaggio di warning.
______________________________________________________________________________
Implemetazione sul Prodotto
Supponiamo che il parametro indichi se il progetto è in manutenzione. Deve essere possibile far accedere al progetto solamente l'amministratore.
Nome del Parametro: PROGETTI_IN_MANUTENZIONE
Inseriremo del codice nella CanLogin che verifichi se nel valore del parametro è presente il nome del progetto. In tal caso, se l'utente non appartiene al gruppo TDAdmin, verrà ritornato False alla CanLogin con warning.
Function CanLogin(DomainName, ProjectName, UserName)
On Error Resume Next
Dim Res
Res = True
'Richiamo funzione che ritorna:
'Vero se il progetto è in manutenzione
'Falso altrimenti
if vidCheckPrjMaintenance then
msgbox "Progetto in Manutenzione", vbExclamation + vbSystemModal, "Accesso Vietato"
Res = False
end if
CanLogin = Res
On Error Goto 0
End Function
Function vidCheckPrjMaintenance
On Error Resume Next
Dim Res
Res = False
'verifico che nel valore del parametro sia presente il nome del progetto
if instr(TDConnection.TDParams("PROGETTI_IN_MANUTENZIONE"), TDConnection.ProjectName) > 0 then
'in caso positivo controllo se l'utente non è Amministratore.
if not (User.IsInGroup("TDAdmin")) then
Res = True
end if
end if
vidCheckPrjMaintenance = Res
On Error Goto0
End Function