vwr/mnt/v-schdul.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 /* Parameters Definitions ---                                           */
  16
  17 /* Local Variable Definitions ---                                       */
  18
  19 &SCOPED-DEFINE REPORT-ID "Property Schedule"
  20
  21 {inc/ofc-this.i}
  22 {inc/ofc-set.i "Standard-Schedules" "standard-schedules"}
  23 IF NOT AVAILABLE(OfficeSetting) THEN standard-schedules = "".
  24
  25 /* _UIB-CODE-BLOCK-END */
  26 &ANALYZE-RESUME
  27
  28
  29 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  30
  31 /* ********************  Preprocessor Definitions  ******************** */
  32
  33 &Scoped-define PROCEDURE-TYPE SmartViewer
  34 &Scoped-define DB-AWARE no
  35
  36 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  37
  38 /* Name of first Frame and/or Browse and/or first Query                 */
  39 &Scoped-define FRAME-NAME F-Main
  40
  41 /* External Tables                                                      */
  42 &Scoped-define EXTERNAL-TABLES RP
  43 &Scoped-define FIRST-EXTERNAL-TABLE RP
  44
  45
  46 /* Need to scope the external tables to this procedure                  */
  47 DEFINE QUERY external_tables FOR RP.
  48 /* Standard List Definitions                                            */
  49 &Scoped-Define ENABLED-FIELDS RP.Char1 RP.Char2 RP.Int1 RP.Int2 RP.Int3 ~
  50 RP.Date1 RP.Int4 RP.Char6 RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7 ~
  51 RP.Char3 RP.Log1 RP.Log8
  52 &Scoped-define ENABLED-TABLES RP
  53 &Scoped-define FIRST-ENABLED-TABLE RP
  54 &Scoped-Define ENABLED-OBJECTS cmb_CompanyList cmb_Clients btn_Browse ~
  55 btn_print RECT-29
  56 &Scoped-Define DISPLAYED-FIELDS RP.Char1 RP.Char2 RP.Int1 RP.Int2 RP.Int3 ~
  57 RP.Date1 RP.Int4 RP.Char6 RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7 ~
  58 RP.Char3 RP.Log1 RP.Log8
  59 &Scoped-define DISPLAYED-TABLES RP
  60 &Scoped-define FIRST-DISPLAYED-TABLE RP
  61 &Scoped-Define DISPLAYED-OBJECTS cmb_CompanyList cmb_Clients fil_prop1 ~
  62 fil_prop2
  63
  64 /* Custom List Definitions                                              */
  65 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  66
  67 /* _UIB-PREPROCESSOR-BLOCK-END */
  68 &ANALYZE-RESUME
  69
  70
  71
  72 /* ***********************  Control Definitions  ********************** */
  73
  74
  75 /* Definitions of the field level widgets                               */
  76 DEFINE BUTTON btn_Browse
  77      LABEL "Browse"
  78      SIZE 5.72 BY 1.05
  79      FONT 10.
  80
  81 DEFINE BUTTON btn_print DEFAULT
  82      LABEL "&OK"
  83      SIZE 10.29 BY 1
  84      FONT 9.
  85
  86 DEFINE VARIABLE cmb_Clients AS CHARACTER FORMAT "X(256)":U
  87      LABEL "Client"
  88      VIEW-AS COMBO-BOX INNER-LINES 5
  89      LIST-ITEMS "Item 1"
  90      DROP-DOWN-LIST
  91      SIZE 47.43 BY 1 NO-UNDO.
  92
  93 DEFINE VARIABLE cmb_CompanyList AS CHARACTER FORMAT "X(256)":U
  94      LABEL "List"
  95      VIEW-AS COMBO-BOX INNER-LINES 5
  96      LIST-ITEMS "Item 1"
  97      DROP-DOWN-LIST
  98      SIZE 47.43 BY 1 NO-UNDO.
  99
 100 DEFINE VARIABLE fil_prop1 AS CHARACTER FORMAT "X(256)":U
 101      VIEW-AS FILL-IN
 102      SIZE 41.29 BY 1 NO-UNDO.
 103
 104 DEFINE VARIABLE fil_prop2 AS CHARACTER FORMAT "X(256)":U
 105      VIEW-AS FILL-IN
 106      SIZE 41.29 BY 1 NO-UNDO.
 107
 108 DEFINE RECTANGLE RECT-29
 109      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
 110      SIZE 71 BY 15.25.
 111
 112
 113 /* ************************  Frame Definitions  *********************** */
 114
 115 DEFINE FRAME F-Main
 116      RP.Char1 AT ROW 1.2 COL 2.14 HELP
 117           "" NO-LABEL
 118           VIEW-AS RADIO-SET VERTICAL
 119           RADIO-BUTTONS
 120                     "All properties", "AP":U,
 121 "Company List", "CompanyList":U,
 122 "One Client", "OneClient":U,
 123 "Single property", "1P":U,
 124 "Range of properties", "RP":U
 125           SIZE 16.57 BY 4
 126           FONT 10
 127      RP.Char2 AT ROW 1.2 COL 26.58 HELP
 128           ""
 129           LABEL "Style" FORMAT "X(256)"
 130           VIEW-AS COMBO-BOX INNER-LINES 15
 131           LIST-ITEM-PAIRS "Trans Tasman Properties","AKLD",
 132                      "AmTrust Pacific Limited","APL",
 133                      "Prime Property Group"," PPG",
 134                      "Australian Growth Properties","SDNY",
 135                      "The George Group","TGG",
 136                      "TGG Management Report","TGG2",
 137                      "Old TGG Management Report","TGG3",
 138                      "MS Excel Export","XLS1",
 139                      "Excel Export for AGP","XLS2"
 140           DROP-DOWN-LIST
 141           SIZE 40.57 BY 1
 142      cmb_CompanyList AT ROW 2.5 COL 22 COLON-ALIGNED
 143      cmb_Clients AT ROW 3.5 COL 22 COLON-ALIGNED
 144      RP.Int1 AT ROW 5.2 COL 19 COLON-ALIGNED
 145           LABEL "Property" FORMAT "99999"
 146           VIEW-AS FILL-IN
 147           SIZE 6 BY 1
 148      fil_prop1 AT ROW 5.2 COL 28.14 COLON-ALIGNED NO-LABEL
 149      RP.Int2 AT ROW 6.2 COL 19 COLON-ALIGNED
 150           LABEL "To" FORMAT "99999"
 151           VIEW-AS FILL-IN
 152           SIZE 6 BY 1
 153      fil_prop2 AT ROW 6.2 COL 28.14 COLON-ALIGNED NO-LABEL
 154      RP.Int3 AT ROW 8.2 COL 19 COLON-ALIGNED
 155           VIEW-AS FILL-IN
 156           SIZE 5.72 BY .9
 157      RP.Date1 AT ROW 8.2 COL 19 COLON-ALIGNED
 158           VIEW-AS FILL-IN
 159           SIZE 10 BY .9
 160      RP.Int4 AT ROW 8.2 COL 51.57 COLON-ALIGNED
 161           VIEW-AS FILL-IN
 162           SIZE 6.29 BY .9
 163      RP.Char6 AT ROW 9.5 COL 21 NO-LABEL
 164           VIEW-AS RADIO-SET HORIZONTAL
 165           RADIO-BUTTONS
 166                     "Sort by Tenant No", "TenantNo":U,
 167 "Sort by Floor", "Floor":U
 168           SIZE 37 BY 1
 169      RP.Log2 AT ROW 11.25 COL 9
 170           VIEW-AS TOGGLE-BOX
 171           SIZE 23.14 BY 1
 172           FONT 10
 173      RP.Log3 AT ROW 11.25 COL 32.43
 174           VIEW-AS TOGGLE-BOX
 175           SIZE 20.57 BY 1
 176           FONT 10
 177      RP.Log4 AT ROW 11.25 COL 53
 178           VIEW-AS TOGGLE-BOX
 179           SIZE 18 BY 1
 180           FONT 10
 181      RP.Log5 AT ROW 12.45 COL 9
 182           VIEW-AS TOGGLE-BOX
 183           SIZE 23.14 BY 1
 184           FONT 10
 185      RP.Log6 AT ROW 12.45 COL 32.43
 186           VIEW-AS TOGGLE-BOX
 187           SIZE 20.57 BY 1
 188           FONT 10
 189      RP.Log7 AT ROW 12.45 COL 53
 190           VIEW-AS TOGGLE-BOX
 191           SIZE 18 BY 1
 192      RP.Char3 AT ROW 13.85 COL 7 COLON-ALIGNED AUTO-RETURN
 193           LABEL "File name"
 194           VIEW-AS FILL-IN
 195           SIZE 55.72 BY 1.05
 196      btn_Browse AT ROW 13.85 COL 65
 197      RP.Log1 AT ROW 14.95 COL 9
 198           LABEL "Preview"
 199           VIEW-AS TOGGLE-BOX
 200           SIZE 10.29 BY .9
 201      RP.Log8 AT ROW 15.05 COL 32.43
 202           LABEL "Agents version"
 203           VIEW-AS TOGGLE-BOX
 204           SIZE 13.14 BY .9
 205      btn_print AT ROW 15.05 COL 60.43
 206      RECT-29 AT ROW 1 COL 1
 207     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 208          SIDE-LABELS NO-UNDERLINE THREE-D
 209          AT COL 1 ROW 1 SCROLLABLE
 210          FONT 10
 211          DEFAULT-BUTTON btn_print.
 212
 213
 214 /* *********************** Procedure Settings ************************ */
 215
 216 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 217 /* Settings for THIS-PROCEDURE
 218    Type: SmartViewer
 219    External Tables: TTPL.RP
 220    Allow: Basic,DB-Fields
 221    Frames: 1
 222    Add Fields to: EXTERNAL-TABLES
 223    Other Settings: PERSISTENT-ONLY COMPILE
 224  */
 225
 226 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 227 /* then cleanup and return.                                            */
 228 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 229   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
 230           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 231   RETURN.
 232 END.
 233
 234 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 235
 236 /* *************************  Create Window  ************************** */
 237
 238 &ANALYZE-SUSPEND _CREATE-WINDOW
 239 /* DESIGN Window definition (used by the UIB)
 240   CREATE WINDOW V-table-Win ASSIGN
 241          HEIGHT             = 16.9
 242          WIDTH              = 82.72.
 243 /* END WINDOW DEFINITION */
 244                                                                         */
 245 &ANALYZE-RESUME
 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 /* ***********  Runtime Attributes and AppBuilder Settings  *********** */
 260
 261 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 262 /* SETTINGS FOR WINDOW V-table-Win
 263   VISIBLE,,RUN-PERSISTENT                                               */
 264 /* SETTINGS FOR FRAME F-Main
 265    NOT-VISIBLE Size-to-Fit                                              */
 266 ASSIGN
 267        FRAME F-Main:SCROLLABLE       = FALSE
 268        FRAME F-Main:HIDDEN           = TRUE.
 269
 270 /* SETTINGS FOR RADIO-SET RP.Char1 IN FRAME F-Main
 271    EXP-HELP                                                             */
 272 /* SETTINGS FOR COMBO-BOX RP.Char2 IN FRAME F-Main
 273    ALIGN-L EXP-LABEL EXP-FORMAT EXP-HELP                                */
 274 /* SETTINGS FOR FILL-IN RP.Char3 IN FRAME F-Main
 275    EXP-LABEL                                                            */
 276 /* SETTINGS FOR FILL-IN fil_prop1 IN FRAME F-Main
 277    NO-ENABLE                                                            */
 278 /* SETTINGS FOR FILL-IN fil_prop2 IN FRAME F-Main
 279    NO-ENABLE                                                            */
 280 /* SETTINGS FOR FILL-IN RP.Int1 IN FRAME F-Main
 281    EXP-LABEL EXP-FORMAT                                                 */
 282 /* SETTINGS FOR FILL-IN RP.Int2 IN FRAME F-Main
 283    EXP-LABEL EXP-FORMAT                                                 */
 284 /* SETTINGS FOR TOGGLE-BOX RP.Log1 IN FRAME F-Main
 285    EXP-LABEL                                                            */
 286 /* SETTINGS FOR TOGGLE-BOX RP.Log8 IN FRAME F-Main
 287    EXP-LABEL                                                            */
 288 /* _RUN-TIME-ATTRIBUTES-END */
 289 &ANALYZE-RESUME
 290
 291
 292 /* Setting information for Queries and Browse Widgets fields            */
 293
 294 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 295 /* Query rebuild information for FRAME F-Main
 296      _Options          = "NO-LOCK"
 297      _Query            is NOT OPENED
 298 */  /* FRAME F-Main */
 299 &ANALYZE-RESUME
 300
 301
 302
 303
 304
 305 /* ************************  Control Triggers  ************************ */
 306
 307 &Scoped-define SELF-NAME F-Main
 308 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main V-table-Win
 309 ON GO OF FRAME F-Main
 310 DO:
 311   RUN enable-appropriate-fields.
 312 END.
 313
 314 /* _UIB-CODE-BLOCK-END */
 315 &ANALYZE-RESUME
 316
 317
 318 &Scoped-define SELF-NAME btn_Browse
 319 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_Browse V-table-Win
 320 ON CHOOSE OF btn_Browse IN FRAME F-Main /* Browse */
 321 DO:
 322   RUN select-file-dialog .
 323 END.
 324
 325 /* _UIB-CODE-BLOCK-END */
 326 &ANALYZE-RESUME
 327
 328
 329 &Scoped-define SELF-NAME btn_print
 330 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_print V-table-Win
 331 ON CHOOSE OF btn_print IN FRAME F-Main /* OK */
 332 DO:
 333   RUN notify( 'set-busy, CONTAINER-SOURCE':U ).
 334   RUN run-report.
 335   RUN notify( 'set-idle, CONTAINER-SOURCE':U ).
 336 END.
 337
 338 /* _UIB-CODE-BLOCK-END */
 339 &ANALYZE-RESUME
 340
 341
 342 &Scoped-define SELF-NAME RP.Char1
 343 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Char1 V-table-Win
 344 ON VALUE-CHANGED OF RP.Char1 IN FRAME F-Main /* Char1 */
 345 DO:
 346
 347   RUN enable-appropriate-fields.
 348 END.
 349
 350 /* _UIB-CODE-BLOCK-END */
 351 &ANALYZE-RESUME
 352
 353
 354 &Scoped-define SELF-NAME RP.Char2
 355 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Char2 V-table-Win
 356 ON VALUE-CHANGED OF RP.Char2 IN FRAME F-Main /* Style */
 357 DO:
 358   RUN find-style-rp.
 359   RUN style-changed.
 360 END.
 361
 362 /* _UIB-CODE-BLOCK-END */
 363 &ANALYZE-RESUME
 364
 365
 366 &Scoped-define SELF-NAME cmb_Clients
 367 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_Clients V-table-Win
 368 ON U1 OF cmb_Clients IN FRAME F-Main /* Client */
 369 DO:
 370   {inc/selcmb/scclient1.i "RP" "Char5"}
 371 END.
 372
 373 /* _UIB-CODE-BLOCK-END */
 374 &ANALYZE-RESUME
 375
 376
 377 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_Clients V-table-Win
 378 ON U2 OF cmb_Clients IN FRAME F-Main /* Client */
 379 DO:
 380   {inc/selcmb/scclient2.i "RP" "Char5"}
 381 END.
 382
 383 /* _UIB-CODE-BLOCK-END */
 384 &ANALYZE-RESUME
 385
 386
 387 &Scoped-define SELF-NAME cmb_CompanyList
 388 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_CompanyList V-table-Win
 389 ON U1 OF cmb_CompanyList IN FRAME F-Main /* List */
 390 DO:
 391   {inc/selcmb/sccls1.i "RP" "Char4"}
 392 END.
 393
 394 /* _UIB-CODE-BLOCK-END */
 395 &ANALYZE-RESUME
 396
 397
 398 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_CompanyList V-table-Win
 399 ON U2 OF cmb_CompanyList IN FRAME F-Main /* List */
 400 DO:
 401   {inc/selcmb/sccls2.i "RP" "Char4"}
 402 END.
 403
 404 /* _UIB-CODE-BLOCK-END */
 405 &ANALYZE-RESUME
 406
 407
 408 &Scoped-define SELF-NAME fil_prop1
 409 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop1 V-table-Win
 410 ON U1 OF fil_prop1 IN FRAME F-Main
 411 DO:
 412   {inc/selfil/sfpro1.i "RP" "Int1"}
 413 END.
 414
 415 /* _UIB-CODE-BLOCK-END */
 416 &ANALYZE-RESUME
 417
 418
 419 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop1 V-table-Win
 420 ON U2 OF fil_prop1 IN FRAME F-Main
 421 DO:
 422   {inc/selfil/sfpro2.i "RP" "Int1"}
 423 END.
 424
 425 /* _UIB-CODE-BLOCK-END */
 426 &ANALYZE-RESUME
 427
 428
 429 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop1 V-table-Win
 430 ON U3 OF fil_prop1 IN FRAME F-Main
 431 DO:
 432   {inc/selfil/sfpro3.i "RP" "Int1"}
 433 END.
 434
 435 /* _UIB-CODE-BLOCK-END */
 436 &ANALYZE-RESUME
 437
 438
 439 &Scoped-define SELF-NAME fil_prop2
 440 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop2 V-table-Win
 441 ON U1 OF fil_prop2 IN FRAME F-Main
 442 DO:
 443   {inc/selfil/sfpro1.i "RP" "Int2"}
 444 END.
 445
 446 /* _UIB-CODE-BLOCK-END */
 447 &ANALYZE-RESUME
 448
 449
 450 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop2 V-table-Win
 451 ON U2 OF fil_prop2 IN FRAME F-Main
 452 DO:
 453   {inc/selfil/sfpro2.i "RP" "Int2"}
 454 END.
 455
 456 /* _UIB-CODE-BLOCK-END */
 457 &ANALYZE-RESUME
 458
 459
 460 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fil_prop2 V-table-Win
 461 ON U3 OF fil_prop2 IN FRAME F-Main
 462 DO:
 463   {inc/selfil/sfpro3.i "RP" "Int2"}
 464 END.
 465
 466 /* _UIB-CODE-BLOCK-END */
 467 &ANALYZE-RESUME
 468
 469
 470 &Scoped-define SELF-NAME RP.Int1
 471 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Int1 V-table-Win
 472 ON LEAVE OF RP.Int1 IN FRAME F-Main /* Property */
 473 DO:
 474   {inc/selcde/cdpro.i "fil_prop1"}
 475 END.
 476
 477 /* _UIB-CODE-BLOCK-END */
 478 &ANALYZE-RESUME
 479
 480
 481 &Scoped-define SELF-NAME RP.Int2
 482 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Int2 V-table-Win
 483 ON LEAVE OF RP.Int2 IN FRAME F-Main /* To */
 484 DO:
 485   {inc/selcde/cdpro.i "fil_prop2"}
 486 END.
 487
 488 /* _UIB-CODE-BLOCK-END */
 489 &ANALYZE-RESUME
 490
 491
 492 &Scoped-define SELF-NAME RP.Log2
 493 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Log2 V-table-Win
 494 ON VALUE-CHANGED OF RP.Log2 IN FRAME F-Main /* Log2 */
 495 DO:
 496   RUN enable-appropriate-fields.
 497 END.
 498
 499 /* _UIB-CODE-BLOCK-END */
 500 &ANALYZE-RESUME
 501
 502
 503 &Scoped-define SELF-NAME RP.Log3
 504 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Log3 V-table-Win
 505 ON VALUE-CHANGED OF RP.Log3 IN FRAME F-Main /* Log3 */
 506 DO:
 507   RUN enable-appropriate-fields.
 508 END.
 509
 510 /* _UIB-CODE-BLOCK-END */
 511 &ANALYZE-RESUME
 512
 513
 514 &Scoped-define SELF-NAME RP.Log8
 515 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Log8 V-table-Win
 516 ON VALUE-CHANGED OF RP.Log8 IN FRAME F-Main /* Agents version */
 517 DO:
 518   RUN enable-appropriate-fields.
 519 END.
 520
 521 /* _UIB-CODE-BLOCK-END */
 522 &ANALYZE-RESUME
 523
 524
 525 &UNDEFINE SELF-NAME
 526
 527 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 528
 529
 530 /* ***************************  Main Block  *************************** */
 531
 532 /* _UIB-CODE-BLOCK-END */
 533 &ANALYZE-RESUME
 534
 535
 536 /* **********************  Internal Procedures  *********************** */
 537
 538 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win  _DEFAULT-DISABLE
 539 PROCEDURE disable_UI :
 540 /*------------------------------------------------------------------------------
 541   Purpose:     DISABLE the User Interface
 542   Parameters:  <none>
 543   Notes:       Here we clean-up the user-interface by deleting
 544                dynamic widgets we have created and/or hide
 545                frames.  This procedure is usually called when
 546                we are ready to "clean-up" after running.
 547 ------------------------------------------------------------------------------*/
 548   /* Hide all frames. */
 549   HIDE FRAME F-Main.
 550   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 551 END PROCEDURE.
 552
 553 /* _UIB-CODE-BLOCK-END */
 554 &ANALYZE-RESUME
 555
 556 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable-appropriate-fields V-table-Win
 557 PROCEDURE enable-appropriate-fields :
 558 /*------------------------------------------------------------------------------
 559   Purpose:
 560 ------------------------------------------------------------------------------*/
 561 DEF VAR style AS CHAR NO-UNDO.
 562
 563 DO WITH FRAME {&FRAME-NAME}:
 564 /*   MESSAGE RP.Char2:SCREEN-VALUE VIEW-AS ALERT-BOX . */
 565   /* style = ENTRY( 1, INPUT RP.Char2, " "). */
 566   style = RP.Char2:SCREEN-VALUE.
 567   CASE style:
 568     WHEN "AGP" THEN DO:
 569       ASSIGN
 570         RP.Int3:LABEL       = "x"
 571         RP.Int4:LABEL       = "x"
 572         RP.Log2:LABEL       = "Export"
 573         RP.Log3:LABEL       = "Warnings"
 574         RP.Log4:LABEL       = "Level Summaries"
 575         RP.Log5:LABEL       = "I&&E Summary"
 576         RP.Log6:LABEL       = "Pro-rate O/G"
 577         RP.Log7:LABEL       = "Show notes"
 578       .
 579       VIEW   /* RP.Int3 RP.Int4 */
 580              RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 581       HIDE   RP.Date1 RP.Int3 RP.Int4 RP.Char3 btn_Browse
 582              /* RP.Log7 */.
 583       IF INPUT RP.Log2 THEN DO:
 584         HIDE RP.Log1.
 585         VIEW RP.Char3 btn_Browse.
 586       END.
 587       ELSE DO:
 588         HIDE RP.Char3 btn_Browse.
 589         VIEW RP.Log1.
 590       END.
 591       IF INPUT RP.Log8 THEN
 592         HIDE RP.Log4 RP.Log7 .
 593       ELSE
 594         VIEW RP.Log4 RP.Log7 .
 595     END.
 596     WHEN "SDNY" THEN DO:
 597       ASSIGN
 598         RP.Log2:LABEL       = "Total Every Level"
 599         RP.Log3:LABEL       = "Show Future Rentals".
 600       VIEW   RP.Log1 RP.Log2 RP.Log3.
 601       HIDE   RP.Int3 RP.Int4 RP.Log7 RP.Char3 btn_Browse
 602              RP.Date1 RP.Log8 RP.Log4 RP.Log5 RP.Log6 .
 603     END.
 604     WHEN "GLEN" THEN DO:
 605       ASSIGN
 606         RP.Int3:LABEL       = "Max Sequence"
 607         RP.Int4:LABEL       = "Max Remaining Life"
 608         RP.Log2:LABEL       = "Areas"
 609         RP.Log3:LABEL       = "W.A.L.L."
 610         RP.Log4:LABEL       = "I&&E Summary"
 611         RP.Log5:LABEL       = "Level Reconciliation"
 612         RP.Log6:LABEL       = "Include 'X' spaces"
 613       .
 614       VIEW   RP.Log1 RP.Int3 RP.Int4
 615              RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 .
 616       HIDE   RP.Date1 RP.Log7 RP.Char3 btn_Browse RP.Log8 .
 617     END.
 618     WHEN "AKLD" THEN DO:
 619       ASSIGN
 620         RP.Log2:LABEL       = "Main Schedule"
 621         RP.Log3:LABEL       = "Outgoings Page"
 622         RP.Log4:LABEL       = "O/G as Amounts"
 623         RP.Log5:LABEL       = "No Charged Rents"
 624         RP.Log6:LABEL       = "No Notes"
 625       .
 626       VIEW   RP.Log1 RP.Log2 RP.Log3 RP.Log5 RP.Log6.
 627       HIDE   RP.Date1 RP.Int3 RP.Int4 RP.Char3 btn_Browse
 628              RP.Log7 RP.Log8 .
 629       IF INPUT RP.Log3 THEN VIEW RP.Log4. ELSE HIDE RP.Log4.
 630     END.
 631     WHEN "TGG" THEN DO:
 632       ASSIGN
 633         RP.Log2:LABEL       = "Main Schedule"
 634         RP.Log3:LABEL       = "Outgoings Page"
 635         RP.Log4:LABEL       = "O/G as Amounts"
 636         RP.Log5:LABEL       = "No Charged Rents"
 637         RP.Log6:LABEL       = "No Notes"
 638       .
 639       VIEW   RP.Log1 RP.Log2 RP.Log3 RP.Log5 RP.Log6.
 640       HIDE   RP.Int3 RP.Int4 RP.Char3 btn_Browse
 641              RP.Date1 RP.Log7 RP.Log8 .
 642       IF INPUT RP.Log3 THEN VIEW RP.Log4. ELSE HIDE RP.Log4.
 643     END.
 644     WHEN "TGG2" THEN DO:
 645       ASSIGN
 646         RP.Log2:LABEL       = "Financials"
 647         RP.Log3:LABEL       = "Arrears"
 648         RP.Log4:LABEL       = "Vacancies"
 649         RP.Log5:LABEL       = "Building Income"
 650         RP.Log6:LABEL       = "Issues"
 651         RP.Log7:LABEL       = "Capital Works"
 652         RP.Date1:LABEL      = "As At Date"
 653       .
 654       VIEW   RP.Date1 RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7.
 655       HIDE   RP.Log1 RP.Int3 RP.Int4 RP.Char3 btn_Browse
 656              RP.Log8 RP.Char6 .
 657     END.
 658     WHEN "TGG3" THEN DO:
 659       ASSIGN
 660         RP.Log2:LABEL       = "Financials"
 661         RP.Log3:LABEL       = "Arrears"
 662         RP.Log4:LABEL       = "Vacancies"
 663         RP.Log5:LABEL       = "Issues"
 664         RP.Log6:LABEL       = "Facilities Management"
 665         RP.Log7:LABEL       = "Building Income"
 666         RP.Date1:LABEL      = "As At Date"
 667       .
 668       VIEW   RP.Date1 RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7.
 669       HIDE   RP.Log1 RP.Int3 RP.Int4 RP.Char3 btn_Browse
 670              RP.Log8 .
 671     END.
 672     WHEN "AGNT" THEN DO:
 673       ASSIGN RP.Log2:LABEL       = "Main Schedule" .
 674       VIEW   RP.Log1 RP.Log2 .
 675       HIDE   RP.Log3 RP.Log4 RP.Int3 RP.Int4 RP.Char3 RP.Char6 btn_Browse
 676              RP.Date1 RP.Log4 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 677     END.
 678     WHEN "APL" THEN DO:
 679       ASSIGN RP.Log2:LABEL = "Warnings"
 680              RP.Log3:LABEL = "Show Future Charges".
 681       VIEW   RP.Log1 RP.Log2 RP.Log3 RP.Log8 .
 682       HIDE   RP.Int3 RP.Int4 RP.Char3 RP.Char6 btn_Browse
 683              RP.Date1 RP.Log4 RP.Log5 RP.Log6 RP.Log7 .
 684     END.
 685      WHEN "PPG" THEN DO:
 686        ASSIGN RP.Log2:LABEL = "Warnings"
 687               RP.Log3:LABEL = "Show Future Charges".
 688        VIEW   RP.Char6 RP.Log1 RP.Log2 RP.Log3 RP.Log8 .
 689        HIDE   RP.Int3 RP.Int4 RP.Char3 btn_Browse
 690               RP.Date1 RP.Log4 RP.Log5 RP.Log6 RP.Log7 .
 691      END.
 692     WHEN "XLS1" THEN DO:
 693       ASSIGN RP.Log2:LABEL = "Main Schedule"
 694              RP.Log3:LABEL = "Outgoings"
 695              RP.Log4:LABEL = "Warnings".
 696       VIEW   RP.Log2 RP.Log3 RP.Log4 .
 697       HIDE   RP.Log1 RP.Int3 RP.Int4 RP.Char3 RP.Char6 btn_Browse
 698              RP.Date1 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 699     END.
 700     WHEN "XLS2" THEN DO:
 701       ASSIGN RP.Log2:LABEL = "Warnings"
 702              RP.Log3:LABEL = "Show Future Rentals".
 703       VIEW   RP.Log2 RP.Log3.
 704       HIDE   RP.Log1 RP.Int3 RP.Int4 RP.Char3 RP.Char6 btn_Browse
 705              RP.Date1 RP.Log4 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 706     END.
 707     OTHERWISE DO:
 708       HIDE   RP.Int3 RP.Int4 RP.Char3 RP.Char6 btn_Browse
 709              RP.Date1 RP.Log2 RP.Log3 RP.Log4 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 710     END.
 711   END CASE.
 712
 713   CASE INPUT RP.Char1:
 714     WHEN "1P" THEN DO:
 715       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop1:HANDLE ), "HIDDEN = No" ).
 716       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop2:HANDLE ), "HIDDEN = Yes" ).
 717       VIEW RP.Int1 fil_prop1.
 718       HIDE RP.Int2 fil_prop2 cmb_CompanyList cmb_Clients.
 719     END.
 720     WHEN "RP" THEN DO:
 721       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop1:HANDLE ), "HIDDEN = No" ).
 722       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop2:HANDLE ), "HIDDEN = No" ).
 723       VIEW RP.Int1 RP.Int2 fil_prop1 fil_prop2.
 724       HIDE cmb_CompanyList cmb_Clients.
 725     END.
 726     WHEN "AP" THEN DO:
 727       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop1:HANDLE ), "HIDDEN = Yes" ).
 728       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop2:HANDLE ), "HIDDEN = Yes" ).
 729       HIDE RP.Int1 RP.Int2 fil_prop1 fil_prop2 cmb_CompanyList cmb_Clients.
 730     END.
 731     WHEN "OneClient" THEN DO:
 732       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop1:HANDLE ), "HIDDEN = Yes" ).
 733       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop2:HANDLE ), "HIDDEN = Yes" ).
 734       HIDE RP.Int1 RP.Int2 fil_prop1 fil_prop2 cmb_CompanyList.
 735       VIEW cmb_Clients.
 736     END.
 737     WHEN "CompanyList" THEN DO:
 738       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop1:HANDLE ), "HIDDEN = Yes" ).
 739       RUN set-link-attributes IN sys-mgr ( THIS-PROCEDURE, STRING( fil_prop2:HANDLE ), "HIDDEN = Yes" ).
 740       HIDE RP.Int1 RP.Int2 fil_prop1 fil_prop2 cmb_Clients .
 741       VIEW cmb_CompanyList.
 742     END.
 743   END.
 744 END.
 745 END PROCEDURE.
 746
 747 /* _UIB-CODE-BLOCK-END */
 748 &ANALYZE-RESUME
 749
 750 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE find-style-rp V-table-Win
 751 PROCEDURE find-style-rp :
 752 /*------------------------------------------------------------------------------
 753   Purpose:
 754 ------------------------------------------------------------------------------*/
 755 DEF VAR report-type AS CHAR NO-UNDO.
 756 DEF VAR user-name AS CHAR NO-UNDO.
 757
 758 DEF BUFFER NRP FOR RP.
 759
 760 DO WITH FRAME {&FRAME-NAME}:
 761   report-type = INPUT RP.Char2.
 762   user-name = RP.UserName.
 763   FIND CURRENT RP NO-LOCK.
 764   IF CAN-FIND( RP WHERE RP.UserName = user-name AND RP.ReportID = {&REPORT-ID}  + report-type ) THEN
 765     FIND NRP WHERE NRP.UserName = user-name AND NRP.ReportID = {&REPORT-ID}  + report-type NO-LOCK NO-ERROR.
 766   ELSE DO:
 767     CREATE NRP.
 768     BUFFER-COPY RP TO NRP ASSIGN NRP.ReportID = {&REPORT-ID}  + report-type.
 769     FIND CURRENT NRP NO-LOCK.
 770   END.
 771   FIND RP WHERE RECID(RP) = RECID(NRP).
 772   DISPLAY   RP.Char3 RP.Int3 RP.Int4 RP.Log1 RP.Log2 RP.Log3
 773             RP.Log4 RP.Log5 RP.Log6 RP.Log7 RP.Log8 .
 774   RUN dispatch( 'enable-fields':U ).
 775 END.
 776 END PROCEDURE.
 777
 778 /* _UIB-CODE-BLOCK-END */
 779 &ANALYZE-RESUME
 780
 781 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 782 PROCEDURE inst-initialize :
 783 /*------------------------------------------------------------------------------
 784   Purpose:
 785 ------------------------------------------------------------------------------*/
 786 DEF VAR user-name AS CHAR NO-UNDO.
 787 DEF VAR report-type AS CHAR NO-UNDO.
 788
 789   RUN get-username IN sys-mgr( OUTPUT user-name ).
 790   FIND RP WHERE RP.UserName = user-name AND RP.ReportID = {&REPORT-ID} NO-ERROR.
 791
 792 DO WITH FRAME {&FRAME-NAME}:
 793   IF NOT AVAILABLE RP THEN DO:
 794
 795     DEF VAR first-property LIKE Property.PropertyCode NO-UNDO.
 796     DEF VAR last-property  LIKE Property.PropertyCode NO-UNDO.
 797
 798     FIND FIRST Property NO-LOCK. first-property = Property.PropertyCode.
 799     FIND LAST  Property NO-LOCK. last-property  = Property.PropertyCode.
 800
 801     CREATE RP.
 802     ASSIGN
 803       RP.ReportID = {&REPORT-ID}
 804       RP.UserName = user-name
 805       RP.Int1     = first-property
 806       RP.Int2     = last-property
 807       RP.Char2    = ""
 808       RP.Int3     = 999
 809       RP.Int4     = 10
 810       RP.Date1    = TODAY
 811       RP.Log1     = Yes
 812       RP.Log2     = Yes
 813       RP.Log3     = Yes
 814       RP.Log4     = Yes
 815       RP.Log5     = Yes
 816       .
 817   END.
 818   ELSE DO:
 819     report-type = RP.Char2.
 820     IF CAN-FIND( RP WHERE RP.UserName = user-name AND RP.ReportID = {&REPORT-ID}  + report-type ) THEN
 821       FIND RP WHERE RP.UserName = user-name AND RP.ReportID = {&REPORT-ID}  + report-type NO-ERROR.
 822     RP.ReportID = {&REPORT-ID}  + report-type.
 823   END.
 824
 825   IF RP.Char2 = "" THEN RP.Char2    = RP.Char2:ENTRY(1) .
 826
 827   RUN get-attribute( 'external-key':U ).
 828   IF RETURN-VALUE <> "" THEN RUN use-external-key( RETURN-VALUE ).
 829
 830   RUN dispatch( 'display-fields':U ).
 831   RUN dispatch( 'enable-fields':U ).
 832   RUN style-changed.
 833 END.
 834 END PROCEDURE.
 835
 836 /* _UIB-CODE-BLOCK-END */
 837 &ANALYZE-RESUME
 838
 839 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-update-record V-table-Win
 840 PROCEDURE local-update-record :
 841 /*------------------------------------------------------------------------------
 842   Purpose:     Override standard ADM method
 843   Notes:
 844 ------------------------------------------------------------------------------*/
 845
 846   /* Code placed here will execute PRIOR to standard behavior. */
 847
 848   /* Dispatch standard ADM method.                             */
 849   RUN dispatch IN THIS-PROCEDURE ( INPUT 'update-record':U ) .
 850
 851   /* Code placed here will execute AFTER standard behavior.    */
 852 DEF BUFFER Other_RP FOR RP.
 853
 854   FIND Other_RP WHERE Other_RP.UserName = RP.UserName
 855                 AND Other_RP.ReportID = {&REPORT-ID} NO-ERROR.
 856   IF NOT AVAILABLE(Other_RP) THEN CREATE Other_RP.
 857   BUFFER-COPY RP TO Other_RP ASSIGN Other_RP.ReportID = {&REPORT-ID}.
 858   FIND CURRENT Other_RP NO-LOCK.
 859
 860 END PROCEDURE.
 861
 862 /* _UIB-CODE-BLOCK-END */
 863 &ANALYZE-RESUME
 864
 865 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 866 PROCEDURE pre-destroy :
 867 /*------------------------------------------------------------------------------
 868   Purpose:
 869   Parameters:  <none>
 870   Notes:
 871 ------------------------------------------------------------------------------*/
 872
 873   RUN check-modified( "CLEAR" ).
 874
 875 END PROCEDURE.
 876
 877 /* _UIB-CODE-BLOCK-END */
 878 &ANALYZE-RESUME
 879
 880 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE run-report V-table-Win
 881 PROCEDURE run-report :
 882 /*------------------------------------------------------------------------------
 883   Purpose:
 884 ------------------------------------------------------------------------------*/
 885 DEF VAR e1 AS INTEGER NO-UNDO.
 886 DEF VAR e2 AS INTEGER NO-UNDO.
 887 DEF VAR progname AS CHAR NO-UNDO.
 888 DEF VAR report-options AS CHAR NO-UNDO.
 889
 890   RUN verify-report.
 891   IF RETURN-VALUE = "FAIL" THEN RETURN.
 892
 893   RUN dispatch( 'update-record':U ).
 894
 895 DO WITH FRAME {&FRAME-NAME}:
 896   e1 = RP.Int1.
 897   e2 = RP.Int2.
 898   CASE RP.Char1:
 899     WHEN "1P" THEN e2 = e1.
 900     WHEN "RP" THEN .
 901     WHEN "AP" THEN ASSIGN e1 = 0    e2 = 99999.
 902   END.
 903   report-options = RP.Char1 + "|"
 904                  + STRING( RP.Int3 ) + "|"
 905                  + STRING( RP.Int4 ) + "|"
 906                  + STRING( RP.Log2 ) + "|"
 907                  + STRING( RP.Log3 ) + "|"
 908                  + STRING( RP.Log4 ) + "|"
 909                  + STRING( RP.Log5 ) + "|"
 910                  + STRING( RP.Log6 ) + "|"
 911                  + STRING( RP.Log7 ) + "|"
 912                  + "~nProperties," + STRING( e1 ) + "," + STRING( e2 )
 913                  + "~n" + RP.Int3:LABEL + "," + STRING( RP.Int3 )
 914                  + "~n" + RP.Int4:LABEL + "," + STRING( RP.Int4 )
 915                  + "~n" + RP.Log1:LABEL + "," + STRING( RP.Log1 )
 916                  + "~n" + RP.Date1:LABEL + "," + STRING( RP.Date1 )
 917                  + "~n" + RP.Log2:LABEL + "," + STRING( RP.Log2 )
 918                  + "~n" + RP.Log3:LABEL + "," + STRING( RP.Log3 )
 919                  + "~n" + RP.Log4:LABEL + "," + STRING( RP.Log4 )
 920                  + "~n" + RP.Log5:LABEL + "," + STRING( RP.Log5 )
 921                  + "~n" + RP.Log6:LABEL + "," + STRING( RP.Log6 )
 922                  + "~n" + RP.Log7:LABEL + "," + STRING( RP.Log7 )
 923                  + "~n" + RP.Log8:LABEL + "," + STRING( RP.Log8 )
 924                  + "~nSelection," + STRING( RP.Char1 )
 925                  + (IF RP.Char1 = "CompanyList" THEN "~nCompanyList," + STRING( RP.Char4 ) ELSE "")
 926                  + (IF RP.Char1 = "OneClient" THEN "~nClient," + STRING( RP.Char5 ) ELSE "")
 927                  + "~n" + RP.Char2:LABEL + "," + STRING( RP.Char2 )
 928                  + "~n" + RP.Char3:LABEL + "," + STRING( RP.Char3 )
 929                  + "~n" +  "Sortby," + STRING( RP.Char6 )
 930                  .
 931 END.
 932
 933
 934   progname = "process/report/schd" + RP.Char2 + ".p".
 935   IF SEARCH(progname) <> ? THEN DO:
 936     IF LOOKUP( ENTRY( 1, RP.Char2, " "), "AGP,AKLD,APL,PPG,SDNY,TGG,TGG2,TGG3,XLS1,XLS2") > 0 THEN
 937       RUN VALUE(progname) (  report-options ) NO-ERROR.
 938     ELSE
 939       RUN VALUE(progname) (  report-options,
 940                              RP.Log1,    /* Preview */
 941                              e1, e2      /* Entity range */
 942                           ) NO-ERROR.
 943   END.
 944   ELSE DO:
 945     MESSAGE "The schedule format for " + ENTRY( 1, RP.Char2, " ") + " is not available."
 946              VIEW-AS ALERT-BOX ERROR.
 947   END.
 948
 949 END PROCEDURE.
 950
 951 /* _UIB-CODE-BLOCK-END */
 952 &ANALYZE-RESUME
 953
 954 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE select-file-dialog V-table-Win
 955 PROCEDURE select-file-dialog :
 956 /*------------------------------------------------------------------------------
 957   Purpose:
 958 ------------------------------------------------------------------------------*/
 959 DEF VAR select-ok AS LOGICAL INITIAL Yes NO-UNDO.
 960 DEF VAR file-name AS CHAR NO-UNDO.
 961 DEF VAR start-dir AS CHAR NO-UNDO.
 962
 963   file-name = INPUT FRAME {&FRAME-NAME} RP.Char3 .
 964   start-dir = SUBSTRING( file-name, 1, R-INDEX(file-name, "\" ) ).
 965
 966   SYSTEM-DIALOG GET-FILE file-name FILTERS "Comma-separated values" "*.CSV"
 967         SAVE-AS ASK-OVERWRITE CREATE-TEST-FILE DEFAULT-EXTENSION ".CSV"
 968         INITIAL-DIR start-dir RETURN-TO-START-DIR
 969         TITLE "" USE-FILENAME UPDATE select-ok.
 970
 971   IF select-ok THEN DO:
 972     IF SUBSTRING( file-name, R-INDEX( file-name, ".") ) <> ".CSV" THEN DO:
 973       IF (LENGTH( file-name ) - R-INDEX( file-name, "." )) < 4 THEN
 974         file-name = SUBSTRING( file-name, 1, R-INDEX( file-name, ".")) + "CSV" .
 975     END.
 976     RP.Char3:SCREEN-VALUE IN FRAME {&FRAME-NAME} = file-name.
 977   END.
 978
 979 END PROCEDURE.
 980
 981 /* _UIB-CODE-BLOCK-END */
 982 &ANALYZE-RESUME
 983
 984 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win
 985 PROCEDURE send-records :
 986 /*------------------------------------------------------------------------------
 987   Purpose:     Send record ROWID's for all tables used by
 988                this file.
 989   Parameters:  see template/snd-head.i
 990 ------------------------------------------------------------------------------*/
 991
 992   /* Define variables needed by this internal procedure.               */
 993   {src/adm/template/snd-head.i}
 994
 995   /* For each requested table, put it's ROWID in the output list.      */
 996
 997   /* Deal with any unexpected table requests before closing.           */
 998   {src/adm/template/snd-end.i}
 999
1000 END PROCEDURE.
1001
1002 /* _UIB-CODE-BLOCK-END */
1003 &ANALYZE-RESUME
1004
1005 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
1006 PROCEDURE state-changed :
1007 /* -----------------------------------------------------------
1008   Purpose:
1009   Parameters:  <none>
1010   Notes:
1011 -------------------------------------------------------------*/
1012   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
1013   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
1014
1015   CASE p-state:
1016       /* Object instance CASEs can go here to replace standard behavior
1017          or add new cases. */
1018       {src/adm/template/vstates.i}
1019   END CASE.
1020 END PROCEDURE.
1021
1022 /* _UIB-CODE-BLOCK-END */
1023 &ANALYZE-RESUME
1024
1025 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE style-changed V-table-Win
1026 PROCEDURE style-changed :
1027 /*------------------------------------------------------------------------------
1028   Purpose:
1029 ------------------------------------------------------------------------------*/
1030 DEF VAR style AS CHAR NO-UNDO.
1031 DEF VAR current-value AS CHAR NO-UNDO.
1032
1033 DO WITH FRAME {&FRAME-NAME}:
1034   style = ENTRY( 1, INPUT RP.Char2, " ").
1035   IF LOOKUP( style, "AKLD,XLS1") > 0 THEN DO:
1036     IF RP.Char1:NUM-BUTTONS <> 5 THEN DO:
1037       RP.Char1:RADIO-BUTTONS = "All properties,AP,Company List,CompanyList,One Client,OneClient,Single property,1P,Range of properties,RP".
1038     END.
1039   END.
1040   ELSE DO:
1041     IF RP.Char1:NUM-BUTTONS <> 3 THEN DO:
1042       current-value = INPUT RP.Char1.
1043       RP.Char1:RADIO-BUTTONS = "All properties,AP,Single property,1P,Range of properties,RP".
1044       IF LOOKUP( current-value, "AP,1P,RP" ) = 0 THEN
1045         RP.Char1:SCREEN-VALUE = "1P".
1046       ELSE
1047         RP.Char1:SCREEN-VALUE = current-value.
1048
1049     END.
1050   END.
1051   IF NOT (standard-schedules = "" OR CAN-DO( standard-schedules, ENTRY(1,INPUT RP.Char2," "))) THEN DO:
1052     MESSAGE "The" ENTRY(1,INPUT RP.Char2," ") "schedule is not one of the office" SKIP
1053             "standard schedule formats." SKIP(1)
1054             "You should check the output for correctness against the" SKIP
1055             "office standards (" + standard-schedules + ") before using it."
1056             VIEW-AS ALERT-BOX WARNING
1057             TITLE "Warning: non-standard schedule format".
1058   END.
1059 END.
1060
1061   RUN enable-appropriate-fields.
1062 END PROCEDURE.
1063
1064 /* _UIB-CODE-BLOCK-END */
1065 &ANALYZE-RESUME
1066
1067 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-external-key V-table-Win
1068 PROCEDURE use-external-key :
1069 /*------------------------------------------------------------------------------
1070   Purpose:
1071 ------------------------------------------------------------------------------*/
1072 DEF INPUT PARAMETER new-name AS CHAR NO-UNDO.
1073
1074 DEF VAR link-handle AS CHAR NO-UNDO.
1075 DEF VAR source-browse AS WIDGET-HANDLE NO-UNDO.
1076 DEF VAR foreign-key AS CHAR NO-UNDO.
1077 DEF VAR user-name AS CHAR NO-UNDO.
1078
1079   RUN get-link-handle IN adm-broker-hdl (INPUT THIS-PROCEDURE,
1080                 INPUT "RECORD-SOURCE":U, OUTPUT link-handle) NO-ERROR.
1081   IF link-handle NE "":U THEN DO:
1082     source-browse = WIDGET-HANDLE(ENTRY(1,link-handle)).
1083     RUN send-key IN source-browse ( INPUT new-name, OUTPUT foreign-key ).
1084
1085     RP.Char1 = "1P":U.
1086     RP.Int1 = INTEGER( foreign-key ).
1087     FIND Property WHERE Property.PropertyCode = RP.Int1 NO-LOCK NO-ERROR.
1088     fil_Prop1 = IF AVAILABLE(Property) THEN Property.Name ELSE "* * * Unknown Property * * *".
1089
1090   END.
1091
1092 END PROCEDURE.
1093
1094 /* _UIB-CODE-BLOCK-END */
1095 &ANALYZE-RESUME
1096
1097 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE verify-report V-table-Win
1098 PROCEDURE verify-report :
1099 /*------------------------------------------------------------------------------
1100   Purpose:
1101   Parameters:  <none>
1102   Notes:
1103 ------------------------------------------------------------------------------*/
1104
1105   IF INPUT FRAME {&FRAME-NAME} RP.Char1 = "RP"
1106      AND (INPUT FRAME {&FRAME-NAME} RP.Int1 > INPUT FRAME {&FRAME-NAME} RP.Int2 )
1107   THEN DO:
1108     MESSAGE "The TO property must be greater than the from property !"
1109       VIEW-AS ALERT-BOX ERROR.
1110     APPLY 'ENTRY':U TO RP.Int1 IN FRAME {&FRAME-NAME}.
1111     RETURN "FAIL".
1112   END.
1113
1114 END PROCEDURE.
1115
1116 /* _UIB-CODE-BLOCK-END */
1117 &ANALYZE-RESUME
1118