workflow/b-flow-task.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:         workflow/b-flow-task.w
  11
  12   Description:  Browser for work flow tasks
  13
  14   Input Parameters:
  15       <none>
  16
  17   Output Parameters:
  18       <none>
  19
  20 ------------------------------------------------------------------------*/
  21
  22 CREATE WIDGET-POOL.
  23
  24 /* ***************************  Definitions  ************************** */
  25
  26 {inc/topic/tpflwtsk.i}
  27
  28 DEF VAR entity-type-filter AS CHAR NO-UNDO INITIAL "".
  29 DEF VAR filter-status AS CHAR NO-UNDO INITIAL "TODO".
  30
  31 /* _UIB-CODE-BLOCK-END */
  32 &ANALYZE-RESUME
  33
  34
  35 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  36
  37 /* ********************  Preprocessor Definitions  ******************** */
  38
  39 &Scoped-define PROCEDURE-TYPE SmartBrowser
  40
  41 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  42
  43 /* Name of first Frame and/or Browse and/or first Query                 */
  44 &Scoped-define FRAME-NAME F-Main
  45 &Scoped-define BROWSE-NAME br_table
  46
  47 /* Internal Tables (found by Frame, Query & Browse Queries)             */
  48 &Scoped-define INTERNAL-TABLES FlowTask
  49
  50 /* Define KEY-PHRASE in case it is used by any query. */
  51 &Scoped-define KEY-PHRASE TRUE
  52
  53 /* Definitions for BROWSE br_table                                      */
  54 &Scoped-define FIELDS-IN-QUERY-br_table FlowTask.DueDate ~
  55 FlowTask.FlowTaskType FlowTask.Description FlowTask.EntityType ~
  56 FlowTask.EntityCode FlowTask.Priority FlowTask.ActivityStatus
  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 FlowTask WHERE ~{&KEY-PHRASE} ~
  60       AND FlowTask.ActivityStatus BEGINS filter-status AND  ~
  61 FlowTask.EntityType BEGINS entity-type-filter  ~
  62  NO-LOCK ~
  63     ~{&SORTBY-PHRASE}.
  64 &Scoped-define TABLES-IN-QUERY-br_table FlowTask
  65 &Scoped-define FIRST-TABLE-IN-QUERY-br_table FlowTask
  66
  67
  68 /* Definitions for FRAME F-Main                                         */
  69
  70 /* Standard List Definitions                                            */
  71 &Scoped-Define ENABLED-OBJECTS br_table
  72
  73 /* Custom List Definitions                                              */
  74 /* List-1,List-2,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" B-table-Win _INLINE
  81 /* Actions: ? adm/support/keyedit.w ? ? ? */
  82 /* STRUCTURED-DATA
  83 <KEY-OBJECT>
  84 &BROWSE-NAME
  85 </KEY-OBJECT>
  86 <FOREIGN-KEYS>
  87 Joblogno|y|y|TTPL.FlowTask.Joblogno
  88 EntityCode|y|y|TTPL.FlowTask.EntityCode
  89 ProjectCode|y|y|TTPL.FlowTask.EntityCode
  90 TenantCode|y|y|TTPL.FlowTask.EntityCode
  91 CompanyCode|y|y|TTPL.FlowTask.EntityCode
  92 PropertyCode|y|y|TTPL.FlowTask.EntityCode
  93 EntityType|y|y|TTPL.FlowTask.EntityType
  94 PersonCode|y|y|TTPL.FlowTask.AllocatedTo
  95 FlowTaskType|y|y|TTPL.FlowTask.FlowTaskType
  96 </FOREIGN-KEYS>
  97 <EXECUTING-CODE>
  98 **************************
  99 * Set attributes related to FOREIGN KEYS
 100 */
 101 RUN set-attribute-list (
 102     'Keys-Accepted = "Joblogno,EntityCode,ProjectCode,TenantCode,CompanyCode,PropertyCode,EntityType,PersonCode,FlowTaskType",
 103      Keys-Supplied = "Joblogno,EntityCode,ProjectCode,TenantCode,CompanyCode,PropertyCode,EntityType,PersonCode,FlowTaskType"':U).
 104
 105 /* Tell the ADM to use the OPEN-QUERY-CASES. */
 106 &Scoped-define OPEN-QUERY-CASES RUN dispatch ('open-query-cases':U).
 107 /**************************
 108 </EXECUTING-CODE> */
 109 /* _UIB-CODE-BLOCK-END */
 110 &ANALYZE-RESUME
 111
 112 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Advanced Query Options" B-table-Win _INLINE
 113 /* Actions: ? adm/support/advqedit.w ? ? ? */
 114 /* STRUCTURED-DATA
 115 <KEY-OBJECT>
 116 &BROWSE-NAME
 117 </KEY-OBJECT>
 118 <SORTBY-OPTIONS>
 119 Due Date|y||TTPL.FlowTask.DueDate|yes
 120 Type|||TTPL.FlowTask.FlowTaskType|yes,TTPL.FlowTask.DueDate|yes
 121 Entity|||TTPL.FlowTask.EntityType|yes,TTPL.FlowTask.EntityCode|yes
 122 </SORTBY-OPTIONS>
 123 <SORTBY-RUN-CODE>
 124 ************************
 125 * Set attributes related to SORTBY-OPTIONS */
 126 RUN set-attribute-list (
 127     'SortBy-Options = "Due Date,Type,Entity",
 128      SortBy-Case = Due Date':U).
 129
 130 /* Tell the ADM to use the OPEN-QUERY-CASES. */
 131 &Scoped-define OPEN-QUERY-CASES RUN dispatch ('open-query-cases':U).
 132
 133 /* This SmartObject is a valid SortBy-Target. */
 134 &IF '{&user-supported-links}':U ne '':U &THEN
 135   &Scoped-define user-supported-links {&user-supported-links},SortBy-Target
 136 &ELSE
 137   &Scoped-define user-supported-links SortBy-Target
 138 &ENDIF
 139
 140 /************************
 141 </SORTBY-RUN-CODE>
 142 <FILTER-ATTRIBUTES>
 143 </FILTER-ATTRIBUTES> */
 144
 145 /* _UIB-CODE-BLOCK-END */
 146 &ANALYZE-RESUME
 147
 148
 149 /* ***********************  Control Definitions  ********************** */
 150
 151
 152 /* Definitions of the field level widgets                               */
 153 /* Query definitions                                                    */
 154 &ANALYZE-SUSPEND
 155 DEFINE QUERY br_table FOR
 156       FlowTask SCROLLING.
 157 &ANALYZE-RESUME
 158
 159 /* Browse definitions                                                   */
 160 DEFINE BROWSE br_table
 161 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _STRUCTURED
 162   QUERY br_table NO-LOCK DISPLAY
 163       FlowTask.DueDate COLUMN-LABEL "Due  Before"
 164       FlowTask.FlowTaskType COLUMN-LABEL "Type"
 165       FlowTask.Description COLUMN-LABEL "Task Description"
 166       FlowTask.EntityType COLUMN-LABEL "T"
 167       FlowTask.EntityCode COLUMN-LABEL " Entity"
 168       FlowTask.Priority COLUMN-LABEL "Pri"
 169       FlowTask.ActivityStatus
 170 /* _UIB-CODE-BLOCK-END */
 171 &ANALYZE-RESUME
 172     WITH NO-ASSIGN SEPARATORS SIZE 74.29 BY 16.2
 173          BGCOLOR 16 .
 174
 175
 176 /* ************************  Frame Definitions  *********************** */
 177
 178 DEFINE FRAME F-Main
 179      br_table AT ROW 1 COL 1
 180     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 181          SIDE-LABELS NO-UNDERLINE THREE-D
 182          AT COL 1 ROW 1 SCROLLABLE
 183          BGCOLOR 8 FGCOLOR 0 .
 184
 185
 186 /* *********************** Procedure Settings ************************ */
 187
 188 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 189 /* Settings for THIS-PROCEDURE
 190    Type: SmartBrowser
 191    Allow: Basic,Browse
 192    Frames: 1
 193    Add Fields to: EXTERNAL-TABLES
 194    Other Settings: PERSISTENT-ONLY COMPILE
 195  */
 196
 197 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 198 /* then cleanup and return.                                            */
 199 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 200   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 201           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 202   RETURN.
 203 END.
 204
 205 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 206
 207 /* *************************  Create Window  ************************** */
 208
 209 &ANALYZE-SUSPEND _CREATE-WINDOW
 210 /* DESIGN Window definition (used by the UIB)
 211   CREATE WINDOW B-table-Win ASSIGN
 212          HEIGHT             = 19.05
 213          WIDTH              = 84.29.
 214 /* END WINDOW DEFINITION */
 215                                                                         */
 216 &ANALYZE-RESUME
 217
 218
 219 /* ***************  Runtime Attributes and UIB Settings  ************** */
 220
 221 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 222 /* SETTINGS FOR WINDOW B-table-Win
 223   NOT-VISIBLE,,RUN-PERSISTENT                                           */
 224 /* SETTINGS FOR FRAME F-Main
 225    NOT-VISIBLE Size-to-Fit                                              */
 226 /* BROWSE-TAB br_table 1 F-Main */
 227 ASSIGN
 228        FRAME F-Main:SCROLLABLE       = FALSE
 229        FRAME F-Main:HIDDEN           = TRUE.
 230
 231 /* _RUN-TIME-ATTRIBUTES-END */
 232 &ANALYZE-RESUME
 233
 234
 235 /* Setting information for Queries and Browse Widgets fields            */
 236
 237 &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
 238 /* Query rebuild information for BROWSE br_table
 239      _TblList          = "TTPL.FlowTask"
 240      _Options          = "NO-LOCK KEY-PHRASE SORTBY-PHRASE"
 241      _TblOptList       = ", OUTER"
 242      _Where[1]         = "FlowTask.ActivityStatus BEGINS filter-status AND
 243 FlowTask.EntityType BEGINS entity-type-filter
 244 "
 245      _FldNameList[1]   > TTPL.FlowTask.DueDate
 246 "FlowTask.DueDate" "Due  Before" ? "date" ? ? ? ? ? ? no ?
 247      _FldNameList[2]   > TTPL.FlowTask.FlowTaskType
 248 "FlowTask.FlowTaskType" "Type" ? "character" ? ? ? ? ? ? no ?
 249      _FldNameList[3]   > TTPL.FlowTask.Description
 250 "FlowTask.Description" "Task Description" ? "character" ? ? ? ? ? ? no ?
 251      _FldNameList[4]   > TTPL.FlowTask.EntityType
 252 "FlowTask.EntityType" "T" ? "character" ? ? ? ? ? ? no ?
 253      _FldNameList[5]   > TTPL.FlowTask.EntityCode
 254 "FlowTask.EntityCode" " Entity" ? "integer" ? ? ? ? ? ? no ?
 255      _FldNameList[6]   > TTPL.FlowTask.Priority
 256 "FlowTask.Priority" "Pri" ? "integer" ? ? ? ? ? ? no ?
 257      _FldNameList[7]   = TTPL.FlowTask.ActivityStatus
 258      _Query            is NOT OPENED
 259 */  /* BROWSE br_table */
 260 &ANALYZE-RESUME
 261
 262 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 263 /* Query rebuild information for FRAME F-Main
 264      _Options          = "NO-LOCK"
 265      _Query            is NOT OPENED
 266 */  /* FRAME F-Main */
 267 &ANALYZE-RESUME
 268
 269
 270
 271
 272 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win
 273 /* ************************* Included-Libraries *********************** */
 274
 275 {src/adm/method/browser.i}
 276 {inc/method/m-drlvwr.i}
 277
 278 /* _UIB-CODE-BLOCK-END */
 279 &ANALYZE-RESUME
 280
 281
 282
 283
 284 /* ************************  Control Triggers  ************************ */
 285
 286 &Scoped-define BROWSE-NAME br_table
 287 &Scoped-define SELF-NAME br_table
 288 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 289 ON ROW-ENTRY OF br_table IN FRAME F-Main
 290 DO:
 291   /* This code displays initial values for newly added or copied rows. */
 292   {src/adm/template/brsentry.i}
 293 END.
 294
 295 /* _UIB-CODE-BLOCK-END */
 296 &ANALYZE-RESUME
 297
 298
 299 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 300 ON ROW-LEAVE OF br_table IN FRAME F-Main
 301 DO:
 302     /* Do not disable this code or no updates will take place except
 303      by pressing the Save button on an Update SmartPanel. */
 304    {src/adm/template/brsleave.i}
 305 END.
 306
 307 /* _UIB-CODE-BLOCK-END */
 308 &ANALYZE-RESUME
 309
 310
 311 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 312 ON VALUE-CHANGED OF br_table IN FRAME F-Main
 313 DO:
 314   /* This ADM trigger code must be preserved in order to notify other
 315      objects when the browser's current row changes. */
 316   {src/adm/template/brschnge.i}
 317 END.
 318
 319 /* _UIB-CODE-BLOCK-END */
 320 &ANALYZE-RESUME
 321
 322
 323 &UNDEFINE SELF-NAME
 324
 325 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win
 326
 327
 328 /* ***************************  Main Block  *************************** */
 329
 330 RUN set-attribute-list( 'SortBy-Options = Due Date|Entity|Type, SortBy-Case = Due Date':U ).
 331 RUN set-attribute-list( 'FilterBy-Options = All|To do|Completed, FilterBy-Case = To do':U ).
 332 RUN set-attribute-list( 'SearchBy-Case = ':U ).
 333
 334 /* _UIB-CODE-BLOCK-END */
 335 &ANALYZE-RESUME
 336
 337
 338 /* **********************  Internal Procedures  *********************** */
 339
 340 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-open-query-cases B-table-Win adm/support/_adm-opn.p
 341 PROCEDURE adm-open-query-cases :
 342 /*------------------------------------------------------------------------------
 343   Purpose:     Opens different cases of the query based on attributes
 344                such as the 'Key-Name', or 'SortBy-Case'
 345   Parameters:  <none>
 346 ------------------------------------------------------------------------------*/
 347   DEF VAR key-value AS CHAR NO-UNDO.
 348
 349   /* Look up the current key-value. */
 350   RUN get-attribute ('Key-Value':U).
 351   key-value = RETURN-VALUE.
 352
 353   /* Find the current record using the current Key-Name. */
 354   RUN get-attribute ('Key-Name':U).
 355   CASE RETURN-VALUE:
 356     WHEN 'Joblogno':U THEN DO:
 357        &Scope KEY-PHRASE FlowTask.Joblogno eq INTEGER(key-value)
 358        RUN get-attribute ('SortBy-Case':U).
 359        CASE RETURN-VALUE:
 360          WHEN 'Due Date':U THEN DO:
 361            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 362            {&OPEN-QUERY-{&BROWSE-NAME}}
 363          END.
 364          WHEN 'Type':U THEN DO:
 365            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 366            {&OPEN-QUERY-{&BROWSE-NAME}}
 367          END.
 368          WHEN 'Entity':U THEN DO:
 369            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 370            {&OPEN-QUERY-{&BROWSE-NAME}}
 371          END.
 372          OTHERWISE DO:
 373            &Undefine SORTBY-PHRASE
 374            {&OPEN-QUERY-{&BROWSE-NAME}}
 375          END. /* OTHERWISE...*/
 376        END CASE.
 377     END. /* Joblogno */
 378     WHEN 'EntityCode':U THEN DO:
 379        &Scope KEY-PHRASE FlowTask.EntityCode eq INTEGER(key-value)
 380        RUN get-attribute ('SortBy-Case':U).
 381        CASE RETURN-VALUE:
 382          WHEN 'Due Date':U THEN DO:
 383            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 384            {&OPEN-QUERY-{&BROWSE-NAME}}
 385          END.
 386          WHEN 'Type':U THEN DO:
 387            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 388            {&OPEN-QUERY-{&BROWSE-NAME}}
 389          END.
 390          WHEN 'Entity':U THEN DO:
 391            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 392            {&OPEN-QUERY-{&BROWSE-NAME}}
 393          END.
 394          OTHERWISE DO:
 395            &Undefine SORTBY-PHRASE
 396            {&OPEN-QUERY-{&BROWSE-NAME}}
 397          END. /* OTHERWISE...*/
 398        END CASE.
 399     END. /* EntityCode */
 400     WHEN 'ProjectCode':U THEN DO:
 401        &Scope KEY-PHRASE FlowTask.EntityCode eq INTEGER(key-value)
 402        RUN get-attribute ('SortBy-Case':U).
 403        CASE RETURN-VALUE:
 404          WHEN 'Due Date':U THEN DO:
 405            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 406            {&OPEN-QUERY-{&BROWSE-NAME}}
 407          END.
 408          WHEN 'Type':U THEN DO:
 409            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 410            {&OPEN-QUERY-{&BROWSE-NAME}}
 411          END.
 412          WHEN 'Entity':U THEN DO:
 413            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 414            {&OPEN-QUERY-{&BROWSE-NAME}}
 415          END.
 416          OTHERWISE DO:
 417            &Undefine SORTBY-PHRASE
 418            {&OPEN-QUERY-{&BROWSE-NAME}}
 419          END. /* OTHERWISE...*/
 420        END CASE.
 421     END. /* ProjectCode */
 422     WHEN 'TenantCode':U THEN DO:
 423        &Scope KEY-PHRASE FlowTask.EntityCode eq INTEGER(key-value)
 424        RUN get-attribute ('SortBy-Case':U).
 425        CASE RETURN-VALUE:
 426          WHEN 'Due Date':U THEN DO:
 427            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 428            {&OPEN-QUERY-{&BROWSE-NAME}}
 429          END.
 430          WHEN 'Type':U THEN DO:
 431            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 432            {&OPEN-QUERY-{&BROWSE-NAME}}
 433          END.
 434          WHEN 'Entity':U THEN DO:
 435            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 436            {&OPEN-QUERY-{&BROWSE-NAME}}
 437          END.
 438          OTHERWISE DO:
 439            &Undefine SORTBY-PHRASE
 440            {&OPEN-QUERY-{&BROWSE-NAME}}
 441          END. /* OTHERWISE...*/
 442        END CASE.
 443     END. /* TenantCode */
 444     WHEN 'CompanyCode':U THEN DO:
 445        &Scope KEY-PHRASE FlowTask.EntityCode eq INTEGER(key-value)
 446        RUN get-attribute ('SortBy-Case':U).
 447        CASE RETURN-VALUE:
 448          WHEN 'Due Date':U THEN DO:
 449            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 450            {&OPEN-QUERY-{&BROWSE-NAME}}
 451          END.
 452          WHEN 'Type':U THEN DO:
 453            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 454            {&OPEN-QUERY-{&BROWSE-NAME}}
 455          END.
 456          WHEN 'Entity':U THEN DO:
 457            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 458            {&OPEN-QUERY-{&BROWSE-NAME}}
 459          END.
 460          OTHERWISE DO:
 461            &Undefine SORTBY-PHRASE
 462            {&OPEN-QUERY-{&BROWSE-NAME}}
 463          END. /* OTHERWISE...*/
 464        END CASE.
 465     END. /* CompanyCode */
 466     WHEN 'PropertyCode':U THEN DO:
 467        &Scope KEY-PHRASE FlowTask.EntityCode eq INTEGER(key-value)
 468        RUN get-attribute ('SortBy-Case':U).
 469        CASE RETURN-VALUE:
 470          WHEN 'Due Date':U THEN DO:
 471            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 472            {&OPEN-QUERY-{&BROWSE-NAME}}
 473          END.
 474          WHEN 'Type':U THEN DO:
 475            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 476            {&OPEN-QUERY-{&BROWSE-NAME}}
 477          END.
 478          WHEN 'Entity':U THEN DO:
 479            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 480            {&OPEN-QUERY-{&BROWSE-NAME}}
 481          END.
 482          OTHERWISE DO:
 483            &Undefine SORTBY-PHRASE
 484            {&OPEN-QUERY-{&BROWSE-NAME}}
 485          END. /* OTHERWISE...*/
 486        END CASE.
 487     END. /* PropertyCode */
 488     WHEN 'EntityType':U THEN DO:
 489        &Scope KEY-PHRASE FlowTask.EntityType eq key-value
 490        RUN get-attribute ('SortBy-Case':U).
 491        CASE RETURN-VALUE:
 492          WHEN 'Due Date':U THEN DO:
 493            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 494            {&OPEN-QUERY-{&BROWSE-NAME}}
 495          END.
 496          WHEN 'Type':U THEN DO:
 497            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 498            {&OPEN-QUERY-{&BROWSE-NAME}}
 499          END.
 500          WHEN 'Entity':U THEN DO:
 501            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 502            {&OPEN-QUERY-{&BROWSE-NAME}}
 503          END.
 504          OTHERWISE DO:
 505            &Undefine SORTBY-PHRASE
 506            {&OPEN-QUERY-{&BROWSE-NAME}}
 507          END. /* OTHERWISE...*/
 508        END CASE.
 509     END. /* EntityType */
 510     WHEN 'PersonCode':U THEN DO:
 511        &Scope KEY-PHRASE FlowTask.AllocatedTo eq INTEGER(key-value)
 512        RUN get-attribute ('SortBy-Case':U).
 513        CASE RETURN-VALUE:
 514          WHEN 'Due Date':U THEN DO:
 515            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 516            {&OPEN-QUERY-{&BROWSE-NAME}}
 517          END.
 518          WHEN 'Type':U THEN DO:
 519            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 520            {&OPEN-QUERY-{&BROWSE-NAME}}
 521          END.
 522          WHEN 'Entity':U THEN DO:
 523            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 524            {&OPEN-QUERY-{&BROWSE-NAME}}
 525          END.
 526          OTHERWISE DO:
 527            &Undefine SORTBY-PHRASE
 528            {&OPEN-QUERY-{&BROWSE-NAME}}
 529          END. /* OTHERWISE...*/
 530        END CASE.
 531     END. /* PersonCode */
 532     WHEN 'FlowTaskType':U THEN DO:
 533        &Scope KEY-PHRASE FlowTask.FlowTaskType eq key-value
 534        RUN get-attribute ('SortBy-Case':U).
 535        CASE RETURN-VALUE:
 536          WHEN 'Due Date':U THEN DO:
 537            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 538            {&OPEN-QUERY-{&BROWSE-NAME}}
 539          END.
 540          WHEN 'Type':U THEN DO:
 541            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 542            {&OPEN-QUERY-{&BROWSE-NAME}}
 543          END.
 544          WHEN 'Entity':U THEN DO:
 545            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 546            {&OPEN-QUERY-{&BROWSE-NAME}}
 547          END.
 548          OTHERWISE DO:
 549            &Undefine SORTBY-PHRASE
 550            {&OPEN-QUERY-{&BROWSE-NAME}}
 551          END. /* OTHERWISE...*/
 552        END CASE.
 553     END. /* FlowTaskType */
 554     OTHERWISE DO:
 555        &Scope KEY-PHRASE TRUE
 556        RUN get-attribute ('SortBy-Case':U).
 557        CASE RETURN-VALUE:
 558          WHEN 'Due Date':U THEN DO:
 559            &Scope SORTBY-PHRASE BY FlowTask.DueDate
 560            {&OPEN-QUERY-{&BROWSE-NAME}}
 561          END.
 562          WHEN 'Type':U THEN DO:
 563            &Scope SORTBY-PHRASE BY FlowTask.FlowTaskType BY FlowTask.DueDate
 564            {&OPEN-QUERY-{&BROWSE-NAME}}
 565          END.
 566          WHEN 'Entity':U THEN DO:
 567            &Scope SORTBY-PHRASE BY FlowTask.EntityType BY FlowTask.EntityCode
 568            {&OPEN-QUERY-{&BROWSE-NAME}}
 569          END.
 570          OTHERWISE DO:
 571            &Undefine SORTBY-PHRASE
 572            {&OPEN-QUERY-{&BROWSE-NAME}}
 573          END. /* OTHERWISE...*/
 574        END CASE.
 575     END. /* OTHERWISE...*/
 576   END CASE.
 577
 578 END PROCEDURE.
 579
 580 /* _UIB-CODE-BLOCK-END */
 581 &ANALYZE-RESUME
 582
 583
 584 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available B-table-Win _ADM-ROW-AVAILABLE
 585 PROCEDURE adm-row-available :
 586 /*------------------------------------------------------------------------------
 587   Purpose:     Dispatched to this procedure when the Record-
 588                Source has a new row available.  This procedure
 589                tries to get the new row (or foriegn keys) from
 590                the Record-Source and process it.
 591   Parameters:  <none>
 592 ------------------------------------------------------------------------------*/
 593
 594   /* Define variables needed by this internal procedure.             */
 595   {src/adm/template/row-head.i}
 596
 597   /* Process the newly available records (i.e. display fields,
 598      open queries, and/or pass records on to any RECORD-TARGETS).    */
 599   {src/adm/template/row-end.i}
 600
 601 END PROCEDURE.
 602
 603 /* _UIB-CODE-BLOCK-END */
 604 &ANALYZE-RESUME
 605
 606
 607 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE delete-current-task B-table-Win
 608 PROCEDURE delete-current-task :
 609 /*------------------------------------------------------------------------------
 610   Purpose:
 611 ------------------------------------------------------------------------------*/
 612 IF NOT AVAILABLE(FlowTask) THEN RETURN.
 613 DEF VAR do-it AS LOGI NO-UNDO INITIAL No.
 614
 615   MESSAGE "Are you sure you want to delete this task?" SKIP(1)
 616           "All steps will also be deleted and this" SKIP
 617           "action cannot be undone."
 618           VIEW-AS ALERT-BOX QUESTION BUTTONS OK-CANCEL
 619           TITLE "Confirm Deletion"
 620           UPDATE do-it.
 621
 622   IF do-it THEN DO TRANSACTION:
 623     FIND CURRENT FlowTask EXCLUSIVE-LOCK.
 624     DELETE FlowTask.
 625   END.
 626   RUN dispatch( 'open-query':U ).
 627
 628 END PROCEDURE.
 629
 630 /* _UIB-CODE-BLOCK-END */
 631 &ANALYZE-RESUME
 632
 633
 634 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-Win _DEFAULT-DISABLE
 635 PROCEDURE disable_UI :
 636 /*------------------------------------------------------------------------------
 637   Purpose:     DISABLE the User Interface
 638   Parameters:  <none>
 639   Notes:       Here we clean-up the user-interface by deleting
 640                dynamic widgets we have created and/or hide
 641                frames.  This procedure is usually called when
 642                we are ready to "clean-up" after running.
 643 ------------------------------------------------------------------------------*/
 644   /* Hide all frames. */
 645   HIDE FRAME F-Main.
 646   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 647 END PROCEDURE.
 648
 649 /* _UIB-CODE-BLOCK-END */
 650 &ANALYZE-RESUME
 651
 652
 653 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE mark-as-completed B-table-Win
 654 PROCEDURE mark-as-completed :
 655 /*------------------------------------------------------------------------------
 656   Purpose:
 657 ------------------------------------------------------------------------------*/
 658 DEF VAR due-date AS DATE NO-UNDO.
 659 DEF VAR task-no AS INT NO-UNDO.
 660 DEF VAR results AS CHAR NO-UNDO.
 661
 662   IF NOT AVAILABLE(FlowTask) THEN RETURN.
 663   due-date = FlowTask.DueDate.
 664   task-no = FlowTask.FlowTaskNo.
 665   RUN workflow/update-task.p( INPUT-OUTPUT due-date, INPUT-OUTPUT task-no, "TaskDone",
 666                                 "", OUTPUT results ).
 667
 668   {&BROWSE-NAME}:REFRESH() IN FRAME {&FRAME-NAME}.
 669
 670 END PROCEDURE.
 671
 672 /* _UIB-CODE-BLOCK-END */
 673 &ANALYZE-RESUME
 674
 675
 676 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE mark-as-todo B-table-Win
 677 PROCEDURE mark-as-todo :
 678 /*------------------------------------------------------------------------------
 679   Purpose:
 680 ------------------------------------------------------------------------------*/
 681   IF NOT AVAILABLE(FlowTask) THEN RETURN.
 682
 683 DO TRANSACTION:
 684   FIND CURRENT FlowTask EXCLUSIVE-LOCK NO-ERROR.
 685   FOR EACH FlowStep OF FlowTask WHERE FlowStep.ActivityStatus = "DONE" EXCLUSIVE-LOCK:
 686     FlowStep.ActivityStatus = "TODO".
 687     FlowStep.StatusUpdateDate = TODAY.
 688   END.
 689   FlowTask.ActivityStatus = "TODO".
 690   FlowTask.StatusUpdateDate = TODAY.
 691   FIND CURRENT FlowTask NO-LOCK.
 692 END.
 693
 694   {&BROWSE-NAME}:REFRESH() IN FRAME {&FRAME-NAME}.
 695
 696 END PROCEDURE.
 697
 698 /* _UIB-CODE-BLOCK-END */
 699 &ANALYZE-RESUME
 700
 701
 702 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key B-table-Win adm/support/_key-snd.p
 703 PROCEDURE send-key :
 704 /*------------------------------------------------------------------------------
 705   Purpose:     Sends a requested KEY value back to the calling
 706                SmartObject.
 707   Parameters:  <see adm/template/sndkytop.i>
 708 ------------------------------------------------------------------------------*/
 709
 710   /* Define variables needed by this internal procedure.             */
 711   {src/adm/template/sndkytop.i}
 712
 713   /* Return the key value associated with each key case.             */
 714   {src/adm/template/sndkycas.i "Joblogno" "FlowTask" "Joblogno"}
 715   {src/adm/template/sndkycas.i "EntityCode" "FlowTask" "EntityCode"}
 716   {src/adm/template/sndkycas.i "ProjectCode" "FlowTask" "EntityCode"}
 717   {src/adm/template/sndkycas.i "TenantCode" "FlowTask" "EntityCode"}
 718   {src/adm/template/sndkycas.i "CompanyCode" "FlowTask" "EntityCode"}
 719   {src/adm/template/sndkycas.i "PropertyCode" "FlowTask" "EntityCode"}
 720   {src/adm/template/sndkycas.i "EntityType" "FlowTask" "EntityType"}
 721   {src/adm/template/sndkycas.i "PersonCode" "FlowTask" "AllocatedTo"}
 722   {src/adm/template/sndkycas.i "FlowTaskType" "FlowTask" "FlowTaskType"}
 723
 724   /* Close the CASE statement and end the procedure.                 */
 725   {src/adm/template/sndkyend.i}
 726
 727 END PROCEDURE.
 728
 729 /* _UIB-CODE-BLOCK-END */
 730 &ANALYZE-RESUME
 731
 732
 733 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records B-table-Win _ADM-SEND-RECORDS
 734 PROCEDURE send-records :
 735 /*------------------------------------------------------------------------------
 736   Purpose:     Send record ROWID's for all tables used by
 737                this file.
 738   Parameters:  see template/snd-head.i
 739 ------------------------------------------------------------------------------*/
 740
 741   /* Define variables needed by this internal procedure.               */
 742   {src/adm/template/snd-head.i}
 743
 744   /* For each requested table, put it's ROWID in the output list.      */
 745   {src/adm/template/snd-list.i "FlowTask"}
 746
 747   /* Deal with any unexpected table requests before closing.           */
 748   {src/adm/template/snd-end.i}
 749
 750 END PROCEDURE.
 751
 752 /* _UIB-CODE-BLOCK-END */
 753 &ANALYZE-RESUME
 754
 755
 756 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed B-table-Win
 757 PROCEDURE state-changed :
 758 /* -----------------------------------------------------------
 759   Purpose:
 760   Parameters:  <none>
 761   Notes:
 762 -------------------------------------------------------------*/
 763   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 764   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 765
 766   CASE p-state:
 767       /* Object instance CASEs can go here to replace standard behavior
 768          or add new cases. */
 769       {src/adm/template/bstates.i}
 770   END CASE.
 771 END PROCEDURE.
 772
 773 /* _UIB-CODE-BLOCK-END */
 774 &ANALYZE-RESUME
 775
 776
 777 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-FilterBy-Case B-table-Win
 778 PROCEDURE use-FilterBy-Case :
 779 /*------------------------------------------------------------------------------
 780   Purpose:
 781 ------------------------------------------------------------------------------*/
 782 DEF INPUT PARAMETER new-filter AS CHAR NO-UNDO.
 783
 784   CASE new-filter:
 785     WHEN "To Do" THEN       filter-status = "TODO".
 786     WHEN "Completed" THEN   filter-status = "DONE".
 787     OTHERWISE               filter-status = "".
 788   END CASE.
 789
 790 END PROCEDURE.
 791
 792 /* _UIB-CODE-BLOCK-END */
 793 &ANALYZE-RESUME
 794
 795
 796 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-Key-Name B-table-Win
 797 PROCEDURE use-Key-Name :
 798 /*------------------------------------------------------------------------------
 799   Purpose:
 800 ------------------------------------------------------------------------------*/
 801 DEF INPUT PARAMETER new-key-name AS CHAR NO-UNDO.
 802
 803   IF new-key-name = "ProjectCode" THEN          entity-type-filter = "J".
 804   ELSE IF new-key-name = "TenantCode" THEN      entity-type-filter = "T".
 805   ELSE IF new-key-name = "CompanyCode" THEN     entity-type-filter = "L".
 806   ELSE IF new-key-name = "PropertyCode" THEN    entity-type-filter = "P".
 807   ELSE IF new-key-name = "EntityCode" THEN
 808     entity-type-filter = find-parent-key( "EntityType" ).
 809   ELSE
 810     entity-type-filter = "".
 811
 812 END PROCEDURE.
 813
 814 /* _UIB-CODE-BLOCK-END */
 815 &ANALYZE-RESUME
 816
 817