Use cWebBusinessProcess.pkg
Use DataDict.pkg
Use Users.DD

Object oLoginUsers is a cWebBusinessProcess
    Set pbAllowClear to False
    Set pbAllowDelete to False
    Set pbAllowFind to False
    Set pbAllowSaveEdit to False
    Set pbAllowSaveNew to False
    Set psDescription to "Login System for Order entry"

    Object oUsers_DD is a Users_DataDictionary
        Send DefineAllExtendedFields
    End_Object    // oUsers_DD

    Set Main_DD to oUsers_DD

    // This is the main login function.
    // pass userid and password. If login is ok, return a non zero value
    // with the current login record in the Login DD file.
    // This will be called by the ASP file using DfFunc.
    { Published = True  }
    { Description = ""  }
    Function Login_User String sUserId String sPass Returns Integer
        Integer bOk
    
        // clear Login DD, Move values to file buffer and
        // attempt a find EQ
        Get ddClear "Users" To bOk
        Send setDDValue "Users.loginName" (Uppercase(sUserid))
        Send setDDValue "Users.password"  (Uppercase(sPass))
        Get ddFind "Users" 2 Eq To bOk
    
        Function_Return bOK
    End_Function
    
End_Object    // oLoginUsers