forecast/v-amtrust-rent-report.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 V-table-Win
   8 /*------------------------------------------------------------------------
   9   File:
  10   Description:
  11 ------------------------------------------------------------------------*/
  12 CREATE WIDGET-POOL.
  13 /* ***************************  Definitions  ************************** */
  14
  15 &SCOPED-DEFINE REPORT-ID "Amtrust Rent Report"
  16
  17 {inc/ofc-this.i}
  18
  19 /* _UIB-CODE-BLOCK-END */
  20 &ANALYZE-RESUME
  21
  22
  23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  24
  25 /* ********************  Preprocessor Definitions  ******************** */
  26
  27 &Scoped-define PROCEDURE-TYPE SmartViewer
  28
  29 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  30
  31 /* Name of first Frame and/or Browse and/or first Query                 */
  32 &Scoped-define FRAME-NAME F-Main
  33
  34 /* External Tables                                                      */
  35 &Scoped-define EXTERNAL-TABLES RP
  36 &Scoped-define FIRST-EXTERNAL-TABLE RP
  37
  38
  39 /* Need to scope the external tables to this procedure                  */
  40 DEFINE QUERY external_tables FOR RP.
  41 /* Standard List Definitions                                            */
  42 &Scoped-Define ENABLED-FIELDS RP.Char1 RP.Int1 RP.Int2 RP.Char2 RP.Char3 ~
  43 RP.Log2 RP.Log6 RP.Log3 RP.Log1
  44 &Scoped-define FIELD-PAIRS~
  45  ~{&FP1}Int1 ~{&FP2}Int1 ~{&FP3}~
  46  ~{&FP1}Int2 ~{&FP2}Int2 ~{&FP3}
  47 &Scoped-define ENABLED-TABLES RP
  48 &Scoped-define FIRST-ENABLED-TABLE RP
  49 &Scoped-Define ENABLED-OBJECTS RECT-23 cmb_MonthFrom cmb_MonthTo btn_print
  50 &Scoped-Define DISPLAYED-FIELDS RP.Char1 RP.Int1 RP.Int2 RP.Char2 RP.Char3 ~
  51 RP.Log2 RP.Log6 RP.Log3 RP.Log1
  52 &Scoped-Define DISPLAYED-OBJECTS fil_Property fil_Property2 cmb_MonthFrom ~
  53 cmb_MonthTo
  54
  55 /* Custom List Definitions                                              */
  56 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  57
  58 /* _UIB-PREPROCESSOR-BLOCK-END */
  59 &ANALYZE-RESUME
  60
  61
  62
  63 /* ***********************  Control Definitions  ********************** */
  64
  65
  66 /* Definitions of the field level widgets                               */
  67 DEFINE BUTTON btn_print
  68      LABEL "&OK"
  69      SIZE 10.29 BY 1
  70      FONT 9.
  71
  72 DEFINE VARIABLE cmb_MonthFrom AS CHARACTER FORMAT "X(256)":U
  73      LABEL "From month"
  74      VIEW-AS COMBO-BOX INNER-LINES 24
  75      LIST-ITEMS "Item 1"
  76      SIZE 16 BY 1 NO-UNDO.
  77
  78 DEFINE VARIABLE cmb_MonthTo AS CHARACTER FORMAT "X(256)":U
  79      LABEL "To"
  80      VIEW-AS COMBO-BOX INNER-LINES 24
  81      LIST-ITEMS "Item 1"
  82      SIZE 16 BY 1 NO-UNDO.
  83
  84 DEFINE VARIABLE fil_Property AS CHARACTER FORMAT "X(256)":U
  85      VIEW-AS FILL-IN
  86      SIZE 40 BY 1
  87      FONT 10 NO-UNDO.
  88
  89 DEFINE VARIABLE fil_Property2 AS CHARACTER FORMAT "X(256)":U
  90      VIEW-AS FILL-IN
  91      SIZE 40 BY 1
  92      FONT 10 NO-UNDO.
  93
  94 DEFINE RECTANGLE RECT-23
  95      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
  96      SIZE 68 BY 11.8.
  97
  98
  99 /* ************************  Frame Definitions  *********************** */
 100
 101 DEFINE FRAME F-Main
 102      RP.Char1 AT ROW 1.2 COL 2 NO-LABEL
 103           VIEW-AS RADIO-SET VERTICAL
 104           RADIO-BUTTONS
 105                     "All properties", "All":U,
 106 "Single Property", "OneProperty":U,
 107 "Range of Properties", "PropertyRange":U
 108           SIZE 17.29 BY 2.7
 109           FONT 10
 110      RP.Int1 AT ROW 2 COL 17.29 COLON-ALIGNED NO-LABEL FORMAT "99999"
 111           VIEW-AS FILL-IN
 112           SIZE 6.57 BY 1
 113           FONT 10
 114      fil_Property AT ROW 2 COL 26.43 COLON-ALIGNED NO-LABEL
 115      RP.Int2 AT ROW 3 COL 17.29 COLON-ALIGNED NO-LABEL FORMAT "99999"
 116           VIEW-AS FILL-IN
 117           SIZE 6.57 BY 1
 118           FONT 10
 119      fil_Property2 AT ROW 3 COL 26.43 COLON-ALIGNED NO-LABEL
 120      cmb_MonthFrom AT ROW 4.2 COL 17.29 COLON-ALIGNED
 121      cmb_MonthTo AT ROW 4.2 COL 37.86 COLON-ALIGNED
 122      RP.Char2 AT ROW 6 COL 3.86 HELP
 123           "" NO-LABEL
 124           VIEW-AS RADIO-SET VERTICAL
 125           RADIO-BUTTONS
 126                     "Full detail", "Detail":U,
 127 "1 Line per Lease/Area/Acct", "LinePerLease":U,
 128 "4 Lines per Property", "FourPerProperty":U,
 129 "1 Line per Property", "LinePerProperty":U
 130           SIZE 25.72 BY 3.2
 131      RP.Char3 AT ROW 6 COL 34.72 HELP
 132           "" NO-LABEL
 133           VIEW-AS RADIO-SET VERTICAL
 134           RADIO-BUTTONS
 135                     "Rent Forecast", "Rents":U,
 136 "Expenses", "Expenses":U,
 137 "Recoveries", "Recoveries":U,
 138 "Net Expenses", "NetExpenses":U
 139           SIZE 19.43 BY 3.4
 140      RP.Log2 AT ROW 9.6 COL 3.86
 141           LABEL "Monthly"
 142           VIEW-AS TOGGLE-BOX
 143           SIZE 8.57 BY .85
 144      RP.Log6 AT ROW 9.8 COL 34.72
 145           LABEL "Show agents fees"
 146           VIEW-AS TOGGLE-BOX
 147           SIZE 16.57 BY .85
 148      RP.Log3 AT ROW 10.6 COL 34.72
 149           LABEL "Consolidated"
 150           VIEW-AS TOGGLE-BOX
 151           SIZE 13.72 BY .85
 152      RP.Log1 AT ROW 10.8 COL 3.86
 153           LABEL "Preview"
 154           VIEW-AS TOGGLE-BOX
 155           SIZE 14.29 BY .8
 156           FONT 10
 157      btn_print AT ROW 11.6 COL 58.14
 158      RECT-23 AT ROW 1 COL 1
 159     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 160          SIDE-LABELS NO-UNDERLINE THREE-D
 161          AT COL 1 ROW 1 SCROLLABLE
 162          FONT 10
 163          DEFAULT-BUTTON btn_print.
 164
 165
 166 /* *********************** Procedure Settings ************************ */
 167
 168 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 169 /* Settings for THIS-PROCEDURE
 170    Type: SmartViewer
 171    External Tables: ttpl.RP
 172    Allow: Basic,DB-Fields
 173    Frames: 1
 174    Add Fields to: EXTERNAL-TABLES
 175    Other Settings: PERSISTENT-ONLY COMPILE
 176  */
 177
 178 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 179 /* then cleanup and return.                                            */
 180 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 181   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 182           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 183   RETURN.
 184 END.
 185
 186 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 187
 188 /* *************************  Create Window  ************************** */
 189
 190 &ANALYZE-SUSPEND _CREATE-WINDOW
 191 /* DESIGN Window definition (used by the UIB)
 192   CREATE WINDOW V-table-Win ASSIGN
 193          HEIGHT             = 13.25
 194          WIDTH              = 75.43.
 195 /* END WINDOW DEFINITION */
 196                                                                         */
 197 &ANALYZE-RESUME
 198
 199
 200 /* ***************  Runtime Attributes and UIB Settings  ************** */
 201
 202 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 203 /* SETTINGS FOR WINDOW V-table-Win
 204   VISIBLE,,RUN-PERSISTENT                                               */
 205 /* SETTINGS FOR FRAME F-Main
 206    NOT-VISIBLE Size-to-Fit                                              */
 207 ASSIGN
 208        FRAME F-Main:SCROLLABLE       = FALSE
 209        FRAME F-Main:HIDDEN           = TRUE.
 210
 211 /* SETTINGS FOR RADIO-SET RP.Char2 IN FRAME F-Main
 212    EXP-HELP                                                             */
 213 /* SETTINGS FOR RADIO-SET RP.Char3 IN FRAME F-Main
 214    EXP-HELP                                                             */
 215 /* SETTINGS FOR FILL-IN fil_Property IN FRAME F-Main
 216    NO-ENABLE                                                            */
 217 /* SETTINGS FOR FILL-IN fil_Property2 IN FRAME F-Main
 218    NO-ENABLE                                                            */
 219 /* SETTINGS FOR FILL-IN RP.Int1 IN FRAME F-Main
 220    EXP-LABEL EXP-FORMAT                                                 */
 221 /* SETTINGS FOR FILL-IN RP.Int2 IN FRAME F-Main
 222    EXP-LABEL EXP-FORMAT                                                 */
 223 /* SETTINGS FOR TOGGLE-BOX RP.Log1 IN FRAME F-Main
 224    EXP-LABEL                                                            */
 225 /* SETTINGS FOR TOGGLE-BOX RP.Log2 IN FRAME F-Main
 226    EXP-LABEL                                                            */
 227 /* SETTINGS FOR TOGGLE-BOX RP.Log3 IN FRAME F-Main
 228    EXP-LABEL                                                            */
 229 /* SETTINGS FOR TOGGLE-BOX RP.Log6 IN FRAME F-Main
 230    EXP-LABEL                                                            */
 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 FRAME F-Main
 238 /* Query rebuild information for FRAME F-Main
 239      _Options          = "NO-LOCK"
 240      _Query            is NOT OPENED
 241 */  /* FRAME F-Main */
 242 &ANALYZE-RESUME
 243
 244
 245
 246
 247 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 248 /* ************************* Included-Libraries *********************** */
 249
 250 {src/adm/method/viewer.i}
 251 {inc/method/m-mntvwr.i}
 252
 253 /* _UIB-CODE-BLOCK-END */
 254 &ANALYZE-RESUME
 255
 256
 257
 258
 259 /* ************************  Control Triggers  ************************ */
 260
 261 &Scoped-define SELF-NAME btn_print
 262 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_print V-table-Win
 263 ON CHOOSE OF btn_print IN FRAME F-Main /* OK */
 264 DO:
 265   SELF:SENSITIVE = No.
 266   RUN run-report.
 267   SELF:SENSITIVE = Yes.
 268 END.
 269
 270 /* _UIB-CODE-BLOCK-END */
 271 &ANALYZE-RESUME
 272
 273
 274 &Scoped-define SELF-NAME RP.Char1
 275 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Char1 V-table-Win
 276 ON VALUE-CHANGED OF RP.Char1 IN FRAME F-Main /* Char1 */
 277 DO:
 278   RUN select-options-changed.
 279 END.
 280
 281 /* _UIB-CODE-BLOCK-END */
 282 &ANALYZE-RESUME
 283
 284
 285 &Scoped-define SELF-NAME cmb_MonthFrom
 286 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_MonthFrom V-table-Win
 287 ON U1 OF cmb_MonthFrom IN FRAME F-Main /* From month */
 288 DO:
 289   {inc/selcmb/scmths1.i "RP" "Int3"}
 290 END.
 291
 292 /* _UIB-CODE-BLOCK-END */
 293 &ANALYZE-RESUME
 294
 295
 296 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_MonthFrom V-table-Win
 297 ON U2 OF cmb_MonthFrom IN FRAME F-Main /* From month */
 298 DO:
 299   {inc/selcmb/scmths2.i "RP" "Int3"}
 300 END.
 301
 302 /* _UIB-CODE-BLOCK-END */
 303 &ANALYZE-RESUME
 304
 305
 306 &Scoped-define SELF-NAME cmb_MonthTo
 307 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_MonthTo V-table-Win
 308 ON U1 OF cmb_MonthTo IN FRAME F-Main /* To */
 309 DO:
 310   {inc/selcmb/scmthe1.i "RP" "Int4"}
 311 END.
 312
 313 /* _UIB-CODE-BLOCK-END */
 314 &ANALYZE-RESUME
 315
 316
 317 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_MonthTo V-table-Win
 318 ON U2 OF cmb_MonthTo IN FRAME F-Main /* To */
 319 DO:
 320   {inc/selcmb/scmthe2.i "RP" "Int4"}
 321 END.
 322
 323 /* _UIB-CODE-BLOCK-END */
 324 &ANALYZE-RESUME
 325
 326
 327 &Scoped-define SELF-NAME fil_Property
 328 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property V-table-Win
 329 ON U1 OF fil_Property IN FRAME F-Main
 330 DO:
 331   {inc/selfil/sfpro1.i "RP" "Int1"}
 332 END.
 333
 334 /* _UIB-CODE-BLOCK-END */
 335 &ANALYZE-RESUME
 336
 337
 338 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property V-table-Win
 339 ON U2 OF fil_Property IN FRAME F-Main
 340 DO:
 341   {inc/selfil/sfpro2.i "RP" "Int1"}
 342 END.
 343
 344 /* _UIB-CODE-BLOCK-END */
 345 &ANALYZE-RESUME
 346
 347
 348 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property V-table-Win
 349 ON U3 OF fil_Property IN FRAME F-Main
 350 DO:
 351   {inc/selfil/sfpro3.i "RP" "Int1"}
 352 END.
 353
 354 /* _UIB-CODE-BLOCK-END */
 355 &ANALYZE-RESUME
 356
 357
 358 &Scoped-define SELF-NAME fil_Property2
 359 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property2 V-table-Win
 360 ON U1 OF fil_Property2 IN FRAME F-Main
 361 DO:
 362   {inc/selfil/sfpro1.i "RP" "Int2"}
 363 END.
 364
 365 /* _UIB-CODE-BLOCK-END */
 366 &ANALYZE-RESUME
 367
 368
 369 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property2 V-table-Win
 370 ON U2 OF fil_Property2 IN FRAME F-Main
 371 DO:
 372   {inc/selfil/sfpro2.i "RP" "Int2"}
 373 END.
 374
 375 /* _UIB-CODE-BLOCK-END */
 376 &ANALYZE-RESUME
 377
 378
 379 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_Property2 V-table-Win
 380 ON U3 OF fil_Property2 IN FRAME F-Main
 381 DO:
 382   {inc/selfil/sfpro3.i "RP" "Int2"}
 383 END.
 384
 385 /* _UIB-CODE-BLOCK-END */
 386 &ANALYZE-RESUME
 387
 388
 389 &Scoped-define SELF-NAME RP.Int1
 390 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Int1 V-table-Win
 391 ON LEAVE OF RP.Int1 IN FRAME F-Main /* Int1 */
 392 DO:
 393   {inc/selcde/cdpro.i "fil_Property"}
 394 END.
 395
 396 /* _UIB-CODE-BLOCK-END */
 397 &ANALYZE-RESUME
 398
 399
 400 &Scoped-define SELF-NAME RP.Int2
 401 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Int2 V-table-Win
 402 ON LEAVE OF RP.Int2 IN FRAME F-Main /* Int2 */
 403 DO:
 404   {inc/selcde/cdpro.i "fil_Property2"}
 405 END.
 406
 407 /* _UIB-CODE-BLOCK-END */
 408 &ANALYZE-RESUME
 409
 410
 411 &UNDEFINE SELF-NAME
 412
 413 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 414
 415
 416 /* ***************************  Main Block  *************************** */
 417
 418 /* _UIB-CODE-BLOCK-END */
 419 &ANALYZE-RESUME
 420
 421
 422 /* **********************  Internal Procedures  *********************** */
 423
 424 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win
 425 PROCEDURE adm-row-available :
 426 /*------------------------------------------------------------------------------
 427   Purpose:     Override (thoroughly!) the Progress adm-row-available
 428 ------------------------------------------------------------------------------*/
 429
 430  /* Define variables needed by this internal procedure.             */
 431   {src/adm/template/row-head.i}
 432
 433   /* Create a list of all the tables that we need to get.            */
 434   {src/adm/template/row-list.i "Creditor"}
 435
 436   /* Get the record ROWID's from the RECORD-SOURCE.                  */
 437   {src/adm/template/row-get.i}
 438
 439   /* FIND each record specified by the RECORD-SOURCE.                */
 440   {src/adm/template/row-find.i "Creditor"}
 441
 442   /* Process the newly available records (i.e. display fields,
 443      open queries, and/or pass records on to any RECORD-TARGETS).    */
 444   {src/adm/template/row-end.i}
 445
 446 END PROCEDURE.
 447
 448 /* _UIB-CODE-BLOCK-END */
 449 &ANALYZE-RESUME
 450
 451
 452 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win _DEFAULT-DISABLE
 453 PROCEDURE disable_UI :
 454 /*------------------------------------------------------------------------------
 455   Purpose:     DISABLE the User Interface
 456   Parameters:  <none>
 457   Notes:       Here we clean-up the user-interface by deleting
 458                dynamic widgets we have created and/or hide
 459                frames.  This procedure is usually called when
 460                we are ready to "clean-up" after running.
 461 ------------------------------------------------------------------------------*/
 462   /* Hide all frames. */
 463   HIDE FRAME F-Main.
 464   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 465 END PROCEDURE.
 466
 467 /* _UIB-CODE-BLOCK-END */
 468 &ANALYZE-RESUME
 469
 470
 471 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable-appropriate-fields V-table-Win
 472 PROCEDURE enable-appropriate-fields :
 473 /*------------------------------------------------------------------------------
 474   Purpose:
 475 ------------------------------------------------------------------------------*/
 476 DO WITH FRAME {&FRAME-NAME}:
 477
 478   RUN select-options-changed.
 479
 480 END.
 481 END PROCEDURE.
 482
 483 /* _UIB-CODE-BLOCK-END */
 484 &ANALYZE-RESUME
 485
 486
 487 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-enable-fields V-table-Win
 488 PROCEDURE inst-enable-fields :
 489 /*------------------------------------------------------------------------------
 490   Purpose:
 491 ------------------------------------------------------------------------------*/
 492
 493   RUN enable-appropriate-fields.
 494
 495 END PROCEDURE.
 496
 497 /* _UIB-CODE-BLOCK-END */
 498 &ANALYZE-RESUME
 499
 500
 501 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 502 PROCEDURE inst-initialize :
 503 /*------------------------------------------------------------------------------
 504   Purpose:
 505 ------------------------------------------------------------------------------*/
 506 DEF VAR user-name AS CHAR NO-UNDO.
 507
 508 {inc/username.i "user-name"}
 509
 510   FIND RP WHERE RP.UserName = user-name
 511             AND RP.ReportID = {&REPORT-ID} NO-ERROR.
 512
 513   IF NOT AVAILABLE RP THEN DO WITH FRAME {&FRAME-NAME}:
 514     CREATE RP.
 515     ASSIGN  RP.ReportID = {&REPORT-ID}
 516             RP.UserName = user-name
 517             RP.Char1 = "All"
 518             RP.Log1 = Yes
 519             RP.Log2 = Yes.
 520   END.
 521
 522   RUN dispatch( 'display-fields':U ).
 523   RUN dispatch( 'enable-fields':U ).
 524
 525 END PROCEDURE.
 526
 527 /* _UIB-CODE-BLOCK-END */
 528 &ANALYZE-RESUME
 529
 530
 531 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 532 PROCEDURE pre-destroy :
 533 /*------------------------------------------------------------------------------
 534   Purpose:
 535   Parameters:  <none>
 536   Notes:
 537 ------------------------------------------------------------------------------*/
 538
 539   RUN check-modified( "CLEAR" ).
 540
 541 END PROCEDURE.
 542
 543 /* _UIB-CODE-BLOCK-END */
 544 &ANALYZE-RESUME
 545
 546
 547 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE run-report V-table-Win
 548 PROCEDURE run-report :
 549 /*------------------------------------------------------------------------------
 550   Purpose:     Actually run the report through RB engine.
 551 ------------------------------------------------------------------------------*/
 552 DEF VAR report-options AS CHAR NO-UNDO.
 553
 554   RUN verify-report.
 555   IF RETURN-VALUE = "FAIL" THEN RETURN.
 556
 557   RUN dispatch( 'update-record':U ).
 558
 559   report-options = RP.Char1
 560                  + (IF RP.Char1 = "OneProperty" THEN
 561                        "~nProperties," + STRING(RP.Int1) + "," + STRING(RP.Int1)
 562                      ELSE (IF RP.Char1 = "PropertyRange" THEN
 563                        "~nProperties," + STRING(RP.Int1) + "," + STRING(RP.Int2)
 564                      ELSE ""))
 565                  + (IF RP.Log1 THEN "~nPreview" ELSE "")
 566                  + (IF RP.Log2 THEN "~nMonthly" ELSE "")
 567                  + (IF RP.Log3 THEN "~nConsolidated" ELSE "")
 568                  + (IF RP.Log6 THEN "~nShowAgentsFees" ELSE "")
 569                  + "~nSummariseTo," + RP.Char2
 570                  + "~nReportOn," + RP.Char3
 571                  + "~nMonths," + STRING( RP.Int3 ) + "," + STRING( RP.Int4 ) .
 572
 573   {inc/bq-do.i "forecast/amtrust-rent-report.p" "report-options" "NOT RP.Log1"}
 574
 575 END PROCEDURE.
 576
 577 /* _UIB-CODE-BLOCK-END */
 578 &ANALYZE-RESUME
 579
 580
 581 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE select-options-changed V-table-Win
 582 PROCEDURE select-options-changed :
 583 /*------------------------------------------------------------------------------
 584   Purpose:
 585 ------------------------------------------------------------------------------*/
 586 DEF VAR options AS CHAR NO-UNDO.
 587
 588   options = INPUT FRAME {&FRAME-NAME} RP.Char1.
 589
 590   CASE options:
 591     WHEN "All" THEN
 592     DO WITH FRAME {&FRAME-NAME}:
 593       HIDE RP.Int1 fil_Property RP.Int2 fil_Property2.
 594       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property:HANDLE ), "HIDDEN = Yes":U ).
 595       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property2:HANDLE ), "HIDDEN = Yes":U ).
 596     END.
 597
 598     WHEN "OneProperty" THEN
 599     DO WITH FRAME {&FRAME-NAME}:
 600       HIDE RP.Int2 fil_Property2.
 601       VIEW RP.Int1 fil_Property.
 602       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property:HANDLE ), "HIDDEN = No":U ).
 603       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property2:HANDLE ), "HIDDEN = Yes":U ).
 604     END.
 605
 606     WHEN "PropertyRange" THEN
 607     DO WITH FRAME {&FRAME-NAME}:
 608       VIEW RP.Int1 fil_Property RP.Int2 fil_Property2.
 609       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property:HANDLE ), "HIDDEN = No":U ).
 610       RUN set-link-attributes IN sys-mgr( THIS-PROCEDURE, STRING( fil_Property2:HANDLE ), "HIDDEN = No":U ).
 611     END.
 612   END.
 613
 614 END PROCEDURE.
 615
 616 /* _UIB-CODE-BLOCK-END */
 617 &ANALYZE-RESUME
 618
 619
 620 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win
 621 PROCEDURE send-records :
 622 /*------------------------------------------------------------------------------
 623   Purpose:
 624 ------------------------------------------------------------------------------*/
 625
 626   /* Define variables needed by this internal procedure.               */
 627   {src/adm/template/snd-head.i}
 628
 629   /* For each requested table, put it's ROWID in the output list.      */
 630   {src/adm/template/snd-list.i "Creditor"}
 631
 632   /* Deal with any unexpected table requests before closing.           */
 633   {src/adm/template/snd-end.i}
 634
 635 END PROCEDURE.
 636
 637 /* _UIB-CODE-BLOCK-END */
 638 &ANALYZE-RESUME
 639
 640
 641 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
 642 PROCEDURE state-changed :
 643 /* -----------------------------------------------------------
 644   Purpose:
 645   Parameters:  <none>
 646   Notes:
 647 -------------------------------------------------------------*/
 648   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 649   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 650
 651   CASE p-state:
 652       /* Object instance CASEs can go here to replace standard behavior
 653          or add new cases. */
 654       {src/adm/template/vstates.i}
 655   END CASE.
 656 END PROCEDURE.
 657
 658 /* _UIB-CODE-BLOCK-END */
 659 &ANALYZE-RESUME
 660
 661
 662 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE verify-report V-table-Win
 663 PROCEDURE verify-report :
 664 /*------------------------------------------------------------------------------
 665   Purpose:
 666 ------------------------------------------------------------------------------*/
 667
 668   CASE INPUT FRAME {&FRAME-NAME} RP.Char1:
 669
 670     WHEN 'OneProperty' THEN
 671       IF NOT CAN-FIND( FIRST Property WHERE Property.PropertyCode =
 672         INPUT FRAME {&FRAME-NAME} RP.Int1 ) THEN
 673       DO:
 674         MESSAGE "You must select a property" VIEW-AS ALERT-BOX ERROR.
 675         APPLY 'ENTRY':U TO RP.Int1 IN FRAME {&FRAME-NAME}.
 676         RETURN "FAIL".
 677       END.
 678   END.
 679
 680 END PROCEDURE.
 681
 682 /* _UIB-CODE-BLOCK-END */
 683 &ANALYZE-RESUME
 684
 685