sec/v-usgmnu.w

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
   2 &ANALYZE-RESUME
   3 &Scoped-define WINDOW-NAME CURRENT-WINDOW
   4 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS V-table-Win
   5 /*------------------------------------------------------------------------
   6   File:
   7 ------------------------------------------------------------------------*/
   8
   9 CREATE WIDGET-POOL.
  10
  11 /* ***************************  Definitions  ************************** */
  12
  13 DEF WORK-TABLE MenuNode NO-UNDO
  14   FIELD NodeCode    LIKE LinkNode.NodeCode
  15   FIELD Description LIKE LinkNode.Description.
  16
  17 DEF WORK-TABLE ItemNode NO-UNDO
  18   FIELD ButtonLabel LIKE ProgramLink.ButtonLabel
  19   FIELD LinkCode    LIKE ProgramLink.LinkCode
  20   FIELD ItemStatus  AS CHAR.
  21
  22 DEF VAR menu-altered AS LOGI   NO-UNDO.
  23 DEF VAR last-id      AS ROWID  NO-UNDO.
  24 DEF VAR this-win     AS HANDLE NO-UNDO.
  25
  26 /* _UIB-CODE-BLOCK-END */
  27 &ANALYZE-RESUME
  28
  29
  30 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  31
  32 /* ********************  Preprocessor Definitions  ******************** */
  33
  34 &Scoped-define PROCEDURE-TYPE SmartViewer
  35
  36 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  37
  38 /* Name of first Frame and/or Browse and/or first Query                 */
  39 &Scoped-define FRAME-NAME F-Main
  40
  41 /* Standard List Definitions                                            */
  42 &Scoped-Define ENABLED-OBJECTS tgl_topmost sel_mavail btn_madd sel_mcurr ~
  43 btn_mrem sel_iavail btn_save sel_icurr btn_iadd btn_irem btn_iup btn_idown
  44 &Scoped-Define DISPLAYED-OBJECTS tgl_topmost sel_mavail sel_mcurr ~
  45 sel_iavail sel_icurr
  46
  47 /* Custom List Definitions                                              */
  48 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  49
  50 /* _UIB-PREPROCESSOR-BLOCK-END */
  51 &ANALYZE-RESUME
  52
  53
  54 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" V-table-Win _INLINE
  55 /* Actions: ? adm/support/keyedit.w ? ? ? */
  56 /* STRUCTURED-DATA
  57 <KEY-OBJECT>
  58 THIS-PROCEDURE
  59 </KEY-OBJECT>
  60 <FOREIGN-KEYS>
  61 GroupName|y|y|TTPL.UsrGroup.GroupName
  62 </FOREIGN-KEYS>
  63 <EXECUTING-CODE>
  64 **************************
  65 * Set attributes related to FOREIGN KEYS
  66 */
  67 RUN set-attribute-list (
  68     'Keys-Accepted = "GroupName",
  69      Keys-Supplied = "GroupName"':U).
  70 /**************************
  71 </EXECUTING-CODE> */
  72 /* _UIB-CODE-BLOCK-END */
  73 &ANALYZE-RESUME
  74
  75
  76 /* ***********************  Control Definitions  ********************** */
  77
  78
  79 /* Menu Definitions                                                     */
  80 DEFINE MENU POPUP-MENU-sel_iavail
  81        MENU-ITEM m_AvailEdit    LABEL "Edit Link"     .
  82
  83 DEFINE MENU POPUP-MENU-sel_icurr
  84        MENU-ITEM m_Edit         LABEL "&Edit Link"
  85        MENU-ITEM m_Edit_i-Target LABEL "Edit &Target"
  86        MENU-ITEM m_Change_i-Group LABEL "Change &Group" .
  87
  88 DEFINE MENU POPUP-MENU-sel_mcurr
  89        MENU-ITEM m_Edit_m-node  LABEL "&Edit node"
  90        MENU-ITEM m_Change_m-Group LABEL "Change &Group" .
  91
  92
  93 /* Definitions of the field level widgets                               */
  94 DEFINE BUTTON btn_iadd
  95      LABEL "&Add"
  96      SIZE 10.29 BY 1.05
  97      FONT 10.
  98
  99 DEFINE BUTTON btn_idown
 100      LABEL "Move &Down"
 101      SIZE 10.29 BY 1.05
 102      FONT 10.
 103
 104 DEFINE BUTTON btn_irem
 105      LABEL "&Remove"
 106      SIZE 10.29 BY 1.05
 107      FONT 10.
 108
 109 DEFINE BUTTON btn_iup
 110      LABEL "Move &Up"
 111      SIZE 10.29 BY 1.05
 112      FONT 10.
 113
 114 DEFINE BUTTON btn_madd
 115      LABEL "Add"
 116      SIZE 10.29 BY 1.05
 117      FONT 10.
 118
 119 DEFINE BUTTON btn_mrem
 120      LABEL "Remove"
 121      SIZE 10.29 BY 1.05
 122      FONT 10.
 123
 124 DEFINE BUTTON btn_save
 125      LABEL "&Save"
 126      SIZE 10 BY 1.05
 127      FONT 10.
 128
 129 DEFINE VARIABLE sel_iavail AS CHARACTER
 130      VIEW-AS SELECTION-LIST MULTIPLE SORT SCROLLBAR-VERTICAL
 131      SIZE 30 BY 13
 132      FONT 10 NO-UNDO.
 133
 134 DEFINE VARIABLE sel_icurr AS CHARACTER
 135      VIEW-AS SELECTION-LIST MULTIPLE SCROLLBAR-VERTICAL
 136      SIZE 30 BY 13
 137      FONT 10 NO-UNDO.
 138
 139 DEFINE VARIABLE sel_mavail AS CHARACTER
 140      VIEW-AS SELECTION-LIST SINGLE SORT SCROLLBAR-VERTICAL
 141      SIZE 30 BY 8.5
 142      FONT 10 NO-UNDO.
 143
 144 DEFINE VARIABLE sel_mcurr AS CHARACTER
 145      VIEW-AS SELECTION-LIST SINGLE SORT SCROLLBAR-VERTICAL
 146      SIZE 30 BY 8.5
 147      FONT 10 NO-UNDO.
 148
 149 DEFINE VARIABLE tgl_topmost AS LOGICAL INITIAL no
 150      LABEL "On Top ?"
 151      VIEW-AS TOGGLE-BOX
 152      SIZE 10 BY 1
 153      FONT 10 NO-UNDO.
 154
 155
 156 /* ************************  Frame Definitions  *********************** */
 157
 158 DEFINE FRAME F-Main
 159      tgl_topmost AT ROW 1 COL 65
 160      sel_mavail AT ROW 2 COL 2 NO-LABEL
 161      btn_madd AT ROW 2 COL 33
 162      sel_mcurr AT ROW 2 COL 45 NO-LABEL
 163      btn_mrem AT ROW 3.2 COL 33
 164      sel_iavail AT ROW 11.5 COL 2 NO-LABEL
 165      btn_save AT ROW 11.5 COL 33
 166      sel_icurr AT ROW 11.5 COL 45 NO-LABEL
 167      btn_iadd AT ROW 16 COL 33
 168      btn_irem AT ROW 17.2 COL 33
 169      btn_iup AT ROW 20.5 COL 33
 170      btn_idown AT ROW 21.7 COL 33
 171      "Current Items" VIEW-AS TEXT
 172           SIZE 10 BY 1 AT ROW 10.5 COL 45
 173           FONT 10
 174      "Available Items" VIEW-AS TEXT
 175           SIZE 11 BY 1 AT ROW 10.5 COL 2
 176           FONT 10
 177      "Current Menus" VIEW-AS TEXT
 178           SIZE 13.72 BY 1 AT ROW 1 COL 45
 179           FONT 10
 180      "Available Menus" VIEW-AS TEXT
 181           SIZE 16 BY 1 AT ROW 1 COL 2
 182           FONT 10
 183     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 184          SIDE-LABELS NO-UNDERLINE THREE-D
 185          AT COL 1 ROW 1 SCROLLABLE .
 186
 187
 188 /* *********************** Procedure Settings ************************ */
 189
 190 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 191 /* Settings for THIS-PROCEDURE
 192    Type: SmartViewer
 193    Allow: Basic,DB-Fields
 194    Frames: 1
 195    Add Fields to: EXTERNAL-TABLES
 196    Other Settings: PERSISTENT-ONLY COMPILE
 197  */
 198
 199 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 200 /* then cleanup and return.                                            */
 201 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 202   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 203           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 204   RETURN.
 205 END.
 206
 207 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 208
 209 /* *************************  Create Window  ************************** */
 210
 211 &ANALYZE-SUSPEND _CREATE-WINDOW
 212 /* DESIGN Window definition (used by the UIB)
 213   CREATE WINDOW V-table-Win ASSIGN
 214          HEIGHT             = 23.95
 215          WIDTH              = 75.43.
 216 /* END WINDOW DEFINITION */
 217                                                                         */
 218 &ANALYZE-RESUME
 219
 220
 221 /* ***************  Runtime Attributes and UIB Settings  ************** */
 222
 223 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 224 /* SETTINGS FOR WINDOW V-table-Win
 225   VISIBLE,,RUN-PERSISTENT                                               */
 226 /* SETTINGS FOR FRAME F-Main
 227    NOT-VISIBLE Size-to-Fit                                              */
 228 ASSIGN
 229        FRAME F-Main:SCROLLABLE       = FALSE
 230        FRAME F-Main:HIDDEN           = TRUE.
 231
 232 ASSIGN
 233        sel_iavail:POPUP-MENU IN FRAME F-Main       = MENU POPUP-MENU-sel_iavail:HANDLE.
 234
 235 ASSIGN
 236        sel_icurr:POPUP-MENU IN FRAME F-Main       = MENU POPUP-MENU-sel_icurr:HANDLE.
 237
 238 ASSIGN
 239        sel_mcurr:POPUP-MENU IN FRAME F-Main       = MENU POPUP-MENU-sel_mcurr:HANDLE.
 240
 241 /* _RUN-TIME-ATTRIBUTES-END */
 242 &ANALYZE-RESUME
 243
 244
 245 /* Setting information for Queries and Browse Widgets fields            */
 246
 247 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 248 /* Query rebuild information for FRAME F-Main
 249      _Options          = "NO-LOCK"
 250      _Query            is NOT OPENED
 251 */  /* FRAME F-Main */
 252 &ANALYZE-RESUME
 253
 254
 255
 256
 257 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 258 /* ************************* Included-Libraries *********************** */
 259
 260 {src/adm/method/viewer.i}
 261 {inc/method/m-mntvwr.i}
 262
 263 /* _UIB-CODE-BLOCK-END */
 264 &ANALYZE-RESUME
 265
 266
 267
 268
 269 /* ************************  Control Triggers  ************************ */
 270
 271 &Scoped-define SELF-NAME btn_iadd
 272 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_iadd V-table-Win
 273 ON CHOOSE OF btn_iadd IN FRAME F-Main /* Add */
 274 DO:
 275   RUN add-item.
 276 END.
 277
 278 /* _UIB-CODE-BLOCK-END */
 279 &ANALYZE-RESUME
 280
 281
 282 &Scoped-define SELF-NAME btn_idown
 283 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_idown V-table-Win
 284 ON CHOOSE OF btn_idown IN FRAME F-Main /* Move Down */
 285 DO:
 286   RUN move-item-down.
 287 END.
 288
 289 /* _UIB-CODE-BLOCK-END */
 290 &ANALYZE-RESUME
 291
 292
 293 &Scoped-define SELF-NAME btn_irem
 294 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_irem V-table-Win
 295 ON CHOOSE OF btn_irem IN FRAME F-Main /* Remove */
 296 DO:
 297   RUN remove-item.
 298 END.
 299
 300 /* _UIB-CODE-BLOCK-END */
 301 &ANALYZE-RESUME
 302
 303
 304 &Scoped-define SELF-NAME btn_iup
 305 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_iup V-table-Win
 306 ON CHOOSE OF btn_iup IN FRAME F-Main /* Move Up */
 307 DO:
 308   RUN move-item-up.
 309 END.
 310
 311 /* _UIB-CODE-BLOCK-END */
 312 &ANALYZE-RESUME
 313
 314
 315 &Scoped-define SELF-NAME btn_madd
 316 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_madd V-table-Win
 317 ON CHOOSE OF btn_madd IN FRAME F-Main /* Add */
 318 DO:
 319   RUN add-menu.
 320 END.
 321
 322 /* _UIB-CODE-BLOCK-END */
 323 &ANALYZE-RESUME
 324
 325
 326 &Scoped-define SELF-NAME btn_mrem
 327 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_mrem V-table-Win
 328 ON CHOOSE OF btn_mrem IN FRAME F-Main /* Remove */
 329 DO:
 330   RUN remove-menu.
 331 END.
 332
 333 /* _UIB-CODE-BLOCK-END */
 334 &ANALYZE-RESUME
 335
 336
 337 &Scoped-define SELF-NAME btn_save
 338 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_save V-table-Win
 339 ON CHOOSE OF btn_save IN FRAME F-Main /* Save */
 340 DO:
 341   RUN save-items.
 342 END.
 343
 344 /* _UIB-CODE-BLOCK-END */
 345 &ANALYZE-RESUME
 346
 347
 348 &Scoped-define SELF-NAME m_AvailEdit
 349 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_AvailEdit V-table-Win
 350 ON CHOOSE OF MENU-ITEM m_AvailEdit /* Edit Link */
 351 DO:
 352 DO WITH FRAME {&FRAME-NAME}:
 353   FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = INPUT sel_iavail.
 354   RUN edit-link-dialog( ItemNode.LinkCode ).
 355 END.
 356 END.
 357
 358 /* _UIB-CODE-BLOCK-END */
 359 &ANALYZE-RESUME
 360
 361
 362 &Scoped-define SELF-NAME m_Change_i-Group
 363 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Change_i-Group V-table-Win
 364 ON CHOOSE OF MENU-ITEM m_Change_i-Group /* Change Group */
 365 DO:
 366   RUN item-group-dialog.
 367 END.
 368
 369 /* _UIB-CODE-BLOCK-END */
 370 &ANALYZE-RESUME
 371
 372
 373 &Scoped-define SELF-NAME m_Change_m-Group
 374 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Change_m-Group V-table-Win
 375 ON CHOOSE OF MENU-ITEM m_Change_m-Group /* Change Group */
 376 DO:
 377   RUN menu-group-dialog.
 378 END.
 379
 380 /* _UIB-CODE-BLOCK-END */
 381 &ANALYZE-RESUME
 382
 383
 384 &Scoped-define SELF-NAME m_Edit
 385 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Edit V-table-Win
 386 ON CHOOSE OF MENU-ITEM m_Edit /* Edit Link */
 387 DO:
 388 DO WITH FRAME {&FRAME-NAME}:
 389   FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = INPUT sel_icurr.
 390   RUN edit-link-dialog( ItemNode.LinkCode ).
 391 END.
 392 END.
 393
 394 /* _UIB-CODE-BLOCK-END */
 395 &ANALYZE-RESUME
 396
 397
 398 &Scoped-define SELF-NAME m_Edit_i-Target
 399 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Edit_i-Target V-table-Win
 400 ON CHOOSE OF MENU-ITEM m_Edit_i-Target /* Edit Target */
 401 DO:
 402   RUN edit-target-dialog.
 403 END.
 404
 405 /* _UIB-CODE-BLOCK-END */
 406 &ANALYZE-RESUME
 407
 408
 409 &Scoped-define SELF-NAME m_Edit_m-node
 410 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Edit_m-node V-table-Win
 411 ON CHOOSE OF MENU-ITEM m_Edit_m-node /* Edit node */
 412 DO:
 413   RUN edit-node-dialog.
 414 END.
 415
 416 /* _UIB-CODE-BLOCK-END */
 417 &ANALYZE-RESUME
 418
 419
 420 &Scoped-define SELF-NAME sel_iavail
 421 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_iavail V-table-Win
 422 ON CURSOR-RIGHT OF sel_iavail IN FRAME F-Main
 423 OR "CURSOR-LEFT" OF {&SELF-NAME} DO:
 424   RETURN NO-APPLY.
 425 END.
 426
 427 /* _UIB-CODE-BLOCK-END */
 428 &ANALYZE-RESUME
 429
 430
 431 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_iavail V-table-Win
 432 ON MOUSE-SELECT-DBLCLICK OF sel_iavail IN FRAME F-Main
 433 DO:
 434   APPLY 'CHOOSE':U TO btn_iadd .
 435 END.
 436
 437 /* _UIB-CODE-BLOCK-END */
 438 &ANALYZE-RESUME
 439
 440
 441 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_iavail V-table-Win
 442 ON VALUE-CHANGED OF sel_iavail IN FRAME F-Main
 443 DO:
 444   RUN update-item-buttons.
 445 END.
 446
 447 /* _UIB-CODE-BLOCK-END */
 448 &ANALYZE-RESUME
 449
 450
 451 &Scoped-define SELF-NAME sel_icurr
 452 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_icurr V-table-Win
 453 ON CURSOR-RIGHT OF sel_icurr IN FRAME F-Main
 454 OR "CURSOR-LEFT" OF {&SELF-NAME} DO:
 455   RETURN NO-APPLY.
 456 END.
 457
 458 /* _UIB-CODE-BLOCK-END */
 459 &ANALYZE-RESUME
 460
 461
 462 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_icurr V-table-Win
 463 ON MOUSE-SELECT-DBLCLICK OF sel_icurr IN FRAME F-Main
 464 DO:
 465   APPLY 'CHOOSE':U TO btn_irem .
 466 END.
 467
 468 /* _UIB-CODE-BLOCK-END */
 469 &ANALYZE-RESUME
 470
 471
 472 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_icurr V-table-Win
 473 ON VALUE-CHANGED OF sel_icurr IN FRAME F-Main
 474 DO:
 475   RUN update-item-buttons.
 476 END.
 477
 478 /* _UIB-CODE-BLOCK-END */
 479 &ANALYZE-RESUME
 480
 481
 482 &Scoped-define SELF-NAME sel_mavail
 483 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_mavail V-table-Win
 484 ON MOUSE-SELECT-DBLCLICK OF sel_mavail IN FRAME F-Main
 485 DO:
 486   APPLY 'CHOOSE':U TO btn_madd .
 487 END.
 488
 489 /* _UIB-CODE-BLOCK-END */
 490 &ANALYZE-RESUME
 491
 492
 493 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_mavail V-table-Win
 494 ON VALUE-CHANGED OF sel_mavail IN FRAME F-Main
 495 DO:
 496   RUN update-menu-buttons.
 497 END.
 498
 499 /* _UIB-CODE-BLOCK-END */
 500 &ANALYZE-RESUME
 501
 502
 503 &Scoped-define SELF-NAME sel_mcurr
 504 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_mcurr V-table-Win
 505 ON MOUSE-SELECT-DBLCLICK OF sel_mcurr IN FRAME F-Main
 506 DO:
 507   APPLY 'CHOOSE':U TO btn_mrem .
 508 END.
 509
 510 /* _UIB-CODE-BLOCK-END */
 511 &ANALYZE-RESUME
 512
 513
 514 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL sel_mcurr V-table-Win
 515 ON VALUE-CHANGED OF sel_mcurr IN FRAME F-Main
 516 DO:
 517   RUN current-menu-changed.
 518 END.
 519
 520 /* _UIB-CODE-BLOCK-END */
 521 &ANALYZE-RESUME
 522
 523
 524 &Scoped-define SELF-NAME tgl_topmost
 525 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tgl_topmost V-table-Win
 526 ON VALUE-CHANGED OF tgl_topmost IN FRAME F-Main /* On Top ? */
 527 DO:
 528   RUN top-most-changed.
 529 END.
 530
 531 /* _UIB-CODE-BLOCK-END */
 532 &ANALYZE-RESUME
 533
 534
 535 &UNDEFINE SELF-NAME
 536
 537 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 538
 539
 540 /* ***************************  Main Block  *************************** */
 541
 542   &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
 543     RUN dispatch IN THIS-PROCEDURE ('initialize':U).
 544   &ENDIF
 545
 546   /************************ INTERNAL PROCEDURES ********************/
 547
 548 /* _UIB-CODE-BLOCK-END */
 549 &ANALYZE-RESUME
 550
 551
 552 /* **********************  Internal Procedures  *********************** */
 553
 554 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE add-item V-table-Win
 555 PROCEDURE add-item :
 556 /*------------------------------------------------------------------------------
 557   Purpose:
 558   Parameters:  <none>
 559   Notes:
 560 ------------------------------------------------------------------------------*/
 561
 562 DO WITH FRAME {&FRAME-NAME}:
 563   RUN move-item( sel_iavail:HANDLE, sel_icurr:HANDLE, "C" ).
 564 END.
 565
 566 END PROCEDURE.
 567
 568 /* _UIB-CODE-BLOCK-END */
 569 &ANALYZE-RESUME
 570
 571
 572 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE add-menu V-table-Win
 573 PROCEDURE add-menu :
 574 /*------------------------------------------------------------------------------
 575   Purpose:
 576   Parameters:  <none>
 577   Notes:
 578 ------------------------------------------------------------------------------*/
 579
 580 DO WITH FRAME {&FRAME-NAME}:
 581
 582   IF NOT AVAILABLE UsrGroup THEN RETURN.
 583
 584   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
 585
 586   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mavail.
 587   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
 588
 589   CREATE UsrGroupMenu.
 590   ASSIGN
 591     UsrGroupMenu.GroupName = UsrGroup.GroupName
 592     UsrGroupMenu.MenuName  = LinkNode.Description
 593     UsrGroupMenu.NodeCode  = LinkNode.NodeCode.
 594
 595   IF sel_mcurr:ADD-LAST( UsrGroupMenu.MenuName ) THEN.
 596   sel_mcurr:SCREEN-VALUE = UsrGroupMenu.MenuName.
 597   IF sel_mavail:DELETE( INPUT sel_mavail ) THEN.
 598
 599   RUN update-menu-buttons.
 600   RUN refresh-items.
 601
 602   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
 603
 604 END.
 605
 606 END PROCEDURE.
 607
 608 /* _UIB-CODE-BLOCK-END */
 609 &ANALYZE-RESUME
 610
 611
 612 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-find-using-key V-table-Win adm/support/_key-fnd.p
 613 PROCEDURE adm-find-using-key :
 614 /*------------------------------------------------------------------------------
 615   Purpose:     Finds the current record using the contents of
 616                the 'Key-Name' and 'Key-Value' attributes.
 617   Parameters:  <none>
 618 ------------------------------------------------------------------------------*/
 619   DEF VAR key-value AS CHAR NO-UNDO.
 620   DEF VAR row-avail-enabled AS LOGICAL NO-UNDO.
 621
 622   /* LOCK status on the find depends on FIELDS-ENABLED. */
 623   RUN get-attribute ('FIELDS-ENABLED':U).
 624   row-avail-enabled = (RETURN-VALUE eq 'yes':U).
 625   /* Look up the current key-value. */
 626   RUN get-attribute ('Key-Value':U).
 627   key-value = RETURN-VALUE.
 628
 629   /* Find the current record using the current Key-Name. */
 630   RUN get-attribute ('Key-Name':U).
 631   CASE RETURN-VALUE:
 632     WHEN 'GroupName':U THEN
 633        {src/adm/template/find-tbl.i
 634            &TABLE = UsrGroup
 635            &WHERE = "WHERE UsrGroup.GroupName eq key-value"
 636        }
 637   END CASE.
 638
 639 END PROCEDURE.
 640
 641 /* _UIB-CODE-BLOCK-END */
 642 &ANALYZE-RESUME
 643
 644
 645 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win _ADM-ROW-AVAILABLE
 646 PROCEDURE adm-row-available :
 647 /*------------------------------------------------------------------------------
 648   Purpose:     Dispatched to this procedure when the Record-
 649                Source has a new row available.  This procedure
 650                tries to get the new row (or foriegn keys) from
 651                the Record-Source and process it.
 652   Parameters:  <none>
 653 ------------------------------------------------------------------------------*/
 654
 655   /* Define variables needed by this internal procedure.             */
 656   {src/adm/template/row-head.i}
 657
 658   /* Process the newly available records (i.e. display fields,
 659      open queries, and/or pass records on to any RECORD-TARGETS).    */
 660   {src/adm/template/row-end.i}
 661
 662 END PROCEDURE.
 663
 664 /* _UIB-CODE-BLOCK-END */
 665 &ANALYZE-RESUME
 666
 667
 668 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE current-menu-changed V-table-Win
 669 PROCEDURE current-menu-changed :
 670 /*------------------------------------------------------------------------------
 671   Purpose:
 672   Parameters:  <none>
 673   Notes:
 674 ------------------------------------------------------------------------------*/
 675
 676   menu-altered = No.
 677   RUN refresh-items.
 678   RUN update-menu-buttons.
 679
 680 END PROCEDURE.
 681
 682 /* _UIB-CODE-BLOCK-END */
 683 &ANALYZE-RESUME
 684
 685
 686 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win _DEFAULT-DISABLE
 687 PROCEDURE disable_UI :
 688 /*------------------------------------------------------------------------------
 689   Purpose:     DISABLE the User Interface
 690   Parameters:  <none>
 691   Notes:       Here we clean-up the user-interface by deleting
 692                dynamic widgets we have created and/or hide
 693                frames.  This procedure is usually called when
 694                we are ready to "clean-up" after running.
 695 ------------------------------------------------------------------------------*/
 696   /* Hide all frames. */
 697   HIDE FRAME F-Main.
 698   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 699 END PROCEDURE.
 700
 701 /* _UIB-CODE-BLOCK-END */
 702 &ANALYZE-RESUME
 703
 704
 705 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE edit-link-dialog V-table-Win
 706 PROCEDURE edit-link-dialog :
 707 /*------------------------------------------------------------------------------
 708   Purpose:
 709 ------------------------------------------------------------------------------*/
 710 DEF INPUT PARAMETER link-code AS INT NO-UNDO.
 711
 712   FIND ProgramLink WHERE ProgramLink.LinkCode = link-code NO-LOCK.
 713
 714   RUN lnk/d-edtlnk.w ( ProgramLink.LinkCode ).
 715
 716 END PROCEDURE.
 717
 718 /* _UIB-CODE-BLOCK-END */
 719 &ANALYZE-RESUME
 720
 721
 722 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE edit-node-dialog V-table-Win
 723 PROCEDURE edit-node-dialog :
 724 /*------------------------------------------------------------------------------
 725   Purpose:
 726 ------------------------------------------------------------------------------*/
 727 DO WITH FRAME {&FRAME-NAME}:
 728
 729   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr.
 730   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
 731
 732   RUN lnk/d-edtnod.w ( LinkNode.NodeCode ).
 733 END.
 734 END PROCEDURE.
 735
 736 /* _UIB-CODE-BLOCK-END */
 737 &ANALYZE-RESUME
 738
 739
 740 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE edit-target-dialog V-table-Win
 741 PROCEDURE edit-target-dialog :
 742 /*------------------------------------------------------------------------------
 743   Purpose:
 744 ------------------------------------------------------------------------------*/
 745 DO WITH FRAME {&FRAME-NAME}:
 746
 747   FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = INPUT sel_icurr.
 748   FIND ProgramLink WHERE ProgramLink.LinkCode = ItemNode.LinkCode NO-LOCK.
 749
 750   RUN lnk/d-edtnod.w ( ProgramLink.Target ).
 751 END.
 752 END PROCEDURE.
 753
 754 /* _UIB-CODE-BLOCK-END */
 755 &ANALYZE-RESUME
 756
 757
 758 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 759 PROCEDURE inst-initialize :
 760 /*------------------------------------------------------------------------------
 761   Purpose:
 762   Parameters:  <none>
 763   Notes:
 764 ------------------------------------------------------------------------------*/
 765
 766   this-win = {&WINDOW-NAME}:HANDLE .
 767 /*  tgl_topmost:SCREEN-VALUE IN FRAME {&FRAME-NAME} = "Yes". */
 768   RUN top-most-changed.
 769
 770 END PROCEDURE.
 771
 772 /* _UIB-CODE-BLOCK-END */
 773 &ANALYZE-RESUME
 774
 775
 776 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-row-available V-table-Win
 777 PROCEDURE inst-row-available :
 778 /*------------------------------------------------------------------------------
 779   Purpose:
 780   Parameters:  <none>
 781   Notes:
 782 ------------------------------------------------------------------------------*/
 783
 784   RUN dispatch( 'find-using-key':u ).
 785   IF NOT AVAILABLE UsrGroup THEN RETURN.
 786
 787   CURRENT-WINDOW:TITLE = "Menus - " + UsrGroup.GroupName.
 788   IF ROWID( UsrGroup ) <> last-id THEN RUN refresh-menus.
 789   last-id = ROWID( UsrGroup ).
 790   RUN update-node IN sys-mgr ( THIS-PROCEDURE ).
 791
 792 END PROCEDURE.
 793
 794 /* _UIB-CODE-BLOCK-END */
 795 &ANALYZE-RESUME
 796
 797
 798 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE item-group-dialog V-table-Win
 799 PROCEDURE item-group-dialog :
 800 /*------------------------------------------------------------------------------
 801   Purpose:
 802 ------------------------------------------------------------------------------*/
 803 DO WITH FRAME {&FRAME-NAME}:
 804
 805   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr.
 806   FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = INPUT sel_icurr.
 807
 808   RUN lnk/d-movlnk.w ( UsrGroup.GroupName, MenuNode.NodeCode, ItemNode.LinkCode ).
 809   IF RETURN-VALUE = "CHANGED" THEN RUN current-menu-changed.
 810
 811 END.
 812 END PROCEDURE.
 813
 814 /* _UIB-CODE-BLOCK-END */
 815 &ANALYZE-RESUME
 816
 817
 818 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE menu-group-dialog V-table-Win
 819 PROCEDURE menu-group-dialog :
 820 /*------------------------------------------------------------------------------
 821   Purpose:
 822 ------------------------------------------------------------------------------*/
 823 DO WITH FRAME {&FRAME-NAME}:
 824
 825   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr.
 826
 827   RUN lnk/d-movnod.w ( UsrGroup.GroupName, MenuNode.NodeCode ).
 828   IF RETURN-VALUE = "CHANGED" THEN RUN refresh-menus.
 829 END.
 830 END PROCEDURE.
 831
 832 /* _UIB-CODE-BLOCK-END */
 833 &ANALYZE-RESUME
 834
 835
 836 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE move-item V-table-Win
 837 PROCEDURE move-item :
 838 /*------------------------------------------------------------------------------
 839   Purpose:
 840   Parameters:  <none>
 841   Notes:
 842 ------------------------------------------------------------------------------*/
 843
 844   DEF INPUT PARAMETER h-from   AS HANDLE NO-UNDO.
 845   DEF INPUT PARAMETER h-to     AS HANDLE NO-UNDO.
 846   DEF INPUT PARAMETER i-status AS CHAR   NO-UNDO.
 847
 848 DO WITH FRAME {&FRAME-NAME}:
 849
 850   DEF VAR i     AS INT  NO-UNDO.
 851   DEF VAR sv    AS CHAR NO-UNDO.
 852   DEF VAR delim AS CHAR NO-UNDO.
 853   DEF VAR item  AS CHAR NO-UNDO.
 854
 855   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
 856
 857   delim = h-from:DELIMITER.
 858   sv    = h-from:SCREEN-VALUE.
 859
 860   DO i = 1 TO NUM-ENTRIES( sv, delim ):
 861
 862     item = ENTRY( i, sv, delim ).
 863     FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = item.
 864     ASSIGN ItemNode.ItemStatus = i-status.
 865
 866     IF h-to:ADD-LAST( item ) THEN.
 867     IF h-from:DELETE( item ) THEN.
 868
 869   END.
 870
 871   menu-altered = Yes.
 872   RUN update-item-buttons.
 873
 874   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
 875
 876 END.
 877
 878 END PROCEDURE.
 879
 880 /* _UIB-CODE-BLOCK-END */
 881 &ANALYZE-RESUME
 882
 883
 884 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE move-item-down V-table-Win
 885 PROCEDURE move-item-down :
 886 /*------------------------------------------------------------------------------
 887   Purpose:
 888   Parameters:  <none>
 889   Notes:
 890 ------------------------------------------------------------------------------*/
 891
 892 DO WITH FRAME {&FRAME-NAME}:
 893
 894   DEF VAR i AS INT NO-UNDO.
 895   DEF VAR sv AS CHAR NO-UNDO.
 896   DEF VAR li AS CHAR NO-UNDO.
 897   DEF VAR delim AS CHAR NO-UNDO.
 898
 899   sv = INPUT sel_icurr.
 900   li = sel_icurr:LIST-ITEMS.
 901   delim = sel_icurr:DELIMITER.
 902
 903   DEF VAR pos AS INT NO-UNDO.
 904   DEF VAR curr-val AS CHAR NO-UNDO.
 905
 906   DO i = NUM-ENTRIES( sv, delim ) TO 1 BY -1:
 907     curr-val = ENTRY( i, sv, delim ).
 908     pos = LOOKUP( curr-val, li, delim ).
 909     IF sel_icurr:REPLACE( sel_icurr:ENTRY( pos + 1 ), pos ) THEN.
 910     IF sel_icurr:REPLACE( curr-val, pos + 1 ) THEN.
 911   END.
 912
 913   menu-altered = Yes.
 914   sel_icurr:SCREEN-VALUE = sv.
 915   RUN update-item-buttons.
 916
 917 END.
 918
 919 END PROCEDURE.
 920
 921 /* _UIB-CODE-BLOCK-END */
 922 &ANALYZE-RESUME
 923
 924
 925 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE move-item-up V-table-Win
 926 PROCEDURE move-item-up :
 927 /*------------------------------------------------------------------------------
 928   Purpose:
 929   Parameters:  <none>
 930   Notes:
 931 ------------------------------------------------------------------------------*/
 932
 933 DO WITH FRAME {&FRAME-NAME}:
 934
 935   DEF VAR i AS INT NO-UNDO.
 936   DEF VAR sv AS CHAR NO-UNDO.
 937   DEF VAR li AS CHAR NO-UNDO.
 938   DEF VAR delim AS CHAR NO-UNDO.
 939
 940   sv = INPUT sel_icurr.
 941   li = sel_icurr:LIST-ITEMS.
 942   delim = sel_icurr:DELIMITER.
 943
 944   DEF VAR pos AS INT NO-UNDO.
 945   DEF VAR curr-val AS CHAR NO-UNDO.
 946
 947   DO i = 1 TO NUM-ENTRIES( sv, delim ):
 948     curr-val = ENTRY( i, sv, delim ).
 949     pos = LOOKUP( curr-val, li, delim ).
 950     IF sel_icurr:REPLACE( sel_icurr:ENTRY( pos - 1 ), pos ) THEN.
 951     IF sel_icurr:REPLACE( curr-val, pos - 1 ) THEN.
 952   END.
 953
 954   menu-altered = Yes.
 955   sel_icurr:SCREEN-VALUE = sv.
 956   RUN update-item-buttons.
 957
 958 END.
 959
 960 END PROCEDURE.
 961
 962 /* _UIB-CODE-BLOCK-END */
 963 &ANALYZE-RESUME
 964
 965
 966 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-row-available V-table-Win
 967 PROCEDURE pre-row-available :
 968 /*------------------------------------------------------------------------------
 969   Purpose:
 970   Parameters:  <none>
 971   Notes:
 972 ------------------------------------------------------------------------------*/
 973
 974   have-records = No.
 975
 976 END PROCEDURE.
 977
 978 /* _UIB-CODE-BLOCK-END */
 979 &ANALYZE-RESUME
 980
 981
 982 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE refresh-available-items V-table-Win
 983 PROCEDURE refresh-available-items :
 984 /*------------------------------------------------------------------------------
 985   Purpose:
 986   Parameters:  <none>
 987   Notes:
 988 ------------------------------------------------------------------------------*/
 989
 990 DO WITH FRAME {&FRAME-NAME}:
 991
 992   sel_iavail:LIST-ITEMS = "".
 993   DEF VAR screen-label AS CHAR NO-UNDO.
 994
 995   IF NOT AVAILABLE UsrGroup THEN RETURN.
 996
 997   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr NO-ERROR.
 998   IF NOT AVAILABLE MenuNode THEN RETURN.
 999
1000   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
1001   FIND UsrGroupMenu OF UsrGroup WHERE
1002     UsrGroupMenu.NodeCode = LinkNode.NodeCode NO-LOCK.
1003
1004   IF LinkNode.NodeType = "MN" THEN
1005     FIND LinkNode WHERE LinkNode.File = 'win/w-mainmn.w':U NO-LOCK.
1006
1007   FOR EACH ProgramLink NO-LOCK WHERE
1008     ProgramLink.Source =  LinkNode.NodeCode AND
1009     NOT CAN-FIND( FIRST UsrGroupMenuItem OF UsrGroupMenu WHERE
1010       UsrGroupMenuItem.LinkCode = ProgramLink.LinkCode ):
1011
1012 /*    IF ProgramLink.Target = LinkNode.NodeCode THEN NEXT. */
1013
1014     /* This will ensure uniqueness by tagging with the linkcode */
1015     screen-label = ProgramLink.ButtonLabel + FILL( " ", 100 ) + STRING( ProgramLink.LinkCode ).
1016
1017     IF sel_iavail:ADD-LAST( screen-label ) THEN DO:
1018       CREATE ItemNode.
1019       ASSIGN
1020         ItemNode.LinkCode    = ProgramLink.LinkCode
1021         ItemNode.ButtonLabel = screen-label
1022         ItemNode.ItemStatus  = "A".
1023     END.
1024
1025   END.
1026
1027   RUN update-item-buttons.
1028
1029 END.
1030
1031 END PROCEDURE.
1032
1033 /* _UIB-CODE-BLOCK-END */
1034 &ANALYZE-RESUME
1035
1036
1037 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE refresh-current-items V-table-Win
1038 PROCEDURE refresh-current-items :
1039 /*------------------------------------------------------------------------------
1040   Purpose:
1041   Parameters:  <none>
1042   Notes:
1043 ------------------------------------------------------------------------------*/
1044
1045 DO WITH FRAME {&FRAME-NAME}:
1046
1047   DEF VAR screen-label AS CHAR NO-UNDO.
1048
1049   sel_icurr:LIST-ITEMS = "".
1050
1051   IF NOT AVAILABLE UsrGroup THEN RETURN.
1052
1053   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr NO-ERROR.
1054   IF NOT AVAILABLE MenuNode THEN RETURN.
1055
1056   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
1057   FIND UsrGroupMenu OF UsrGroup WHERE
1058     UsrGroupMenu.NodeCode = LinkNode.NodeCode NO-LOCK.
1059
1060   FOR EACH UsrGroupMenuItem OF UsrGroupMenu NO-LOCK
1061     BY UsrGroupMenuItem.SequenceCode:
1062
1063     /* This will ensure label uniqueness by tagging with the linkcode */
1064     screen-label = UsrGroupMenuItem.ButtonLabel + FILL( " ", 100 ) + STRING( UsrGroupMenuItem.LinkCode ).
1065     IF sel_icurr:ADD-LAST( screen-label ) THEN
1066     DO:
1067       CREATE ItemNode.
1068       ASSIGN
1069         ItemNode.LinkCode    = UsrGroupMenuItem.LinkCode
1070         ItemNode.ButtonLabel = screen-label
1071         ItemNode.ItemStatus  = "C".
1072     END.
1073
1074   END.
1075
1076   RUN update-item-buttons.
1077
1078 END.
1079
1080
1081 END PROCEDURE.
1082
1083 /* _UIB-CODE-BLOCK-END */
1084 &ANALYZE-RESUME
1085
1086
1087 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE refresh-items V-table-Win
1088 PROCEDURE refresh-items :
1089 /*------------------------------------------------------------------------------
1090   Purpose:
1091   Parameters:  <none>
1092   Notes:
1093 ------------------------------------------------------------------------------*/
1094
1095 DO WITH FRAME {&FRAME-NAME}:
1096
1097   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
1098
1099   sel_iavail:LIST-ITEMS = "".
1100   sel_icurr:LIST-ITEMS = "".
1101
1102   FOR EACH ItemNode: DELETE ItemNode. END.
1103
1104   RUN refresh-available-items.
1105   RUN refresh-current-items.
1106   RUN update-item-buttons.
1107
1108   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
1109
1110 END.
1111
1112 END PROCEDURE.
1113
1114 /* _UIB-CODE-BLOCK-END */
1115 &ANALYZE-RESUME
1116
1117
1118 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE refresh-menus V-table-Win
1119 PROCEDURE refresh-menus :
1120 /*------------------------------------------------------------------------------
1121   Purpose:
1122   Parameters:  <none>
1123   Notes:
1124 ------------------------------------------------------------------------------*/
1125
1126 DO WITH FRAME {&FRAME-NAME}:
1127
1128   DEF VAR stat AS LOGI NO-UNDO.
1129
1130   sel_mavail:LIST-ITEMS = "".
1131   sel_mcurr:LIST-ITEMS = "".
1132
1133   IF NOT AVAILABLE UsrGroup THEN RETURN.
1134
1135   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
1136
1137   FOR EACH MenuNode: DELETE MenuNode. END.
1138
1139   FOR EACH LinkNode NO-LOCK WHERE
1140     LinkNode.NodeType <> "MV":
1141
1142     IF CAN-FIND( FIRST UsrGroupMenu WHERE
1143       UsrGroupMenu.Groupname = UsrGroup.GroupName AND
1144       UsrGroupMenu.NodeCode  = LinkNode.NodeCode ) THEN
1145
1146       stat = sel_mcurr:ADD-LAST( LinkNode.Description ).
1147
1148     ELSE
1149     IF (
1150         LinkNode.NodeType = 'MN' OR
1151         CAN-FIND( FIRST ProgramLink WHERE ProgramLink.Source = LinkNode.NodeCode )
1152        ) THEN
1153
1154       stat = sel_mavail:ADD-LAST( LinkNode.Description ).
1155
1156     IF stat THEN
1157     DO:
1158       CREATE MenuNode.
1159       ASSIGN
1160         MenuNode.NodeCode    = LinkNode.NodeCode
1161         MenuNode.Description = LinkNode.Description.
1162     END.
1163
1164   END.
1165
1166   RUN update-buttons.
1167
1168   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
1169
1170 END.
1171
1172 END PROCEDURE.
1173
1174 /* _UIB-CODE-BLOCK-END */
1175 &ANALYZE-RESUME
1176
1177
1178 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE remove-item V-table-Win
1179 PROCEDURE remove-item :
1180 /*------------------------------------------------------------------------------
1181   Purpose:
1182   Parameters:  <none>
1183   Notes:
1184 ------------------------------------------------------------------------------*/
1185
1186 DO WITH FRAME {&FRAME-NAME}:
1187   RUN move-item( sel_icurr:HANDLE, sel_iavail:HANDLE, "A" ).
1188 END.
1189
1190 END PROCEDURE.
1191
1192 /* _UIB-CODE-BLOCK-END */
1193 &ANALYZE-RESUME
1194
1195
1196 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE remove-menu V-table-Win
1197 PROCEDURE remove-menu :
1198 /*------------------------------------------------------------------------------
1199   Purpose:
1200   Parameters:  <none>
1201   Notes:
1202 ------------------------------------------------------------------------------*/
1203
1204 DO WITH FRAME {&FRAME-NAME}:
1205
1206   IF NOT AVAILABLE UsrGroup THEN RETURN.
1207
1208   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
1209
1210   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr.
1211   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
1212   FIND UsrGroupMenu OF UsrGroup WHERE
1213     UsrGroupMenu.NodeCode = LinkNode.NodeCode EXCLUSIVE-LOCK.
1214   DELETE UsrGroupMenu.
1215
1216   IF sel_mavail:ADD-LAST( INPUT sel_mcurr ) THEN.
1217   sel_mavail:SCREEN-VALUE = INPUT sel_mcurr.
1218   IF sel_mcurr:DELETE( INPUT sel_mcurr ) THEN.
1219
1220   RUN update-menu-buttons.
1221   RUN refresh-items.
1222
1223   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
1224
1225 END.
1226
1227 END PROCEDURE.
1228
1229 /* _UIB-CODE-BLOCK-END */
1230 &ANALYZE-RESUME
1231
1232
1233 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE save-items V-table-Win
1234 PROCEDURE save-items :
1235 /*------------------------------------------------------------------------------
1236   Purpose:
1237   Parameters:  <none>
1238   Notes:
1239 ------------------------------------------------------------------------------*/
1240
1241 DO WITH FRAME {&FRAME-NAME}:
1242
1243   IF NOT AVAILABLE UsrGroup THEN RETURN.
1244
1245   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
1246
1247   FIND FIRST MenuNode WHERE MenuNode.Description = INPUT sel_mcurr NO-ERROR.
1248   IF NOT AVAILABLE MenuNode THEN RETURN.
1249
1250   FIND LinkNode WHERE LinkNode.NodeCode = MenuNode.NodeCode NO-LOCK.
1251   FIND UsrGroupMenu OF UsrGroup WHERE
1252     UsrGroupMenu.NodeCode = LinkNode.NodeCode NO-LOCK.
1253
1254   FOR EACH UsrGroupMenuItem OF UsrGroupMenu:
1255     FIND FIRST ItemNode WHERE ItemNode.LinkCode = UsrGroupMenuItem.LinkCode.
1256     IF ItemNode.ItemStatus = "A" THEN  DELETE UsrGroupMenuItem.
1257   END.
1258
1259   DEF VAR i     AS INT  NO-UNDO.
1260   DEF VAR li    AS CHAR NO-UNDO.
1261   DEF VAR delim AS CHAR NO-UNDO.
1262   DEF VAR item  AS CHAR NO-UNDO.
1263
1264   li    = sel_icurr:LIST-ITEMS.
1265   delim = sel_icurr:DELIMITER.
1266
1267   DO i = 1 TO NUM-ENTRIES( li, delim ):
1268     item = ENTRY( i, li, delim ).
1269     FIND FIRST ItemNode WHERE ItemNode.ButtonLabel = item.
1270     FIND ProgramLink WHERE ProgramLink.LinkCode = ItemNode.LinkCode NO-LOCK.
1271     FIND FIRST UsrGroupMenuItem OF UsrGroupMenu
1272       WHERE UsrGroupMenuItem.LinkCode = ItemNode.LinkCode NO-ERROR.
1273
1274     IF NOT AVAILABLE UsrGroupMenuItem THEN
1275     DO:
1276       CREATE UsrGroupMenuItem.
1277       ASSIGN
1278         UsrGroupMenuItem.GroupName   = UsrGroup.GroupName
1279         UsrGroupMenuItem.MenuName    = UsrGroupMenu.MenuName
1280         UsrGroupMenuItem.LinkCode    = ProgramLink.LinkCode
1281         UsrGroupMenuItem.ButtonLabel = ProgramLink.ButtonLabel.
1282     END.
1283
1284     ASSIGN UsrGroupMenuItem.SequenceCode = i.
1285
1286   END.
1287
1288   menu-altered = No.
1289   RUN update-item-buttons.
1290
1291   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
1292
1293 END.
1294
1295 END PROCEDURE.
1296
1297 /* _UIB-CODE-BLOCK-END */
1298 &ANALYZE-RESUME
1299
1300
1301 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key V-table-Win adm/support/_key-snd.p
1302 PROCEDURE send-key :
1303 /*------------------------------------------------------------------------------
1304   Purpose:     Sends a requested KEY value back to the calling
1305                SmartObject.
1306   Parameters:  <see adm/template/sndkytop.i>
1307 ------------------------------------------------------------------------------*/
1308
1309   /* Define variables needed by this internal procedure.             */
1310   {src/adm/template/sndkytop.i}
1311
1312   /* Return the key value associated with each key case.             */
1313   {src/adm/template/sndkycas.i "GroupName" "UsrGroup" "GroupName"}
1314
1315   /* Close the CASE statement and end the procedure.                 */
1316   {src/adm/template/sndkyend.i}
1317
1318 END PROCEDURE.
1319
1320 /* _UIB-CODE-BLOCK-END */
1321 &ANALYZE-RESUME
1322
1323
1324 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win _ADM-SEND-RECORDS
1325 PROCEDURE send-records :
1326 /*------------------------------------------------------------------------------
1327   Purpose:     Send record ROWID's for all tables used by
1328                this file.
1329   Parameters:  see template/snd-head.i
1330 ------------------------------------------------------------------------------*/
1331
1332   /* SEND-RECORDS does nothing because there are no External
1333      Tables specified for this SmartViewer, and there are no
1334      tables specified in any contained Browse, Query, or Frame. */
1335
1336 END PROCEDURE.
1337
1338 /* _UIB-CODE-BLOCK-END */
1339 &ANALYZE-RESUME
1340
1341
1342 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
1343 PROCEDURE state-changed :
1344 /* -----------------------------------------------------------
1345   Purpose:
1346   Parameters:  <none>
1347   Notes:
1348 -------------------------------------------------------------*/
1349   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
1350   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
1351
1352   CASE p-state:
1353       /* Object instance CASEs can go here to replace standard behavior
1354          or add new cases. */
1355       {src/adm/template/vstates.i}
1356   END CASE.
1357 END PROCEDURE.
1358
1359 /* _UIB-CODE-BLOCK-END */
1360 &ANALYZE-RESUME
1361
1362
1363 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE top-most-changed V-table-Win
1364 PROCEDURE top-most-changed :
1365 /*------------------------------------------------------------------------------
1366   Purpose:
1367 ------------------------------------------------------------------------------*/
1368
1369   IF INPUT FRAME {&FRAME-NAME} tgl_topmost THEN
1370     RUN notify( 'set-topmost,container-source':U ).
1371   ELSE
1372     RUN notify( 'reset-topmost,container-source':U ).
1373
1374 END PROCEDURE.
1375
1376 /* _UIB-CODE-BLOCK-END */
1377 &ANALYZE-RESUME
1378
1379
1380 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE update-buttons V-table-Win
1381 PROCEDURE update-buttons :
1382 /*------------------------------------------------------------------------------
1383   Purpose:
1384   Parameters:  <none>
1385   Notes:
1386 ------------------------------------------------------------------------------*/
1387
1388   RUN update-menu-buttons.
1389   RUN update-item-buttons.
1390
1391 END PROCEDURE.
1392
1393 /* _UIB-CODE-BLOCK-END */
1394 &ANALYZE-RESUME
1395
1396
1397 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE update-item-buttons V-table-Win
1398 PROCEDURE update-item-buttons :
1399 /*------------------------------------------------------------------------------
1400   Purpose:
1401   Parameters:  <none>
1402   Notes:
1403 ------------------------------------------------------------------------------*/
1404
1405 DO WITH FRAME {&FRAME-NAME}:
1406   btn_iadd:SENSITIVE = sel_iavail:SCREEN-VALUE <> "" AND sel_iavail:SCREEN-VALUE <> ?.
1407   btn_irem:SENSITIVE = sel_icurr:SCREEN-VALUE <> ""  AND sel_icurr:SCREEN-VALUE <> ?.
1408
1409   /* Move buttons */
1410
1411   DEF VAR delim AS CHAR NO-UNDO.
1412   delim = sel_icurr:DELIMITER.
1413
1414   btn_iup:SENSITIVE =
1415     ( sel_icurr:SCREEN-VALUE <> "" AND sel_icurr:SCREEN-VALUE <> ? ) AND
1416     ENTRY( 1, INPUT sel_icurr, delim ) <> ENTRY( 1, sel_icurr:LIST-ITEMS, delim ).
1417   btn_idown:SENSITIVE =
1418     ( sel_icurr:SCREEN-VALUE <> "" AND sel_icurr:SCREEN-VALUE <> ? ) AND
1419     ENTRY( NUM-ENTRIES( INPUT sel_icurr, delim ), INPUT sel_icurr, delim ) <>
1420     ENTRY( NUM-ENTRIES( sel_icurr:LIST-ITEMS, delim ), sel_icurr:LIST-ITEMS, delim ).
1421
1422   btn_save:SENSITIVE = menu-altered.
1423
1424 END.
1425
1426 END PROCEDURE.
1427
1428 /* _UIB-CODE-BLOCK-END */
1429 &ANALYZE-RESUME
1430
1431
1432 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE update-menu-buttons V-table-Win
1433 PROCEDURE update-menu-buttons :
1434 /*------------------------------------------------------------------------------
1435   Purpose:
1436   Parameters:  <none>
1437   Notes:
1438 ------------------------------------------------------------------------------*/
1439
1440 DO WITH FRAME {&FRAME-NAME}:
1441   btn_madd:SENSITIVE = sel_mavail:SCREEN-VALUE <> "" AND sel_mavail:SCREEN-VALUE <> ?.
1442   btn_mrem:SENSITIVE = sel_mcurr:SCREEN-VALUE <> ""  AND sel_mcurr:SCREEN-VALUE <> ?.
1443 END.
1444
1445 END PROCEDURE.
1446
1447 /* _UIB-CODE-BLOCK-END */
1448 &ANALYZE-RESUME
1449
1450