vwr/mnt/v-prjord.w

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