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