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