//test CLASS da HANDLER

{includes/dsUserUserRole.i}


DEFINE VARIABLE test      AS CLASS da.AppUser   NO-UNDO.
DEFINE VARIABLE httHandle AS HANDLE             NO-UNDO.
DEFINE VARIABLE tBUFFER   AS HANDLE             NO-UNDO.
DEFINE VARIABLE hquery AS HANDLE      NO-UNDO.
 CREATE QUERY hquery.


httHandle = TEMP-TABLE ttAppUser:HANDLE.

CREATE ttAppUser.
ttAppUser.AppUserId = 1252.
CREATE ttAppUser.
ttAppUser.AppUserId = 1062.
CREATE ttAppUser.
ttAppUser.AppUserId = 1022.
CREATE ttAppUser.
ttAppUser.AppUserId = 1102.
CREATE ttAppUser.
ttAppUser.AppUserId = 1602.



test = NEW da.AppUser (INPUT httHandle ).
test:addUsers().


/* httHandle = test:fillttTable().                                             */
/* CREATE BUFFER tBuffer FOR TABLE httHandle.                                  */
/*                                                                             */
/* hQuery:SET-BUFFERS(tBuffer).                                                */
/*                                                                             */
/* hquery:QUERY-PREPARE(SUBSTITUTE("for each &1 no-lock", tBuffer:NAME)).      */
/* hquery:QUERY-OPEN().                                                        */
/*                                                                             */
/* DO WHILE NOT hquery:QUERY-OFF-END:                                          */
/*   hQuery:GET-NEXT(NO-LOCK).                                                 */
/*   IF NOT tBuffer:AVAILABLE THEN                                             */
/*     LEAVE.                                                                  */
/*     CREATE ttAppUser.                                                       */
/*     ASSIGN                                                                  */
/*     ttAppUser.AppUserID =           tBuffer:BUFFER-FIELD(1):BUFFER-VALUE()  */
/*     ttAppUser.NAME =                tBuffer:BUFFER-FIELD(2):BUFFER-VALUE()  */
/*     ttAppUser.UserName =            tBuffer:BUFFER-FIELD(3):BUFFER-VALUE(). */
/* END.                                                                        */

FOR EACH Appuser:
    DISPLAY AppUSer EXCEPT NAME.
END.