vwr/mnt/v-portfolio-yield.w

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