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