method AuthenticateWrapper

Parameters

icLogin	input	character
icPassword	input	character
ocGlobalSessionId	output	character
ocClientPrincipalObject	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method Session.CheckLogin
method Session.ValidateLogin

program code (program/pauthenticationqra.p)

define variable sessService as class com.qad.qra.session.ISessionService no-undo.

/* ignore
<ANCESTOR-CODE>
*/
run super (input icLogin, input icPassword, output vcSessionID, output ocClientPrincipalObject, output viFcReturnSuper).
if viFcReturnSuper <> 0 then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0  then return.

ocGlobalSessionId = ocClientPrincipalObject.

/* Restore the session here */
sessService = cast(com.qad.qra.core.GlobalServiceLocator:Current:GetInstance(
                      Progress.Lang.Class:GetClass("com.qad.qra.session.ISessionService")),
                      com.qad.qra.session.ISessionService).

sessService:RestoreSession (vcSessionID).