sec/v-user.w

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
   2 &ANALYZE-RESUME
   3 /* Connected Databases
   4           ttpl             PROGRESS
   5 */
   6 &Scoped-define WINDOW-NAME CURRENT-WINDOW
   7 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS V-table-Win
   8 /*------------------------------------------------------------------------
   9
  10   File:
  11
  12   Description: from VIEWER.W - Template for SmartViewer Objects
  13
  14   Input Parameters:
  15       <none>
  16
  17   Output Parameters:
  18       <none>
  19
  20 ------------------------------------------------------------------------*/
  21 /*          This .W file was created with the Progress UIB.             */
  22 /*----------------------------------------------------------------------*/
  23
  24 /* Create an unnamed pool to store all the widgets created
  25      by this procedure. This is a good default which assures
  26      that this procedure's triggers and internal procedures
  27      will execute in this procedure's storage, and that proper
  28      cleanup will occur on deletion of the procedure. */
  29
  30 CREATE WIDGET-POOL.
  31
  32 /* ***************************  Definitions  ************************** */
  33
  34 /* Parameters Definitions ---                                           */
  35
  36 /* Local Variable Definitions ---                                       */
  37
  38 DEF VAR mode AS CHAR NO-UNDO.
  39
  40 /* _UIB-CODE-BLOCK-END */
  41 &ANALYZE-RESUME
  42
  43
  44 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  45
  46 /* ********************  Preprocessor Definitions  ******************** */
  47
  48 &Scoped-define PROCEDURE-TYPE SmartViewer
  49
  50 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  51
  52 /* Name of first Frame and/or Browse and/or first Query                 */
  53 &Scoped-define FRAME-NAME F-Main
  54
  55 /* External Tables                                                      */
  56 &Scoped-define EXTERNAL-TABLES Usr
  57 &Scoped-define FIRST-EXTERNAL-TABLE Usr
  58
  59
  60 /* Need to scope the external tables to this procedure                  */
  61 DEFINE QUERY external_tables FOR Usr.
  62 /* Standard List Definitions                                            */
  63 &Scoped-Define ENABLED-FIELDS Usr.UserName Usr.Abbreviation
  64 &Scoped-define FIELD-PAIRS~
  65  ~{&FP1}UserName ~{&FP2}UserName ~{&FP3}~
  66  ~{&FP1}Abbreviation ~{&FP2}Abbreviation ~{&FP3}
  67 &Scoped-define ENABLED-TABLES Usr
  68 &Scoped-define FIRST-ENABLED-TABLE Usr
  69 &Scoped-Define ENABLED-OBJECTS RECT-1
  70 &Scoped-Define DISPLAYED-FIELDS Usr.UserName Usr.Abbreviation
  71 &Scoped-Define DISPLAYED-OBJECTS fil_Person
  72
  73 /* Custom List Definitions                                              */
  74 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  75
  76 /* _UIB-PREPROCESSOR-BLOCK-END */
  77 &ANALYZE-RESUME
  78
  79
  80 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" V-table-Win _INLINE
  81 /* Actions: ? adm/support/keyedit.w ? ? ? */
  82 /* STRUCTURED-DATA
  83 <KEY-OBJECT>
  84 THIS-PROCEDURE
  85 </KEY-OBJECT>
  86 <FOREIGN-KEYS>
  87 PersonCode|y|y|TTPL.Usr.PersonCode
  88 UserName|y|y|TTPL.Usr.UserName
  89 </FOREIGN-KEYS>
  90 <EXECUTING-CODE>
  91 **************************
  92 * Set attributes related to FOREIGN KEYS
  93 */
  94 RUN set-attribute-list (
  95     'Keys-Accepted = "PersonCode,UserName",
  96      Keys-Supplied = "PersonCode,UserName"':U).
  97 /**************************
  98 </EXECUTING-CODE> */
  99 /* _UIB-CODE-BLOCK-END */
 100 &ANALYZE-RESUME
 101
 102
 103 /* ***********************  Control Definitions  ********************** */
 104
 105
 106 /* Definitions of the field level widgets                               */
 107 DEFINE VARIABLE fil_Person AS CHARACTER FORMAT "X(256)":U
 108      LABEL "Person"
 109      VIEW-AS FILL-IN
 110      SIZE 33.14 BY 1 NO-UNDO.
 111
 112 DEFINE RECTANGLE RECT-1
 113      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
 114      SIZE 46.86 BY 4.
 115
 116
 117 /* ************************  Frame Definitions  *********************** */
 118
 119 DEFINE FRAME F-Main
 120      Usr.UserName AT ROW 1.4 COL 12.14 COLON-ALIGNED
 121           LABEL "Network User ID" FORMAT "X(64)"
 122           VIEW-AS FILL-IN
 123           SIZE 16 BY 1
 124      Usr.Abbreviation AT ROW 2.8 COL 12.14 COLON-ALIGNED
 125           VIEW-AS FILL-IN
 126           SIZE 5.43 BY 1
 127      fil_Person AT ROW 3.8 COL 12.14 COLON-ALIGNED
 128      RECT-1 AT ROW 1 COL 1
 129     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 130          SIDE-LABELS NO-UNDERLINE THREE-D
 131          AT COL 1 ROW 1 SCROLLABLE
 132          FONT 10.
 133
 134
 135 /* *********************** Procedure Settings ************************ */
 136
 137 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 138 /* Settings for THIS-PROCEDURE
 139    Type: SmartViewer
 140    External Tables: TTPL.Usr
 141    Allow: Basic,DB-Fields
 142    Frames: 1
 143    Add Fields to: EXTERNAL-TABLES
 144    Other Settings: PERSISTENT-ONLY COMPILE
 145  */
 146
 147 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 148 /* then cleanup and return.                                            */
 149 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 150   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 151           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 152   RETURN.
 153 END.
 154
 155 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 156
 157 /* *************************  Create Window  ************************** */
 158
 159 &ANALYZE-SUSPEND _CREATE-WINDOW
 160 /* DESIGN Window definition (used by the UIB)
 161   CREATE WINDOW V-table-Win ASSIGN
 162          HEIGHT             = 7.25
 163          WIDTH              = 54.29.
 164 /* END WINDOW DEFINITION */
 165                                                                         */
 166 &ANALYZE-RESUME
 167
 168
 169 /* ***************  Runtime Attributes and UIB Settings  ************** */
 170
 171 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 172 /* SETTINGS FOR WINDOW V-table-Win
 173   VISIBLE,,RUN-PERSISTENT                                               */
 174 /* SETTINGS FOR FRAME F-Main
 175    NOT-VISIBLE Size-to-Fit                                              */
 176 ASSIGN
 177        FRAME F-Main:SCROLLABLE       = FALSE
 178        FRAME F-Main:HIDDEN           = TRUE.
 179
 180 /* SETTINGS FOR FILL-IN fil_Person IN FRAME F-Main
 181    NO-ENABLE                                                            */
 182 /* SETTINGS FOR FILL-IN Usr.UserName IN FRAME F-Main
 183    EXP-LABEL EXP-FORMAT                                                 */
 184 /* _RUN-TIME-ATTRIBUTES-END */
 185 &ANALYZE-RESUME
 186
 187
 188 /* Setting information for Queries and Browse Widgets fields            */
 189
 190 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 191 /* Query rebuild information for FRAME F-Main
 192      _Options          = "NO-LOCK"
 193      _Query            is NOT OPENED
 194 */  /* FRAME F-Main */
 195 &ANALYZE-RESUME
 196
 197
 198
 199
 200 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 201 /* ************************* Included-Libraries *********************** */
 202
 203 {src/adm/method/viewer.i}
 204 {inc/method/m-mntvwr.i}
 205
 206 /* _UIB-CODE-BLOCK-END */
 207 &ANALYZE-RESUME
 208
 209
 210
 211
 212 /* ************************  Control Triggers  ************************ */
 213
 214 &Scoped-define SELF-NAME fil_Person
 215 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Person V-table-Win
 216 ON U1 OF fil_Person IN FRAME F-Main /* Person */
 217 DO:
 218   {inc/selfil/sfpsn1.i "Usr" "PersonCode"}
 219 END.
 220
 221 /* _UIB-CODE-BLOCK-END */
 222 &ANALYZE-RESUME
 223
 224
 225 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Person V-table-Win
 226 ON U2 OF fil_Person IN FRAME F-Main /* Person */
 227 DO:
 228   {inc/selfil/sfpsn2.i "Usr" "PersonCode"}
 229 END.
 230
 231 /* _UIB-CODE-BLOCK-END */
 232 &ANALYZE-RESUME
 233
 234
 235 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Person V-table-Win
 236 ON U3 OF fil_Person IN FRAME F-Main /* Person */
 237 DO:
 238   {inc/selfil/sfpsn3.i "Usr" "PersonCode"}
 239 END.
 240
 241 /* _UIB-CODE-BLOCK-END */
 242 &ANALYZE-RESUME
 243
 244
 245 &UNDEFINE SELF-NAME
 246
 247 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 248
 249
 250 /* ***************************  Main Block  *************************** */
 251
 252 /* _UIB-CODE-BLOCK-END */
 253 &ANALYZE-RESUME
 254
 255
 256 /* **********************  Internal Procedures  *********************** */
 257
 258 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-find-using-key V-table-Win adm/support/_key-fnd.p
 259 PROCEDURE adm-find-using-key :
 260 /*------------------------------------------------------------------------------
 261   Purpose:     Finds the current record using the contents of
 262                the 'Key-Name' and 'Key-Value' attributes.
 263   Parameters:  <none>
 264 ------------------------------------------------------------------------------*/
 265   DEF VAR key-value AS CHAR NO-UNDO.
 266   DEF VAR row-avail-enabled AS LOGICAL NO-UNDO.
 267
 268   /* LOCK status on the find depends on FIELDS-ENABLED. */
 269   RUN get-attribute ('FIELDS-ENABLED':U).
 270   row-avail-enabled = (RETURN-VALUE eq 'yes':U).
 271   /* Look up the current key-value. */
 272   RUN get-attribute ('Key-Value':U).
 273   key-value = RETURN-VALUE.
 274
 275   /* Find the current record using the current Key-Name. */
 276   RUN get-attribute ('Key-Name':U).
 277   CASE RETURN-VALUE:
 278     WHEN 'PersonCode':U THEN
 279        {src/adm/template/find-tbl.i
 280            &TABLE = Usr
 281            &WHERE = "WHERE Usr.PersonCode eq INTEGER(key-value)"
 282        }
 283     WHEN 'UserName':U THEN
 284        {src/adm/template/find-tbl.i
 285            &TABLE = Usr
 286            &WHERE = "WHERE Usr.UserName eq key-value"
 287        }
 288   END CASE.
 289
 290 END PROCEDURE.
 291
 292 /* _UIB-CODE-BLOCK-END */
 293 &ANALYZE-RESUME
 294
 295
 296 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win _ADM-ROW-AVAILABLE
 297 PROCEDURE adm-row-available :
 298 /*------------------------------------------------------------------------------
 299   Purpose:     Dispatched to this procedure when the Record-
 300                Source has a new row available.  This procedure
 301                tries to get the new row (or foriegn keys) from
 302                the Record-Source and process it.
 303   Parameters:  <none>
 304 ------------------------------------------------------------------------------*/
 305
 306   /* Define variables needed by this internal procedure.             */
 307   {src/adm/template/row-head.i}
 308
 309   /* Create a list of all the tables that we need to get.            */
 310   {src/adm/template/row-list.i "Usr"}
 311
 312   /* Get the record ROWID's from the RECORD-SOURCE.                  */
 313   {src/adm/template/row-get.i}
 314
 315   /* FIND each record specified by the RECORD-SOURCE.                */
 316   {src/adm/template/row-find.i "Usr"}
 317
 318   /* Process the newly available records (i.e. display fields,
 319      open queries, and/or pass records on to any RECORD-TARGETS).    */
 320   {src/adm/template/row-end.i}
 321
 322 END PROCEDURE.
 323
 324 /* _UIB-CODE-BLOCK-END */
 325 &ANALYZE-RESUME
 326
 327
 328 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE cancel-changes V-table-Win
 329 PROCEDURE cancel-changes :
 330 /*------------------------------------------------------------------------------
 331   Purpose:
 332 ------------------------------------------------------------------------------*/
 333
 334   IF mode = "Add" THEN RUN delete-user. ELSE RUN check-modified( "CLEAR" ).
 335   RUN dispatch( 'exit':U ).
 336
 337 END PROCEDURE.
 338
 339 /* _UIB-CODE-BLOCK-END */
 340 &ANALYZE-RESUME
 341
 342
 343 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE confirm-changes V-table-Win
 344 PROCEDURE confirm-changes :
 345 /*------------------------------------------------------------------------------
 346   Purpose:
 347   Parameters:  <none>
 348   Notes:
 349 ------------------------------------------------------------------------------*/
 350
 351   RUN verify-user.
 352   IF RETURN-VALUE = "FAIL" THEN RETURN.
 353
 354   RUN dispatch( 'update-record':U ).
 355   IF mode = "Add" THEN
 356     RUN notify( 'open-query, RECORD-SOURCE':U ).
 357   ELSE
 358     RUN notify( 'row-display, RECORD-SOURCE':U ).
 359
 360   RUN dispatch( 'exit':U ).
 361
 362 END PROCEDURE.
 363
 364 /* _UIB-CODE-BLOCK-END */
 365 &ANALYZE-RESUME
 366
 367
 368 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE delete-user V-table-Win
 369 PROCEDURE delete-user :
 370 /*------------------------------------------------------------------------------
 371   Purpose:
 372   Parameters:  <none>
 373   Notes:
 374 ------------------------------------------------------------------------------*/
 375
 376   FIND CURRENT Usr EXCLUSIVE-LOCK NO-ERROR.
 377   IF AVAILABLE Usr THEN DELETE Usr.
 378
 379 END PROCEDURE.
 380
 381 /* _UIB-CODE-BLOCK-END */
 382 &ANALYZE-RESUME
 383
 384
 385 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win _DEFAULT-DISABLE
 386 PROCEDURE disable_UI :
 387 /*------------------------------------------------------------------------------
 388   Purpose:     DISABLE the User Interface
 389   Parameters:  <none>
 390   Notes:       Here we clean-up the user-interface by deleting
 391                dynamic widgets we have created and/or hide
 392                frames.  This procedure is usually called when
 393                we are ready to "clean-up" after running.
 394 ------------------------------------------------------------------------------*/
 395   /* Hide all frames. */
 396   HIDE FRAME F-Main.
 397   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 398 END PROCEDURE.
 399
 400 /* _UIB-CODE-BLOCK-END */
 401 &ANALYZE-RESUME
 402
 403
 404 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 405 PROCEDURE inst-initialize :
 406 /*------------------------------------------------------------------------------
 407   Purpose:
 408   Parameters:  <none>
 409   Notes:
 410 ------------------------------------------------------------------------------*/
 411
 412   IF mode = "Add" THEN
 413   DO:
 414     have-records = Yes.
 415     RUN dispatch( 'add-record':U ).
 416   END.
 417   ELSE RUN dispatch( 'enable-fields':U ).
 418
 419 END PROCEDURE.
 420
 421 /* _UIB-CODE-BLOCK-END */
 422 &ANALYZE-RESUME
 423
 424
 425 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE override-add-record V-table-Win
 426 PROCEDURE override-add-record :
 427 /*------------------------------------------------------------------------------
 428   Purpose:
 429   Parameters:  <none>
 430   Notes:
 431 ------------------------------------------------------------------------------*/
 432
 433   CREATE Usr.
 434
 435   FIND UsrGroup WHERE UsrGroup.GroupName = "Everyone" NO-LOCK NO-ERROR.
 436
 437   IF AVAILABLE UsrGroup THEN
 438   DO:
 439     CREATE UsrGroupMember.
 440     ASSIGN
 441       UsrGroupMember.UserName = Usr.UserName
 442       UsrGroupMember.Groupname = UsrGroup.GroupName.
 443   END.
 444
 445   CURRENT-WINDOW:TITLE = "Adding a new user".
 446   RUN dispatch( 'display-fields':U ).
 447   RUN dispatch( 'enable-fields':U ).
 448
 449 END PROCEDURE.
 450
 451 /* _UIB-CODE-BLOCK-END */
 452 &ANALYZE-RESUME
 453
 454
 455 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 456 PROCEDURE pre-destroy :
 457 /*------------------------------------------------------------------------------
 458   Purpose:
 459   Parameters:  <none>
 460   Notes:
 461 ------------------------------------------------------------------------------*/
 462
 463   IF LAST-EVENT:FUNCTION = "WINDOW-CLOSE" THEN RUN cancel-changes.
 464
 465 END PROCEDURE.
 466
 467 /* _UIB-CODE-BLOCK-END */
 468 &ANALYZE-RESUME
 469
 470
 471 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key V-table-Win adm/support/_key-snd.p
 472 PROCEDURE send-key :
 473 /*------------------------------------------------------------------------------
 474   Purpose:     Sends a requested KEY value back to the calling
 475                SmartObject.
 476   Parameters:  <see adm/template/sndkytop.i>
 477 ------------------------------------------------------------------------------*/
 478
 479   /* Define variables needed by this internal procedure.             */
 480   {src/adm/template/sndkytop.i}
 481
 482   /* Return the key value associated with each key case.             */
 483   {src/adm/template/sndkycas.i "PersonCode" "Usr" "PersonCode"}
 484   {src/adm/template/sndkycas.i "UserName" "Usr" "UserName"}
 485
 486   /* Close the CASE statement and end the procedure.                 */
 487   {src/adm/template/sndkyend.i}
 488
 489 END PROCEDURE.
 490
 491 /* _UIB-CODE-BLOCK-END */
 492 &ANALYZE-RESUME
 493
 494
 495 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win _ADM-SEND-RECORDS
 496 PROCEDURE send-records :
 497 /*------------------------------------------------------------------------------
 498   Purpose:     Send record ROWID's for all tables used by
 499                this file.
 500   Parameters:  see template/snd-head.i
 501 ------------------------------------------------------------------------------*/
 502
 503   /* Define variables needed by this internal procedure.               */
 504   {src/adm/template/snd-head.i}
 505
 506   /* For each requested table, put it's ROWID in the output list.      */
 507   {src/adm/template/snd-list.i "Usr"}
 508
 509   /* Deal with any unexpected table requests before closing.           */
 510   {src/adm/template/snd-end.i}
 511
 512 END PROCEDURE.
 513
 514 /* _UIB-CODE-BLOCK-END */
 515 &ANALYZE-RESUME
 516
 517
 518 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
 519 PROCEDURE state-changed :
 520 /* -----------------------------------------------------------
 521   Purpose:
 522   Parameters:  <none>
 523   Notes:
 524 -------------------------------------------------------------*/
 525   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 526   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 527
 528   CASE p-state:
 529       /* Object instance CASEs can go here to replace standard behavior
 530          or add new cases. */
 531       {src/adm/template/vstates.i}
 532   END CASE.
 533 END PROCEDURE.
 534
 535 /* _UIB-CODE-BLOCK-END */
 536 &ANALYZE-RESUME
 537
 538
 539 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-mode V-table-Win
 540 PROCEDURE use-mode :
 541 /*------------------------------------------------------------------------------
 542   Purpose:
 543   Parameters:  <none>
 544   Notes:
 545 ------------------------------------------------------------------------------*/
 546   DEF INPUT PARAMETER new-mode AS CHAR NO-UNDO.
 547   mode = new-mode.
 548
 549 END PROCEDURE.
 550
 551 /* _UIB-CODE-BLOCK-END */
 552 &ANALYZE-RESUME
 553
 554
 555 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE verify-user V-table-Win
 556 PROCEDURE verify-user :
 557 /*------------------------------------------------------------------------------
 558   Purpose:
 559   Parameters:  <none>
 560   Notes:
 561 ------------------------------------------------------------------------------*/
 562
 563 DO WITH FRAME {&FRAME-NAME}:
 564
 565   /* All details entered ? */
 566
 567   IF INPUT Usr.UserName = "" OR INPUT Usr.Abbreviation = "" OR
 568     NOT CAN-FIND( FIRST Contact WHERE ROWID( Contact ) =
 569       TO-ROWID( fil_Person:PRIVATE-DATA ) ) THEN
 570   DO:
 571     MESSAGE
 572       "You must supply all fields for a user:" SKIP(1)
 573       "  User Name" SKIP
 574       "  Abbreviation" SKIP
 575       "  Person"
 576       VIEW-AS ALERT-BOX ERROR TITLE "Incomplete details".
 577     IF INPUT Usr.UserName = "" THEN APPLY 'ENTRY':U TO Usr.UserName. ELSE
 578     IF INPUT Usr.Abbreviation = "" THEN APPLY 'ENTRY':U TO Usr.Abbreviation. ELSE
 579     DO:
 580       APPLY 'ENTRY':U TO Usr.Abbreviation.
 581       APPLY 'TAB':U   TO Usr.Abbreviation.
 582     END.
 583     RETURN "FAIL".
 584   END.
 585
 586   /* User Name unqiue ? */
 587
 588   IF INPUT Usr.UserName <> Usr.UserName AND
 589     CAN-FIND( Usr WHERE Usr.UserName = INPUT Usr.UserName ) THEN
 590   DO:
 591     MESSAGE
 592       "A user already exists with the user name" SKIP
 593       INPUT Usr.UserName + ". You must enter a unique user name."
 594       VIEW-AS ALERT-BOX ERROR TITLE "Duplicate User".
 595       APPLY 'ENTRY':U TO Usr.UserName.
 596     RETURN "FAIL".
 597   END.
 598
 599   /* Abbreviation Unique ? */
 600   IF INPUT Usr.Abbreviation <> Usr.Abbreviation AND
 601     CAN-FIND( Usr WHERE Usr.Abbreviation = INPUT Usr.Abbreviation ) THEN
 602   DO:
 603     MESSAGE
 604       "A user already exists with the abbreviation" SKIP
 605       INPUT Usr.Abbreviation + ". You must enter a unique abbreviation."
 606       VIEW-AS ALERT-BOX ERROR TITLE "Duplicate User".
 607       APPLY 'ENTRY':U TO Usr.Abbreviation.
 608     RETURN "FAIL".
 609   END.
 610
 611 END.
 612
 613 END PROCEDURE.
 614
 615 /* _UIB-CODE-BLOCK-END */
 616 &ANALYZE-RESUME
 617
 618