CLASS da.AppUser:
    {includes/dsUserUserRole.i}
    DEFINE PRIVATE PROPERTY  hAppUser AS HANDLE

    GET. SET.


    DEFINE VARIABLE hBufftt AS HANDLE      NO-UNDO.
    DEFINE VARIABLE hQuery  AS HANDLE      NO-UNDO.
    DEFINE VARIABLE iIndex  AS INTEGER     NO-UNDO.



    CONSTRUCTOR AppUser (INPUT iphAppUser AS HANDLE):
        hAppUser = TEMP-TABLE ttAppUser:HANDLE.
        CREATE BUFFER hbuffTt FOR TABLE hAppUser.
        CREATE QUERY hQuery.
        hQuery:SET-BUFFERS(hBufftt).




    END CONSTRUCTOR.



   METHOD PUBLIC HANDLE fillttTable():
    FOR EACH AppUser NO-LOCK:
        CREATE ttAppUser.
        BUFFER-COPY AppUser TO ttAppUser.


    END.
    RETURN hAppUser.
    END METHOD.







END CLASS.