workflow/b-flow-task-type.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 /*          This .W file was created with the Progress UIB.             */
  22 /*----------------------------------------------------------------------*/
  23
  24 /* Create an unnamed pool to store all the widgets created
  25      by this procedure. This is a good default which assures
  26      that this procedure's triggers and internal procedures
  27      will execute in this procedure's storage, and that proper
  28      cleanup will occur on deletion of the procedure. */
  29
  30 CREATE WIDGET-POOL.
  31
  32 /* ***************************  Definitions  ************************** */
  33
  34 /* Parameters Definitions ---                                           */
  35
  36 /* Local Variable Definitions ---                                       */
  37
  38 /* _UIB-CODE-BLOCK-END */
  39 &ANALYZE-RESUME
  40
  41
  42 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  43
  44 /* ********************  Preprocessor Definitions  ******************** */
  45
  46 &Scoped-define PROCEDURE-TYPE SmartBrowser
  47
  48 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  49
  50 /* Name of first Frame and/or Browse and/or first Query                 */
  51 &Scoped-define FRAME-NAME F-Main
  52 &Scoped-define BROWSE-NAME br_table
  53
  54 /* Internal Tables (found by Frame, Query & Browse Queries)             */
  55 &Scoped-define INTERNAL-TABLES FlowTaskType
  56
  57 /* Define KEY-PHRASE in case it is used by any query. */
  58 &Scoped-define KEY-PHRASE TRUE
  59
  60 /* Definitions for BROWSE br_table                                      */
  61 &Scoped-define FIELDS-IN-QUERY-br_table FlowTaskType.FlowTaskType ~
  62 FlowTaskType.Description FlowTaskType.InitialStep
  63 &Scoped-define ENABLED-FIELDS-IN-QUERY-br_table
  64 &Scoped-define FIELD-PAIRS-IN-QUERY-br_table
  65 &Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH FlowTaskType WHERE ~{&KEY-PHRASE} NO-LOCK ~
  66     ~{&SORTBY-PHRASE}.
  67 &Scoped-define TABLES-IN-QUERY-br_table FlowTaskType
  68 &Scoped-define FIRST-TABLE-IN-QUERY-br_table FlowTaskType
  69
  70
  71 /* Definitions for FRAME F-Main                                         */
  72
  73 /* Standard List Definitions                                            */
  74 &Scoped-Define ENABLED-OBJECTS br_table
  75
  76 /* Custom List Definitions                                              */
  77 /* List-1,List-2,List-3,List-4,List-5,List-6                            */
  78
  79 /* _UIB-PREPROCESSOR-BLOCK-END */
  80 &ANALYZE-RESUME
  81
  82
  83 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" B-table-Win _INLINE
  84 /* Actions: ? adm/support/keyedit.w ? ? ? */
  85 /* STRUCTURED-DATA
  86 <KEY-OBJECT>
  87 &BROWSE-NAME
  88 </KEY-OBJECT>
  89 <FOREIGN-KEYS>
  90 FlowTaskType||y|TTPL.FlowTaskType.FlowTaskType
  91 </FOREIGN-KEYS>
  92 <EXECUTING-CODE>
  93 **************************
  94 * Set attributes related to FOREIGN KEYS
  95 */
  96 RUN set-attribute-list (
  97     'Keys-Accepted = ,
  98      Keys-Supplied = "FlowTaskType"':U).
  99
 100 /* Tell the ADM to use the OPEN-QUERY-CASES. */
 101 &Scoped-define OPEN-QUERY-CASES RUN dispatch ('open-query-cases':U).
 102 /**************************
 103 </EXECUTING-CODE> */
 104 /* _UIB-CODE-BLOCK-END */
 105 &ANALYZE-RESUME
 106
 107 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Advanced Query Options" B-table-Win _INLINE
 108 /* Actions: ? adm/support/advqedit.w ? ? ? */
 109 /* STRUCTURED-DATA
 110 <KEY-OBJECT>
 111 &BROWSE-NAME
 112 </KEY-OBJECT>
 113 <SORTBY-OPTIONS>
 114 </SORTBY-OPTIONS>
 115 <SORTBY-RUN-CODE>
 116 ************************
 117 * Set attributes related to SORTBY-OPTIONS */
 118 RUN set-attribute-list (
 119     'SortBy-Options = ""':U).
 120 /************************
 121 </SORTBY-RUN-CODE>
 122 <FILTER-ATTRIBUTES>
 123 </FILTER-ATTRIBUTES> */
 124
 125 /* _UIB-CODE-BLOCK-END */
 126 &ANALYZE-RESUME
 127
 128
 129 /* ***********************  Control Definitions  ********************** */
 130
 131
 132 /* Definitions of the field level widgets                               */
 133 /* Query definitions                                                    */
 134 &ANALYZE-SUSPEND
 135 DEFINE QUERY br_table FOR
 136       FlowTaskType SCROLLING.
 137 &ANALYZE-RESUME
 138
 139 /* Browse definitions                                                   */
 140 DEFINE BROWSE br_table
 141 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _STRUCTURED
 142   QUERY br_table NO-LOCK DISPLAY
 143       FlowTaskType.FlowTaskType COLUMN-LABEL "Task Type"
 144       FlowTaskType.Description
 145       FlowTaskType.InitialStep COLUMN-LABEL "Initial Step"
 146 /* _UIB-CODE-BLOCK-END */
 147 &ANALYZE-RESUME
 148     WITH NO-ASSIGN SEPARATORS SIZE 58.29 BY 12.8
 149          BGCOLOR 16 .
 150
 151
 152 /* ************************  Frame Definitions  *********************** */
 153
 154 DEFINE FRAME F-Main
 155      br_table AT ROW 1 COL 1
 156     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 157          SIDE-LABELS NO-UNDERLINE THREE-D
 158          AT COL 1 ROW 1 SCROLLABLE
 159          BGCOLOR 8 FGCOLOR 0 .
 160
 161
 162 /* *********************** Procedure Settings ************************ */
 163
 164 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 165 /* Settings for THIS-PROCEDURE
 166    Type: SmartBrowser
 167    Allow: Basic,Browse
 168    Frames: 1
 169    Add Fields to: EXTERNAL-TABLES
 170    Other Settings: PERSISTENT-ONLY COMPILE
 171  */
 172
 173 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 174 /* then cleanup and return.                                            */
 175 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 176   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 177           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 178   RETURN.
 179 END.
 180
 181 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 182
 183 /* *************************  Create Window  ************************** */
 184
 185 &ANALYZE-SUSPEND _CREATE-WINDOW
 186 /* DESIGN Window definition (used by the UIB)
 187   CREATE WINDOW B-table-Win ASSIGN
 188          HEIGHT             = 14.35
 189          WIDTH              = 76.86.
 190 /* END WINDOW DEFINITION */
 191                                                                         */
 192 &ANALYZE-RESUME
 193
 194
 195 /* ***************  Runtime Attributes and UIB Settings  ************** */
 196
 197 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 198 /* SETTINGS FOR WINDOW B-table-Win
 199   NOT-VISIBLE,,RUN-PERSISTENT                                           */
 200 /* SETTINGS FOR FRAME F-Main
 201    NOT-VISIBLE Size-to-Fit                                              */
 202 /* BROWSE-TAB br_table 1 F-Main */
 203 ASSIGN
 204        FRAME F-Main:SCROLLABLE       = FALSE
 205        FRAME F-Main:HIDDEN           = TRUE.
 206
 207 /* _RUN-TIME-ATTRIBUTES-END */
 208 &ANALYZE-RESUME
 209
 210
 211 /* Setting information for Queries and Browse Widgets fields            */
 212
 213 &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
 214 /* Query rebuild information for BROWSE br_table
 215      _TblList          = "TTPL.FlowTaskType"
 216      _Options          = "NO-LOCK KEY-PHRASE SORTBY-PHRASE"
 217      _FldNameList[1]   > TTPL.FlowTaskType.FlowTaskType
 218 "FlowTaskType" "Task Type" ? "character" ? ? ? ? ? ? no ?
 219      _FldNameList[2]   = TTPL.FlowTaskType.Description
 220      _FldNameList[3]   > TTPL.FlowTaskType.InitialStep
 221 "InitialStep" "Initial Step" ? "character" ? ? ? ? ? ? no ?
 222      _Query            is NOT OPENED
 223 */  /* BROWSE br_table */
 224 &ANALYZE-RESUME
 225
 226 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 227 /* Query rebuild information for FRAME F-Main
 228      _Options          = "NO-LOCK"
 229      _Query            is NOT OPENED
 230 */  /* FRAME F-Main */
 231 &ANALYZE-RESUME
 232
 233
 234
 235
 236 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win
 237 /* ************************* Included-Libraries *********************** */
 238
 239 {src/adm/method/browser.i}
 240 {inc/method/m-drlvwr.i}
 241
 242 /* _UIB-CODE-BLOCK-END */
 243 &ANALYZE-RESUME
 244
 245
 246
 247
 248 /* ************************  Control Triggers  ************************ */
 249
 250 &Scoped-define BROWSE-NAME br_table
 251 &Scoped-define SELF-NAME br_table
 252 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 253 ON ROW-ENTRY OF br_table IN FRAME F-Main
 254 DO:
 255   /* This code displays initial values for newly added or copied rows. */
 256   {src/adm/template/brsentry.i}
 257 END.
 258
 259 /* _UIB-CODE-BLOCK-END */
 260 &ANALYZE-RESUME
 261
 262
 263 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 264 ON ROW-LEAVE OF br_table IN FRAME F-Main
 265 DO:
 266     /* Do not disable this code or no updates will take place except
 267      by pressing the Save button on an Update SmartPanel. */
 268    {src/adm/template/brsleave.i}
 269 END.
 270
 271 /* _UIB-CODE-BLOCK-END */
 272 &ANALYZE-RESUME
 273
 274
 275 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 276 ON VALUE-CHANGED OF br_table IN FRAME F-Main
 277 DO:
 278   /* This ADM trigger code must be preserved in order to notify other
 279      objects when the browser's current row changes. */
 280   {src/adm/template/brschnge.i}
 281 END.
 282
 283 /* _UIB-CODE-BLOCK-END */
 284 &ANALYZE-RESUME
 285
 286
 287 &UNDEFINE SELF-NAME
 288
 289 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win
 290
 291
 292 /* ***************************  Main Block  *************************** */
 293
 294 &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
 295 RUN dispatch IN THIS-PROCEDURE ('initialize':U).
 296 &ENDIF
 297
 298 /* _UIB-CODE-BLOCK-END */
 299 &ANALYZE-RESUME
 300
 301
 302 /* **********************  Internal Procedures  *********************** */
 303
 304 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-open-query-cases B-table-Win adm/support/_adm-opn.p
 305 PROCEDURE adm-open-query-cases :
 306 /*------------------------------------------------------------------------------
 307   Purpose:     Opens different cases of the query based on attributes
 308                such as the 'Key-Name', or 'SortBy-Case'
 309   Parameters:  <none>
 310 ------------------------------------------------------------------------------*/
 311
 312   /* No Foreign keys are accepted by this SmartObject. */
 313
 314   {&OPEN-QUERY-{&BROWSE-NAME}}
 315
 316 END PROCEDURE.
 317
 318 /* _UIB-CODE-BLOCK-END */
 319 &ANALYZE-RESUME
 320
 321
 322 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available B-table-Win _ADM-ROW-AVAILABLE
 323 PROCEDURE adm-row-available :
 324 /*------------------------------------------------------------------------------
 325   Purpose:     Dispatched to this procedure when the Record-
 326                Source has a new row available.  This procedure
 327                tries to get the new row (or foriegn keys) from
 328                the Record-Source and process it.
 329   Parameters:  <none>
 330 ------------------------------------------------------------------------------*/
 331
 332   /* Define variables needed by this internal procedure.             */
 333   {src/adm/template/row-head.i}
 334
 335   /* Process the newly available records (i.e. display fields,
 336      open queries, and/or pass records on to any RECORD-TARGETS).    */
 337   {src/adm/template/row-end.i}
 338
 339 END PROCEDURE.
 340
 341 /* _UIB-CODE-BLOCK-END */
 342 &ANALYZE-RESUME
 343
 344
 345 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-Win _DEFAULT-DISABLE
 346 PROCEDURE disable_UI :
 347 /*------------------------------------------------------------------------------
 348   Purpose:     DISABLE the User Interface
 349   Parameters:  <none>
 350   Notes:       Here we clean-up the user-interface by deleting
 351                dynamic widgets we have created and/or hide
 352                frames.  This procedure is usually called when
 353                we are ready to "clean-up" after running.
 354 ------------------------------------------------------------------------------*/
 355   /* Hide all frames. */
 356   HIDE FRAME F-Main.
 357   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 358 END PROCEDURE.
 359
 360 /* _UIB-CODE-BLOCK-END */
 361 &ANALYZE-RESUME
 362
 363
 364 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-delete-record B-table-Win
 365 PROCEDURE local-delete-record :
 366 /*------------------------------------------------------------------------------
 367   Purpose:     Override standard ADM method
 368   Notes:
 369 ------------------------------------------------------------------------------*/
 370 DEF VAR yes-do-it AS LOGI NO-UNDO INITIAL Yes.
 371
 372   IF NOT AVAILABLE(FlowTaskType) THEN RETURN.
 373
 374   MESSAGE "Are you sure you want to delete" SKIP
 375           "the current Workflow Task record?"
 376           VIEW-AS ALERT-BOX QUESTION BUTTONS OK-CANCEL
 377           TITLE "Are you sure?" UPDATE yes-do-it .
 378
 379   IF yes-do-it THEN DO TRANSACTION:
 380     FIND CURRENT FlowTaskType EXCLUSIVE-LOCK.
 381     DELETE FlowTaskType.
 382     RUN dispatch ( 'open-query':U ).
 383   END.
 384 END PROCEDURE.
 385
 386 /* _UIB-CODE-BLOCK-END */
 387 &ANALYZE-RESUME
 388
 389
 390 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key B-table-Win adm/support/_key-snd.p
 391 PROCEDURE send-key :
 392 /*------------------------------------------------------------------------------
 393   Purpose:     Sends a requested KEY value back to the calling
 394                SmartObject.
 395   Parameters:  <see adm/template/sndkytop.i>
 396 ------------------------------------------------------------------------------*/
 397
 398   /* Define variables needed by this internal procedure.             */
 399   {src/adm/template/sndkytop.i}
 400
 401   /* Return the key value associated with each key case.             */
 402   {src/adm/template/sndkycas.i "FlowTaskType" "FlowTaskType" "FlowTaskType"}
 403
 404   /* Close the CASE statement and end the procedure.                 */
 405   {src/adm/template/sndkyend.i}
 406
 407 END PROCEDURE.
 408
 409 /* _UIB-CODE-BLOCK-END */
 410 &ANALYZE-RESUME
 411
 412
 413 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records B-table-Win _ADM-SEND-RECORDS
 414 PROCEDURE send-records :
 415 /*------------------------------------------------------------------------------
 416   Purpose:     Send record ROWID's for all tables used by
 417                this file.
 418   Parameters:  see template/snd-head.i
 419 ------------------------------------------------------------------------------*/
 420
 421   /* Define variables needed by this internal procedure.               */
 422   {src/adm/template/snd-head.i}
 423
 424   /* For each requested table, put it's ROWID in the output list.      */
 425   {src/adm/template/snd-list.i "FlowTaskType"}
 426
 427   /* Deal with any unexpected table requests before closing.           */
 428   {src/adm/template/snd-end.i}
 429
 430 END PROCEDURE.
 431
 432 /* _UIB-CODE-BLOCK-END */
 433 &ANALYZE-RESUME
 434
 435
 436 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed B-table-Win
 437 PROCEDURE state-changed :
 438 /* -----------------------------------------------------------
 439   Purpose:
 440   Parameters:  <none>
 441   Notes:
 442 -------------------------------------------------------------*/
 443   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 444   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 445
 446   CASE p-state:
 447       /* Object instance CASEs can go here to replace standard behavior
 448          or add new cases. */
 449       {src/adm/template/bstates.i}
 450   END CASE.
 451 END PROCEDURE.
 452
 453 /* _UIB-CODE-BLOCK-END */
 454 &ANALYZE-RESUME
 455
 456