1 &ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2 2 &ANALYZE-RESUME 3 &Scoped-define WINDOW-NAME CURRENT-WINDOW 4 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS sbbObject 5 /*------------------------------------------------------------------------ 6 7 File: 8 9 Description: XML business document message 10 11 12 13 Author: 14 Created: 04/19/2000 15 16 17 18 ------------------------------------------------------------------------*/ 19 /* This .W file was created with the Progress AppBuilder. */ 20 /*----------------------------------------------------------------------*/ 21 22 /* Create an unnamed pool to store all the widgets created 23 by this procedure. This is a good default which assures 24 that this procedure's triggers and internal procedures 25 will execute in this procedure's storage, and that proper 26 cleanup will occur on deletion of the procedure. */ 27 28 CREATE WIDGET-POOL. 29 30 /* *************************** Definitions ************************** */ 31 32 /* Parameters Definitions --- */ 33 34 /* Local Variable Definitions --- */ 35 36 /* _UIB-CODE-BLOCK-END */ 37 &ANALYZE-RESUME 38 39 40 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 41 42 /* ******************** Preprocessor Definitions ******************** */ 43 44 &Scoped-define PROCEDURE-TYPE SmartB2BObject 45 &Scoped-define DB-AWARE no 46 47 &Scoped-define ADM-SUPPORTED-LINKS InMessage-Target,OutMessage-Source 48 49 50 /* Custom List Definitions */ 51 /* List-1,List-2,List-3,List-4,List-5,List-6 */ 52 53 /* _UIB-PREPROCESSOR-BLOCK-END */ 54 &ANALYZE-RESUME 55 56 57 58 /* *********************** Control Definitions ********************** */ 59 60 61 /* ************************ Frame Definitions *********************** */ 62 63 64 /* *********************** Procedure Settings ************************ */ 65 66 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 67 /* Settings for THIS-PROCEDURE 68 Type: SmartB2BObject 69 Allow: 70 Frames: 0 71 Add Fields to: Neither 72 Other Settings: PERSISTENT-ONLY COMPILE 73 */ 74 75 /* This procedure should always be RUN PERSISTENT. Report the error, */ 76 /* then cleanup and return. */ 77 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO: 78 MESSAGE "C:\Program Files\Progress\src\adm2\dynb2b.w should only be RUN PERSISTENT.":U 79 VIEW-AS ALERT-BOX ERROR BUTTONS OK. 80 RETURN. 81 END. 82 83 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 84 85 /* ************************* Create Window ************************** */ 86 87 &ANALYZE-SUSPEND _CREATE-WINDOW 88 /* DESIGN Window definition (used by the UIB) 89 CREATE WINDOW sbbObject ASSIGN 90 HEIGHT = 1.1 91 WIDTH = 47.4. 92 /* END WINDOW DEFINITION */ 93 */ 94 &ANALYZE-RESUME 95 96 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB sbbObject 97 /* ************************* Included-Libraries *********************** */ 98 99 100 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 101 &ANALYZE-RESUME 102 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 103 /*------------------------------------------------------------------------- 104 File : b2b.i 105 Purpose : Basic Method Library for the ADMClass b2b. 106 107 Syntax : {src/adm2/b2b.i} 108 109 Description : 110 111 Modified : 04/19/2000 112 -------------------------------------------------------------------------*/ 113 /* This .W file was created with the Progress UIB. */ 114 /*----------------------------------------------------------------------*/ 115 116 /* *************************** Definitions ************************** */ 117 118 &IF "":U = "":U &THEN 119 &GLOB ADMClass b2b 120 &ENDIF 121 122 &IF "b2b":U = "b2b":U &THEN 123 124 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 125 &ANALYZE-RESUME 126 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 127 /*-------------------------------------------------------------------------- 128 File : b2bprop.i 129 Purpose : Defines basic properties. 130 Syntax : {src/adm2/b2bprop.i} 131 132 Description : 133 134 Modified : 04/19/2000 135 ------------------------------------------------------------------------*/ 136 /* This .W file was created with the Progress UIB. */ 137 /*----------------------------------------------------------------------*/ 138 139 /* *************************** Definitions ************************** */ 140 141 /* Custom instance definition file */ 142 143 144 /*-------------------------------------------------------------------------- 145 File : b2bdefscustom.i 146 Purpose : Entry point to define: 147 New definitions 148 {&xcInstanceProperties} 149 {&ADM-PROPERTY-DLG} 150 Syntax : {src/adm2/custom/b2bdefscustom.i} 151 152 Modified : 04/19/2000 153 154 Notes : Referenced in {src/adm2/b2bprop.i} 155 ------------------------------------------------------------------------*/ 156 157 158 159 &IF "":U NE "":U &THEN 160 &GLOB xcInstanceProperties , 161 &ENDIF 162 &GLOB xcInstanceProperties ~ 163 DirectionList,NameList,SchemaList,DocTypeList,DestinationList,~ 164 ReplyReqList,ReplySelectorList,MapObjectProducer,MapNameProducer,MapTypeProducer 165 166 /* This is the procedure to execute to set InstanceProperties at design time. */ 167 &IF DEFINED (ADM-PROPERTY-DLG) = 0 &THEN 168 &SCOP ADM-PROPERTY-DLG adm2/support/b2bd.w 169 &ENDIF 170 171 /* _UIB-CODE-BLOCK-END */ 172 &ANALYZE-RESUME 173 174 175 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 176 177 /* ******************** Preprocessor Definitions ******************** */ 178 179 180 181 /* _UIB-PREPROCESSOR-BLOCK-END */ 182 &ANALYZE-RESUME 183 184 185 186 /* *********************** Procedure Settings ************************ */ 187 188 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 189 /* Settings for THIS-PROCEDURE 190 Type: Include 191 Allow: 192 Frames: 0 193 Add Fields to: Neither 194 Other Settings: INCLUDE-ONLY 195 */ 196 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 197 198 /* ************************* Create Window ************************** */ 199 200 &ANALYZE-SUSPEND _CREATE-WINDOW 201 /* DESIGN Window definition (used by the UIB) 202 CREATE WINDOW Include ASSIGN 203 HEIGHT = 8 204 WIDTH = 60. 205 /* END WINDOW DEFINITION */ 206 */ 207 &ANALYZE-RESUME 208 209 210 211 212 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 213 214 215 /* *************************** Main Block *************************** */ 216 217 /* Include the file which defines prototypes for all of the super 218 procedure's entry points. 219 And skip including the prototypes if we are *any* super procedure. */ 220 &IF "":U EQ "":U &THEN 221 222 /* 223 * Prototype include file: src/adm2/b2bprto.i 224 * Created from procedure: src/adm2/b2b.p at 13:51:25 on 04/19/2000 225 * by the PROGRESS PRO*Tools Prototype Include File Generator 226 */ 227 228 229 230 231 232 &ENDIF 233 234 /* These preprocessors tell at compile time which properties can 235 be retrieved directly from the temp-table */ 236 237 &GLOBAL-DEFINE xpDestinationList 238 &GLOBAL-DEFINE xpDirectionList 239 &GLOBAL-DEFINE xpDocTypeList 240 &GLOBAL-DEFINE xpNameList 241 &GLOBAL-DEFINE xpReplyReqList 242 &GLOBAL-DEFINE xpReplySelectorList 243 &GLOBAL-DEFINE xpSchemaHandle 244 &GLOBAL-DEFINE xpNameSpaceHandle 245 &GLOBAL-DEFINE xpSchemaName 246 &GLOBAL-DEFINE xpSchemaList 247 &GLOBAL-DEFINE xpLoadedByRouter 248 &GLOBAL-DEFINE xpMapObjectProducer 249 &GLOBAL-DEFINE xpMapTypeProducer 250 &GLOBAL-DEFINE xpMapNameProducer 251 &GLOBAL-DEFINE xpTypeName 252 253 254 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 255 &ANALYZE-RESUME 256 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 257 /*-------------------------------------------------------------------------- 258 File : xmlprop.i 259 Purpose : Defines basic properties. 260 Syntax : {src/adm2/xmlprop.i} 261 262 Description : 263 264 Modified : 04/19/2000 265 ------------------------------------------------------------------------*/ 266 /* This .W file was created with the Progress UIB. */ 267 /*----------------------------------------------------------------------*/ 268 269 /* *************************** Definitions ************************** */ 270 271 /* Custom instance definition file */ 272 273 274 /*-------------------------------------------------------------------------- 275 File : xmldefscustom.i 276 Purpose : Entry point to define: 277 New definitions 278 {&xcInstanceProperties} 279 {&ADM-PROPERTY-DLG} 280 Syntax : {src/adm2/custom/xmldefscustom.i} 281 282 Modified : 05/16/2000 283 284 Notes : Referenced in {src/adm2/xmlprop.i} 285 ------------------------------------------------------------------------*/ 286 287 288 289 /* _UIB-CODE-BLOCK-END */ 290 &ANALYZE-RESUME 291 292 293 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 294 295 /* ******************** Preprocessor Definitions ******************** */ 296 297 298 299 /* _UIB-PREPROCESSOR-BLOCK-END */ 300 &ANALYZE-RESUME 301 302 303 304 /* *********************** Procedure Settings ************************ */ 305 306 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 307 /* Settings for THIS-PROCEDURE 308 Type: Include 309 Allow: 310 Frames: 0 311 Add Fields to: Neither 312 Other Settings: INCLUDE-ONLY 313 */ 314 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 315 316 /* ************************* Create Window ************************** */ 317 318 &ANALYZE-SUSPEND _CREATE-WINDOW 319 /* DESIGN Window definition (used by the UIB) 320 CREATE WINDOW Include ASSIGN 321 HEIGHT = 8 322 WIDTH = 60. 323 /* END WINDOW DEFINITION */ 324 */ 325 &ANALYZE-RESUME 326 327 328 329 330 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 331 332 333 /* *************************** Main Block *************************** */ 334 335 /* Include the file which defines prototypes for all of the super 336 procedure's entry points. 337 And skip including the prototypes if we are *any* super procedure. */ 338 &IF "":U EQ "":U &THEN 339 340 /* 341 * Prototype include file: src/adm2/xmlprto.i 342 * Created from procedure: src/adm2/xml.p at 08:51:49 on 05/16/2000 343 * by the PROGRESS PRO*Tools Prototype Include File Generator 344 */ 345 346 347 348 349 350 &ENDIF 351 352 /* These preprocessors tell at compile time which properties can 353 be retrieved directly from the temp-table */ 354 &GLOBAL-DEFINE xpDocumentHandle 355 &GLOBAL-DEFINE xpCurrentPath 356 357 358 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 359 &ANALYZE-RESUME 360 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 361 /*-------------------------------------------------------------------------- 362 File : msghprop.i 363 Purpose : Defines basic properties. 364 Syntax : {src/adm2/msghprop.i} 365 366 Description : 367 368 Modified : 05/11/2000 369 ------------------------------------------------------------------------*/ 370 /* This .W file was created with the Progress UIB. */ 371 /*----------------------------------------------------------------------*/ 372 373 /* *************************** Definitions ************************** */ 374 375 /* Custom instance definition file */ 376 377 378 /*-------------------------------------------------------------------------- 379 File : msghandlerdefscustom.i 380 Purpose : Entry point to define: 381 New definitions 382 {&xcInstanceProperties} 383 {&ADM-PROPERTY-DLG} 384 Syntax : {src/adm2/custom/msghandlerdefscustom.i} 385 386 Modified : 05/11/2000 387 388 Notes : Referenced in {src/adm2/msghprop.i} 389 ------------------------------------------------------------------------*/ 390 391 392 393 /* _UIB-CODE-BLOCK-END */ 394 &ANALYZE-RESUME 395 396 397 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 398 399 /* ******************** Preprocessor Definitions ******************** */ 400 401 402 403 /* _UIB-PREPROCESSOR-BLOCK-END */ 404 &ANALYZE-RESUME 405 406 407 408 /* *********************** Procedure Settings ************************ */ 409 410 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 411 /* Settings for THIS-PROCEDURE 412 Type: Include 413 Allow: 414 Frames: 0 415 Add Fields to: Neither 416 Other Settings: INCLUDE-ONLY 417 */ 418 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 419 420 /* ************************* Create Window ************************** */ 421 422 &ANALYZE-SUSPEND _CREATE-WINDOW 423 /* DESIGN Window definition (used by the UIB) 424 CREATE WINDOW Include ASSIGN 425 HEIGHT = 8 426 WIDTH = 60. 427 /* END WINDOW DEFINITION */ 428 */ 429 &ANALYZE-RESUME 430 431 432 433 434 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 435 436 437 /* *************************** Main Block *************************** */ 438 439 /* Include the file which defines prototypes for all of the super 440 procedure's entry points. 441 And skip including the prototypes if we are *any* super procedure. */ 442 &IF "":U EQ "":U &THEN 443 444 /* 445 * Prototype include file: src/adm2/msghprto.i 446 * Created from procedure: src/adm2/msghandler.p at 12:44:20 on 05/11/2000 447 * by the PROGRESS PRO*Tools Prototype Include File Generator 448 */ 449 450 451 452 453 454 &ENDIF 455 456 /* Put your xp{&Property} preprocessor definitions here. 457 Use the following format, e.g., 458 &GLOBAL-DEFINE xpMyProperty 459 These preprocessors tell at compile time which properties can 460 be retrieved directly from the temp-table */ 461 462 &GLOBAL-DEFINE xpDestination 463 &GLOBAL-DEFINE xpInMessageSource 464 &GLOBAL-DEFINE xpOutMessageTarget 465 &GLOBAL-DEFINE xpReplyRequired 466 &GLOBAL-DEFINE xpReplySelector 467 &GLOBAL-DEFINE xpCurrentMessageId 468 469 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 470 &ANALYZE-RESUME 471 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 472 /*-------------------------------------------------------------------------- 473 File : smrtprop.i 474 Purpose : Starts smart.p super procedure and defines general 475 SmartObject properties and other values. 476 Syntax : {src/adm2/smrtprop.i} 477 478 Description : 479 480 Modified : February 4, 2000 - Version 9.1B 481 ------------------------------------------------------------------------*/ 482 /* This .W file was created with the Progress UIB. */ 483 /*----------------------------------------------------------------------*/ 484 485 /* *************************** Definitions ************************** */ 486 487 488 /*-------------------------------------------------------------------------- 489 File : smartdefscustom.i 490 Purpose : Entry point to define: 491 New definitions 492 {&xcInstanceProperties} 493 {&ADM-PROPERTY-DLG} 494 Syntax : {src/adm2/custom/smartdefscustom.i} 495 496 Modified : 06/03/1999 497 498 Notes : Referenced in {src/adm2/smrtprop.i} 499 ------------------------------------------------------------------------*/ 500 501 502 503 /* define the ADM Version and broker handle for all SmartObjects */ 504 &GLOB ADM-VERSION ADM2.2 505 506 DEFINE VARIABLE ghProp AS HANDLE NO-UNDO. /* For {get/set} */ 507 DEFINE VARIABLE ghADMProps AS HANDLE NO-UNDO. /* Handle of prop t-t */ 508 DEFINE VARIABLE ghADMPropsBuf AS HANDLE NO-UNDO. /* and its buffer */ 509 510 /* _UIB-CODE-BLOCK-END */ 511 &ANALYZE-RESUME 512 513 514 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 515 516 /* ******************** Preprocessor Definitions ******************** */ 517 518 519 520 /* _UIB-PREPROCESSOR-BLOCK-END */ 521 &ANALYZE-RESUME 522 523 524 /* ************************ Function Prototypes ********************** */ 525 526 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getObjectType Include 527 FUNCTION getObjectType RETURNS CHARACTER 528 ( ) FORWARD. 529 530 /* _UIB-CODE-BLOCK-END */ 531 &ANALYZE-RESUME 532 533 534 /* *********************** Procedure Settings ************************ */ 535 536 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 537 /* Settings for THIS-PROCEDURE 538 Type: Include 539 Allow: 540 Frames: 0 541 Add Fields to: Neither 542 Other Settings: INCLUDE-ONLY 543 */ 544 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 545 546 /* ************************* Create Window ************************** */ 547 548 &ANALYZE-SUSPEND _CREATE-WINDOW 549 /* DESIGN Window definition (used by the UIB) 550 CREATE WINDOW Include ASSIGN 551 HEIGHT = 8 552 WIDTH = 60. 553 /* END WINDOW DEFINITION */ 554 */ 555 &ANALYZE-RESUME 556 557 558 559 560 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 561 562 563 /* *************************** Main Block *************************** */ 564 565 /* Include the file which defines prototypes for all of the super 566 procedure's entry points. Also, start or attach to the super procedure. 567 Skip start-super-proc if we *are* the super procedure. 568 And skip including the prototypes if we are *any* super procedure. */ 569 &IF "":U EQ "":U &THEN 570 571 /* 572 * Prototype include file: C:\adm90\src\adm2\smrtprto.i 573 * Created from procedure: C:\adm90\src\adm2\smart.p at 11:01 on 03/03/99 574 * by the PROGRESS PRO*Tools Prototype Include File Generator 575 */ 576 577 /**** Start of excluded prototypes 578 579 PROCEDURE viewObject IN SUPER: 580 END PROCEDURE. 581 582 PROCEDURE removeLink IN SUPER: 583 DEFINE INPUT PARAMETER phSource AS HANDLE. 584 DEFINE INPUT PARAMETER pcLink AS CHARACTER. 585 DEFINE INPUT PARAMETER phTarget AS HANDLE. 586 END PROCEDURE. 587 588 PROCEDURE removeAllLinks IN SUPER: 589 END PROCEDURE. 590 591 PROCEDURE modifyUserLinks IN SUPER: 592 DEFINE INPUT PARAMETER pcMod AS CHARACTER. 593 DEFINE INPUT PARAMETER pcLinkName AS CHARACTER. 594 DEFINE INPUT PARAMETER phObject AS HANDLE. 595 END PROCEDURE. 596 597 PROCEDURE modifyListProperty IN SUPER: 598 DEFINE INPUT PARAMETER phCaller AS HANDLE. 599 DEFINE INPUT PARAMETER pcMode AS CHARACTER. 600 DEFINE INPUT PARAMETER pcListName AS CHARACTER. 601 DEFINE INPUT PARAMETER pcListValue AS CHARACTER. 602 END PROCEDURE. 603 604 PROCEDURE hideObject IN SUPER: 605 END PROCEDURE. 606 607 PROCEDURE exitObject IN SUPER: 608 END PROCEDURE. 609 610 PROCEDURE editInstanceProperties IN SUPER: 611 END PROCEDURE. 612 613 PROCEDURE createControls IN SUPER: 614 END PROCEDURE. 615 616 PROCEDURE changeCursor IN SUPER: 617 DEFINE INPUT PARAMETER pcCursor AS CHARACTER. 618 END PROCEDURE. 619 620 PROCEDURE applyEntry IN SUPER: 621 DEFINE INPUT PARAMETER pcField AS CHARACTER. 622 END PROCEDURE. 623 624 PROCEDURE adjustTabOrder IN SUPER: 625 DEFINE INPUT PARAMETER phObject AS HANDLE. 626 DEFINE INPUT PARAMETER phAnchor AS HANDLE. 627 DEFINE INPUT PARAMETER pcPosition AS CHARACTER. 628 END PROCEDURE. 629 630 PROCEDURE addMessage IN SUPER: 631 DEFINE INPUT PARAMETER pcText AS CHARACTER. 632 DEFINE INPUT PARAMETER pcField AS CHARACTER. 633 DEFINE INPUT PARAMETER pcTable AS CHARACTER. 634 END PROCEDURE. 635 636 PROCEDURE addLink IN SUPER: 637 DEFINE INPUT PARAMETER phSource AS HANDLE. 638 DEFINE INPUT PARAMETER pcLink AS CHARACTER. 639 DEFINE INPUT PARAMETER phTarget AS HANDLE. 640 END PROCEDURE. 641 642 PROCEDURE start-super-proc IN SUPER: 643 DEFINE INPUT PARAMETER pcProcName AS CHARACTER. 644 END PROCEDURE. 645 646 FUNCTION assignLinkProperty RETURNS LOGICAL 647 (INPUT pcLink AS CHARACTER, 648 INPUT pcPropName AS CHARACTER, 649 INPUT pcPropValue AS CHARACTER) IN SUPER. 650 651 FUNCTION getContainerHandle RETURNS HANDLE IN SUPER. 652 653 FUNCTION getContainerHidden RETURNS LOGICAL IN SUPER. 654 655 FUNCTION getContainerSource RETURNS HANDLE IN SUPER. 656 657 FUNCTION getContainerSourceEvents RETURNS CHARACTER IN SUPER. 658 659 FUNCTION getContainerType RETURNS CHARACTER IN SUPER. 660 661 FUNCTION getDataSource RETURNS HANDLE IN SUPER. 662 663 FUNCTION getDataSourceEvents RETURNS CHARACTER IN SUPER. 664 665 FUNCTION getDBAware RETURNS LOGICAL IN SUPER. 666 667 FUNCTION getInstanceProperties RETURNS CHARACTER IN SUPER. 668 669 FUNCTION getObjectHidden RETURNS LOGICAL IN SUPER. 670 671 FUNCTION getObjectInitialized RETURNS LOGICAL IN SUPER. 672 673 FUNCTION getObjectPage RETURNS INTEGER IN SUPER. 674 675 FUNCTION getObjectParent RETURNS HANDLE IN SUPER. 676 677 FUNCTION getPassThroughLinks RETURNS CHARACTER IN SUPER. 678 679 FUNCTION getPropertyDialog RETURNS CHARACTER IN SUPER. 680 681 FUNCTION getQueryObject RETURNS LOGICAL IN SUPER. 682 683 FUNCTION getSupportedLinks RETURNS CHARACTER IN SUPER. 684 685 FUNCTION getTranslatableProperties RETURNS CHARACTER IN SUPER. 686 687 FUNCTION instancePropertyList RETURNS CHARACTER 688 (INPUT pcPropList AS CHARACTER) IN SUPER. 689 690 FUNCTION linkProperty RETURNS CHARACTER 691 (INPUT pcLink AS CHARACTER, 692 INPUT pcPropName AS CHARACTER) IN SUPER. 693 694 FUNCTION propertyType RETURNS CHARACTER 695 (INPUT pcPropName AS CHARACTER) IN SUPER. 696 697 FUNCTION reviewMessages RETURNS CHARACTER IN SUPER. 698 699 FUNCTION setContainerSource RETURNS LOGICAL 700 (INPUT phObject AS HANDLE) IN SUPER. 701 702 FUNCTION setDataSource RETURNS LOGICAL 703 (INPUT phObject AS HANDLE) IN SUPER. 704 705 FUNCTION setDataSourceEvents RETURNS LOGICAL 706 (INPUT pcEventsList AS CHARACTER) IN SUPER. 707 708 FUNCTION setDBAware RETURNS LOGICAL 709 (INPUT lAware AS LOGICAL) IN SUPER. 710 711 FUNCTION setInstanceProperties RETURNS LOGICAL 712 (INPUT pcPropList AS CHARACTER) IN SUPER. 713 714 FUNCTION setObjectParent RETURNS LOGICAL 715 (INPUT phParent AS HANDLE) IN SUPER. 716 717 FUNCTION setPassThroughLinks RETURNS LOGICAL 718 (INPUT pcLinks AS CHARACTER) IN SUPER. 719 720 FUNCTION setSupportedLinks RETURNS LOGICAL 721 (INPUT pcLinkList AS CHARACTER) IN SUPER. 722 723 FUNCTION setTranslatableProperties RETURNS LOGICAL 724 (INPUT pcPropList AS CHARACTER) IN SUPER. 725 726 FUNCTION setUIBMode RETURNS LOGICAL 727 (INPUT pcMode AS CHARACTER) IN SUPER. 728 729 FUNCTION showMessage RETURNS LOGICAL 730 (INPUT pcMessage AS CHARACTER) IN SUPER. 731 732 FUNCTION Signature RETURNS CHARACTER 733 (INPUT pcName AS CHARACTER) IN SUPER. 734 735 END of excluded prototypes **********/ 736 737 PROCEDURE initializeObject IN SUPER: 738 END PROCEDURE. 739 740 PROCEDURE destroyObject IN SUPER: 741 END PROCEDURE. 742 743 PROCEDURE displayLinks IN SUPER: 744 END PROCEDURE. 745 746 /* Don't even think about removing this. It's required for the AB */ 747 PROCEDURE repositionObject IN SUPER: 748 DEFINE INPUT PARAMETER pdRow AS DECIMAL. 749 DEFINE INPUT PARAMETER pdCol AS DECIMAL. 750 END PROCEDURE. 751 752 FUNCTION anyMessage RETURNS LOGICAL IN SUPER. 753 754 FUNCTION fetchMessages RETURNS CHARACTER IN SUPER. 755 756 FUNCTION getObjectType RETURNS CHARACTER IN SUPER. 757 758 FUNCTION getObjectVersion RETURNS CHARACTER IN SUPER. 759 760 FUNCTION getUIBMode RETURNS CHARACTER IN SUPER. 761 762 FUNCTION linkHandles RETURNS CHARACTER 763 (INPUT pcLink AS CHARACTER) IN SUPER. 764 765 FUNCTION messageNumber RETURNS CHARACTER 766 (INPUT piMessage AS INTEGER) IN SUPER. 767 768 FUNCTION getUserProperty RETURNS CHARACTER 769 (INPUT pcPropName AS CHARACTER) IN SUPER. 770 771 FUNCTION setUserProperty RETURNS LOGICAL 772 (INPUT pcPropName AS CHARACTER, 773 INPUT pcPropValue AS CHARACTER) IN SUPER. 774 775 776 &ENDIF 777 778 /* These preprocessors let the get and set methods know at compile time 779 which property values are located in the temp-table and which must 780 be accessed through the property functions. 781 */ 782 783 &GLOB xpObjectName 784 &GLOB xpObjectVersion 785 &GLOB xpObjectType 786 &GLOB xpContainerType 787 &GLOB xpPropertyDialog 788 &GLOB xpQueryObject 789 &GLOB xpContainerHandle 790 &GLOB xpInstanceProperties 791 &GLOB xpSupportedLinks 792 &GLOB xpContainerHidden 793 &GLOB xpObjectInitialized 794 &GLOB xpObjectHidden 795 &GLOB xpContainerSource 796 &GLOB xpContainerSourceEvents 797 &GLOB xpDataSourceEvents 798 &GLOB xpTranslatableProperties 799 &GLOB xpObjectPage 800 &GLOB xpDBAware 801 &GLOB xpDesignDataObject 802 /* This temp-table defines all the propertt fields for an object. 803 This include file contributes the DEFINE statement header and 804 all basic smart object properties. Each other property class include file 805 adds its own fields and then the parent object ends the statement. 806 Define the fields for smart objects only, not for their super procedures. 807 */ 808 809 /* Note that ObjectHidden is here because "hidden" is a logical concept. */ 810 811 &IF "":U = "":U &THEN 812 CREATE TEMP-TABLE ghADMProps. 813 ghADMProps:UNDO = FALSE. 814 ghADMProps:ADD-NEW-FIELD('ObjectName':U, 'CHAR':U, 0, ?, '':U). 815 ghADMProps:ADD-NEW-FIELD('ObjectVersion':U, 'CHAR':U, 0, ?, 816 'ADM2.2':U). 817 ghADMProps:ADD-NEW-FIELD('ObjectType':U, 'CHAR':U, 0, ?, 818 'SmartB2BObject':U). 819 ghADMProps:ADD-NEW-FIELD('ContainerType':U, 'CHAR':U, 0, ?, 820 '':U). 821 ghADMProps:ADD-NEW-FIELD('PropertyDialog':U, 'CHAR':U, 0, ?, 822 'adm2/support/b2bd.w':U). 823 ghADMProps:ADD-NEW-FIELD('QueryObject':U, 'LOGICAL':U, 0, ?, no). 824 ghADMProps:ADD-NEW-FIELD('ContainerHandle':U, 'HANDLE':U). 825 ghADMProps:ADD-NEW-FIELD('InstanceProperties':U, 'CHAR':U, 0, ?, 826 'DirectionList,NameList,SchemaList,DocTypeList,DestinationList,ReplyReqList,ReplySelectorList,MapObjectProducer,MapNameProducer,MapTypeProducer':U ). 827 /* NOTE: Any need to support &User-Supported-Links?? */ 828 ghADMProps:ADD-NEW-FIELD('SupportedLinks':U, 'CHAR':U, 0, ?, 829 'InMessage-Target,OutMessage-Source':U). 830 ghADMProps:ADD-NEW-FIELD('ContainerHidden':U, 'LOGICAL':U, 0, ?, yes). 831 ghADMProps:ADD-NEW-FIELD('ObjectInitialized':U, 'LOGICAL':U, 0, ?, no). 832 ghADMProps:ADD-NEW-FIELD('ObjectHidden':U, 'LOGICAL':U, 0, ?, yes). 833 ghADMProps:ADD-NEW-FIELD('UIBMode':U, 'CHAR':U, 0, ?, '':U). 834 ghADMProps:ADD-NEW-FIELD('ContainerSource':U, 'HANDLE':U). 835 ghADMProps:ADD-NEW-FIELD('ContainerSourceEvents':U, 'CHAR':U, 0, ?, 836 'initializeObject,hideObject,viewObject,destroyObject,enableObject,confirmExit':U). 837 ghADMProps:ADD-NEW-FIELD('DataSource':U, 'HANDLE':U). 838 ghADMProps:ADD-NEW-FIELD('DataSourceEvents':U, 'CHAR':U, 0, ?, 839 'dataAvailable,queryPosition,deleteComplete,fetchDataSet,confirmContinue,assignMaxGuess':U). 840 ghADMProps:ADD-NEW-FIELD('TranslatableProperties':U, 'CHAR':U, 0, ?, 841 '':U). 842 ghADMProps:ADD-NEW-FIELD('ObjectPage':U, 'INT':U, 0, ?, 0). 843 ghADMProps:ADD-NEW-FIELD('DBAware':U, 'LOGICAL':U, 0, ?, 844 &IF DEFINED (DB-AWARE) NE 0 &THEN 845 no). 846 &ELSE 847 no). 848 &ENDIF 849 ghADMProps:ADD-NEW-FIELD('DesignDataObject':U, 'CHAR':U, 0, ?,'':U). 850 851 &ENDIF 852 853 854 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 855 &ANALYZE-RESUME 856 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 857 /*-------------------------------------------------------------------------- 858 File : smrtpropcustom.i 859 Purpose : Defines basic properties. 860 Syntax : {src/adm2/custom/smrtpropcustom.i} 861 862 Description : 863 864 Modified : 06/03/1999 865 Notes : Referenced in {src/adm2/smrtprop.i} 866 ------------------------------------------------------------------------*/ 867 /* This .W file was created with the Progress UIB. */ 868 /*----------------------------------------------------------------------*/ 869 870 /* *************************** Definitions ************************** */ 871 872 873 874 /* _UIB-CODE-BLOCK-END */ 875 &ANALYZE-RESUME 876 877 878 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 879 880 /* ******************** Preprocessor Definitions ******************** */ 881 882 883 884 /* _UIB-PREPROCESSOR-BLOCK-END */ 885 &ANALYZE-RESUME 886 887 888 889 /* *********************** Procedure Settings ************************ */ 890 891 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 892 /* Settings for THIS-PROCEDURE 893 Type: Include 894 Allow: 895 Frames: 0 896 Add Fields to: Neither 897 Other Settings: INCLUDE-ONLY 898 */ 899 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 900 901 /* ************************* Create Window ************************** */ 902 903 &ANALYZE-SUSPEND _CREATE-WINDOW 904 /* DESIGN Window definition (used by the UIB) 905 CREATE WINDOW Include ASSIGN 906 HEIGHT = 8 907 WIDTH = 60. 908 /* END WINDOW DEFINITION */ 909 */ 910 &ANALYZE-RESUME 911 912 913 914 915 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 916 917 918 /* *************************** Main Block *************************** */ 919 920 /* Include the file which defines prototypes for all of the super 921 procedure's entry points. 922 And skip including the prototypes if we are *any* super procedure. */ 923 924 &IF "":U EQ "":U &THEN 925 926 /* 927 * Prototype include file: src/adm2/custom/smrtprtocustom.i 928 * Created from procedure: src/adm2/custom/smartcustom.p at 20:09:52 on 06/03/1999 929 * by the PROGRESS PRO*Tools Prototype Include File Generator 930 */ 931 932 933 934 935 936 937 &ENDIF 938 939 940 941 &IF "":U = "":U &THEN 942 943 &ENDIF 944 945 /* _UIB-CODE-BLOCK-END */ 946 &ANALYZE-RESUME 947 948 949 950 951 952 /* _UIB-CODE-BLOCK-END */ 953 &ANALYZE-RESUME 954 955 956 /* ************************ Function Implementations ***************** */ 957 958 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getObjectType Include 959 FUNCTION getObjectType RETURNS CHARACTER 960 ( ) : 961 /*------------------------------------------------------------------------------ 962 Purpose: Returns the Type of the SmartObject, such as "SmartDataObject", etc. 963 For an ADM Super procedure, this function returns "SUPER". 964 Params: 965 ------------------------------------------------------------------------------*/ 966 967 DEFINE VARIABLE cType AS CHARACTER NO-UNDO. 968 &IF "":U NE "":U &THEN 969 cType = "SUPER":U. 970 &ELSE 971 972 /* {get Prop var [handle]} */ &IF "":U = "":U &THEN &IF DEFINED(xpObjectType) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, TARGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ObjectType':U) cType = ghProp:BUFFER-VALUE &ELSE cType = dynamic-function("getObjectType":U IN TARGET-PROCEDURE) &ENDIF &ELSE &IF DEFINED(xpObjectType) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, :ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ObjectType':U) cType = ghProp:BUFFER-VALUE &ELSE 973 cType = dynamic-function("getObjectType":U IN ) &ENDIF &ENDIF 974 NO-ERROR. 975 &ENDIF 976 RETURN cType. 977 978 END FUNCTION. 979 980 /* _UIB-CODE-BLOCK-END */ 981 &ANALYZE-RESUME 982 983 984 985 986 &IF "":U = "":U &THEN 987 /* Put your property field definitions here. 988 Use the following syntax, e.g., 989 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 'Hi':U). */ 990 991 ghADMProps:ADD-NEW-FIELD('Destination':U, 'CHARACTER':U, 0, ?, '':U). 992 ghADMProps:ADD-NEW-FIELD('InMessageSource':U, 'HANDLE':U). 993 ghADMProps:ADD-NEW-FIELD('OutMessageTarget':U, 'HANDLE':U). 994 ghADMProps:ADD-NEW-FIELD('ReplyRequired':U, 'LOGICAL':U, 0, ?, NO). 995 ghADMProps:ADD-NEW-FIELD('ReplySelector':U, 'CHARACTER':U, 0, ?, '':U). 996 ghADMProps:ADD-NEW-FIELD('CurrentMessageId':U, 'CHARACTER':U, 0, ?, ?). 997 &ENDIF 998 999 1000 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1001 &ANALYZE-RESUME 1002 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1003 /*-------------------------------------------------------------------------- 1004 File : msghpropcustom.i 1005 Purpose : Defines basic properties. 1006 Syntax : {src/adm2/custom/msghpropcustom.i} 1007 1008 Description : 1009 1010 Modified : 05/11/2000 1011 Notes : Referenced in {src/adm2/msghprop.i} 1012 ------------------------------------------------------------------------*/ 1013 /* This .W file was created with the Progress UIB. */ 1014 /*----------------------------------------------------------------------*/ 1015 1016 /* *************************** Definitions ************************** */ 1017 1018 /* _UIB-CODE-BLOCK-END */ 1019 &ANALYZE-RESUME 1020 1021 1022 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1023 1024 /* ******************** Preprocessor Definitions ******************** */ 1025 1026 1027 1028 /* _UIB-PREPROCESSOR-BLOCK-END */ 1029 &ANALYZE-RESUME 1030 1031 1032 1033 /* *********************** Procedure Settings ************************ */ 1034 1035 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1036 /* Settings for THIS-PROCEDURE 1037 Type: Include 1038 Allow: 1039 Frames: 0 1040 Add Fields to: Neither 1041 Other Settings: INCLUDE-ONLY 1042 */ 1043 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1044 1045 /* ************************* Create Window ************************** */ 1046 1047 &ANALYZE-SUSPEND _CREATE-WINDOW 1048 /* DESIGN Window definition (used by the UIB) 1049 CREATE WINDOW Include ASSIGN 1050 HEIGHT = 8 1051 WIDTH = 60. 1052 /* END WINDOW DEFINITION */ 1053 */ 1054 &ANALYZE-RESUME 1055 1056 1057 1058 1059 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1060 1061 1062 /* *************************** Main Block *************************** */ 1063 1064 /* Include the file which defines prototypes for all of the super 1065 procedure's entry points. 1066 And skip including the prototypes if we are *any* super procedure. */ 1067 1068 &IF "":U EQ "":U &THEN 1069 1070 /* 1071 * Prototype include file: src/adm2/custom/msghprtocustom.i 1072 * Created from procedure: src/adm2/custom/msghandlercustom.p at 12:44:25 on 05/11/2000 1073 * by the PROGRESS PRO*Tools Prototype Include File Generator 1074 */ 1075 1076 1077 1078 1079 1080 1081 &ENDIF 1082 1083 /* Put your xp{&Property} preprocessor definitions here. 1084 Use the following format, e.g., 1085 &GLOBAL-DEFINE xpMyProperty 1086 These preprocessors tell at compile time which properties can 1087 be retrieved directly from the temp-table */ 1088 1089 1090 &IF "":U = "":U &THEN 1091 /* Put your property field definitions here. 1092 Use the following syntax, e.g., 1093 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 'Hi':U). */ 1094 1095 &ENDIF 1096 1097 /* _UIB-CODE-BLOCK-END */ 1098 &ANALYZE-RESUME 1099 1100 1101 1102 1103 /* _UIB-CODE-BLOCK-END */ 1104 &ANALYZE-RESUME 1105 1106 1107 1108 1109 &IF "":U = "":U &THEN 1110 ghADMProps:ADD-NEW-FIELD('DocumentHandle':U, 'HANDLE':U, 0). 1111 ghADMProps:ADD-NEW-FIELD('CurrentPath':U, 'HANDLE':U, 0). 1112 &ENDIF 1113 1114 1115 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1116 &ANALYZE-RESUME 1117 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1118 /*-------------------------------------------------------------------------- 1119 File : xmlpropcustom.i 1120 Purpose : Defines basic properties. 1121 Syntax : {src/adm2/custom/xmlpropcustom.i} 1122 1123 Description : 1124 1125 Modified : 05/16/2000 1126 Notes : Referenced in {src/adm2/xmlprop.i} 1127 ------------------------------------------------------------------------*/ 1128 /* This .W file was created with the Progress UIB. */ 1129 /*----------------------------------------------------------------------*/ 1130 1131 /* *************************** Definitions ************************** */ 1132 1133 /* _UIB-CODE-BLOCK-END */ 1134 &ANALYZE-RESUME 1135 1136 1137 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1138 1139 /* ******************** Preprocessor Definitions ******************** */ 1140 1141 1142 1143 /* _UIB-PREPROCESSOR-BLOCK-END */ 1144 &ANALYZE-RESUME 1145 1146 1147 1148 /* *********************** Procedure Settings ************************ */ 1149 1150 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1151 /* Settings for THIS-PROCEDURE 1152 Type: Include 1153 Allow: 1154 Frames: 0 1155 Add Fields to: Neither 1156 Other Settings: INCLUDE-ONLY 1157 */ 1158 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1159 1160 /* ************************* Create Window ************************** */ 1161 1162 &ANALYZE-SUSPEND _CREATE-WINDOW 1163 /* DESIGN Window definition (used by the UIB) 1164 CREATE WINDOW Include ASSIGN 1165 HEIGHT = 8 1166 WIDTH = 60. 1167 /* END WINDOW DEFINITION */ 1168 */ 1169 &ANALYZE-RESUME 1170 1171 1172 1173 1174 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1175 1176 1177 /* *************************** Main Block *************************** */ 1178 1179 /* Include the file which defines prototypes for all of the super 1180 procedure's entry points. 1181 And skip including the prototypes if we are *any* super procedure. */ 1182 1183 &IF "":U EQ "":U &THEN 1184 1185 /* 1186 * Prototype include file: src/adm2/custom/xmlprtocustom.i 1187 * Created from procedure: src/adm2/custom/xmlcustom.p at 08:51:53 on 05/16/2000 1188 * by the PROGRESS PRO*Tools Prototype Include File Generator 1189 */ 1190 1191 1192 1193 1194 1195 1196 &ENDIF 1197 1198 /* Put your xp{&Property} preprocessor definitions here. 1199 Use the following format, e.g., 1200 &GLOBAL-DEFINE xpMyProperty 1201 These preprocessors tell at compile time which properties can 1202 be retrieved directly from the temp-table */ 1203 1204 1205 &IF "":U = "":U &THEN 1206 /* Put your property field definitions here. 1207 Use the following syntax, e.g., 1208 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 'Hi':U). */ 1209 1210 &ENDIF 1211 1212 /* _UIB-CODE-BLOCK-END */ 1213 &ANALYZE-RESUME 1214 1215 1216 1217 1218 /* _UIB-CODE-BLOCK-END */ 1219 &ANALYZE-RESUME 1220 1221 1222 1223 1224 &IF "":U = "":U &THEN 1225 ghADMProps:ADD-NEW-FIELD('DestinationList':U, 'CHAR':U, 0). 1226 ghADMProps:ADD-NEW-FIELD('DirectionList':U, 'CHAR':U, 0). 1227 ghADMProps:ADD-NEW-FIELD('DocTypeList':U, 'CHAR':U, 0). 1228 ghADMProps:ADD-NEW-FIELD('NameList':U, 'CHAR':U, 0). 1229 ghADMProps:ADD-NEW-FIELD('ReplyReqList':U, 'CHAR':U, 0). 1230 ghADMProps:ADD-NEW-FIELD('ReplySelectorList':U, 'CHAR':U, 0). 1231 ghADMProps:ADD-NEW-FIELD('SchemaHandle':U, 'HANDLE':U, 0). 1232 ghADMProps:ADD-NEW-FIELD('NameSpaceHandle':U, 'HANDLE':U, 0). 1233 ghADMProps:ADD-NEW-FIELD('SchemaName':U, 'CHAR':U, 0). 1234 ghADMProps:ADD-NEW-FIELD('SchemaList':U, 'CHAR':U, 0). 1235 ghADMProps:ADD-NEW-FIELD('LoadedByRouter':U, 'LOG':U). 1236 ghADMProps:ADD-NEW-FIELD('MapObjectProducer':U, 'CHAR':U). 1237 ghADMProps:ADD-NEW-FIELD('MapTypeProducer':U, 'CHAR':U). 1238 ghADMProps:ADD-NEW-FIELD('MapNameProducer':U, 'CHAR':U). 1239 ghADMProps:ADD-NEW-FIELD('TypeName':U, 'CHAR':U). 1240 &ENDIF 1241 1242 1243 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1244 &ANALYZE-RESUME 1245 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1246 /*-------------------------------------------------------------------------- 1247 File : b2bpropcustom.i 1248 Purpose : Defines basic properties. 1249 Syntax : {src/adm2/custom/b2bpropcustom.i} 1250 1251 Description : 1252 1253 Modified : 04/19/2000 1254 Notes : Referenced in {src/adm2/b2bprop.i} 1255 ------------------------------------------------------------------------*/ 1256 /* This .W file was created with the Progress UIB. */ 1257 /*----------------------------------------------------------------------*/ 1258 1259 /* *************************** Definitions ************************** */ 1260 1261 /* _UIB-CODE-BLOCK-END */ 1262 &ANALYZE-RESUME 1263 1264 1265 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1266 1267 /* ******************** Preprocessor Definitions ******************** */ 1268 1269 1270 1271 /* _UIB-PREPROCESSOR-BLOCK-END */ 1272 &ANALYZE-RESUME 1273 1274 1275 1276 /* *********************** Procedure Settings ************************ */ 1277 1278 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1279 /* Settings for THIS-PROCEDURE 1280 Type: Include 1281 Allow: 1282 Frames: 0 1283 Add Fields to: Neither 1284 Other Settings: INCLUDE-ONLY 1285 */ 1286 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1287 1288 /* ************************* Create Window ************************** */ 1289 1290 &ANALYZE-SUSPEND _CREATE-WINDOW 1291 /* DESIGN Window definition (used by the UIB) 1292 CREATE WINDOW Include ASSIGN 1293 HEIGHT = 8 1294 WIDTH = 60. 1295 /* END WINDOW DEFINITION */ 1296 */ 1297 &ANALYZE-RESUME 1298 1299 1300 1301 1302 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1303 1304 1305 /* *************************** Main Block *************************** */ 1306 1307 /* Include the file which defines prototypes for all of the super 1308 procedure's entry points. 1309 And skip including the prototypes if we are *any* super procedure. */ 1310 1311 &IF "":U EQ "":U &THEN 1312 1313 /* 1314 * Prototype include file: src/adm2/custom/b2bprtocustom.i 1315 * Created from procedure: src/adm2/custom/b2bcustom.p at 13:51:31 on 04/19/2000 1316 * by the PROGRESS PRO*Tools Prototype Include File Generator 1317 */ 1318 1319 1320 1321 1322 1323 1324 &ENDIF 1325 1326 /* Put your xp{&Property} preprocessor definitions here. 1327 Use the following format, e.g., 1328 &GLOBAL-DEFINE xpMyProperty 1329 These preprocessors tell at compile time which properties can 1330 be retrieved directly from the temp-table */ 1331 1332 1333 &IF "":U = "":U &THEN 1334 /* Put your property field definitions here. 1335 Use the following syntax, e.g., 1336 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 'Hi':U). */ 1337 1338 &ENDIF 1339 1340 /* _UIB-CODE-BLOCK-END */ 1341 &ANALYZE-RESUME 1342 1343 1344 1345 1346 /* _UIB-CODE-BLOCK-END */ 1347 &ANALYZE-RESUME 1348 1349 1350 1351 &ENDIF 1352 1353 /* _UIB-CODE-BLOCK-END */ 1354 &ANALYZE-RESUME 1355 1356 1357 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1358 1359 /* ******************** Preprocessor Definitions ******************** */ 1360 1361 1362 1363 /* _UIB-PREPROCESSOR-BLOCK-END */ 1364 &ANALYZE-RESUME 1365 1366 1367 1368 /* *********************** Procedure Settings ************************ */ 1369 1370 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1371 /* Settings for THIS-PROCEDURE 1372 Type: Method-Library 1373 Allow: 1374 Frames: 0 1375 Add Fields to: Neither 1376 Other Settings: INCLUDE-ONLY 1377 */ 1378 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1379 1380 /* ************************* Create Window ************************** */ 1381 1382 &ANALYZE-SUSPEND _CREATE-WINDOW 1383 /* DESIGN Window definition (used by the UIB) 1384 CREATE WINDOW Method-Library ASSIGN 1385 HEIGHT = 8 1386 WIDTH = 60. 1387 /* END WINDOW DEFINITION */ 1388 */ 1389 &ANALYZE-RESUME 1390 1391 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library 1392 /* ************************* Included-Libraries *********************** */ 1393 1394 1395 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1396 &ANALYZE-RESUME 1397 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 1398 /*------------------------------------------------------------------------- 1399 File : xml.i 1400 Purpose : Basic Method Library for the ADMClass xml. 1401 1402 Syntax : {src/adm2/xml.i} 1403 1404 Description : 1405 1406 Modified : 05/16/2000 1407 -------------------------------------------------------------------------*/ 1408 /* This .W file was created with the Progress UIB. */ 1409 /*----------------------------------------------------------------------*/ 1410 1411 /* *************************** Definitions ************************** */ 1412 1413 &IF "b2b":U = "":U &THEN 1414 &GLOB ADMClass xml 1415 &ENDIF 1416 1417 &IF "b2b":U = "xml":U &THEN 1418 1419 &ENDIF 1420 1421 /* _UIB-CODE-BLOCK-END */ 1422 &ANALYZE-RESUME 1423 1424 1425 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1426 1427 /* ******************** Preprocessor Definitions ******************** */ 1428 1429 1430 1431 /* _UIB-PREPROCESSOR-BLOCK-END */ 1432 &ANALYZE-RESUME 1433 1434 1435 1436 /* *********************** Procedure Settings ************************ */ 1437 1438 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1439 /* Settings for THIS-PROCEDURE 1440 Type: Method-Library 1441 Allow: 1442 Frames: 0 1443 Add Fields to: Neither 1444 Other Settings: INCLUDE-ONLY 1445 */ 1446 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1447 1448 /* ************************* Create Window ************************** */ 1449 1450 &ANALYZE-SUSPEND _CREATE-WINDOW 1451 /* DESIGN Window definition (used by the UIB) 1452 CREATE WINDOW Method-Library ASSIGN 1453 HEIGHT = 8 1454 WIDTH = 60. 1455 /* END WINDOW DEFINITION */ 1456 */ 1457 &ANALYZE-RESUME 1458 1459 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library 1460 /* ************************* Included-Libraries *********************** */ 1461 1462 1463 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1464 &ANALYZE-RESUME 1465 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 1466 /*------------------------------------------------------------------------- 1467 File : msghandler.i 1468 Purpose : Basic Method Library for the ADMClass msghandler. 1469 1470 Syntax : {src/adm2/msghandler.i} 1471 1472 Description : 1473 1474 Modified : 05/11/2000 1475 -------------------------------------------------------------------------*/ 1476 /* This .W file was created with the Progress UIB. */ 1477 /*----------------------------------------------------------------------*/ 1478 1479 /* *************************** Definitions ************************** */ 1480 1481 &IF "b2b":U = "":U &THEN 1482 &GLOB ADMClass msghandler 1483 &ENDIF 1484 1485 &IF "b2b":U = "msghandler":U &THEN 1486 1487 &ENDIF 1488 1489 /* _UIB-CODE-BLOCK-END */ 1490 &ANALYZE-RESUME 1491 1492 1493 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1494 1495 /* ******************** Preprocessor Definitions ******************** */ 1496 1497 1498 1499 /* _UIB-PREPROCESSOR-BLOCK-END */ 1500 &ANALYZE-RESUME 1501 1502 1503 1504 /* *********************** Procedure Settings ************************ */ 1505 1506 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1507 /* Settings for THIS-PROCEDURE 1508 Type: Method-Library 1509 Allow: 1510 Frames: 0 1511 Add Fields to: Neither 1512 Other Settings: INCLUDE-ONLY 1513 */ 1514 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1515 1516 /* ************************* Create Window ************************** */ 1517 1518 &ANALYZE-SUSPEND _CREATE-WINDOW 1519 /* DESIGN Window definition (used by the UIB) 1520 CREATE WINDOW Method-Library ASSIGN 1521 HEIGHT = 8 1522 WIDTH = 60. 1523 /* END WINDOW DEFINITION */ 1524 */ 1525 &ANALYZE-RESUME 1526 1527 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library 1528 /* ************************* Included-Libraries *********************** */ 1529 1530 1531 &ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 1532 &ANALYZE-RESUME 1533 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 1534 /*-------------------------------------------------------------------------- 1535 Library : smart.i - NEW V9 version of top-level SmartObject include 1536 1537 Modified : May 22, 2000 -- Version 9.1B 1538 ------------------------------------------------------------------------*/ 1539 /* This .i file was created with the Progress UIB. */ 1540 /*----------------------------------------------------------------------*/ 1541 1542 /* *************************** Definitions ************************** */ 1543 1544 /* If smart.i has already been included, skip everything 1545 (matching ENDIF is at the end of the file). */ 1546 &IF DEFINED(adm-smart) = 0 &THEN 1547 &GLOB adm-smart yes 1548 1549 /* Define the preprocessor that identifies the basic "class" of the object; 1550 ADMClass will remain undefined here only if the object uses no sub-class 1551 include files. */ 1552 &IF "b2b":U = "":U &THEN 1553 &GLOB ADMClass smart 1554 &ENDIF 1555 1556 DEFINE VARIABLE ghContainer AS HANDLE NO-UNDO. /* Window or Frame handle */ 1557 1558 /* If this object is of type "smart", i.e., uses no lower class include 1559 files, then include the property file here. Otherwise this will be 1560 done in the class include file of the base class of the object. */ 1561 1562 &IF "b2b":U = "smart":U &THEN 1563 1564 &ENDIF 1565 1566 /* _UIB-CODE-BLOCK-END */ 1567 &ANALYZE-RESUME 1568 1569 1570 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1571 1572 /* ******************** Preprocessor Definitions ******************** */ 1573 1574 1575 1576 /* _UIB-PREPROCESSOR-BLOCK-END */ 1577 &ANALYZE-RESUME 1578 1579 1580 1581 /* *********************** Procedure Settings ************************ */ 1582 1583 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1584 /* Settings for THIS-PROCEDURE 1585 Type: Method-Library 1586 Allow: 1587 Frames: 0 1588 Add Fields to: Neither 1589 Other Settings: INCLUDE-ONLY 1590 */ 1591 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1592 1593 /* ************************* Create Window ************************** */ 1594 1595 &ANALYZE-SUSPEND _CREATE-WINDOW 1596 /* DESIGN Window definition (used by the UIB) 1597 CREATE WINDOW Method-Library ASSIGN 1598 HEIGHT = 8 1599 WIDTH = 60. 1600 /* END WINDOW DEFINITION */ 1601 */ 1602 &ANALYZE-RESUME 1603 1604 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Library 1605 /* ************************* Included-Libraries *********************** */ 1606 1607 /* _UIB-CODE-BLOCK-END */ 1608 &ANALYZE-RESUME 1609 1610 1611 1612 1613 1614 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 1615 1616 1617 /* *************************** Main Block *************************** */ 1618 1619 DEFINE VARIABLE cObjectName AS CHARACTER NO-UNDO. 1620 DEFINE VARIABLE iStart AS INTEGER NO-UNDO. 1621 1622 /* Now create the one record in this property temp-table, and store its 1623 handle in ADM-DATA. The CHR(1) delimiters are to set aside spots 1624 for UserProperties and UserLinks. */ 1625 ghADMProps:TEMP-TABLE-PREPARE('ADMProps':U). 1626 ghADMPropsBuf = ghADMProps:DEFAULT-BUFFER-HANDLE. 1627 ghADMPropsBuf:BUFFER-CREATE(). 1628 THIS-PROCEDURE:ADM-DATA = STRING(ghADMPropsBuf) + CHR(1) + CHR(1). 1629 1630 RUN start-super-proc ("adm2/smart.p":U). 1631 1632 &IF "":U NE "":U &THEN 1633 &IF "":U = "WINDOW":U &THEN 1634 ghContainer = CURRENT-WINDOW. 1635 &ELSEIF "":U = "VIRTUAL":U OR "":U = "":U &THEN 1636 ghContainer = ?. /* Container has no vis. */ 1637 &ELSEIF "":U = "FRAME":U OR 1638 "":U = "DIALOG-BOX":U 1639 &THEN 1640 ghContainer = FRAME :HANDLE. 1641 &ENDIF 1642 &ELSE 1643 &IF "":U NE "":U &THEN 1644 ghContainer = FRAME :HANDLE. 1645 &ENDIF 1646 &ENDIF 1647 1648 /* Set the default object name to the simple procedure file name. */ 1649 ASSIGN cObjectName = REPLACE(THIS-PROCEDURE:FILE-NAME, "~\":U, "~/":U) 1650 iStart = R-INDEX(cObjectName, "~/":U) + 1 1651 cObjectName = SUBSTR(cObjectName, iStart, 1652 R-INDEX(THIS-PROCEDURE:FILE-NAME, ".":U) - iStart). 1653 1654 /* {set Prop value [handle]} */ &IF "":U = "":U &THEN &IF DEFINED(xpObjectName) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, TARGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ObjectName':U) ghProp:BUFFER-VALUE = cObjectName &ELSE dynamic-function("setObjectName":U IN TARGET-PROCEDURE, cObjectName) &ENDIF &ELSE &IF DEFINED(xpObjectName) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, :ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ObjectName':U) ghProp:BUFFER-VALUE = cObjectName &ELSE 1655 dynamic-function("setObjectName":U IN , cObjectName) &ENDIF &ENDIF 1656 . 1657 1658 1659 /* {set Prop value [handle]} */ &IF "":U = "":U &THEN &IF DEFINED(xpContainerHandle) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, TARGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ContainerHandle':U) ghProp:BUFFER-VALUE = ghContainer &ELSE dynamic-function("setContainerHandle":U IN TARGET-PROCEDURE, ghContainer) &ENDIF &ELSE &IF DEFINED(xpContainerHandle) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, :ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('ContainerHandle':U) ghProp:BUFFER-VALUE = ghContainer &ELSE 1660 dynamic-function("setContainerHandle":U IN , ghContainer) &ENDIF &ENDIF 1661 . 1662 1663 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 1664 1665 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 1666 &ANALYZE-RESUME 1667 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1668 /*------------------------------------------------------------------------ 1669 File : smartcustom.i 1670 Purpose : References the start of the custom super procedure. 1671 Allows properties initialization. 1672 1673 Syntax : {src/adm2/custom/smartcustom.i} 1674 1675 Description : 1676 1677 Created : 06/03/1999 1678 Notes : Referenced in {src/adm2/smart.i} 1679 ----------------------------------------------------------------------*/ 1680 /* This .W file was created with the Progress AppBuilder. */ 1681 /*----------------------------------------------------------------------*/ 1682 1683 /* *************************** Definitions ************************** */ 1684 1685 /* _UIB-CODE-BLOCK-END */ 1686 &ANALYZE-RESUME 1687 1688 1689 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1690 1691 /* ******************** Preprocessor Definitions ******************** */ 1692 1693 1694 1695 /* _UIB-PREPROCESSOR-BLOCK-END */ 1696 &ANALYZE-RESUME 1697 1698 1699 1700 /* *********************** Procedure Settings ************************ */ 1701 1702 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1703 /* Settings for THIS-PROCEDURE 1704 Type: Include 1705 Allow: 1706 Frames: 0 1707 Add Fields to: Neither 1708 Other Settings: INCLUDE-ONLY 1709 */ 1710 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1711 1712 /* ************************* Create Window ************************** */ 1713 1714 &ANALYZE-SUSPEND _CREATE-WINDOW 1715 /* DESIGN Window definition (used by the UIB) 1716 CREATE WINDOW Include ASSIGN 1717 HEIGHT = 15 1718 WIDTH = 60. 1719 /* END WINDOW DEFINITION */ 1720 */ 1721 &ANALYZE-RESUME 1722 1723 1724 1725 1726 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1727 1728 1729 /* *************************** Main Block *************************** */ 1730 1731 /* Starts here the custom super procedure 1732 Uncomment to run it */ 1733 1734 /*RUN start-super-proc ("adm2/custom/smartcustom.p":U).*/ 1735 1736 /* _UIB-CODE-BLOCK-END */ 1737 &ANALYZE-RESUME 1738 1739 1740 1741 1742 1743 /* _ADM-CODE-BLOCK-END */ 1744 1745 /* _UIB-CODE-BLOCK-END */ 1746 &ANALYZE-RESUME 1747 1748 1749 /* ********************** Internal Procedures *********************** */ 1750 1751 &IF DEFINED(EXCLUDE-start-super-proc) = 0 &THEN 1752 1753 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE start-super-proc Method-Library 1754 PROCEDURE start-super-proc : 1755 /*------------------------------------------------------------------------------ 1756 Purpose: Procedure to start a super proc if it's not already running, 1757 and to add it as a super proc in any case. 1758 Parameters: Procedure name to make super. 1759 Notes: NOTE: This presumes that we want only one copy of an ADM 1760 super procedure running per session, meaning that they are 1761 stateless and "multi-threaded". This is intended to be the case 1762 for ours, but may not be true for all super procs. 1763 ------------------------------------------------------------------------------*/ 1764 1765 DEFINE INPUT PARAMETER pcProcName AS CHARACTER NO-UNDO. 1766 DEFINE VARIABLE hProc AS HANDLE NO-UNDO. 1767 1768 hProc = SESSION:FIRST-PROCEDURE. 1769 DO WHILE VALID-HANDLE(hProc) AND hProc:FILE-NAME NE pcProcName: 1770 hProc = hProc:NEXT-SIBLING. 1771 END. 1772 IF NOT VALID-HANDLE(hProc) THEN 1773 RUN VALUE(pcProcName) PERSISTENT SET hProc. 1774 THIS-PROCEDURE:ADD-SUPER-PROCEDURE(hProc, SEARCH-TARGET). 1775 1776 RETURN. 1777 1778 END PROCEDURE. 1779 1780 /* Note: This ENDIF matches the adm-smart definition at the top of file. 1781 Do not delete it and if another procedure or function is defined which 1782 occurs later in the file, move it to the end of that. */ 1783 &ENDIF 1784 1785 /* _UIB-CODE-BLOCK-END */ 1786 &ANALYZE-RESUME 1787 1788 &ENDIF 1789 1790 1791 1792 /* _UIB-CODE-BLOCK-END */ 1793 &ANALYZE-RESUME 1794 1795 1796 1797 1798 1799 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 1800 1801 1802 /* *************************** Main Block *************************** */ 1803 1804 1805 /* Starts super procedure */ 1806 RUN start-super-proc("adm2/msghandler.p":U). 1807 1808 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 1809 1810 1811 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 1812 &ANALYZE-RESUME 1813 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1814 /*------------------------------------------------------------------------ 1815 File : msghandlercustom.i 1816 Purpose : References the start of the custom super procedure. 1817 Allows properties initialization. 1818 1819 Syntax : {src/adm2/custom/msghandlercustom.i} 1820 1821 Description : 1822 1823 Created : 05/11/2000 1824 Notes : Referenced in {src/adm2/msghandler.i} 1825 ----------------------------------------------------------------------*/ 1826 /* This .W file was created with the Progress AppBuilder. */ 1827 /*----------------------------------------------------------------------*/ 1828 1829 /* *************************** Definitions ************************** */ 1830 1831 /* _UIB-CODE-BLOCK-END */ 1832 &ANALYZE-RESUME 1833 1834 1835 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1836 1837 /* ******************** Preprocessor Definitions ******************** */ 1838 1839 1840 1841 /* _UIB-PREPROCESSOR-BLOCK-END */ 1842 &ANALYZE-RESUME 1843 1844 1845 1846 /* *********************** Procedure Settings ************************ */ 1847 1848 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1849 /* Settings for THIS-PROCEDURE 1850 Type: Include 1851 Allow: 1852 Frames: 0 1853 Add Fields to: Neither 1854 Other Settings: INCLUDE-ONLY 1855 */ 1856 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1857 1858 /* ************************* Create Window ************************** */ 1859 1860 &ANALYZE-SUSPEND _CREATE-WINDOW 1861 /* DESIGN Window definition (used by the UIB) 1862 CREATE WINDOW Include ASSIGN 1863 HEIGHT = 15 1864 WIDTH = 60. 1865 /* END WINDOW DEFINITION */ 1866 */ 1867 &ANALYZE-RESUME 1868 1869 1870 1871 1872 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1873 1874 1875 /* *************************** Main Block *************************** */ 1876 1877 /* Starts here the custom super procedure 1878 Uncomment to run it */ 1879 1880 /*RUN start-super-proc ("adm2/custom/msghandlercustom.p":U).*/ 1881 1882 /* _UIB-CODE-BLOCK-END */ 1883 &ANALYZE-RESUME 1884 1885 1886 1887 1888 1889 1890 /* _ADM-CODE-BLOCK-END */ 1891 1892 /* _UIB-CODE-BLOCK-END */ 1893 &ANALYZE-RESUME 1894 1895 1896 1897 1898 /* _UIB-CODE-BLOCK-END */ 1899 &ANALYZE-RESUME 1900 1901 1902 1903 1904 1905 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 1906 1907 1908 /* *************************** Main Block *************************** */ 1909 1910 1911 /* Starts super procedure */ 1912 RUN start-super-proc("adm2/xml.p":U). 1913 1914 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 1915 1916 1917 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 1918 &ANALYZE-RESUME 1919 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 1920 /*------------------------------------------------------------------------ 1921 File : xmlcustom.i 1922 Purpose : References the start of the custom super procedure. 1923 Allows properties initialization. 1924 1925 Syntax : {src/adm2/custom/xmlcustom.i} 1926 1927 Description : 1928 1929 Created : 05/16/2000 1930 Notes : Referenced in {src/adm2/xml.i} 1931 ----------------------------------------------------------------------*/ 1932 /* This .W file was created with the Progress AppBuilder. */ 1933 /*----------------------------------------------------------------------*/ 1934 1935 /* *************************** Definitions ************************** */ 1936 1937 /* _UIB-CODE-BLOCK-END */ 1938 &ANALYZE-RESUME 1939 1940 1941 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 1942 1943 /* ******************** Preprocessor Definitions ******************** */ 1944 1945 1946 1947 /* _UIB-PREPROCESSOR-BLOCK-END */ 1948 &ANALYZE-RESUME 1949 1950 1951 1952 /* *********************** Procedure Settings ************************ */ 1953 1954 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1955 /* Settings for THIS-PROCEDURE 1956 Type: Include 1957 Allow: 1958 Frames: 0 1959 Add Fields to: Neither 1960 Other Settings: INCLUDE-ONLY 1961 */ 1962 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1963 1964 /* ************************* Create Window ************************** */ 1965 1966 &ANALYZE-SUSPEND _CREATE-WINDOW 1967 /* DESIGN Window definition (used by the UIB) 1968 CREATE WINDOW Include ASSIGN 1969 HEIGHT = 15 1970 WIDTH = 60. 1971 /* END WINDOW DEFINITION */ 1972 */ 1973 &ANALYZE-RESUME 1974 1975 1976 1977 1978 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 1979 1980 1981 /* *************************** Main Block *************************** */ 1982 1983 /* Starts here the custom super procedure 1984 Uncomment to run it */ 1985 1986 /*RUN start-super-proc ("adm2/custom/xmlcustom.p":U).*/ 1987 1988 /* _UIB-CODE-BLOCK-END */ 1989 &ANALYZE-RESUME 1990 1991 1992 1993 1994 1995 1996 /* _ADM-CODE-BLOCK-END */ 1997 1998 /* _UIB-CODE-BLOCK-END */ 1999 &ANALYZE-RESUME 2000 2001 2002 2003 2004 2005 /* _UIB-CODE-BLOCK-END */ 2006 &ANALYZE-RESUME 2007 2008 2009 2010 2011 2012 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 2013 2014 2015 /* *************************** Main Block *************************** */ 2016 2017 2018 /* Starts super procedure */ 2019 RUN start-super-proc("adm2/b2b.p":U). 2020 2021 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 2022 2023 2024 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 2025 &ANALYZE-RESUME 2026 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 2027 /*------------------------------------------------------------------------ 2028 File : b2bcustom.i 2029 Purpose : References the start of the custom super procedure. 2030 Allows properties initialization. 2031 2032 Syntax : {src/adm2/custom/b2bcustom.i} 2033 2034 Description : 2035 2036 Created : 04/19/2000 2037 Notes : Referenced in {src/adm2/b2b.i} 2038 ----------------------------------------------------------------------*/ 2039 /* This .W file was created with the Progress AppBuilder. */ 2040 /*----------------------------------------------------------------------*/ 2041 2042 /* *************************** Definitions ************************** */ 2043 2044 /* _UIB-CODE-BLOCK-END */ 2045 &ANALYZE-RESUME 2046 2047 2048 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 2049 2050 /* ******************** Preprocessor Definitions ******************** */ 2051 2052 2053 2054 /* _UIB-PREPROCESSOR-BLOCK-END */ 2055 &ANALYZE-RESUME 2056 2057 2058 2059 /* *********************** Procedure Settings ************************ */ 2060 2061 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 2062 /* Settings for THIS-PROCEDURE 2063 Type: Include 2064 Allow: 2065 Frames: 0 2066 Add Fields to: Neither 2067 Other Settings: INCLUDE-ONLY 2068 */ 2069 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 2070 2071 /* ************************* Create Window ************************** */ 2072 2073 &ANALYZE-SUSPEND _CREATE-WINDOW 2074 /* DESIGN Window definition (used by the UIB) 2075 CREATE WINDOW Include ASSIGN 2076 HEIGHT = 15 2077 WIDTH = 60. 2078 /* END WINDOW DEFINITION */ 2079 */ 2080 &ANALYZE-RESUME 2081 2082 2083 2084 2085 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 2086 2087 2088 /* *************************** Main Block *************************** */ 2089 2090 /* Starts here the custom super procedure 2091 Uncomment to run it */ 2092 2093 /*RUN start-super-proc ("adm2/custom/b2bcustom.p":U).*/ 2094 2095 /* _UIB-CODE-BLOCK-END */ 2096 &ANALYZE-RESUME 2097 2098 2099 2100 2101 /* _ADM-CODE-BLOCK-END */ 2102 2103 /* _UIB-CODE-BLOCK-END */ 2104 &ANALYZE-RESUME 2105 2106 2107 2108 2109 /* _UIB-CODE-BLOCK-END */ 2110 &ANALYZE-RESUME 2111 2112 2113 2114 2115 /* *********** Runtime Attributes and AppBuilder Settings *********** */ 2116 2117 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES 2118 /* SETTINGS FOR WINDOW sbbObject 2119 VISIBLE,,RUN-PERSISTENT */ 2120 /* _RUN-TIME-ATTRIBUTES-END */ 2121 &ANALYZE-RESUME 2122 2123 2124 2125 2126 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK sbbObject 2127 2128 2129 /* *************************** Main Block *************************** */ 2130 2131 /* If testing in the UIB, initialize the SmartObject. */ 2132 &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN 2133 RUN initializeObject. 2134 &ENDIF 2135 2136 /* _UIB-CODE-BLOCK-END */ 2137 &ANALYZE-RESUME 2138 2139 2140 /* ********************** Internal Procedures *********************** */ 2141 2142 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI sbbObject _DEFAULT-DISABLE 2143 PROCEDURE disable_UI : 2144 /*------------------------------------------------------------------------------ 2145 Purpose: DISABLE the User Interface 2146 Parameters: 2147 Notes: Here we clean-up the user-interface by deleting 2148 dynamic widgets we have created and/or hide 2149 frames. This procedure is usually called when 2150 we are ready to "clean-up" after running. 2151 ------------------------------------------------------------------------------*/ 2152 /* Hide all frames. */ 2153 IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. 2154 END PROCEDURE. 2155 2156 /* _UIB-CODE-BLOCK-END */ 2157 &ANALYZE-RESUME 2158