compliance/v-building-system.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
  10   File: compliance/v-building-system.w
  11
  12   Description: Viewer for maintaining/adding building systems
  13
  14   Input Parameters:
  15       <none>
  16
  17   Output Parameters:
  18       <none>
  19
  20 ------------------------------------------------------------------------*/
  21
  22 CREATE WIDGET-POOL.
  23
  24 /* ***************************  Definitions  ************************** */
  25
  26 {inc/topic/tpbldsys.i}
  27
  28 DEF VAR mode AS CHAR NO-UNDO.
  29
  30 /* _UIB-CODE-BLOCK-END */
  31 &ANALYZE-RESUME
  32
  33
  34 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  35
  36 /* ********************  Preprocessor Definitions  ******************** */
  37
  38 &Scoped-define PROCEDURE-TYPE SmartViewer
  39
  40 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  41
  42 /* Name of first Frame and/or Browse and/or first Query                 */
  43 &Scoped-define FRAME-NAME F-Main
  44
  45 /* External Tables                                                      */
  46 &Scoped-define EXTERNAL-TABLES BuildingSystem
  47 &Scoped-define FIRST-EXTERNAL-TABLE BuildingSystem
  48
  49
  50 /* Need to scope the external tables to this procedure                  */
  51 DEFINE QUERY external_tables FOR BuildingSystem.
  52 /* Standard List Definitions                                            */
  53 &Scoped-Define ENABLED-FIELDS BuildingSystem.PropertyCode ~
  54 BuildingSystem.IQPCertificate
  55 &Scoped-define FIELD-PAIRS~
  56  ~{&FP1}PropertyCode ~{&FP2}PropertyCode ~{&FP3}
  57 &Scoped-define ENABLED-TABLES BuildingSystem
  58 &Scoped-define FIRST-ENABLED-TABLE BuildingSystem
  59 &Scoped-Define ENABLED-OBJECTS RECT-25 cmb_BuildingSystemType ~
  60 cmb_InspectorIQP cmb_InspectorOwner
  61 &Scoped-Define DISPLAYED-FIELDS BuildingSystem.PropertyCode ~
  62 BuildingSystem.IQPCertificate
  63 &Scoped-Define DISPLAYED-OBJECTS cmb_BuildingSystemType cmb_InspectorIQP ~
  64 cmb_InspectorOwner
  65
  66 /* Custom List Definitions                                              */
  67 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  68
  69 /* _UIB-PREPROCESSOR-BLOCK-END */
  70 &ANALYZE-RESUME
  71
  72
  73 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" V-table-Win _INLINE
  74 /* Actions: ? adm/support/keyedit.w ? ? ? */
  75 /* STRUCTURED-DATA
  76 <KEY-OBJECT>
  77 THIS-PROCEDURE
  78 </KEY-OBJECT>
  79 <FOREIGN-KEYS>
  80 PropertyCode||y|TTPL.BuildingSystem.PropertyCode
  81 BuildingSystemType||y|TTPL.BuildingSystem.BuildingSystemType
  82 </FOREIGN-KEYS>
  83 <EXECUTING-CODE>
  84 **************************
  85 * Set attributes related to FOREIGN KEYS
  86 */
  87 RUN set-attribute-list (
  88     'Keys-Accepted = ,
  89      Keys-Supplied = "PropertyCode,BuildingSystemType"':U).
  90 /**************************
  91 </EXECUTING-CODE> */
  92 /* _UIB-CODE-BLOCK-END */
  93 &ANALYZE-RESUME
  94
  95
  96 /* ***********************  Control Definitions  ********************** */
  97
  98
  99 /* Definitions of the field level widgets                               */
 100 DEFINE VARIABLE cmb_BuildingSystemType AS CHARACTER FORMAT "X(256)":U
 101      LABEL "System Type"
 102      VIEW-AS COMBO-BOX INNER-LINES 5
 103      LIST-ITEMS "Item 1"
 104      SIZE 47.43 BY 1 NO-UNDO.
 105
 106 DEFINE VARIABLE cmb_InspectorIQP AS CHARACTER FORMAT "X(256)":U
 107      LABEL "IQP inspector"
 108      VIEW-AS COMBO-BOX INNER-LINES 5
 109      LIST-ITEMS "Item 1"
 110      SIZE 47.43 BY 1 NO-UNDO.
 111
 112 DEFINE VARIABLE cmb_InspectorOwner AS CHARACTER FORMAT "X(256)":U
 113      LABEL "Owner inspector"
 114      VIEW-AS COMBO-BOX INNER-LINES 5
 115      LIST-ITEMS "Item 1"
 116      SIZE 47.43 BY 1 NO-UNDO.
 117
 118 DEFINE RECTANGLE RECT-25
 119      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
 120      SIZE 61.72 BY 8.6.
 121
 122
 123 /* ************************  Frame Definitions  *********************** */
 124
 125 DEFINE FRAME F-Main
 126      BuildingSystem.PropertyCode AT ROW 1.2 COL 6.43 COLON-ALIGNED
 127           LABEL "Property"
 128           VIEW-AS FILL-IN
 129           SIZE 6.57 BY 1.05
 130      cmb_BuildingSystemType AT ROW 3 COL 12.72 COLON-ALIGNED
 131      cmb_InspectorIQP AT ROW 5.4 COL 12.72 COLON-ALIGNED
 132      cmb_InspectorOwner AT ROW 6.6 COL 12.72 COLON-ALIGNED
 133      BuildingSystem.IQPCertificate AT ROW 8.2 COL 14.72
 134           VIEW-AS TOGGLE-BOX
 135           SIZE 17.72 BY 1.05
 136      RECT-25 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
 142
 143 /* *********************** Procedure Settings ************************ */
 144
 145 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 146 /* Settings for THIS-PROCEDURE
 147    Type: SmartViewer
 148    External Tables: TTPL.BuildingSystem
 149    Allow: Basic,DB-Fields
 150    Frames: 1
 151    Add Fields to: EXTERNAL-TABLES
 152    Other Settings: PERSISTENT-ONLY COMPILE
 153  */
 154
 155 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 156 /* then cleanup and return.                                            */
 157 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 158   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 159           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 160   RETURN.
 161 END.
 162
 163 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 164
 165 /* *************************  Create Window  ************************** */
 166
 167 &ANALYZE-SUSPEND _CREATE-WINDOW
 168 /* DESIGN Window definition (used by the UIB)
 169   CREATE WINDOW V-table-Win ASSIGN
 170          HEIGHT             = 12
 171          WIDTH              = 69.43.
 172 /* END WINDOW DEFINITION */
 173                                                                         */
 174 &ANALYZE-RESUME
 175
 176
 177 /* ***************  Runtime Attributes and UIB Settings  ************** */
 178
 179 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 180 /* SETTINGS FOR WINDOW V-table-Win
 181   VISIBLE,,RUN-PERSISTENT                                               */
 182 /* SETTINGS FOR FRAME F-Main
 183    NOT-VISIBLE Size-to-Fit                                              */
 184 ASSIGN
 185        FRAME F-Main:SCROLLABLE       = FALSE
 186        FRAME F-Main:HIDDEN           = TRUE.
 187
 188 /* SETTINGS FOR FILL-IN BuildingSystem.PropertyCode IN FRAME F-Main
 189    EXP-LABEL                                                            */
 190 /* _RUN-TIME-ATTRIBUTES-END */
 191 &ANALYZE-RESUME
 192
 193
 194 /* Setting information for Queries and Browse Widgets fields            */
 195
 196 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 197 /* Query rebuild information for FRAME F-Main
 198      _Options          = "NO-LOCK"
 199      _Query            is NOT OPENED
 200 */  /* FRAME F-Main */
 201 &ANALYZE-RESUME
 202
 203
 204
 205
 206 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 207 /* ************************* Included-Libraries *********************** */
 208
 209 {src/adm/method/viewer.i}
 210 {inc/method/m-mntvwr.i}
 211
 212 /* _UIB-CODE-BLOCK-END */
 213 &ANALYZE-RESUME
 214
 215
 216
 217
 218 /* ************************  Control Triggers  ************************ */
 219
 220 &Scoped-define SELF-NAME cmb_BuildingSystemType
 221 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_BuildingSystemType V-table-Win
 222 ON U1 OF cmb_BuildingSystemType IN FRAME F-Main /* System Type */
 223 DO:
 224   {inc/selcmb/scbldsys1.i "BuildingSystem" "BuildingSystemType"}
 225 END.
 226
 227 /* _UIB-CODE-BLOCK-END */
 228 &ANALYZE-RESUME
 229
 230
 231 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_BuildingSystemType V-table-Win
 232 ON U2 OF cmb_BuildingSystemType IN FRAME F-Main /* System Type */
 233 DO:
 234   {inc/selcmb/scbldsys2.i "BuildingSystem" "BuildingSystemType"}
 235 END.
 236
 237 /* _UIB-CODE-BLOCK-END */
 238 &ANALYZE-RESUME
 239
 240
 241 &Scoped-define SELF-NAME cmb_InspectorIQP
 242 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_InspectorIQP V-table-Win
 243 ON U1 OF cmb_InspectorIQP IN FRAME F-Main /* IQP inspector */
 244 DO:
 245   {inc/selcmb/scinsp1.i "BuildingSystem" "InspectorIQP"}
 246 END.
 247
 248 /* _UIB-CODE-BLOCK-END */
 249 &ANALYZE-RESUME
 250
 251
 252 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_InspectorIQP V-table-Win
 253 ON U2 OF cmb_InspectorIQP IN FRAME F-Main /* IQP inspector */
 254 DO:
 255   {inc/selcmb/scinsp2.i "BuildingSystem" "InspectorIQP"}
 256 END.
 257
 258 /* _UIB-CODE-BLOCK-END */
 259 &ANALYZE-RESUME
 260
 261
 262 &Scoped-define SELF-NAME cmb_InspectorOwner
 263 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_InspectorOwner V-table-Win
 264 ON U1 OF cmb_InspectorOwner IN FRAME F-Main /* Owner inspector */
 265 DO:
 266   {inc/selcmb/scinsp1.i "BuildingSystem" "InspectorOwner"}
 267 END.
 268
 269 /* _UIB-CODE-BLOCK-END */
 270 &ANALYZE-RESUME
 271
 272
 273 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL cmb_InspectorOwner V-table-Win
 274 ON U2 OF cmb_InspectorOwner IN FRAME F-Main /* Owner inspector */
 275 DO:
 276   {inc/selcmb/scinsp2.i "BuildingSystem" "InspectorOwner"}
 277 END.
 278
 279 /* _UIB-CODE-BLOCK-END */
 280 &ANALYZE-RESUME
 281
 282
 283 &UNDEFINE SELF-NAME
 284
 285 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 286
 287
 288 /* ***************************  Main Block  *************************** */
 289
 290 /* _UIB-CODE-BLOCK-END */
 291 &ANALYZE-RESUME
 292
 293
 294 /* **********************  Internal Procedures  *********************** */
 295
 296 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-find-using-key V-table-Win adm/support/_key-fnd.p
 297 PROCEDURE adm-find-using-key :
 298 /*------------------------------------------------------------------------------
 299   Purpose:     Finds the current record using the contents of
 300                the 'Key-Name' and 'Key-Value' attributes.
 301   Parameters:  <none>
 302 ------------------------------------------------------------------------------*/
 303
 304   /* No Foreign keys are accepted by this SmartObject. */
 305
 306 END PROCEDURE.
 307
 308 /* _UIB-CODE-BLOCK-END */
 309 &ANALYZE-RESUME
 310
 311
 312 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win _ADM-ROW-AVAILABLE
 313 PROCEDURE adm-row-available :
 314 /*------------------------------------------------------------------------------
 315   Purpose:     Dispatched to this procedure when the Record-
 316                Source has a new row available.  This procedure
 317                tries to get the new row (or foriegn keys) from
 318                the Record-Source and process it.
 319   Parameters:  <none>
 320 ------------------------------------------------------------------------------*/
 321
 322   /* Define variables needed by this internal procedure.             */
 323   {src/adm/template/row-head.i}
 324
 325   /* Create a list of all the tables that we need to get.            */
 326   {src/adm/template/row-list.i "BuildingSystem"}
 327
 328   /* Get the record ROWID's from the RECORD-SOURCE.                  */
 329   {src/adm/template/row-get.i}
 330
 331   /* FIND each record specified by the RECORD-SOURCE.                */
 332   {src/adm/template/row-find.i "BuildingSystem"}
 333
 334   /* Process the newly available records (i.e. display fields,
 335      open queries, and/or pass records on to any RECORD-TARGETS).    */
 336   {src/adm/template/row-end.i}
 337
 338 END PROCEDURE.
 339
 340 /* _UIB-CODE-BLOCK-END */
 341 &ANALYZE-RESUME
 342
 343
 344 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE cancel-changes V-table-Win
 345 PROCEDURE cancel-changes :
 346 /*------------------------------------------------------------------------------
 347   Purpose:
 348 ------------------------------------------------------------------------------*/
 349
 350   IF mode = "Add" THEN RUN delete-new-record. ELSE RUN check-modified( "CLEAR" ).
 351   RUN dispatch( 'exit':U ).
 352
 353 END PROCEDURE.
 354
 355 /* _UIB-CODE-BLOCK-END */
 356 &ANALYZE-RESUME
 357
 358
 359 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE confirm-changes V-table-Win
 360 PROCEDURE confirm-changes :
 361 /*------------------------------------------------------------------------------
 362   Purpose:
 363 ------------------------------------------------------------------------------*/
 364
 365   RUN verify-record.
 366   IF RETURN-VALUE = "FAIL" THEN RETURN.
 367
 368   RUN dispatch( 'update-record':U ).
 369   IF mode = "Add":U THEN RUN notify ( 'open-query,record-source':U ).
 370   RUN dispatch( 'exit':U ).
 371
 372 END PROCEDURE.
 373
 374 /* _UIB-CODE-BLOCK-END */
 375 &ANALYZE-RESUME
 376
 377
 378 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE delete-new-record V-table-Win
 379 PROCEDURE delete-new-record :
 380 /*------------------------------------------------------------------------------
 381   Purpose:
 382 ------------------------------------------------------------------------------*/
 383
 384   FIND CURRENT BuildingSystem EXCLUSIVE-LOCK NO-ERROR.
 385   IF AVAILABLE BuildingSystem THEN DELETE BuildingSystem.
 386
 387 END PROCEDURE.
 388
 389 /* _UIB-CODE-BLOCK-END */
 390 &ANALYZE-RESUME
 391
 392
 393 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win _DEFAULT-DISABLE
 394 PROCEDURE disable_UI :
 395 /*------------------------------------------------------------------------------
 396   Purpose:     DISABLE the User Interface
 397   Parameters:  <none>
 398   Notes:       Here we clean-up the user-interface by deleting
 399                dynamic widgets we have created and/or hide
 400                frames.  This procedure is usually called when
 401                we are ready to "clean-up" after running.
 402 ------------------------------------------------------------------------------*/
 403   /* Hide all frames. */
 404   HIDE FRAME F-Main.
 405   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 406 END PROCEDURE.
 407
 408 /* _UIB-CODE-BLOCK-END */
 409 &ANALYZE-RESUME
 410
 411
 412 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 413 PROCEDURE inst-initialize :
 414 /*------------------------------------------------------------------------------
 415   Purpose:
 416 ------------------------------------------------------------------------------*/
 417
 418   IF mode = "Add" THEN DO:
 419     have-records = Yes.
 420     RUN dispatch( 'add-record':U ).
 421   END.
 422   ELSE IF mode = "View" THEN DO:
 423     RUN dispatch( 'disable-fields':U ).
 424   END.
 425   ELSE
 426     RUN dispatch( 'enable-fields':U ).
 427
 428 END PROCEDURE.
 429
 430 /* _UIB-CODE-BLOCK-END */
 431 &ANALYZE-RESUME
 432
 433
 434 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE override-add-record V-table-Win
 435 PROCEDURE override-add-record :
 436 /*------------------------------------------------------------------------------
 437   Purpose:
 438 ------------------------------------------------------------------------------*/
 439
 440   CREATE BuildingSystem.
 441   BuildingSystem.PropertyCode = INT( find-parent-key("PropertyCode") ).
 442
 443   RUN dispatch( 'display-fields':U ).
 444   RUN dispatch( 'enable-fields':U ).
 445
 446   CURRENT-WINDOW:TITLE = "Adding a new Building System".
 447
 448 END PROCEDURE.
 449
 450 /* _UIB-CODE-BLOCK-END */
 451 &ANALYZE-RESUME
 452
 453
 454 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 455 PROCEDURE pre-destroy :
 456 /*------------------------------------------------------------------------------
 457   Purpose:
 458   Parameters:  <none>
 459   Notes:
 460 ------------------------------------------------------------------------------*/
 461
 462   IF LAST-EVENT:FUNCTION = "WINDOW-CLOSE" THEN RUN cancel-changes.
 463
 464 END PROCEDURE.
 465
 466 /* _UIB-CODE-BLOCK-END */
 467 &ANALYZE-RESUME
 468
 469
 470 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key V-table-Win adm/support/_key-snd.p
 471 PROCEDURE send-key :
 472 /*------------------------------------------------------------------------------
 473   Purpose:     Sends a requested KEY value back to the calling
 474                SmartObject.
 475   Parameters:  <see adm/template/sndkytop.i>
 476 ------------------------------------------------------------------------------*/
 477
 478   /* Define variables needed by this internal procedure.             */
 479   {src/adm/template/sndkytop.i}
 480
 481   /* Return the key value associated with each key case.             */
 482   {src/adm/template/sndkycas.i "PropertyCode" "BuildingSystem" "PropertyCode"}
 483   {src/adm/template/sndkycas.i "BuildingSystemType" "BuildingSystem" "BuildingSystemType"}
 484
 485   /* Close the CASE statement and end the procedure.                 */
 486   {src/adm/template/sndkyend.i}
 487
 488 END PROCEDURE.
 489
 490 /* _UIB-CODE-BLOCK-END */
 491 &ANALYZE-RESUME
 492
 493
 494 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win _ADM-SEND-RECORDS
 495 PROCEDURE send-records :
 496 /*------------------------------------------------------------------------------
 497   Purpose:     Send record ROWID's for all tables used by
 498                this file.
 499   Parameters:  see template/snd-head.i
 500 ------------------------------------------------------------------------------*/
 501
 502   /* Define variables needed by this internal procedure.               */
 503   {src/adm/template/snd-head.i}
 504
 505   /* For each requested table, put it's ROWID in the output list.      */
 506   {src/adm/template/snd-list.i "BuildingSystem"}
 507
 508   /* Deal with any unexpected table requests before closing.           */
 509   {src/adm/template/snd-end.i}
 510
 511 END PROCEDURE.
 512
 513 /* _UIB-CODE-BLOCK-END */
 514 &ANALYZE-RESUME
 515
 516
 517 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed V-table-Win
 518 PROCEDURE state-changed :
 519 /* -----------------------------------------------------------
 520   Purpose:
 521   Parameters:  <none>
 522   Notes:
 523 -------------------------------------------------------------*/
 524   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 525   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 526
 527   CASE p-state:
 528       /* Object instance CASEs can go here to replace standard behavior
 529          or add new cases. */
 530       {src/adm/template/vstates.i}
 531   END CASE.
 532 END PROCEDURE.
 533
 534 /* _UIB-CODE-BLOCK-END */
 535 &ANALYZE-RESUME
 536
 537
 538 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE use-mode V-table-Win
 539 PROCEDURE use-mode :
 540 /*------------------------------------------------------------------------------
 541   Purpose:
 542 ------------------------------------------------------------------------------*/
 543 DEF INPUT PARAMETER new-mode AS CHAR NO-UNDO.
 544
 545   mode = new-mode.
 546
 547 END PROCEDURE.
 548
 549 /* _UIB-CODE-BLOCK-END */
 550 &ANALYZE-RESUME
 551
 552
 553 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE verify-record V-table-Win
 554 PROCEDURE verify-record :
 555 /*------------------------------------------------------------------------------
 556   Purpose:
 557   Parameters:  <none>
 558   Notes:
 559 ------------------------------------------------------------------------------*/
 560
 561 DO WITH FRAME {&FRAME-NAME}:
 562
 563 END.
 564
 565 END PROCEDURE.
 566
 567 /* _UIB-CODE-BLOCK-END */
 568 &ANALYZE-RESUME
 569
 570