compliance/b-building-systems.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 B-table-Win
   8 /*------------------------------------------------------------------------
   9   File:
  10   Description:
  11
  12 ------------------------------------------------------------------------*/
  13
  14 CREATE WIDGET-POOL.
  15
  16 /* ***************************  Definitions  ************************** */
  17
  18
  19 DEF VAR insp-iqp AS CHAR NO-UNDO FORMAT "X(50)" LABEL "IQP Inspector".
  20 DEF VAR insp-owner AS CHAR NO-UNDO FORMAT "X(50)" LABEL "Owner Inspector".
  21
  22 DEF BUFFER Insp FOR Inspector.
  23 DEF BUFFER Pers FOR Person.
  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 SmartBrowser
  34
  35 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  36
  37 /* Name of first Frame and/or Browse and/or first Query                 */
  38 &Scoped-define FRAME-NAME F-Main
  39 &Scoped-define BROWSE-NAME br_table
  40
  41 /* Internal Tables (found by Frame, Query & Browse Queries)             */
  42 &Scoped-define INTERNAL-TABLES BuildingSystem
  43
  44 /* Define KEY-PHRASE in case it is used by any query. */
  45 &Scoped-define KEY-PHRASE TRUE
  46
  47 /* Definitions for BROWSE br_table                                      */
  48 &Scoped-define FIELDS-IN-QUERY-br_table BuildingSystem.PropertyCode ~
  49 BuildingSystem.BuildingSystemType BuildingSystem.InspectorIQP ~
  50 BuildingSystem.InspectorOwner BuildingSystem.IQPCertificate ~
  51 get-inspector-name(BuildingSystem.InspectorIQP) @ insp-iqp ~
  52 get-inspector-name(BuildingSystem.InspectorOwner) @ insp-owner
  53 &Scoped-define ENABLED-FIELDS-IN-QUERY-br_table
  54 &Scoped-define FIELD-PAIRS-IN-QUERY-br_table
  55 &Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH BuildingSystem WHERE ~{&KEY-PHRASE} NO-LOCK ~
  56     ~{&SORTBY-PHRASE}.
  57 &Scoped-define TABLES-IN-QUERY-br_table BuildingSystem
  58 &Scoped-define FIRST-TABLE-IN-QUERY-br_table BuildingSystem
  59
  60
  61 /* Definitions for FRAME F-Main                                         */
  62
  63 /* Standard List Definitions                                            */
  64 &Scoped-Define ENABLED-OBJECTS br_table
  65
  66 /* Custom List Definitions                                              */
  67 /* List-1,List-2,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" B-table-Win _INLINE
  74 /* Actions: ? adm/support/keyedit.w ? ? ? */
  75 /* STRUCTURED-DATA
  76 <KEY-OBJECT>
  77 &BROWSE-NAME
  78 </KEY-OBJECT>
  79 <FOREIGN-KEYS>
  80 PropertyCode|y|y|TTPL.BuildingSystem.PropertyCode
  81 InspectorIQP|y|y|TTPL.BuildingSystem.InspectorIQP
  82 InspectorOwner|y|y|TTPL.BuildingSystem.InspectorOwner
  83 </FOREIGN-KEYS>
  84 <EXECUTING-CODE>
  85 **************************
  86 * Set attributes related to FOREIGN KEYS
  87 */
  88 RUN set-attribute-list (
  89     'Keys-Accepted = "PropertyCode,InspectorIQP,InspectorOwner",
  90      Keys-Supplied = "PropertyCode,InspectorIQP,InspectorOwner"':U).
  91
  92 /* Tell the ADM to use the OPEN-QUERY-CASES. */
  93 &Scoped-define OPEN-QUERY-CASES RUN dispatch ('open-query-cases':U).
  94 /**************************
  95 </EXECUTING-CODE> */
  96 /* _UIB-CODE-BLOCK-END */
  97 &ANALYZE-RESUME
  98
  99 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Advanced Query Options" B-table-Win _INLINE
 100 /* Actions: ? adm/support/advqedit.w ? ? ? */
 101 /* STRUCTURED-DATA
 102 <KEY-OBJECT>
 103 &BROWSE-NAME
 104 </KEY-OBJECT>
 105 <SORTBY-OPTIONS>
 106 </SORTBY-OPTIONS>
 107 <SORTBY-RUN-CODE>
 108 ************************
 109 * Set attributes related to SORTBY-OPTIONS */
 110 RUN set-attribute-list (
 111     'SortBy-Options = ""':U).
 112 /************************
 113 </SORTBY-RUN-CODE>
 114 <FILTER-ATTRIBUTES>
 115 </FILTER-ATTRIBUTES> */
 116
 117 /* _UIB-CODE-BLOCK-END */
 118 &ANALYZE-RESUME
 119
 120 /* ************************  Function Prototypes ********************** */
 121
 122 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD get-inspector-name B-table-Win
 123 FUNCTION get-inspector-name RETURNS CHARACTER
 124   ( INPUT inspector-code AS INT )  FORWARD.
 125
 126 /* _UIB-CODE-BLOCK-END */
 127 &ANALYZE-RESUME
 128
 129
 130 /* ***********************  Control Definitions  ********************** */
 131
 132
 133 /* Definitions of the field level widgets                               */
 134 /* Query definitions                                                    */
 135 &ANALYZE-SUSPEND
 136 DEFINE QUERY br_table FOR
 137       BuildingSystem SCROLLING.
 138 &ANALYZE-RESUME
 139
 140 /* Browse definitions                                                   */
 141 DEFINE BROWSE br_table
 142 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _STRUCTURED
 143   QUERY br_table NO-LOCK DISPLAY
 144       BuildingSystem.PropertyCode
 145       BuildingSystem.BuildingSystemType
 146       BuildingSystem.InspectorIQP COLUMN-LABEL "Insp.IQP"
 147       BuildingSystem.InspectorOwner COLUMN-LABEL "Insp.Owner"
 148       BuildingSystem.IQPCertificate COLUMN-LABEL "IQPCert"
 149       get-inspector-name(BuildingSystem.InspectorIQP) @ insp-iqp
 150       get-inspector-name(BuildingSystem.InspectorOwner) @ insp-owner
 151 /* _UIB-CODE-BLOCK-END */
 152 &ANALYZE-RESUME
 153     WITH NO-ASSIGN SEPARATORS SIZE 94.86 BY 14.2
 154          FONT 10.
 155
 156
 157 /* ************************  Frame Definitions  *********************** */
 158
 159 DEFINE FRAME F-Main
 160      br_table AT ROW 1 COL 1
 161     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 162          SIDE-LABELS NO-UNDERLINE THREE-D
 163          AT COL 1 ROW 1 SCROLLABLE
 164          BGCOLOR 16 FGCOLOR 0 FONT 10.
 165
 166
 167 /* *********************** Procedure Settings ************************ */
 168
 169 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 170 /* Settings for THIS-PROCEDURE
 171    Type: SmartBrowser
 172    Allow: Basic,Browse
 173    Frames: 1
 174    Add Fields to: EXTERNAL-TABLES
 175    Other Settings: PERSISTENT-ONLY COMPILE
 176  */
 177
 178 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 179 /* then cleanup and return.                                            */
 180 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 181   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT."
 182           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 183   RETURN.
 184 END.
 185
 186 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 187
 188 /* *************************  Create Window  ************************** */
 189
 190 &ANALYZE-SUSPEND _CREATE-WINDOW
 191 /* DESIGN Window definition (used by the UIB)
 192   CREATE WINDOW B-table-Win ASSIGN
 193          HEIGHT             = 14.75
 194          WIDTH              = 108.57.
 195 /* END WINDOW DEFINITION */
 196                                                                         */
 197 &ANALYZE-RESUME
 198
 199
 200 /* ***************  Runtime Attributes and UIB Settings  ************** */
 201
 202 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 203 /* SETTINGS FOR WINDOW B-table-Win
 204   NOT-VISIBLE,,RUN-PERSISTENT                                           */
 205 /* SETTINGS FOR FRAME F-Main
 206    NOT-VISIBLE Size-to-Fit                                              */
 207 /* BROWSE-TAB br_table 1 F-Main */
 208 ASSIGN
 209        FRAME F-Main:SCROLLABLE       = FALSE
 210        FRAME F-Main:HIDDEN           = TRUE.
 211
 212 /* _RUN-TIME-ATTRIBUTES-END */
 213 &ANALYZE-RESUME
 214
 215
 216 /* Setting information for Queries and Browse Widgets fields            */
 217
 218 &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
 219 /* Query rebuild information for BROWSE br_table
 220      _TblList          = "TTPL.BuildingSystem"
 221      _Options          = "NO-LOCK KEY-PHRASE SORTBY-PHRASE"
 222      _TblOptList       = ","
 223      _FldNameList[1]   = TTPL.BuildingSystem.PropertyCode
 224      _FldNameList[2]   = TTPL.BuildingSystem.BuildingSystemType
 225      _FldNameList[3]   > TTPL.BuildingSystem.InspectorIQP
 226 "BuildingSystem.InspectorIQP" "Insp.IQP" ? "integer" ? ? ? ? ? ? no ?
 227      _FldNameList[4]   > TTPL.BuildingSystem.InspectorOwner
 228 "BuildingSystem.InspectorOwner" "Insp.Owner" ? "integer" ? ? ? ? ? ? no ?
 229      _FldNameList[5]   > TTPL.BuildingSystem.IQPCertificate
 230 "BuildingSystem.IQPCertificate" "IQPCert" ? "logical" ? ? ? ? ? ? no ?
 231      _FldNameList[6]   > "_<CALC>"
 232 "get-inspector-name(BuildingSystem.InspectorIQP) @ insp-iqp" ? ? ? ? ? ? ? ? ? no ?
 233      _FldNameList[7]   > "_<CALC>"
 234 "get-inspector-name(BuildingSystem.InspectorOwner) @ insp-owner" ? ? ? ? ? ? ? ? ? no ?
 235      _Query            is NOT OPENED
 236 */  /* BROWSE br_table */
 237 &ANALYZE-RESUME
 238
 239 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 240 /* Query rebuild information for FRAME F-Main
 241      _Options          = "NO-LOCK"
 242      _Query            is NOT OPENED
 243 */  /* FRAME F-Main */
 244 &ANALYZE-RESUME
 245
 246
 247
 248
 249 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win
 250 /* ************************* Included-Libraries *********************** */
 251
 252 {src/adm/method/browser.i}
 253 {inc/method/m-drlvwr.i}
 254
 255 /* _UIB-CODE-BLOCK-END */
 256 &ANALYZE-RESUME
 257
 258
 259
 260
 261 /* ************************  Control Triggers  ************************ */
 262
 263 &Scoped-define BROWSE-NAME br_table
 264 &Scoped-define SELF-NAME br_table
 265 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 266 ON ROW-ENTRY OF br_table IN FRAME F-Main
 267 DO:
 268   /* This code displays initial values for newly added or copied rows. */
 269   {src/adm/template/brsentry.i}
 270 END.
 271
 272 /* _UIB-CODE-BLOCK-END */
 273 &ANALYZE-RESUME
 274
 275
 276 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 277 ON ROW-LEAVE OF br_table IN FRAME F-Main
 278 DO:
 279     /* Do not disable this code or no updates will take place except
 280      by pressing the Save button on an Update SmartPanel. */
 281    {src/adm/template/brsleave.i}
 282 END.
 283
 284 /* _UIB-CODE-BLOCK-END */
 285 &ANALYZE-RESUME
 286
 287
 288 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
 289 ON VALUE-CHANGED OF br_table IN FRAME F-Main
 290 DO:
 291   /* This ADM trigger code must be preserved in order to notify other
 292      objects when the browser's current row changes. */
 293   {src/adm/template/brschnge.i}
 294 END.
 295
 296 /* _UIB-CODE-BLOCK-END */
 297 &ANALYZE-RESUME
 298
 299
 300 &UNDEFINE SELF-NAME
 301
 302 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win
 303
 304
 305 /* ***************************  Main Block  *************************** */
 306
 307 /* _UIB-CODE-BLOCK-END */
 308 &ANALYZE-RESUME
 309
 310
 311 /* **********************  Internal Procedures  *********************** */
 312
 313 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-open-query-cases B-table-Win adm/support/_adm-opn.p
 314 PROCEDURE adm-open-query-cases :
 315 /*------------------------------------------------------------------------------
 316   Purpose:     Opens different cases of the query based on attributes
 317                such as the 'Key-Name', or 'SortBy-Case'
 318   Parameters:  <none>
 319 ------------------------------------------------------------------------------*/
 320   DEF VAR key-value AS CHAR NO-UNDO.
 321
 322   /* Look up the current key-value. */
 323   RUN get-attribute ('Key-Value':U).
 324   key-value = RETURN-VALUE.
 325
 326   /* Find the current record using the current Key-Name. */
 327   RUN get-attribute ('Key-Name':U).
 328   CASE RETURN-VALUE:
 329     WHEN 'PropertyCode':U THEN DO:
 330        &Scope KEY-PHRASE BuildingSystem.PropertyCode eq INTEGER(key-value)
 331        {&OPEN-QUERY-{&BROWSE-NAME}}
 332     END. /* PropertyCode */
 333     WHEN 'InspectorIQP':U THEN DO:
 334        &Scope KEY-PHRASE BuildingSystem.InspectorIQP eq INTEGER(key-value)
 335        {&OPEN-QUERY-{&BROWSE-NAME}}
 336     END. /* InspectorIQP */
 337     WHEN 'InspectorOwner':U THEN DO:
 338        &Scope KEY-PHRASE BuildingSystem.InspectorOwner eq INTEGER(key-value)
 339        {&OPEN-QUERY-{&BROWSE-NAME}}
 340     END. /* InspectorOwner */
 341     OTHERWISE DO:
 342        &Scope KEY-PHRASE TRUE
 343        {&OPEN-QUERY-{&BROWSE-NAME}}
 344     END. /* OTHERWISE...*/
 345   END CASE.
 346
 347 END PROCEDURE.
 348
 349 /* _UIB-CODE-BLOCK-END */
 350 &ANALYZE-RESUME
 351
 352
 353 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available B-table-Win _ADM-ROW-AVAILABLE
 354 PROCEDURE adm-row-available :
 355 /*------------------------------------------------------------------------------
 356   Purpose:     Dispatched to this procedure when the Record-
 357                Source has a new row available.  This procedure
 358                tries to get the new row (or foriegn keys) from
 359                the Record-Source and process it.
 360   Parameters:  <none>
 361 ------------------------------------------------------------------------------*/
 362
 363   /* Define variables needed by this internal procedure.             */
 364   {src/adm/template/row-head.i}
 365
 366   /* Process the newly available records (i.e. display fields,
 367      open queries, and/or pass records on to any RECORD-TARGETS).    */
 368   {src/adm/template/row-end.i}
 369
 370 END PROCEDURE.
 371
 372 /* _UIB-CODE-BLOCK-END */
 373 &ANALYZE-RESUME
 374
 375
 376 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-Win _DEFAULT-DISABLE
 377 PROCEDURE disable_UI :
 378 /*------------------------------------------------------------------------------
 379   Purpose:     DISABLE the User Interface
 380   Parameters:  <none>
 381   Notes:       Here we clean-up the user-interface by deleting
 382                dynamic widgets we have created and/or hide
 383                frames.  This procedure is usually called when
 384                we are ready to "clean-up" after running.
 385 ------------------------------------------------------------------------------*/
 386   /* Hide all frames. */
 387   HIDE FRAME F-Main.
 388   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 389 END PROCEDURE.
 390
 391 /* _UIB-CODE-BLOCK-END */
 392 &ANALYZE-RESUME
 393
 394
 395 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-delete-record B-table-Win
 396 PROCEDURE local-delete-record :
 397 /*------------------------------------------------------------------------------
 398   Purpose:     Override standard ADM method
 399   Notes:
 400 ------------------------------------------------------------------------------*/
 401 DEF VAR do-it AS LOGI NO-UNDO INITIAL No.
 402
 403   IF NOT AVAILABLE(BuildingSystem) THEN RETURN.
 404
 405   /* Code placed here will execute PRIOR to standard behavior. */
 406   MESSAGE "Are you sure you want to delete the current record?"
 407           VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
 408           TITLE "Confirm Deletion"
 409           UPDATE do-it.
 410
 411   IF do-it THEN DO:
 412     FIND CURRENT BuildingSystem EXCLUSIVE-LOCK.
 413     DELETE BuildingSystem.
 414     RUN dispatch( 'open-query':U ).
 415   END.
 416
 417 END PROCEDURE.
 418
 419 /* _UIB-CODE-BLOCK-END */
 420 &ANALYZE-RESUME
 421
 422
 423 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key B-table-Win adm/support/_key-snd.p
 424 PROCEDURE send-key :
 425 /*------------------------------------------------------------------------------
 426   Purpose:     Sends a requested KEY value back to the calling
 427                SmartObject.
 428   Parameters:  <see adm/template/sndkytop.i>
 429 ------------------------------------------------------------------------------*/
 430
 431   /* Define variables needed by this internal procedure.             */
 432   {src/adm/template/sndkytop.i}
 433
 434   /* Return the key value associated with each key case.             */
 435   {src/adm/template/sndkycas.i "PropertyCode" "BuildingSystem" "PropertyCode"}
 436   {src/adm/template/sndkycas.i "InspectorIQP" "BuildingSystem" "InspectorIQP"}
 437   {src/adm/template/sndkycas.i "InspectorOwner" "BuildingSystem" "InspectorOwner"}
 438
 439   /* Close the CASE statement and end the procedure.                 */
 440   {src/adm/template/sndkyend.i}
 441
 442 END PROCEDURE.
 443
 444 /* _UIB-CODE-BLOCK-END */
 445 &ANALYZE-RESUME
 446
 447
 448 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records B-table-Win _ADM-SEND-RECORDS
 449 PROCEDURE send-records :
 450 /*------------------------------------------------------------------------------
 451   Purpose:     Send record ROWID's for all tables used by
 452                this file.
 453   Parameters:  see template/snd-head.i
 454 ------------------------------------------------------------------------------*/
 455
 456   /* Define variables needed by this internal procedure.               */
 457   {src/adm/template/snd-head.i}
 458
 459   /* For each requested table, put it's ROWID in the output list.      */
 460   {src/adm/template/snd-list.i "BuildingSystem"}
 461
 462   /* Deal with any unexpected table requests before closing.           */
 463   {src/adm/template/snd-end.i}
 464
 465 END PROCEDURE.
 466
 467 /* _UIB-CODE-BLOCK-END */
 468 &ANALYZE-RESUME
 469
 470
 471 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed B-table-Win
 472 PROCEDURE state-changed :
 473 /* -----------------------------------------------------------
 474   Purpose:
 475   Parameters:  <none>
 476   Notes:
 477 -------------------------------------------------------------*/
 478   DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE    NO-UNDO.
 479   DEFINE INPUT PARAMETER p-state      AS CHARACTER NO-UNDO.
 480
 481   CASE p-state:
 482       /* Object instance CASEs can go here to replace standard behavior
 483          or add new cases. */
 484       {src/adm/template/bstates.i}
 485   END CASE.
 486 END PROCEDURE.
 487
 488 /* _UIB-CODE-BLOCK-END */
 489 &ANALYZE-RESUME
 490
 491
 492 /* ************************  Function Implementations ***************** */
 493
 494 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION get-inspector-name B-table-Win
 495 FUNCTION get-inspector-name RETURNS CHARACTER
 496   ( INPUT inspector-code AS INT ) :
 497 /*------------------------------------------------------------------------------
 498   Purpose:  Return the name of the inspector
 499     Notes:
 500 ------------------------------------------------------------------------------*/
 501
 502   FIND Insp WHERE Insp.InspectorCode = inspector-code NO-LOCK NO-ERROR.
 503   IF AVAILABLE(Insp) THEN FIND Pers OF Insp NO-LOCK NO-ERROR.
 504   IF AVAILABLE(Pers) THEN
 505     RETURN Pers.FirstName + " " + Pers.LastName + ", " + Pers.Company .
 506
 507   IF AVAILABLE(Insp) THEN
 508     RETURN "No contact assigned to inspector".
 509
 510   RETURN "Inspector " + STRING(inspector-code) + " not on file".
 511
 512 END FUNCTION.
 513
 514 /* _UIB-CODE-BLOCK-END */
 515 &ANALYZE-RESUME
 516
 517