lnk/b-srcnde.w

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
   2 &ANALYZE-RESUME
   3 /* Connected Databases
   4 */
   5 &Scoped-define WINDOW-NAME CURRENT-WINDOW
   6 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS B-table-Win
   7 /*------------------------------------------------------------------------
   8 ------------------------------------------------------------------------*/
   9
  10 CREATE WIDGET-POOL.
  11
  12 /* ***************************  Definitions  ************************** */
  13
  14 DEF VAR filter-type AS CHAR INIT "All" NO-UNDO.
  15 DEF VAR filter-case AS CHAR INIT "" NO-UNDO.
  16 DEF VAR node-mnt    AS HANDLE       NO-UNDO.
  17
  18 /* _UIB-CODE-BLOCK-END */
  19 &ANALYZE-RESUME
  20
  21
  22 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  23
  24 /* ********************  Preprocessor Definitions  ******************** */
  25
  26 &Scoped-define PROCEDURE-TYPE SmartBrowser
  27
  28 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  29
  30 /* Name of first Frame and/or Browse and/or first Query                 */
  31 &Scoped-define FRAME-NAME F-Main
  32 &Scoped-define BROWSE-NAME br_table
  33
  34 /* Internal Tables (found by Frame, Query & Browse Queries)             */
  35 &Scoped-define INTERNAL-TABLES LinkNode
  36
  37 /* Definitions for BROWSE br_table                                      */
  38 &Scoped-define FIELDS-IN-QUERY-br_table LinkNode.Description
  39 &Scoped-define ENABLED-FIELDS-IN-QUERY-br_table LinkNode.Description
  40 &Scoped-define FIELD-PAIRS-IN-QUERY-br_table~
  41  ~{&FP1}Description ~{&FP2}Description ~{&FP3}
  42 &Scoped-define ENABLED-TABLES-IN-QUERY-br_table LinkNode
  43 &Scoped-define FIRST-ENABLED-TABLE-IN-QUERY-br_table LinkNode
  44 &Scoped-define SELF-NAME br_table
  45 &Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH LinkNode NO-LOCK         WHERE LinkNode.NodeType BEGINS filter-type           AND LinkNode.Description BEGINS filter-case         BY LinkNode.NodeType BY LinkNode.Description.
  46 &Scoped-define TABLES-IN-QUERY-br_table LinkNode
  47 &Scoped-define FIRST-TABLE-IN-QUERY-br_table LinkNode
  48
  49
  50 /* Definitions for FRAME F-Main                                         */
  51
  52 /* Standard List Definitions                                            */
  53 &Scoped-Define ENABLED-OBJECTS br_table
  54
  55 /* Custom List Definitions                                              */
  56 /* List-1,List-2,List-3,List-4,List-5,List-6                            */
  57
  58 /* _UIB-PREPROCESSOR-BLOCK-END */
  59 &ANALYZE-RESUME
  60
  61
  62
  63 /* ***********************  Control Definitions  ********************** */
  64
  65
  66 /* Menu Definitions                                                     */
  67 DEFINE MENU POPUP-MENU-br_table TITLE "?"
  68        MENU-ITEM m_Create_Node  LABEL "&Create Node"
  69        MENU-ITEM m_Modify_Node  LABEL "&Modify Node"
  70        MENU-ITEM m_Delete_Node  LABEL "&Delete Node"
  71        MENU-ITEM m_Make_Copy    LABEL "Make Co&py"    .
  72
  73
  74 /* Definitions of the field level widgets                               */
  75 /* Query definitions                                                    */
  76 &ANALYZE-SUSPEND
  77 DEFINE QUERY br_table FOR
  78       LinkNode SCROLLING.
  79 &ANALYZE-RESUME
  80
  81 /* Browse definitions                                                   */
  82 DEFINE BROWSE br_table
  83 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _FREEFORM
  84   QUERY br_table NO-LOCK DISPLAY
  85       LinkNode.Description FORMAT "X(57)"
  86 ENABLE
  87       LinkNode.Description
  88 /* _UIB-CODE-BLOCK-END */
  89 &ANALYZE-RESUME
  90     WITH NO-LABELS NO-ASSIGN NO-ROW-MARKERS SIZE 44 BY 11.2
  91          BGCOLOR 16 FONT 10.
  92
  93
  94 /* ************************  Frame Definitions  *********************** */
  95
  96 DEFINE FRAME F-Main
  97      br_table AT ROW 1 COL 1
  98     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
  99          SIDE-LABELS NO-UNDERLINE THREE-D
 100          AT COL 1 ROW 1 SCROLLABLE
 101          BGCOLOR 8 FGCOLOR 0 .
 102
 103
 104 /* *********************** Procedure Settings ************************ */
 105
 106 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 107 /* Settings for THIS-PROCEDURE
 108    Type: SmartBrowser
 109    Allow: Basic,Browse
 110    Frames: 1
 111    Add Fields to: EXTERNAL-TABLES
 112    Other Settings: PERSISTENT-ONLY COMPILE
 113  */
 114
 115 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 116 /* then cleanup and return.                                            */
 117 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 118   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 119           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 120   RETURN.
 121 END.
 122
 123 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 124
 125 /* *************************  Create Window  ************************** */
 126
 127 &ANALYZE-SUSPEND _CREATE-WINDOW
 128 /* DESIGN Window definition (used by the UIB)
 129   CREATE WINDOW B-table-Win ASSIGN
 130          HEIGHT             = 16.6
 131          WIDTH              = 57.72.
 132 /* END WINDOW DEFINITION */
 133                                                                         */
 134 &ANALYZE-RESUME
 135
 136
 137 /* ***************  Runtime Attributes and UIB Settings  ************** */
 138
 139 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 140 /* SETTINGS FOR WINDOW B-table-Win
 141   NOT-VISIBLE,,RUN-PERSISTENT                                           */
 142 /* SETTINGS FOR FRAME F-Main
 143    NOT-VISIBLE Size-to-Fit                                              */
 144 /* BROWSE-TAB br_table 1 F-Main */
 145 ASSIGN
 146        FRAME F-Main:SCROLLABLE       = FALSE
 147        FRAME F-Main:HIDDEN           = TRUE.
 148
 149 ASSIGN
 150        br_table:POPUP-MENU IN FRAME F-Main         = MENU POPUP-MENU-br_table:HANDLE
 151        br_table:MAX-DATA-GUESS IN FRAME F-Main     = 300.
 152
 153 /* _RUN-TIME-ATTRIBUTES-END */
 154 &ANALYZE-RESUME
 155
 156
 157 /* Setting information for Queries and Browse Widgets fields            */
 158
 159 &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
 160 /* Query rebuild information for BROWSE br_table
 161      _START_FREEFORM
 162 OPEN QUERY br_table FOR EACH LinkNode NO-LOCK
 163         WHERE LinkNode.NodeType BEGINS filter-type
 164           AND LinkNode.Description BEGINS filter-case
 165         BY LinkNode.NodeType BY LinkNode.Description.
 166      _END_FREEFORM
 167      _Options          = "NO-LOCK"
 168      _Query            is NOT OPENED
 169 */  /* BROWSE br_table */
 170 &ANALYZE-RESUME
 171
 172 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 173 /* Query rebuild information for FRAME F-Main
 174      _Options          = "NO-LOCK"
 175      _Query            is NOT OPENED
 176 */  /* FRAME F-Main */
 177 &ANALYZE-RESUME
 178
 179
 180
 181
 182 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win
 183 /* ************************* Included-Libraries *********************** */
 184
 185 {src/adm/method/browser.i}
 186
 187 /* _UIB-CODE-BLOCK-END */
 188 &ANALYZE-RESUME
 189
 190
 191
 192
 193 /* ************************  Control Triggers  ************************ */
 194
 195 &Scoped-define BROWSE-NAME br_table
 196 &Scoped-define SELF-NAME br_table
 197 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 198 ON ROW-ENTRY OF br_table IN FRAME F-Main
 199 DO:
 200   /* This code displays initial values for newly added or copied rows. */
 201   {src/adm/template/brsentry.i}
 202 END.
 203
 204 /* _UIB-CODE-BLOCK-END */
 205 &ANALYZE-RESUME
 206
 207
 208 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 209 ON ROW-LEAVE OF br_table IN FRAME F-Main
 210 DO:
 211     /* Do not disable this code or no updates will take place except
 212      by pressing the Save button on an Update SmartPanel. */
 213    {src/adm/template/brsleave.i}
 214 END.
 215
 216 /* _UIB-CODE-BLOCK-END */
 217 &ANALYZE-RESUME
 218
 219
 220 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 221 ON VALUE-CHANGED OF br_table IN FRAME F-Main
 222 DO:
 223   /* This ADM trigger code must be preserved in order to notify other
 224      objects when the browser's current row changes. */
 225   {src/adm/template/brschnge.i}
 226   RUN source-changed.
 227 END.
 228
 229 /* _UIB-CODE-BLOCK-END */
 230 &ANALYZE-RESUME
 231
 232
 233 &Scoped-define SELF-NAME m_Create_Node
 234 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Create_Node B-table-Win
 235 ON CHOOSE OF MENU-ITEM m_Create_Node /* Create Node */
 236 DO:
 237   RUN add-node.
 238 END.
 239
 240 /* _UIB-CODE-BLOCK-END */
 241 &ANALYZE-RESUME
 242
 243
 244 &Scoped-define SELF-NAME m_Delete_Node
 245 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Delete_Node B-table-Win
 246 ON CHOOSE OF MENU-ITEM m_Delete_Node /* Delete Node */
 247 DO:
 248   MESSAGE "Are you sure you want to delete this node ?"
 249     VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO UPDATE delete-it AS LOGI.
 250   IF delete-it THEN RUN dispatch( 'delete-record':U ).
 251 END.
 252
 253 /* _UIB-CODE-BLOCK-END */
 254 &ANALYZE-RESUME
 255
 256
 257 &Scoped-define SELF-NAME m_Make_Copy
 258 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Make_Copy B-table-Win
 259 ON CHOOSE OF MENU-ITEM m_Make_Copy /* Make Copy */
 260 DO:
 261   RUN copy-node.
 262 END.
 263
 264 /* _UIB-CODE-BLOCK-END */
 265 &ANALYZE-RESUME
 266
 267
 268 &Scoped-define SELF-NAME m_Modify_Node
 269 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Modify_Node B-table-Win
 270 ON CHOOSE OF MENU-ITEM m_Modify_Node /* Modify Node */
 271 DO:
 272   RUN modify-node.
 273 END.
 274
 275 /* _UIB-CODE-BLOCK-END */
 276 &ANALYZE-RESUME
 277
 278
 279 &UNDEFINE SELF-NAME
 280
 281 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win
 282
 283
 284 /* ***************************  Main Block  *************************** */
 285
 286 RUN set-attribute-list( 'FilterBy-Case = Drl, FilterBy-Options = Drl|Mnu|Sel|Mnt Vwr':U ).
 287 RUN set-attribute-list( 'Filter-Value = ':U ).
 288
 289 LinkNode.Description:READ-ONLY IN BROWSE {&BROWSE-NAME} = Yes.
 290
 291 /* _UIB-CODE-BLOCK-END */
 292 &ANALYZE-RESUME
 293
 294
 295 /* **********************  Internal Procedures  *********************** */
 296
 297 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE add-node B-table-Win
 298 PROCEDURE add-node :
 299 /*------------------------------------------------------------------------------
 300   Purpose:
 301   Parameters:  <none>
 302   Notes:
 303 ------------------------------------------------------------------------------*/
 304
 305   RUN start-node-mnt.
 306   RUN dispatch IN node-mnt ( 'add-node':U ).
 307
 308 END PROCEDURE.
 309
 310 /* _UIB-CODE-BLOCK-END */
 311 &ANALYZE-RESUME
 312
 313
 314 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available B-table-Win _ADM-ROW-AVAILABLE
 315 PROCEDURE adm-row-available :
 316 /*------------------------------------------------------------------------------
 317   Purpose:     Dispatched to this procedure when the Record-
 318                Source has a new row available.  This procedure
 319                tries to get the new row (or foriegn keys) from
 320                the Record-Source and process it.
 321   Parameters:  <none>
 322 ------------------------------------------------------------------------------*/
 323
 324   /* Define variables needed by this internal procedure.             */
 325   {src/adm/template/row-head.i}
 326
 327   /* Process the newly available records (i.e. display fields,
 328      open queries, and/or pass records on to any RECORD-TARGETS).    */
 329   {src/adm/template/row-end.i}
 330
 331 END PROCEDURE.
 332
 333 /* _UIB-CODE-BLOCK-END */
 334 &ANALYZE-RESUME
 335
 336
 337 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE copy-node B-table-Win
 338 PROCEDURE copy-node :
 339 /*------------------------------------------------------------------------------
 340   Purpose:
 341   Parameters:  <none>
 342   Notes:
 343 ------------------------------------------------------------------------------*/
 344
 345   DEF BUFFER CopyNode FOR LinkNode.
 346   DEF BUFFER CopyLink FOR ProgramLink.
 347   DEF VAR file-suffix AS INT INIT 2 NO-UNDO.
 348
 349   IF NOT AVAILABLE LinkNode THEN RETURN.
 350
 351   DO WHILE CAN-FIND( FIRST CopyNode WHERE
 352     CopyNode.File = LinkNode.File + STRING( file-suffix ) ):
 353     file-suffix = file-suffix + 1.
 354   END.
 355
 356   CREATE CopyNode.
 357   BUFFER-COPY LinkNode EXCEPT NodeCode File TO CopyNode
 358   ASSIGN CopyNode.Description = "Copy of " + LinkNode.Description
 359          CopyNode.File        = LinkNode.File + STRING( file-suffix ).
 360
 361   FOR EACH ProgramLink NO-LOCK
 362   WHERE ProgramLink.Source = LinkNode.NodeCode:
 363     CREATE copyLink.
 364     BUFFER-COPY ProgramLink EXCEPT LinkCode TO CopyLink
 365     ASSIGN CopyLink.Source = CopyNode.NodeCode.
 366   END.
 367
 368   RUN dispatch( 'open-query':U ).
 369   REPOSITION {&BROWSE-NAME} TO ROWID ROWID( CopyNode ).
 370   RUN source-changed.
 371
 372
 373 END PROCEDURE.
 374
 375 /* _UIB-CODE-BLOCK-END */
 376 &ANALYZE-RESUME
 377
 378
 379 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-Win _DEFAULT-DISABLE
 380 PROCEDURE disable_UI :
 381 /*------------------------------------------------------------------------------
 382   Purpose:     DISABLE the User Interface
 383   Parameters:  <none>
 384   Notes:       Here we clean-up the user-interface by deleting
 385                dynamic widgets we have created and/or hide
 386                frames.  This procedure is usually called when
 387                we are ready to "clean-up" after running.
 388 ------------------------------------------------------------------------------*/
 389   /* Hide all frames. */
 390   HIDE FRAME F-Main.
 391   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 392 END PROCEDURE.
 393
 394 /* _UIB-CODE-BLOCK-END */
 395 &ANALYZE-RESUME
 396
 397
 398 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-apply-entry B-table-Win
 399 PROCEDURE local-apply-entry :
 400 /*------------------------------------------------------------------------------
 401   Purpose:     Override standard ADM method
 402   Notes:
 403 ------------------------------------------------------------------------------*/
 404
 405   /* Code placed here will execute PRIOR to standard behavior. */
 406   IF filter-type = "MN" THEN RETURN.
 407
 408   /* Dispatch standard ADM method.                             */
 409   RUN dispatch IN THIS-PROCEDURE ( INPUT 'apply-entry':U ) .
 410
 411   /* Code placed here will execute AFTER standard behavior.    */
 412
 413 END PROCEDURE.
 414
 415 /* _UIB-CODE-BLOCK-END */
 416 &ANALYZE-RESUME
 417
 418
 419 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-initialize B-table-Win
 420 PROCEDURE local-initialize :
 421 /*------------------------------------------------------------------------------
 422   Purpose:     Override standard ADM method
 423   Notes:
 424 ------------------------------------------------------------------------------*/
 425
 426   /* Code placed here will execute PRIOR to standard behavior. */
 427
 428   /* Dispatch standard ADM method.                             */
 429   RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) .
 430
 431   /* Code placed here will execute AFTER standard behavior.    */
 432   APPLY 'VALUE-CHANGED':U TO BROWSE {&BROWSE-NAME}.
 433
 434 END PROCEDURE.
 435
 436 /* _UIB-CODE-BLOCK-END */
 437 &ANALYZE-RESUME
 438
 439
 440 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-open-query B-table-Win
 441 PROCEDURE local-open-query :
 442 /*------------------------------------------------------------------------------
 443   Purpose:     Override standard ADM method
 444   Notes:
 445 ------------------------------------------------------------------------------*/
 446
 447   /* Code placed here will execute PRIOR to standard behavior. */
 448
 449   /* Dispatch standard ADM method.                             */
 450   RUN dispatch IN THIS-PROCEDURE ( INPUT 'open-query':U ) .
 451
 452   /* Code placed here will execute AFTER standard behavior.    */
 453   RUN source-changed.
 454
 455 END PROCEDURE.
 456
 457 /* _UIB-CODE-BLOCK-END */
 458 &ANALYZE-RESUME
 459
 460
 461 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-row-changed B-table-Win
 462 PROCEDURE local-row-changed :
 463 /*------------------------------------------------------------------------------
 464   Purpose:     Override standard ADM method
 465   Notes:
 466 ------------------------------------------------------------------------------*/
 467
 468   /* Code placed here will execute PRIOR to standard behavior. */
 469
 470   /* Dispatch standard ADM method.                             */
 471   RUN dispatch IN THIS-PROCEDURE ( INPUT 'row-changed':U ) .
 472
 473   /* Code placed here will execute AFTER standard behavior.    */
 474   RUN source-changed.
 475
 476 END PROCEDURE.
 477
 478 /* _UIB-CODE-BLOCK-END */
 479 &ANALYZE-RESUME
 480
 481
 482 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE modify-node B-table-Win
 483 PROCEDURE modify-node :
 484 /*------------------------------------------------------------------------------
 485   Purpose:
 486   Parameters:  <none>
 487   Notes:
 488 ------------------------------------------------------------------------------*/
 489
 490   RUN start-node-mnt.
 491   RUN dispatch IN node-mnt ( 'modify-node':U ).
 492
 493 END PROCEDURE.
 494
 495 /* _UIB-CODE-BLOCK-END */
 496 &ANALYZE-RESUME
 497
 498
 499 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records B-table-Win _ADM-SEND-RECORDS
 500 PROCEDURE send-records :
 501 /*------------------------------------------------------------------------------
 502   Purpose:     Send record ROWID's for all tables used by
 503                this file.
 504   Parameters:  see template/snd-head.i
 505 ------------------------------------------------------------------------------*/
 506
 507   /* Define variables needed by this internal procedure.               */
 508   {src/adm/template/snd-head.i}
 509
 510   /* For each requested table, put it's ROWID in the output list.      */
 511   {src/adm/template/snd-list.i "LinkNode"}
 512
 513   /* Deal with any unexpected table requests before closing.           */
 514   {src/adm/template/snd-end.i}
 515
 516 END PROCEDURE.
 517
 518 /* _UIB-CODE-BLOCK-END */
 519 &ANALYZE-RESUME
 520
 521
 522 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE source-changed B-table-Win
 523 PROCEDURE source-changed :
 524 /*------------------------------------------------------------------------------
 525   Purpose:
 526 ------------------------------------------------------------------------------*/
 527 DEF VAR c-sctarget AS CHAR   NO-UNDO.
 528 DEF VAR h-sctarget AS HANDLE NO-UNDO.
 529 DEF VAR c-ptarget  AS CHAR   NO-UNDO.
 530 DEF VAR h-ptarget  AS HANDLE NO-UNDO.
 531
 532   IF NOT VALID-HANDLE( adm-broker-hdl ) THEN RETURN.
 533
 534   RUN get-link-handle IN adm-broker-hdl(
 535     THIS-PROCEDURE, 'PrgLnkSrc-Target':U, OUTPUT c-sctarget ).
 536
 537   RUN get-link-handle IN adm-broker-hdl(
 538     THIS-PROCEDURE, 'Partner-Target':U, OUTPUT c-ptarget ).
 539
 540   h-sctarget = WIDGET-HANDLE( ENTRY( 1, c-sctarget ) ).
 541   h-ptarget  = WIDGET-HANDLE( ENTRY( 1, c-ptarget ) ).
 542
 543   IF VALID-HANDLE( h-sctarget ) AND AVAILABLE LinkNode THEN
 544   DO:
 545     RUN set-attribute-list IN h-sctarget ( 'LinkSource = ' + STRING( LinkNode.NodeCode ) ).
 546     RUN dispatch           IN h-sctarget ( 'open-query':U ).
 547   END.
 548
 549   IF VALID-HANDLE( h-ptarget ) AND AVAILABLE LinkNode THEN
 550   DO:
 551     RUN set-attribute-list IN h-ptarget ( 'LinkSource = ' + STRING( LinkNode.NodeCode ) ).
 552     RUN dispatch           IN h-ptarget ( 'open-query':U ).
 553   END.
 554
 555 END PROCEDURE.
 556
 557 /* _UIB-CODE-BLOCK-END */
 558 &ANALYZE-RESUME
 559
 560
 561 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE start-node-mnt B-table-Win
 562 PROCEDURE start-node-mnt :
 563 /*------------------------------------------------------------------------------
 564   Purpose:
 565   Parameters:  <none>
 566   Notes:
 567 ------------------------------------------------------------------------------*/
 568
 569   RUN lnk/w-lnknde.w PERSISTENT SET node-mnt.
 570   RUN add-link IN adm-broker-hdl(THIS-PROCEDURE, 'Record':U, node-mnt ).
 571   RUN dispatch IN node-mnt ( 'initialize':U ).
 572
 573 END PROCEDURE.
 574
 575 /* _UIB-CODE-BLOCK-END */
 576 &ANALYZE-RESUME
 577
 578
 579 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed B-table-Win
 580 PROCEDURE state-changed :
 581 /* -----------------------------------------------------------
 582   Purpose:
 583   Parameters:  <none>
 584   Notes:
 585 -------------------------------------------------------------*/
 586   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 587   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 588
 589   CASE p-state:
 590       /* Object instance CASEs can go here to replace standard behavior
 591          or add new cases. */
 592       {src/adm/template/bstates.i}
 593   END CASE.
 594 END PROCEDURE.
 595
 596 /* _UIB-CODE-BLOCK-END */
 597 &ANALYZE-RESUME
 598
 599
 600 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-Filter-Value B-table-Win
 601 PROCEDURE use-Filter-Value :
 602 /*------------------------------------------------------------------------------
 603   Purpose:
 604 ------------------------------------------------------------------------------*/
 605 DEF INPUT PARAMETER new-case AS CHAR NO-UNDO.
 606
 607   IF filter-type <> "MN" THEN filter-case = new-case.
 608 END PROCEDURE.
 609
 610 /* _UIB-CODE-BLOCK-END */
 611 &ANALYZE-RESUME
 612
 613
 614 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-FilterBy-Case B-table-Win
 615 PROCEDURE use-FilterBy-Case :
 616 /*------------------------------------------------------------------------------
 617   Purpose:
 618 ------------------------------------------------------------------------------*/
 619 DEF INPUT PARAMETER new-case AS CHAR NO-UNDO.
 620
 621   CASE new-case:
 622     WHEN 'Drl':U      THEN filter-type = 'DW'.
 623     WHEN 'Sel':U      THEN filter-type = 'SW'.
 624     WHEN 'Mnu':U      THEN filter-type = 'MN'.
 625     WHEN 'Mnt Vwr':U  THEN filter-type = 'MV'.
 626     OTHERWISE              filter-type = ''.
 627   END CASE.
 628
 629   IF filter-type = "MN" THEN
 630     filter-case = "Main".
 631   ELSE DO:
 632     RUN get-attribute( "Filter-Value":U ).
 633     filter-case = RETURN-VALUE.
 634   END.
 635 END PROCEDURE.
 636
 637 /* _UIB-CODE-BLOCK-END */
 638 &ANALYZE-RESUME
 639
 640