vwr/mnt/v-implnk.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 DEF VAR user-name AS CHAR INITIAL "Andrew" NO-UNDO.
  16
  17 &GLOB REPORT-ID "implnk"
  18
  19 /* _UIB-CODE-BLOCK-END */
  20 &ANALYZE-RESUME
  21
  22
  23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  24
  25 /* ********************  Preprocessor Definitions  ******************** */
  26
  27 &Scoped-define PROCEDURE-TYPE SmartViewer
  28 &Scoped-define DB-AWARE no
  29
  30 &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target
  31
  32 /* Name of first Frame and/or Browse and/or first Query                 */
  33 &Scoped-define FRAME-NAME F-Main
  34
  35 /* External Tables                                                      */
  36 &Scoped-define EXTERNAL-TABLES RP
  37 &Scoped-define FIRST-EXTERNAL-TABLE RP
  38
  39
  40 /* Need to scope the external tables to this procedure                  */
  41 DEFINE QUERY external_tables FOR RP.
  42 /* Standard List Definitions                                            */
  43 &Scoped-Define ENABLED-FIELDS RP.Char5 RP.Char6 RP.Char1 RP.Char2 RP.Log2
  44 &Scoped-define ENABLED-TABLES RP
  45 &Scoped-define FIRST-ENABLED-TABLE RP
  46 &Scoped-define DISPLAYED-TABLES RP
  47 &Scoped-define FIRST-DISPLAYED-TABLE RP
  48 &Scoped-Define ENABLED-OBJECTS Btn_Browse Btn_OK RECT-1
  49 &Scoped-Define DISPLAYED-FIELDS RP.Char5 RP.Char6 RP.Char1 RP.Char2 RP.Log2
  50
  51 /* Custom List Definitions                                              */
  52 /* ADM-CREATE-FIELDS,ADM-ASSIGN-FIELDS,List-3,List-4,List-5,List-6      */
  53
  54 /* _UIB-PREPROCESSOR-BLOCK-END */
  55 &ANALYZE-RESUME
  56
  57
  58
  59 /* ***********************  Control Definitions  ********************** */
  60
  61
  62 /* Definitions of the field level widgets                               */
  63 DEFINE BUTTON Btn_Browse
  64      LABEL "Browse"
  65      SIZE 6.29 BY 1.05.
  66
  67 DEFINE BUTTON Btn_OK AUTO-GO DEFAULT
  68      LABEL "OK"
  69      SIZE 12 BY 1.2
  70      BGCOLOR 8 .
  71
  72 DEFINE RECTANGLE RECT-1
  73      EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL
  74      SIZE 70.29 BY 13.8.
  75
  76
  77 /* ************************  Frame Definitions  *********************** */
  78
  79 DEFINE FRAME F-Main
  80      RP.Char5 AT ROW 1.2 COL 1.57 NO-LABEL
  81           VIEW-AS RADIO-SET VERTICAL
  82           RADIO-BUTTONS
  83                     "Apply changes from update file", "zip":U,
  84 "Restart incomplete update", "restart":U,
  85 "Select system components to update", ""
  86           SIZE 27.43 BY 2.4
  87           FONT 10
  88      RP.Char6 AT ROW 1.2 COL 27 COLON-ALIGNED HELP
  89           "" NO-LABEL FORMAT "X(256)"
  90           VIEW-AS FILL-IN
  91           SIZE 35.43 BY 1
  92      Btn_Browse AT ROW 1.2 COL 64.43
  93      RP.Char1 AT ROW 4.4 COL 1.57 NO-LABEL
  94           VIEW-AS RADIO-SET VERTICAL
  95           RADIO-BUTTONS
  96                     "Don't Compile Anything", "",
  97 "Compile All Programs", "compile-all":U,
  98 "Compile All Uncompiled Programs", "compile-rest":U,
  99 "Compile Important Programs", "compile-important":U,
 100 "Compile Specified Programs", "compile-list":U
 101           SIZE 25.72 BY 4
 102           FONT 10
 103      RP.Char2 AT ROW 4.6 COL 28.43 NO-LABEL
 104           VIEW-AS EDITOR NO-WORD-WRAP SCROLLBAR-HORIZONTAL SCROLLBAR-VERTICAL
 105           SIZE 42.29 BY 8.6
 106           FONT 10
 107      RP.Log2 AT ROW 11.6 COL 2.14
 108           LABEL "Rebuild Menus"
 109           VIEW-AS TOGGLE-BOX
 110           SIZE 13.72 BY 1
 111           FONT 10
 112      Btn_OK AT ROW 13.4 COL 58.72
 113      RECT-1 AT ROW 1 COL 1
 114     WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
 115          SIDE-LABELS NO-UNDERLINE THREE-D
 116          AT COL 1 ROW 1 SCROLLABLE
 117          FONT 10
 118          DEFAULT-BUTTON Btn_OK.
 119
 120
 121 /* *********************** Procedure Settings ************************ */
 122
 123 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
 124 /* Settings for THIS-PROCEDURE
 125    Type: SmartViewer
 126    External Tables: ttpl.RP
 127    Allow: Basic,DB-Fields
 128    Frames: 1
 129    Add Fields to: EXTERNAL-TABLES
 130    Other Settings: PERSISTENT-ONLY COMPILE
 131  */
 132
 133 /* This procedure should always be RUN PERSISTENT.  Report the error,  */
 134 /* then cleanup and return.                                            */
 135 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
 136   MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
 137           VIEW-AS ALERT-BOX ERROR BUTTONS OK.
 138   RETURN.
 139 END.
 140
 141 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
 142
 143 /* *************************  Create Window  ************************** */
 144
 145 &ANALYZE-SUSPEND _CREATE-WINDOW
 146 /* DESIGN Window definition (used by the UIB)
 147   CREATE WINDOW V-table-Win ASSIGN
 148          HEIGHT             = 19.9
 149          WIDTH              = 77.57.
 150 /* END WINDOW DEFINITION */
 151                                                                         */
 152 &ANALYZE-RESUME
 153
 154 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB V-table-Win
 155 /* ************************* Included-Libraries *********************** */
 156
 157 {src/adm/method/viewer.i}
 158 {inc/method/m-mntvwr.i}
 159
 160 /* _UIB-CODE-BLOCK-END */
 161 &ANALYZE-RESUME
 162
 163
 164
 165
 166 /* ***********  Runtime Attributes and AppBuilder Settings  *********** */
 167
 168 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
 169 /* SETTINGS FOR WINDOW V-table-Win
 170   VISIBLE,,RUN-PERSISTENT                                               */
 171 /* SETTINGS FOR FRAME F-Main
 172    NOT-VISIBLE Size-to-Fit                                              */
 173 ASSIGN
 174        FRAME F-Main:SCROLLABLE       = FALSE
 175        FRAME F-Main:HIDDEN           = TRUE.
 176
 177 /* SETTINGS FOR EDITOR RP.Char2 IN FRAME F-Main
 178    EXP-LABEL                                                            */
 179 ASSIGN
 180        RP.Char2:RETURN-INSERTED IN FRAME F-Main  = TRUE.
 181
 182 /* SETTINGS FOR FILL-IN RP.Char6 IN FRAME F-Main
 183    EXP-LABEL EXP-FORMAT EXP-HELP                                        */
 184 /* SETTINGS FOR TOGGLE-BOX RP.Log2 IN FRAME F-Main
 185    EXP-LABEL                                                            */
 186 /* _RUN-TIME-ATTRIBUTES-END */
 187 &ANALYZE-RESUME
 188
 189
 190 /* Setting information for Queries and Browse Widgets fields            */
 191
 192 &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
 193 /* Query rebuild information for FRAME F-Main
 194      _Options          = "NO-LOCK"
 195      _Query            is NOT OPENED
 196 */  /* FRAME F-Main */
 197 &ANALYZE-RESUME
 198
 199
 200
 201
 202
 203 /* ************************  Control Triggers  ************************ */
 204
 205 &Scoped-define SELF-NAME Btn_Browse
 206 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Browse V-table-Win
 207 ON CHOOSE OF Btn_Browse IN FRAME F-Main /* Browse */
 208 DO:
 209   RUN choose-filename.
 210 END.
 211
 212 /* _UIB-CODE-BLOCK-END */
 213 &ANALYZE-RESUME
 214
 215
 216 &Scoped-define SELF-NAME Btn_OK
 217 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK V-table-Win
 218 ON CHOOSE OF Btn_OK IN FRAME F-Main /* OK */
 219 DO:
 220   DISABLE {&SELF-NAME} WITH FRAME {&FRAME-NAME}.
 221   RUN run-report.
 222   ENABLE {&SELF-NAME} WITH FRAME {&FRAME-NAME}.
 223 END.
 224
 225 /* _UIB-CODE-BLOCK-END */
 226 &ANALYZE-RESUME
 227
 228
 229 &Scoped-define SELF-NAME RP.Char1
 230 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Char1 V-table-Win
 231 ON VALUE-CHANGED OF RP.Char1 IN FRAME F-Main /* Char1 */
 232 DO:
 233   RUN dispatch( 'enable-fields':U ).
 234 END.
 235
 236 /* _UIB-CODE-BLOCK-END */
 237 &ANALYZE-RESUME
 238
 239
 240 &Scoped-define SELF-NAME RP.Char5
 241 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RP.Char5 V-table-Win
 242 ON VALUE-CHANGED OF RP.Char5 IN FRAME F-Main /* Char5 */
 243 DO:
 244   RUN base-select-changed.
 245 END.
 246
 247 /* _UIB-CODE-BLOCK-END */
 248 &ANALYZE-RESUME
 249
 250
 251 &UNDEFINE SELF-NAME
 252
 253 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK V-table-Win
 254
 255
 256 /* ***************************  Main Block  *************************** */
 257
 258 /* _UIB-CODE-BLOCK-END */
 259 &ANALYZE-RESUME
 260
 261
 262 /* **********************  Internal Procedures  *********************** */
 263
 264 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available V-table-Win  _ADM-ROW-AVAILABLE
 265 PROCEDURE adm-row-available :
 266 /*------------------------------------------------------------------------------
 267   Purpose:     Dispatched to this procedure when the Record-
 268                Source has a new row available.  This procedure
 269                tries to get the new row (or foriegn keys) from
 270                the Record-Source and process it.
 271   Parameters:  <none>
 272 ------------------------------------------------------------------------------*/
 273
 274   /* Define variables needed by this internal procedure.             */
 275   {src/adm/template/row-head.i}
 276
 277   /* Create a list of all the tables that we need to get.            */
 278   {src/adm/template/row-list.i "RP"}
 279
 280   /* Get the record ROWID's from the RECORD-SOURCE.                  */
 281   {src/adm/template/row-get.i}
 282
 283   /* FIND each record specified by the RECORD-SOURCE.                */
 284   {src/adm/template/row-find.i "RP"}
 285
 286   /* Process the newly available records (i.e. display fields,
 287      open queries, and/or pass records on to any RECORD-TARGETS).    */
 288   {src/adm/template/row-end.i}
 289
 290 END PROCEDURE.
 291
 292 /* _UIB-CODE-BLOCK-END */
 293 &ANALYZE-RESUME
 294
 295 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE base-select-changed V-table-Win
 296 PROCEDURE base-select-changed :
 297 /*------------------------------------------------------------------------------
 298   Purpose:
 299 ------------------------------------------------------------------------------*/
 300 DO WITH FRAME {&FRAME-NAME}:
 301   IF INPUT RP.Char5 = 'zip' THEN DO:
 302     ENABLE RP.Char6 btn_Browse.
 303     DISABLE ALL EXCEPT RP.Char5 RP.Char6 Btn_Browse Btn_OK.
 304   END.
 305   ELSE IF INPUT RP.Char5 = "restart" THEN DO:
 306     DISABLE ALL EXCEPT RP.Char5 Btn_OK.
 307   END.
 308   ELSE DO:
 309     ENABLE RP.Log2 .
 310     IF INPUT RP.Char1 = "compile-list" THEN DO:
 311       ENABLE RP.Char1 RP.Char2 .
 312       RP.Char2:READ-ONLY = No.
 313     END.
 314     ELSE DO:
 315       ENABLE RP.Char1 .
 316       DISABLE RP.Char2 .
 317       RP.Char2:READ-ONLY = Yes.
 318     END.
 319   END.
 320 END.
 321 END PROCEDURE.
 322
 323 /* _UIB-CODE-BLOCK-END */
 324 &ANALYZE-RESUME
 325
 326 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE choose-filename V-table-Win
 327 PROCEDURE choose-filename :
 328 /*------------------------------------------------------------------------------
 329   Purpose:
 330 ------------------------------------------------------------------------------*/
 331 DEF VAR file-chosen AS LOGICAL INITIAL Yes NO-UNDO.
 332 DEF VAR temp-filename AS CHAR NO-UNDO FORMAT "X(200)".
 333 DEF VAR directory-string AS CHAR NO-UNDO.
 334
 335   temp-filename = INPUT FRAME {&FRAME-NAME} RP.Char1 .
 336   directory-string = SUBSTRING( temp-filename, 1, R-INDEX( temp-filename, "\") ).
 337   SYSTEM-DIALOG GET-FILE temp-filename
 338       FILTERS "Update Zip files" "UPDATE*.ZIP", "All files" "*.*"
 339       INITIAL-FILTER 1
 340       DEFAULT-EXTENSION "*.TXT"
 341       INITIAL-DIR directory-string MUST-EXIST
 342       RETURN-TO-START-DIR
 343       TITLE "Select System Update File" USE-FILENAME
 344       UPDATE file-chosen.
 345
 346   IF file-chosen THEN DO:
 347     RP.Char6:SCREEN-VALUE = temp-filename.
 348   END.
 349
 350 END PROCEDURE.
 351
 352 /* _UIB-CODE-BLOCK-END */
 353 &ANALYZE-RESUME
 354
 355 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI V-table-Win  _DEFAULT-DISABLE
 356 PROCEDURE disable_UI :
 357 /*------------------------------------------------------------------------------
 358   Purpose:     DISABLE the User Interface
 359   Parameters:  <none>
 360   Notes:       Here we clean-up the user-interface by deleting
 361                dynamic widgets we have created and/or hide
 362                frames.  This procedure is usually called when
 363                we are ready to "clean-up" after running.
 364 ------------------------------------------------------------------------------*/
 365   /* Hide all frames. */
 366   HIDE FRAME F-Main.
 367   IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
 368 END PROCEDURE.
 369
 370 /* _UIB-CODE-BLOCK-END */
 371 &ANALYZE-RESUME
 372
 373 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-enable-fields V-table-Win
 374 PROCEDURE inst-enable-fields :
 375 /*------------------------------------------------------------------------------
 376   Purpose: Any special mucking around enabling fields.
 377 ------------------------------------------------------------------------------*/
 378   RUN base-select-changed.
 379 END PROCEDURE.
 380
 381 /* _UIB-CODE-BLOCK-END */
 382 &ANALYZE-RESUME
 383
 384 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-initialize V-table-Win
 385 PROCEDURE inst-initialize :
 386 /*------------------------------------------------------------------------------
 387   Purpose:  Initialise the necessary bits and pieces
 388 ------------------------------------------------------------------------------*/
 389
 390   RUN get-username IN sec-mgr ( OUTPUT user-name ).
 391   FIND RP WHERE RP.ReportID = {&REPORT-ID}
 392                         AND RP.UserName = user-name
 393                         NO-LOCK NO-ERROR.
 394
 395   IF NOT AVAILABLE( RP ) THEN DO:
 396     CREATE RP.
 397     ASSIGN
 398       RP.ReportID = {&REPORT-ID}
 399       RP.UserName = user-name
 400       RP.Char1 = ""
 401       RP.Char2 = ""
 402       RP.Log1 = No
 403       RP.Log2 = No .
 404   END.
 405
 406   RUN dispatch ( 'display-fields':U ).
 407
 408   FIND UsrGroupMember WHERE UsrGroupMember.UserName = user-name
 409                         AND UsrGroupMember.GroupName = "Programmer" NO-LOCK NO-ERROR.
 410   IF NOT AVAILABLE(UsrGroupMember) THEN
 411     RP.Char5:SCREEN-VALUE IN FRAME {&FRAME-NAME} = "zip".
 412
 413   RUN dispatch ( 'enable-fields':U ).
 414
 415 END PROCEDURE.
 416
 417 /* _UIB-CODE-BLOCK-END */
 418 &ANALYZE-RESUME
 419
 420 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE pre-destroy V-table-Win
 421 PROCEDURE pre-destroy :
 422 /*------------------------------------------------------------------------------
 423   Purpose:
 424 ------------------------------------------------------------------------------*/
 425   RUN check-modified( 'clear':U ).
 426 END PROCEDURE.
 427
 428 /* _UIB-CODE-BLOCK-END */
 429 &ANALYZE-RESUME
 430
 431 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE run-report V-table-Win
 432 PROCEDURE run-report :
 433 /*------------------------------------------------------------------------------
 434   Purpose:  Actually run the report program.
 435 ------------------------------------------------------------------------------*/
 436 DEF VAR process-options AS CHAR NO-UNDO.
 437 DEF VAR cmpl AS CHAR NO-UNDO INITIAL "".
 438 DEF VAR plst AS CHAR NO-UNDO INITIAL "".
 439
 440   RUN dispatch IN THIS-PROCEDURE ('update-record':U).
 441   IF RP.Char5 = "zip" THEN DO:
 442     process-options = "UpdateFile," + RP.Char6.
 443   END.
 444   ELSE IF RP.Char5 = "restart" THEN DO:
 445     process-options = "Restart".
 446   END.
 447   ELSE DO:
 448     IF RP.Char1 BEGINS "compile" THEN cmpl = ENTRY(2, RP.Char1, "-").
 449     IF cmpl = "important" THEN ASSIGN
 450       cmpl = "List"
 451       plst =  "vwr/sel/*.w~n"            + "win/*.w~n"
 452             + "trigger/*.p~n"            + "rplctn/*~n"
 453             + "lnk/*~n"                  + "sec/*~n"
 454             + "panel/*~n"
 455             + "vwr/mnt/v-ivoice.w~n"     + "vwr/mnt/v-vouchr.w~n"
 456             + "vwr/mnt/v-proper.w~n"     + "vwr/mnt/v-crdtor.w~n"
 457             + "vwr/mnt/v-tenant.w~n"
 458             + "vwr/drl/b-act*.w~n"       + "vwr/drl/b-choact.w~n"
 459             + "vwr/drl/b-crdtor.w~n"     + "vwr/drl/b-proper.w~n"
 460             + "vwr/drl/b-vouchr.w~n"     + "vwr/drl/b-projct.w~n"
 461             + "vwr/drl/b-tenant.w".
 462     ELSE IF cmpl = "list" THEN
 463       plst = RP.Char2.
 464
 465     process-options = (IF RP.Log2 THEN "UpdateMenus~n" ELSE "")
 466                     + (IF cmpl <> "" THEN "Compile," + cmpl + "~n" ELSE "")
 467                     + (IF plst <> "" THEN "ProgramList~n" + plst ELSE "").
 468
 469
 470     IF TRIM( ENTRY( 1, process-options, "~n") ) = "" THEN DO:
 471       MESSAGE "Select something to do or close the window!"
 472                 VIEW-AS ALERT-BOX INFORMATION TITLE "Nothing to do!".
 473       RETURN.
 474     END.
 475   END.
 476
 477   /* The update process controls it's own busy/non-busy status
 478    * so there is no need for this here, except to ensure it ain't
 479    * after we return.
 480    *    RUN notify( 'set-busy,container-source':U ).
 481    */
 482   RUN process/linkimpt.p ( process-options ).
 483   RUN notify( 'set-idle,container-source':U ).
 484
 485   FIND UsrGroupMember WHERE UsrGroupMember.UserName = user-name
 486                         AND UsrGroupMember.GroupName = "Programmer" NO-LOCK NO-ERROR.
 487   IF NOT AVAILABLE(UsrGroupMember) THEN
 488     RUN dispatch( 'exit':U ).
 489
 490 END PROCEDURE.
 491
 492 /* _UIB-CODE-BLOCK-END */
 493 &ANALYZE-RESUME
 494
 495 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records V-table-Win  _ADM-SEND-RECORDS
 496 PROCEDURE send-records :
 497 /*------------------------------------------------------------------------------
 498   Purpose:     Send record ROWID's for all tables used by
 499                this file.
 500   Parameters:  see template/snd-head.i
 501 ------------------------------------------------------------------------------*/
 502
 503   /* Define variables needed by this internal procedure.               */
 504   {src/adm/template/snd-head.i}
 505
 506   /* For each requested table, put it's ROWID in the output list.      */
 507   {src/adm/template/snd-list.i "RP"}
 508
 509   /* Deal with any unexpected table requests before closing.           */
 510   {src/adm/template/snd-end.i}
 511
 512 END PROCEDURE.
 513
 514 /* _UIB-CODE-BLOCK-END */
 515 &ANALYZE-RESUME
 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