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