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