...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 1 {} Line Blk -- ---- --- 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 /*------------------------------------------------------------------ 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 -------------------------------------------------------------------- 18 ----*/ 19 /* This .W file was created with the Progress AppBuilder. 19 */ 20 /*------------------------------------------------------------------ 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 *********************** 30 *** */ 31 32 /* Parameters Definitions --- 32 */ 33 34 /* Local Variable Definitions --- 34 */ 35 36 /* _UIB-CODE-BLOCK-END */ 37 &ANALYZE-RESUME 38 39 40 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 41 42 /* ******************** Preprocessor Definitions ***************** 42 *** */ 43 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 2 {} Line Blk -- ---- --- 44 &Scoped-define PROCEDURE-TYPE SmartB2BObject 45 &Scoped-define DB-AWARE no 46 47 &Scoped-define ADM-SUPPORTED-LINKS InMessage-Target,OutMessage-Sourc 47 e 48 49 50 /* Custom List Definitions 50 */ 51 /* List-1,List-2,List-3,List-4,List-5,List-6 51 */ 52 53 /* _UIB-PREPROCESSOR-BLOCK-END */ 54 &ANALYZE-RESUME 55 56 57 58 /* *********************** Control Definitions ******************* 58 *** */ 59 60 61 /* ************************ Frame Definitions ******************** 61 *** */ 62 63 64 /* *********************** Procedure Settings ********************** 64 ** */ 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 75 , */ 76 /* then cleanup and return. 76 */ 77 1 IF NOT THIS-PROCEDURE:PERSISTENT THEN DO: 78 MESSAGE "{&FILE-NAME}C:\Program Files\Progress\src\adm2\dynb2b.w s 78 1 hould only be RUN PERSISTENT.":U 79 1 VIEW-AS ALERT-BOX ERROR BUTTONS OK. 80 1 RETURN. 81 END. 82 83 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 84 85 /* ************************* Create Window *********************** ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 3 {} Line Blk -- ---- --- 85 *** */ 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 93 */ 94 &ANALYZE-RESUME 95 96 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB sbbObject 97 /* ************************* Included-Libraries ******************** 97 *** */ 98 99 {src/adm2/b2b.i} 1 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 1 2 &ANALYZE-RESUME 1 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 1 3 1 4 /*------------------------------------------------------------------ 1 4 ------- 1 5 File : b2b.i 1 6 Purpose : Basic Method Library for the ADMClass b2b. 1 7 1 8 Syntax : {src/adm2/b2b.i} 1 9 1 10 Description : 1 11 1 12 Modified : 04/19/2000 1 13 -------------------------------------------------------------------- 1 13 -----*/ 1 14 /* This .W file was created with the Progress UIB. 1 14 */ 1 15 /*------------------------------------------------------------------ 1 15 ----*/ 1 16 1 17 /* *************************** Definitions *********************** 1 17 *** */ 1 18 1 19 &IF "{&ADMClass}":U = "":U &THEN 1 20 &GLOB ADMClass b2b 1 21 &ENDIF 1 22 1 23 &IF "{&ADMClass}b2b":U = "b2b":U &THEN 1 24 {src/adm2/b2bprop.i} 2 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 2 2 &ANALYZE-RESUME 2 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 2 4 /*------------------------------------------------------------------ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 4 {} Line Blk -- ---- --- 2 4 -------- 2 5 File : b2bprop.i 2 6 Purpose : Defines basic properties. 2 7 Syntax : {src/adm2/b2bprop.i} 2 8 2 9 Description : 2 10 2 11 Modified : 04/19/2000 2 12 ------------------------------------------------------------------ 2 12 ------*/ 2 13 /* This .W file was created with the Progress UIB. 2 13 */ 2 14 /*------------------------------------------------------------------ 2 14 ----*/ 2 15 2 16 /* *************************** Definitions *********************** 2 16 *** */ 2 17 2 18 /* Custom instance definition file */ 2 19 2 20 {src/adm2/custom/b2bdefscustom.i} 3 1 /*------------------------------------------------------------------ 3 1 -------- 3 2 File : b2bdefscustom.i 3 3 Purpose : Entry point to define: 3 4 New definitions 3 5 {&xcInstanceProperties} 3 6 {&ADM-PROPERTY-DLG} 3 7 Syntax : {src/adm2/custom/b2bdefscustom.i} 3 8 3 9 Modified : 04/19/2000 3 10 3 11 Notes : Referenced in {src/adm2/b2bprop.i} 3 12 ------------------------------------------------------------------ 3 12 ------*/ 3 13 2 20 2 21 2 22 &IF "{&xcInstanceProperties}":U NE "":U &THEN 2 23 &GLOB xcInstanceProperties {&xcInstanceProperties}, 2 24 &ENDIF 2 25 &GLOB xcInstanceProperties {&xcInstanceProperties}~ 2 26 DirectionList,NameList,SchemaList,DocTypeList,DestinationList,~ 2 27 ReplyReqList,ReplySelectorList,MapObjectProducer,MapNameProducer,Map 2 27 TypeProducer 2 28 2 29 /* This is the procedure to execute to set InstanceProperties at des 2 29 ign time. */ 2 30 &IF DEFINED (ADM-PROPERTY-DLG) = 0 &THEN 2 31 &SCOP ADM-PROPERTY-DLG adm2/support/b2bd.w 2 32 &ENDIF ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 5 {} Line Blk -- ---- --- 2 33 2 34 /* _UIB-CODE-BLOCK-END */ 2 35 &ANALYZE-RESUME 2 36 2 37 2 38 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 2 39 2 40 /* ******************** Preprocessor Definitions ***************** 2 40 *** */ 2 41 2 42 2 43 2 44 /* _UIB-PREPROCESSOR-BLOCK-END */ 2 45 &ANALYZE-RESUME 2 46 2 47 2 48 2 49 /* *********************** Procedure Settings ********************** 2 49 ** */ 2 50 2 51 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 2 52 /* Settings for THIS-PROCEDURE 2 53 Type: Include 2 54 Allow: 2 55 Frames: 0 2 56 Add Fields to: Neither 2 57 Other Settings: INCLUDE-ONLY 2 58 */ 2 59 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 2 60 2 61 /* ************************* Create Window *********************** 2 61 *** */ 2 62 2 63 &ANALYZE-SUSPEND _CREATE-WINDOW 2 64 /* DESIGN Window definition (used by the UIB) 2 65 CREATE WINDOW Include ASSIGN 2 66 HEIGHT = 8 2 67 WIDTH = 60. 2 68 /* END WINDOW DEFINITION */ 2 69 2 69 */ 2 70 &ANALYZE-RESUME 2 71 2 72 2 73 2 74 2 75 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 2 76 2 77 2 78 /* *************************** Main Block ************************ 2 78 *** */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 6 {} Line Blk -- ---- --- 2 79 2 80 /* Include the file which defines prototypes for all of the super 2 81 procedure's entry points. 2 82 And skip including the prototypes if we are *any* super procedu 2 82 re. */ 2 83 &IF "{&ADMSuper}":U EQ "":U &THEN 2 84 {src/adm2/b2bprto.i} 3 1 /* 3 2 * Prototype include file: src/adm2/b2bprto.i 3 3 * Created from procedure: src/adm2/b2b.p at 13:51:25 on 04/19/2000 3 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 3 5 */ 3 6 3 7 3 8 3 9 2 84 2 85 &ENDIF 2 86 2 87 /* These preprocessors tell at compile time which properties can 2 88 be retrieved directly from the temp-table */ 2 89 2 90 &GLOBAL-DEFINE xpDestinationList 2 91 &GLOBAL-DEFINE xpDirectionList 2 92 &GLOBAL-DEFINE xpDocTypeList 2 93 &GLOBAL-DEFINE xpNameList 2 94 &GLOBAL-DEFINE xpReplyReqList 2 95 &GLOBAL-DEFINE xpReplySelectorList 2 96 &GLOBAL-DEFINE xpSchemaHandle 2 97 &GLOBAL-DEFINE xpNameSpaceHandle 2 98 &GLOBAL-DEFINE xpSchemaName 2 99 &GLOBAL-DEFINE xpSchemaList 2 100 &GLOBAL-DEFINE xpLoadedByRouter 2 101 &GLOBAL-DEFINE xpMapObjectProducer 2 102 &GLOBAL-DEFINE xpMapTypeProducer 2 103 &GLOBAL-DEFINE xpMapNameProducer 2 104 &GLOBAL-DEFINE xpTypeName 2 105 2 106 {src/adm2/xmlprop.i} 3 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 3 2 &ANALYZE-RESUME 3 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 3 4 /*------------------------------------------------------------------ 3 4 -------- 3 5 File : xmlprop.i 3 6 Purpose : Defines basic properties. 3 7 Syntax : {src/adm2/xmlprop.i} 3 8 3 9 Description : 3 10 3 11 Modified : 04/19/2000 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 7 {} Line Blk -- ---- --- 3 12 ------------------------------------------------------------------ 3 12 ------*/ 3 13 /* This .W file was created with the Progress UIB. 3 13 */ 3 14 /*------------------------------------------------------------------ 3 14 ----*/ 3 15 3 16 /* *************************** Definitions *********************** 3 16 *** */ 3 17 3 18 /* Custom instance definition file */ 3 19 3 20 {src/adm2/custom/xmldefscustom.i} 4 1 /*------------------------------------------------------------------ 4 1 -------- 4 2 File : xmldefscustom.i 4 3 Purpose : Entry point to define: 4 4 New definitions 4 5 {&xcInstanceProperties} 4 6 {&ADM-PROPERTY-DLG} 4 7 Syntax : {src/adm2/custom/xmldefscustom.i} 4 8 4 9 Modified : 05/16/2000 4 10 4 11 Notes : Referenced in {src/adm2/xmlprop.i} 4 12 ------------------------------------------------------------------ 4 12 ------*/ 4 13 3 20 3 21 3 22 /* _UIB-CODE-BLOCK-END */ 3 23 &ANALYZE-RESUME 3 24 3 25 3 26 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 3 27 3 28 /* ******************** Preprocessor Definitions ***************** 3 28 *** */ 3 29 3 30 3 31 3 32 /* _UIB-PREPROCESSOR-BLOCK-END */ 3 33 &ANALYZE-RESUME 3 34 3 35 3 36 3 37 /* *********************** Procedure Settings ********************** 3 37 ** */ 3 38 3 39 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 3 40 /* Settings for THIS-PROCEDURE ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 8 {} Line Blk -- ---- --- 3 41 Type: Include 3 42 Allow: 3 43 Frames: 0 3 44 Add Fields to: Neither 3 45 Other Settings: INCLUDE-ONLY 3 46 */ 3 47 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 3 48 3 49 /* ************************* Create Window *********************** 3 49 *** */ 3 50 3 51 &ANALYZE-SUSPEND _CREATE-WINDOW 3 52 /* DESIGN Window definition (used by the UIB) 3 53 CREATE WINDOW Include ASSIGN 3 54 HEIGHT = 8 3 55 WIDTH = 60. 3 56 /* END WINDOW DEFINITION */ 3 57 3 57 */ 3 58 &ANALYZE-RESUME 3 59 3 60 3 61 3 62 3 63 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 3 64 3 65 3 66 /* *************************** Main Block ************************ 3 66 *** */ 3 67 3 68 /* Include the file which defines prototypes for all of the super 3 69 procedure's entry points. 3 70 And skip including the prototypes if we are *any* super procedu 3 70 re. */ 3 71 &IF "{&ADMSuper}":U EQ "":U &THEN 3 72 {src/adm2/xmlprto.i} 4 1 /* 4 2 * Prototype include file: src/adm2/xmlprto.i 4 3 * Created from procedure: src/adm2/xml.p at 08:51:49 on 05/16/2000 4 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 4 5 */ 4 6 4 7 4 8 4 9 3 72 3 73 &ENDIF 3 74 3 75 /* These preprocessors tell at compile time which properties can 3 76 be retrieved directly from the temp-table */ 3 77 &GLOBAL-DEFINE xpDocumentHandle ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 9 {} Line Blk -- ---- --- 3 78 &GLOBAL-DEFINE xpCurrentPath 3 79 3 80 {src/adm2/msghprop.i} 4 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 4 2 &ANALYZE-RESUME 4 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 4 4 /*------------------------------------------------------------------ 4 4 -------- 4 5 File : msghprop.i 4 6 Purpose : Defines basic properties. 4 7 Syntax : {src/adm2/msghprop.i} 4 8 4 9 Description : 4 10 4 11 Modified : 05/11/2000 4 12 ------------------------------------------------------------------ 4 12 ------*/ 4 13 /* This .W file was created with the Progress UIB. 4 13 */ 4 14 /*------------------------------------------------------------------ 4 14 ----*/ 4 15 4 16 /* *************************** Definitions *********************** 4 16 *** */ 4 17 4 18 /* Custom instance definition file */ 4 19 4 20 {src/adm2/custom/msghandlerdefscustom.i} 5 1 /*------------------------------------------------------------------ 5 1 -------- 5 2 File : msghandlerdefscustom.i 5 3 Purpose : Entry point to define: 5 4 New definitions 5 5 {&xcInstanceProperties} 5 6 {&ADM-PROPERTY-DLG} 5 7 Syntax : {src/adm2/custom/msghandlerdefscustom.i} 5 8 5 9 Modified : 05/11/2000 5 10 5 11 Notes : Referenced in {src/adm2/msghprop.i} 5 12 ------------------------------------------------------------------ 5 12 ------*/ 5 13 4 20 4 21 4 22 /* _UIB-CODE-BLOCK-END */ 4 23 &ANALYZE-RESUME 4 24 4 25 4 26 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 4 27 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 10 {} Line Blk -- ---- --- 4 28 /* ******************** Preprocessor Definitions ***************** 4 28 *** */ 4 29 4 30 4 31 4 32 /* _UIB-PREPROCESSOR-BLOCK-END */ 4 33 &ANALYZE-RESUME 4 34 4 35 4 36 4 37 /* *********************** Procedure Settings ********************** 4 37 ** */ 4 38 4 39 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 4 40 /* Settings for THIS-PROCEDURE 4 41 Type: Include 4 42 Allow: 4 43 Frames: 0 4 44 Add Fields to: Neither 4 45 Other Settings: INCLUDE-ONLY 4 46 */ 4 47 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 4 48 4 49 /* ************************* Create Window *********************** 4 49 *** */ 4 50 4 51 &ANALYZE-SUSPEND _CREATE-WINDOW 4 52 /* DESIGN Window definition (used by the UIB) 4 53 CREATE WINDOW Include ASSIGN 4 54 HEIGHT = 8 4 55 WIDTH = 60. 4 56 /* END WINDOW DEFINITION */ 4 57 4 57 */ 4 58 &ANALYZE-RESUME 4 59 4 60 4 61 4 62 4 63 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 4 64 4 65 4 66 /* *************************** Main Block ************************ 4 66 *** */ 4 67 4 68 /* Include the file which defines prototypes for all of the super 4 69 procedure's entry points. 4 70 And skip including the prototypes if we are *any* super procedu 4 70 re. */ 4 71 &IF "{&ADMSuper}":U EQ "":U &THEN 4 72 {src/adm2/msghprto.i} ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 11 {} Line Blk -- ---- --- 5 1 /* 5 2 * Prototype include file: src/adm2/msghprto.i 5 3 * Created from procedure: src/adm2/msghandler.p at 12:44:20 on 05/1 5 3 1/2000 5 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 5 5 */ 5 6 5 7 5 8 5 9 4 72 4 73 &ENDIF 4 74 4 75 /* Put your xp{&Property} preprocessor definitions here. 4 76 Use the following format, e.g., 4 77 &GLOBAL-DEFINE xpMyProperty 4 78 These preprocessors tell at compile time which properties can 4 79 be retrieved directly from the temp-table */ 4 80 4 81 &GLOBAL-DEFINE xpDestination 4 82 &GLOBAL-DEFINE xpInMessageSource 4 83 &GLOBAL-DEFINE xpOutMessageTarget 4 84 &GLOBAL-DEFINE xpReplyRequired 4 85 &GLOBAL-DEFINE xpReplySelector 4 86 &GLOBAL-DEFINE xpCurrentMessageId 4 87 {src/adm2/smrtprop.i} 5 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 5 2 &ANALYZE-RESUME 5 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 5 4 /*------------------------------------------------------------------ 5 4 -------- 5 5 File : smrtprop.i 5 6 Purpose : Starts smart.p super procedure and defines general 5 7 SmartObject properties and other values. 5 8 Syntax : {src/adm2/smrtprop.i} 5 9 5 10 Description : 5 11 5 12 Modified : February 4, 2000 - Version 9.1B 5 13 ------------------------------------------------------------------ 5 13 ------*/ 5 14 /* This .W file was created with the Progress UIB. 5 14 */ 5 15 /*------------------------------------------------------------------ 5 15 ----*/ 5 16 5 17 /* *************************** Definitions *********************** 5 17 *** */ 5 18 5 19 {src/adm2/custom/smartdefscustom.i} 6 1 /*------------------------------------------------------------------ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 12 {} Line Blk -- ---- --- 6 1 -------- 6 2 File : smartdefscustom.i 6 3 Purpose : Entry point to define: 6 4 New definitions 6 5 {&xcInstanceProperties} 6 6 {&ADM-PROPERTY-DLG} 6 7 Syntax : {src/adm2/custom/smartdefscustom.i} 6 8 6 9 Modified : 06/03/1999 6 10 6 11 Notes : Referenced in {src/adm2/smrtprop.i} 6 12 ------------------------------------------------------------------ 6 12 ------*/ 6 13 5 19 5 20 5 21 /* define the ADM Version and broker handle for all SmartObjects */ 5 22 &GLOB ADM-VERSION ADM2.2 5 23 5 24 DEFINE VARIABLE ghProp AS HANDLE NO-UNDO. /* For {get/set} 5 24 */ 5 25 DEFINE VARIABLE ghADMProps AS HANDLE NO-UNDO. /* Handle of pro 5 25 p t-t */ 5 26 DEFINE VARIABLE ghADMPropsBuf AS HANDLE NO-UNDO. /* and its buff 5 26 er */ 5 27 5 28 /* _UIB-CODE-BLOCK-END */ 5 29 &ANALYZE-RESUME 5 30 5 31 5 32 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 5 33 5 34 /* ******************** Preprocessor Definitions ***************** 5 34 *** */ 5 35 5 36 5 37 5 38 /* _UIB-PREPROCESSOR-BLOCK-END */ 5 39 &ANALYZE-RESUME 5 40 5 41 5 42 /* ************************ Function Prototypes ******************* 5 42 *** */ 5 43 5 44 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getObjectType Inc 5 44 lude 5 45 FUNCTION getObjectType RETURNS CHARACTER 5 46 ( ) FORWARD. 5 47 5 48 /* _UIB-CODE-BLOCK-END */ 5 49 &ANALYZE-RESUME ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 13 {} Line Blk -- ---- --- 5 50 5 51 5 52 /* *********************** Procedure Settings ********************** 5 52 ** */ 5 53 5 54 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 5 55 /* Settings for THIS-PROCEDURE 5 56 Type: Include 5 57 Allow: 5 58 Frames: 0 5 59 Add Fields to: Neither 5 60 Other Settings: INCLUDE-ONLY 5 61 */ 5 62 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 5 63 5 64 /* ************************* Create Window *********************** 5 64 *** */ 5 65 5 66 &ANALYZE-SUSPEND _CREATE-WINDOW 5 67 /* DESIGN Window definition (used by the UIB) 5 68 CREATE WINDOW Include ASSIGN 5 69 HEIGHT = 8 5 70 WIDTH = 60. 5 71 /* END WINDOW DEFINITION */ 5 72 5 72 */ 5 73 &ANALYZE-RESUME 5 74 5 75 5 76 5 77 5 78 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 5 79 5 80 5 81 /* *************************** Main Block ************************ 5 81 *** */ 5 82 5 83 /* Include the file which defines prototypes for all of the super 5 84 procedure's entry points. Also, start or attach to the super pr 5 84 ocedure. 5 85 Skip start-super-proc if we *are* the super procedure. 5 86 And skip including the prototypes if we are *any* super procedu 5 86 re. */ 5 87 &IF "{&ADMSuper}":U EQ "":U &THEN 5 88 {src/adm2/smrtprto.i} 6 1 /* 6 2 * Prototype include file: C:\adm90\src\adm2\smrtprto.i 6 3 * Created from procedure: C:\adm90\src\adm2\smart.p at 11:01 on 03/ 6 3 03/99 6 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 6 5 */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 14 {} Line Blk -- ---- --- 6 6 6 7 /**** Start of excluded prototypes 6 8 6 9 PROCEDURE viewObject IN SUPER: 6 10 END PROCEDURE. 6 11 6 12 PROCEDURE removeLink IN SUPER: 6 13 DEFINE INPUT PARAMETER phSource AS HANDLE. 6 14 DEFINE INPUT PARAMETER pcLink AS CHARACTER. 6 15 DEFINE INPUT PARAMETER phTarget AS HANDLE. 6 16 END PROCEDURE. 6 17 6 18 PROCEDURE removeAllLinks IN SUPER: 6 19 END PROCEDURE. 6 20 6 21 PROCEDURE modifyUserLinks IN SUPER: 6 22 DEFINE INPUT PARAMETER pcMod AS CHARACTER. 6 23 DEFINE INPUT PARAMETER pcLinkName AS CHARACTER. 6 24 DEFINE INPUT PARAMETER phObject AS HANDLE. 6 25 END PROCEDURE. 6 26 6 27 PROCEDURE modifyListProperty IN SUPER: 6 28 DEFINE INPUT PARAMETER phCaller AS HANDLE. 6 29 DEFINE INPUT PARAMETER pcMode AS CHARACTER. 6 30 DEFINE INPUT PARAMETER pcListName AS CHARACTER. 6 31 DEFINE INPUT PARAMETER pcListValue AS CHARACTER. 6 32 END PROCEDURE. 6 33 6 34 PROCEDURE hideObject IN SUPER: 6 35 END PROCEDURE. 6 36 6 37 PROCEDURE exitObject IN SUPER: 6 38 END PROCEDURE. 6 39 6 40 PROCEDURE editInstanceProperties IN SUPER: 6 41 END PROCEDURE. 6 42 6 43 PROCEDURE createControls IN SUPER: 6 44 END PROCEDURE. 6 45 6 46 PROCEDURE changeCursor IN SUPER: 6 47 DEFINE INPUT PARAMETER pcCursor AS CHARACTER. 6 48 END PROCEDURE. 6 49 6 50 PROCEDURE applyEntry IN SUPER: 6 51 DEFINE INPUT PARAMETER pcField AS CHARACTER. 6 52 END PROCEDURE. 6 53 6 54 PROCEDURE adjustTabOrder IN SUPER: 6 55 DEFINE INPUT PARAMETER phObject AS HANDLE. 6 56 DEFINE INPUT PARAMETER phAnchor AS HANDLE. ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 15 {} Line Blk -- ---- --- 6 57 DEFINE INPUT PARAMETER pcPosition AS CHARACTER. 6 58 END PROCEDURE. 6 59 6 60 PROCEDURE addMessage IN SUPER: 6 61 DEFINE INPUT PARAMETER pcText AS CHARACTER. 6 62 DEFINE INPUT PARAMETER pcField AS CHARACTER. 6 63 DEFINE INPUT PARAMETER pcTable AS CHARACTER. 6 64 END PROCEDURE. 6 65 6 66 PROCEDURE addLink IN SUPER: 6 67 DEFINE INPUT PARAMETER phSource AS HANDLE. 6 68 DEFINE INPUT PARAMETER pcLink AS CHARACTER. 6 69 DEFINE INPUT PARAMETER phTarget AS HANDLE. 6 70 END PROCEDURE. 6 71 6 72 PROCEDURE start-super-proc IN SUPER: 6 73 DEFINE INPUT PARAMETER pcProcName AS CHARACTER. 6 74 END PROCEDURE. 6 75 6 76 FUNCTION assignLinkProperty RETURNS LOGICAL 6 77 (INPUT pcLink AS CHARACTER, 6 78 INPUT pcPropName AS CHARACTER, 6 79 INPUT pcPropValue AS CHARACTER) IN SUPER. 6 80 6 81 FUNCTION getContainerHandle RETURNS HANDLE IN SUPER. 6 82 6 83 FUNCTION getContainerHidden RETURNS LOGICAL IN SUPER. 6 84 6 85 FUNCTION getContainerSource RETURNS HANDLE IN SUPER. 6 86 6 87 FUNCTION getContainerSourceEvents RETURNS CHARACTER IN SUPER. 6 88 6 89 FUNCTION getContainerType RETURNS CHARACTER IN SUPER. 6 90 6 91 FUNCTION getDataSource RETURNS HANDLE IN SUPER. 6 92 6 93 FUNCTION getDataSourceEvents RETURNS CHARACTER IN SUPER. 6 94 6 95 FUNCTION getDBAware RETURNS LOGICAL IN SUPER. 6 96 6 97 FUNCTION getInstanceProperties RETURNS CHARACTER IN SUPER. 6 98 6 99 FUNCTION getObjectHidden RETURNS LOGICAL IN SUPER. 6 100 6 101 FUNCTION getObjectInitialized RETURNS LOGICAL IN SUPER. 6 102 6 103 FUNCTION getObjectPage RETURNS INTEGER IN SUPER. 6 104 6 105 FUNCTION getObjectParent RETURNS HANDLE IN SUPER. 6 106 6 107 FUNCTION getPassThroughLinks RETURNS CHARACTER IN SUPER. ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 16 {} Line Blk -- ---- --- 6 108 6 109 FUNCTION getPropertyDialog RETURNS CHARACTER IN SUPER. 6 110 6 111 FUNCTION getQueryObject RETURNS LOGICAL IN SUPER. 6 112 6 113 FUNCTION getSupportedLinks RETURNS CHARACTER IN SUPER. 6 114 6 115 FUNCTION getTranslatableProperties RETURNS CHARACTER IN SUPER. 6 116 6 117 FUNCTION instancePropertyList RETURNS CHARACTER 6 118 (INPUT pcPropList AS CHARACTER) IN SUPER. 6 119 6 120 FUNCTION linkProperty RETURNS CHARACTER 6 121 (INPUT pcLink AS CHARACTER, 6 122 INPUT pcPropName AS CHARACTER) IN SUPER. 6 123 6 124 FUNCTION propertyType RETURNS CHARACTER 6 125 (INPUT pcPropName AS CHARACTER) IN SUPER. 6 126 6 127 FUNCTION reviewMessages RETURNS CHARACTER IN SUPER. 6 128 6 129 FUNCTION setContainerSource RETURNS LOGICAL 6 130 (INPUT phObject AS HANDLE) IN SUPER. 6 131 6 132 FUNCTION setDataSource RETURNS LOGICAL 6 133 (INPUT phObject AS HANDLE) IN SUPER. 6 134 6 135 FUNCTION setDataSourceEvents RETURNS LOGICAL 6 136 (INPUT pcEventsList AS CHARACTER) IN SUPER. 6 137 6 138 FUNCTION setDBAware RETURNS LOGICAL 6 139 (INPUT lAware AS LOGICAL) IN SUPER. 6 140 6 141 FUNCTION setInstanceProperties RETURNS LOGICAL 6 142 (INPUT pcPropList AS CHARACTER) IN SUPER. 6 143 6 144 FUNCTION setObjectParent RETURNS LOGICAL 6 145 (INPUT phParent AS HANDLE) IN SUPER. 6 146 6 147 FUNCTION setPassThroughLinks RETURNS LOGICAL 6 148 (INPUT pcLinks AS CHARACTER) IN SUPER. 6 149 6 150 FUNCTION setSupportedLinks RETURNS LOGICAL 6 151 (INPUT pcLinkList AS CHARACTER) IN SUPER. 6 152 6 153 FUNCTION setTranslatableProperties RETURNS LOGICAL 6 154 (INPUT pcPropList AS CHARACTER) IN SUPER. 6 155 6 156 FUNCTION setUIBMode RETURNS LOGICAL 6 157 (INPUT pcMode AS CHARACTER) IN SUPER. 6 158 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 17 {} Line Blk -- ---- --- 6 159 FUNCTION showMessage RETURNS LOGICAL 6 160 (INPUT pcMessage AS CHARACTER) IN SUPER. 6 161 6 162 FUNCTION Signature RETURNS CHARACTER 6 163 (INPUT pcName AS CHARACTER) IN SUPER. 6 164 6 165 END of excluded prototypes **********/ 6 166 6 167 PROCEDURE initializeObject IN SUPER: 6 168 END PROCEDURE. 6 169 6 170 PROCEDURE destroyObject IN SUPER: 6 171 END PROCEDURE. 6 172 6 173 PROCEDURE displayLinks IN SUPER: 6 174 END PROCEDURE. 6 175 6 176 /* Don't even think about removing this. It's required for the AB */ 6 177 PROCEDURE repositionObject IN SUPER: 6 178 DEFINE INPUT PARAMETER pdRow AS DECIMAL. 6 179 DEFINE INPUT PARAMETER pdCol AS DECIMAL. 6 180 END PROCEDURE. 6 181 6 182 FUNCTION anyMessage RETURNS LOGICAL IN SUPER. 6 183 6 184 FUNCTION fetchMessages RETURNS CHARACTER IN SUPER. 6 185 6 186 FUNCTION getObjectType RETURNS CHARACTER IN SUPER. 6 187 6 188 FUNCTION getObjectVersion RETURNS CHARACTER IN SUPER. 6 189 6 190 FUNCTION getUIBMode RETURNS CHARACTER IN SUPER. 6 191 6 192 FUNCTION linkHandles RETURNS CHARACTER 6 193 (INPUT pcLink AS CHARACTER) IN SUPER. 6 194 6 195 FUNCTION messageNumber RETURNS CHARACTER 6 196 (INPUT piMessage AS INTEGER) IN SUPER. 6 197 6 198 FUNCTION getUserProperty RETURNS CHARACTER 6 199 (INPUT pcPropName AS CHARACTER) IN SUPER. 6 200 6 201 FUNCTION setUserProperty RETURNS LOGICAL 6 202 (INPUT pcPropName AS CHARACTER, 6 203 INPUT pcPropValue AS CHARACTER) IN SUPER. 6 204 5 88 5 89 &ENDIF 5 90 5 91 /* These preprocessors let the get and set methods know at compile 5 91 time ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 18 {} Line Blk -- ---- --- 5 92 which property values are located in the temp-table and which mu 5 92 st 5 93 be accessed through the property functions. 5 94 */ 5 95 5 96 &GLOB xpObjectName 5 97 &GLOB xpObjectVersion 5 98 &GLOB xpObjectType 5 99 &GLOB xpContainerType 5 100 &GLOB xpPropertyDialog 5 101 &GLOB xpQueryObject 5 102 &GLOB xpContainerHandle 5 103 &GLOB xpInstanceProperties 5 104 &GLOB xpSupportedLinks 5 105 &GLOB xpContainerHidden 5 106 &GLOB xpObjectInitialized 5 107 &GLOB xpObjectHidden 5 108 &GLOB xpContainerSource 5 109 &GLOB xpContainerSourceEvents 5 110 &GLOB xpDataSourceEvents 5 111 &GLOB xpTranslatableProperties 5 112 &GLOB xpObjectPage 5 113 &GLOB xpDBAware 5 114 &GLOB xpDesignDataObject 5 115 /* This temp-table defines all the propertt fields for an object. 5 116 This include file contributes the DEFINE statement header and 5 117 all basic smart object properties. Each other property class inc 5 117 lude file 5 118 adds its own fields and then the parent object ends the statemen 5 118 t. 5 119 Define the fields for smart objects only, not for their super pr 5 119 ocedures. 5 120 */ 5 121 5 122 /* Note that ObjectHidden is here because "hidden" is a logical con 5 122 cept. */ 5 123 5 124 &IF "{&ADMSuper}":U = "":U &THEN 5 125 CREATE TEMP-TABLE ghADMProps. 5 126 ghADMProps:UNDO = FALSE. 5 127 ghADMProps:ADD-NEW-FIELD('ObjectName':U, 'CHAR':U, 0, ?, '':U). 5 128 ghADMProps:ADD-NEW-FIELD('ObjectVersion':U, 'CHAR':U, 0, ?, 5 129 '{&ADM-VERSION}ADM2.2':U). 5 130 ghADMProps:ADD-NEW-FIELD('ObjectType':U, 'CHAR':U, 0, ?, 5 131 '{&PROCEDURE-TYPE}SmartB2BObject':U). 5 132 ghADMProps:ADD-NEW-FIELD('ContainerType':U, 'CHAR':U, 0, ?, 5 133 '{&ADM-CONTAINER}':U). 5 134 ghADMProps:ADD-NEW-FIELD('PropertyDialog':U, 'CHAR':U, 0, ?, 5 135 '{&ADM-PROPERTY-DLG}adm2/support/b2bd.w':U). 5 136 ghADMProps:ADD-NEW-FIELD('QueryObject':U, 'LOGICAL':U, 0, ?, no). 5 137 ghADMProps:ADD-NEW-FIELD('ContainerHandle':U, 'HANDLE':U). ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 19 {} Line Blk -- ---- --- 5 138 ghADMProps:ADD-NEW-FIELD('InstanceProperties':U, 'CHAR':U, 0, ?, 5 1 '{&xcInstanceProperties}DirectionList,NameList,SchemaList,DocTyp 5 1 eList,DestinationList,ReplyReqList,ReplySelectorList,MapObjectProduc 5 139 er,MapNameProducer,MapTypeProducer':U ). 5 140 /* NOTE: Any need to support &User-Supported-Links?? */ 5 141 ghADMProps:ADD-NEW-FIELD('SupportedLinks':U, 'CHAR':U, 0, ?, 5 142 '{&ADM-SUPPORTED-LINKS}InMessage-Target,OutMessage-Source':U). 5 143 ghADMProps:ADD-NEW-FIELD('ContainerHidden':U, 'LOGICAL':U, 0, ?, y 5 143 es). 5 144 ghADMProps:ADD-NEW-FIELD('ObjectInitialized':U, 'LOGICAL':U, 0, ?, 5 144 no). 5 145 ghADMProps:ADD-NEW-FIELD('ObjectHidden':U, 'LOGICAL':U, 0, ?, yes) 5 145 . 5 146 ghADMProps:ADD-NEW-FIELD('UIBMode':U, 'CHAR':U, 0, ?, '':U). 5 147 ghADMProps:ADD-NEW-FIELD('ContainerSource':U, 'HANDLE':U). 5 148 ghADMProps:ADD-NEW-FIELD('ContainerSourceEvents':U, 'CHAR':U, 0, ? 5 148 , 5 149 'initializeObject,hideObject,viewObject,destroyObject,enableObje 5 149 ct,confirmExit':U). 5 150 ghADMProps:ADD-NEW-FIELD('DataSource':U, 'HANDLE':U). 5 151 ghADMProps:ADD-NEW-FIELD('DataSourceEvents':U, 'CHAR':U, 0, ?, 5 152 'dataAvailable,queryPosition,deleteComplete,fetchDataSet,confirm 5 152 Continue,assignMaxGuess':U). 5 153 ghADMProps:ADD-NEW-FIELD('TranslatableProperties':U, 'CHAR':U, 0, 5 153 ?, 5 154 '{&xcTranslatableProperties}':U). 5 155 ghADMProps:ADD-NEW-FIELD('ObjectPage':U, 'INT':U, 0, ?, 0). 5 156 ghADMProps:ADD-NEW-FIELD('DBAware':U, 'LOGICAL':U, 0, ?, 5 157 &IF DEFINED (DB-AWARE) NE 0 &THEN 5 158 {&DB-AWARE}no). 5 159 &ELSE 5 160 no). 5 161 &ENDIF 5 162 ghADMProps:ADD-NEW-FIELD('DesignDataObject':U, 'CHAR':U, 0, ?,'':U 5 162 ). 5 163 5 164 &ENDIF 5 165 5 166 {src/adm2/custom/smrtpropcustom.i} 6 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 6 2 &ANALYZE-RESUME 6 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 6 4 /*------------------------------------------------------------------ 6 4 -------- 6 5 File : smrtpropcustom.i 6 6 Purpose : Defines basic properties. 6 7 Syntax : {src/adm2/custom/smrtpropcustom.i} 6 8 6 9 Description : 6 10 6 11 Modified : 06/03/1999 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 20 {} Line Blk -- ---- --- 6 12 Notes : Referenced in {src/adm2/smrtprop.i} 6 13 ------------------------------------------------------------------ 6 13 ------*/ 6 14 /* This .W file was created with the Progress UIB. 6 14 */ 6 15 /*------------------------------------------------------------------ 6 15 ----*/ 6 16 6 17 /* *************************** Definitions *********************** 6 17 *** */ 6 18 6 19 6 20 6 21 /* _UIB-CODE-BLOCK-END */ 6 22 &ANALYZE-RESUME 6 23 6 24 6 25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 6 26 6 27 /* ******************** Preprocessor Definitions ***************** 6 27 *** */ 6 28 6 29 6 30 6 31 /* _UIB-PREPROCESSOR-BLOCK-END */ 6 32 &ANALYZE-RESUME 6 33 6 34 6 35 6 36 /* *********************** Procedure Settings ********************** 6 36 ** */ 6 37 6 38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 6 39 /* Settings for THIS-PROCEDURE 6 40 Type: Include 6 41 Allow: 6 42 Frames: 0 6 43 Add Fields to: Neither 6 44 Other Settings: INCLUDE-ONLY 6 45 */ 6 46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 6 47 6 48 /* ************************* Create Window *********************** 6 48 *** */ 6 49 6 50 &ANALYZE-SUSPEND _CREATE-WINDOW 6 51 /* DESIGN Window definition (used by the UIB) 6 52 CREATE WINDOW Include ASSIGN 6 53 HEIGHT = 8 6 54 WIDTH = 60. 6 55 /* END WINDOW DEFINITION */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 21 {} Line Blk -- ---- --- 6 56 6 56 */ 6 57 &ANALYZE-RESUME 6 58 6 59 6 60 6 61 6 62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 6 63 6 64 6 65 /* *************************** Main Block ************************ 6 65 *** */ 6 66 6 67 /* Include the file which defines prototypes for all of the super 6 68 procedure's entry points. 6 69 And skip including the prototypes if we are *any* super procedu 6 69 re. */ 6 70 6 71 &IF "{&ADMSuper}":U EQ "":U &THEN 6 72 {src/adm2/custom/smrtprtocustom.i} 7 1 /* 7 2 * Prototype include file: src/adm2/custom/smrtprtocustom.i 7 3 * Created from procedure: src/adm2/custom/smartcustom.p at 20:09:52 7 3 on 06/03/1999 7 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 7 5 */ 7 6 7 7 7 8 7 9 7 10 6 72 6 73 &ENDIF 6 74 6 75 6 76 6 77 &IF "{&ADMSuper}":U = "":U &THEN 6 78 6 79 &ENDIF 6 80 6 81 /* _UIB-CODE-BLOCK-END */ 6 82 &ANALYZE-RESUME 6 83 6 84 6 85 5 166 5 167 5 168 /* _UIB-CODE-BLOCK-END */ 5 169 &ANALYZE-RESUME 5 170 5 171 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 22 {} Line Blk -- ---- --- 5 172 /* ************************ Function Implementations ************** 5 172 *** */ 5 173 5 174 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getObjectType Include 5 175 FUNCTION getObjectType RETURNS CHARACTER 5 176 ( ) : 5 177 /*------------------------------------------------------------------ 5 177 ------------ 5 178 Purpose: Returns the Type of the SmartObject, such as "SmartDataO 5 178 bject", etc. 5 179 For an ADM Super procedure, this function returns "SUPER 5 179 ". 5 180 Params: 5 181 -------------------------------------------------------------------- 5 181 ----------*/ 5 182 5 183 DEFINE VARIABLE cType AS CHARACTER NO-UNDO. 5 184 &IF "{&ADMSuper}":U NE "":U &THEN 5 185 cType = "SUPER":U. 5 186 &ELSE 5 187 {get ObjectType cType} 6 1 /* {get Prop var [handle]} */ &IF "{3}":U = "":U &THEN &IF DEFINED(x 6 1 p{1}ObjectType) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, TA 6 1 RGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('{1}O 6 1 bjectType':U) {2}cType = ghProp:BUFFER-VALUE &ELSE {2}cType = dynami 6 1 c-function("get{1}ObjectType":U IN TARGET-PROCEDURE) &ENDIF &ELSE &I 6 1 F DEFINED(xp{1}ObjectType) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE( 6 1 ENTRY(1, {3}:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('{1}Obj 6 1 ectType':U) {2}cType = ghProp:BUFFER-VALUE &ELSE 6 2 {2}cType = dynamic-function("get{1}ObjectType":U IN {3}) &ENDIF &EN 6 2 DIF 5 187 NO-ERROR. 5 188 &ENDIF 5 189 RETURN cType. 5 190 5 191 END FUNCTION. 5 192 5 193 /* _UIB-CODE-BLOCK-END */ 5 194 &ANALYZE-RESUME 5 195 4 87 4 88 4 89 4 90 &IF "{&ADMSuper}":U = "":U &THEN 4 91 /* Put your property field definitions here. 4 92 Use the following syntax, e.g., 4 93 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 4 93 'Hi':U). */ 4 94 4 95 ghADMProps:ADD-NEW-FIELD('Destination':U, 'CHARACTER':U, 0, ?, '': 4 95 U). ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 23 {} Line Blk -- ---- --- 4 96 ghADMProps:ADD-NEW-FIELD('InMessageSource':U, 'HANDLE':U). 4 97 ghADMProps:ADD-NEW-FIELD('OutMessageTarget':U, 'HANDLE':U). 4 98 ghADMProps:ADD-NEW-FIELD('ReplyRequired':U, 'LOGICAL':U, 0, ?, NO) 4 98 . 4 99 ghADMProps:ADD-NEW-FIELD('ReplySelector':U, 'CHARACTER':U, 0, ?, ' 4 99 ':U). 4 100 ghADMProps:ADD-NEW-FIELD('CurrentMessageId':U, 'CHARACTER':U, 0, ? 4 100 , ?). 4 101 &ENDIF 4 102 4 103 {src/adm2/custom/msghpropcustom.i} 5 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 5 2 &ANALYZE-RESUME 5 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 5 4 /*------------------------------------------------------------------ 5 4 -------- 5 5 File : msghpropcustom.i 5 6 Purpose : Defines basic properties. 5 7 Syntax : {src/adm2/custom/msghpropcustom.i} 5 8 5 9 Description : 5 10 5 11 Modified : 05/11/2000 5 12 Notes : Referenced in {src/adm2/msghprop.i} 5 13 ------------------------------------------------------------------ 5 13 ------*/ 5 14 /* This .W file was created with the Progress UIB. 5 14 */ 5 15 /*------------------------------------------------------------------ 5 15 ----*/ 5 16 5 17 /* *************************** Definitions *********************** 5 17 *** */ 5 18 5 19 /* _UIB-CODE-BLOCK-END */ 5 20 &ANALYZE-RESUME 5 21 5 22 5 23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 5 24 5 25 /* ******************** Preprocessor Definitions ***************** 5 25 *** */ 5 26 5 27 5 28 5 29 /* _UIB-PREPROCESSOR-BLOCK-END */ 5 30 &ANALYZE-RESUME 5 31 5 32 5 33 5 34 /* *********************** Procedure Settings ********************** ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 24 {} Line Blk -- ---- --- 5 34 ** */ 5 35 5 36 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 5 37 /* Settings for THIS-PROCEDURE 5 38 Type: Include 5 39 Allow: 5 40 Frames: 0 5 41 Add Fields to: Neither 5 42 Other Settings: INCLUDE-ONLY 5 43 */ 5 44 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 5 45 5 46 /* ************************* Create Window *********************** 5 46 *** */ 5 47 5 48 &ANALYZE-SUSPEND _CREATE-WINDOW 5 49 /* DESIGN Window definition (used by the UIB) 5 50 CREATE WINDOW Include ASSIGN 5 51 HEIGHT = 8 5 52 WIDTH = 60. 5 53 /* END WINDOW DEFINITION */ 5 54 5 54 */ 5 55 &ANALYZE-RESUME 5 56 5 57 5 58 5 59 5 60 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 5 61 5 62 5 63 /* *************************** Main Block ************************ 5 63 *** */ 5 64 5 65 /* Include the file which defines prototypes for all of the super 5 66 procedure's entry points. 5 67 And skip including the prototypes if we are *any* super procedu 5 67 re. */ 5 68 5 69 &IF "{&ADMSuper}":U EQ "":U &THEN 5 70 {src/adm2/custom/msghprtocustom.i} 6 1 /* 6 2 * Prototype include file: src/adm2/custom/msghprtocustom.i 6 3 * Created from procedure: src/adm2/custom/msghandlercustom.p at 12: 6 3 44:25 on 05/11/2000 6 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 6 5 */ 6 6 6 7 6 8 6 9 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 25 {} Line Blk -- ---- --- 6 10 5 70 5 71 &ENDIF 5 72 5 73 /* Put your xp{&Property} preprocessor definitions here. 5 74 Use the following format, e.g., 5 75 &GLOBAL-DEFINE xpMyProperty 5 76 These preprocessors tell at compile time which properties can 5 77 be retrieved directly from the temp-table */ 5 78 5 79 5 80 &IF "{&ADMSuper}":U = "":U &THEN 5 81 /* Put your property field definitions here. 5 82 Use the following syntax, e.g., 5 83 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 5 83 'Hi':U). */ 5 84 5 85 &ENDIF 5 86 5 87 /* _UIB-CODE-BLOCK-END */ 5 88 &ANALYZE-RESUME 5 89 5 90 4 103 4 104 4 105 /* _UIB-CODE-BLOCK-END */ 4 106 &ANALYZE-RESUME 4 107 4 108 3 80 3 81 3 82 &IF "{&ADMSuper}":U = "":U &THEN 3 83 ghADMProps:ADD-NEW-FIELD('DocumentHandle':U, 'HANDLE':U, 0). 3 84 ghADMProps:ADD-NEW-FIELD('CurrentPath':U, 'HANDLE':U, 0). 3 85 &ENDIF 3 86 3 87 {src/adm2/custom/xmlpropcustom.i} 4 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 4 2 &ANALYZE-RESUME 4 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 4 4 /*------------------------------------------------------------------ 4 4 -------- 4 5 File : xmlpropcustom.i 4 6 Purpose : Defines basic properties. 4 7 Syntax : {src/adm2/custom/xmlpropcustom.i} 4 8 4 9 Description : 4 10 4 11 Modified : 05/16/2000 4 12 Notes : Referenced in {src/adm2/xmlprop.i} 4 13 ------------------------------------------------------------------ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 26 {} Line Blk -- ---- --- 4 13 ------*/ 4 14 /* This .W file was created with the Progress UIB. 4 14 */ 4 15 /*------------------------------------------------------------------ 4 15 ----*/ 4 16 4 17 /* *************************** Definitions *********************** 4 17 *** */ 4 18 4 19 /* _UIB-CODE-BLOCK-END */ 4 20 &ANALYZE-RESUME 4 21 4 22 4 23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 4 24 4 25 /* ******************** Preprocessor Definitions ***************** 4 25 *** */ 4 26 4 27 4 28 4 29 /* _UIB-PREPROCESSOR-BLOCK-END */ 4 30 &ANALYZE-RESUME 4 31 4 32 4 33 4 34 /* *********************** Procedure Settings ********************** 4 34 ** */ 4 35 4 36 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 4 37 /* Settings for THIS-PROCEDURE 4 38 Type: Include 4 39 Allow: 4 40 Frames: 0 4 41 Add Fields to: Neither 4 42 Other Settings: INCLUDE-ONLY 4 43 */ 4 44 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 4 45 4 46 /* ************************* Create Window *********************** 4 46 *** */ 4 47 4 48 &ANALYZE-SUSPEND _CREATE-WINDOW 4 49 /* DESIGN Window definition (used by the UIB) 4 50 CREATE WINDOW Include ASSIGN 4 51 HEIGHT = 8 4 52 WIDTH = 60. 4 53 /* END WINDOW DEFINITION */ 4 54 4 54 */ 4 55 &ANALYZE-RESUME 4 56 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 27 {} Line Blk -- ---- --- 4 57 4 58 4 59 4 60 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 4 61 4 62 4 63 /* *************************** Main Block ************************ 4 63 *** */ 4 64 4 65 /* Include the file which defines prototypes for all of the super 4 66 procedure's entry points. 4 67 And skip including the prototypes if we are *any* super procedu 4 67 re. */ 4 68 4 69 &IF "{&ADMSuper}":U EQ "":U &THEN 4 70 {src/adm2/custom/xmlprtocustom.i} 5 1 /* 5 2 * Prototype include file: src/adm2/custom/xmlprtocustom.i 5 3 * Created from procedure: src/adm2/custom/xmlcustom.p at 08:51:53 o 5 3 n 05/16/2000 5 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 5 5 */ 5 6 5 7 5 8 5 9 5 10 4 70 4 71 &ENDIF 4 72 4 73 /* Put your xp{&Property} preprocessor definitions here. 4 74 Use the following format, e.g., 4 75 &GLOBAL-DEFINE xpMyProperty 4 76 These preprocessors tell at compile time which properties can 4 77 be retrieved directly from the temp-table */ 4 78 4 79 4 80 &IF "{&ADMSuper}":U = "":U &THEN 4 81 /* Put your property field definitions here. 4 82 Use the following syntax, e.g., 4 83 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 4 83 'Hi':U). */ 4 84 4 85 &ENDIF 4 86 4 87 /* _UIB-CODE-BLOCK-END */ 4 88 &ANALYZE-RESUME 4 89 4 90 3 87 3 88 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 28 {} Line Blk -- ---- --- 3 89 /* _UIB-CODE-BLOCK-END */ 3 90 &ANALYZE-RESUME 3 91 3 92 2 106 2 107 2 108 &IF "{&ADMSuper}":U = "":U &THEN 2 109 ghADMProps:ADD-NEW-FIELD('DestinationList':U, 'CHAR':U, 0). 2 110 ghADMProps:ADD-NEW-FIELD('DirectionList':U, 'CHAR':U, 0). 2 111 ghADMProps:ADD-NEW-FIELD('DocTypeList':U, 'CHAR':U, 0). 2 112 ghADMProps:ADD-NEW-FIELD('NameList':U, 'CHAR':U, 0). 2 113 ghADMProps:ADD-NEW-FIELD('ReplyReqList':U, 'CHAR':U, 0). 2 114 ghADMProps:ADD-NEW-FIELD('ReplySelectorList':U, 'CHAR':U, 0). 2 115 ghADMProps:ADD-NEW-FIELD('SchemaHandle':U, 'HANDLE':U, 0). 2 116 ghADMProps:ADD-NEW-FIELD('NameSpaceHandle':U, 'HANDLE':U, 0). 2 117 ghADMProps:ADD-NEW-FIELD('SchemaName':U, 'CHAR':U, 0). 2 118 ghADMProps:ADD-NEW-FIELD('SchemaList':U, 'CHAR':U, 0). 2 119 ghADMProps:ADD-NEW-FIELD('LoadedByRouter':U, 'LOG':U). 2 120 ghADMProps:ADD-NEW-FIELD('MapObjectProducer':U, 'CHAR':U). 2 121 ghADMProps:ADD-NEW-FIELD('MapTypeProducer':U, 'CHAR':U). 2 122 ghADMProps:ADD-NEW-FIELD('MapNameProducer':U, 'CHAR':U). 2 123 ghADMProps:ADD-NEW-FIELD('TypeName':U, 'CHAR':U). 2 124 &ENDIF 2 125 2 126 {src/adm2/custom/b2bpropcustom.i} 3 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 3 2 &ANALYZE-RESUME 3 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 3 4 /*------------------------------------------------------------------ 3 4 -------- 3 5 File : b2bpropcustom.i 3 6 Purpose : Defines basic properties. 3 7 Syntax : {src/adm2/custom/b2bpropcustom.i} 3 8 3 9 Description : 3 10 3 11 Modified : 04/19/2000 3 12 Notes : Referenced in {src/adm2/b2bprop.i} 3 13 ------------------------------------------------------------------ 3 13 ------*/ 3 14 /* This .W file was created with the Progress UIB. 3 14 */ 3 15 /*------------------------------------------------------------------ 3 15 ----*/ 3 16 3 17 /* *************************** Definitions *********************** 3 17 *** */ 3 18 3 19 /* _UIB-CODE-BLOCK-END */ 3 20 &ANALYZE-RESUME 3 21 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 29 {} Line Blk -- ---- --- 3 22 3 23 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 3 24 3 25 /* ******************** Preprocessor Definitions ***************** 3 25 *** */ 3 26 3 27 3 28 3 29 /* _UIB-PREPROCESSOR-BLOCK-END */ 3 30 &ANALYZE-RESUME 3 31 3 32 3 33 3 34 /* *********************** Procedure Settings ********************** 3 34 ** */ 3 35 3 36 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 3 37 /* Settings for THIS-PROCEDURE 3 38 Type: Include 3 39 Allow: 3 40 Frames: 0 3 41 Add Fields to: Neither 3 42 Other Settings: INCLUDE-ONLY 3 43 */ 3 44 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 3 45 3 46 /* ************************* Create Window *********************** 3 46 *** */ 3 47 3 48 &ANALYZE-SUSPEND _CREATE-WINDOW 3 49 /* DESIGN Window definition (used by the UIB) 3 50 CREATE WINDOW Include ASSIGN 3 51 HEIGHT = 8 3 52 WIDTH = 60. 3 53 /* END WINDOW DEFINITION */ 3 54 3 54 */ 3 55 &ANALYZE-RESUME 3 56 3 57 3 58 3 59 3 60 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 3 61 3 62 3 63 /* *************************** Main Block ************************ 3 63 *** */ 3 64 3 65 /* Include the file which defines prototypes for all of the super 3 66 procedure's entry points. 3 67 And skip including the prototypes if we are *any* super procedu ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 30 {} Line Blk -- ---- --- 3 67 re. */ 3 68 3 69 &IF "{&ADMSuper}":U EQ "":U &THEN 3 70 {src/adm2/custom/b2bprtocustom.i} 4 1 /* 4 2 * Prototype include file: src/adm2/custom/b2bprtocustom.i 4 3 * Created from procedure: src/adm2/custom/b2bcustom.p at 13:51:31 o 4 3 n 04/19/2000 4 4 * by the PROGRESS PRO*Tools Prototype Include File Generator 4 5 */ 4 6 4 7 4 8 4 9 4 10 3 70 3 71 &ENDIF 3 72 3 73 /* Put your xp{&Property} preprocessor definitions here. 3 74 Use the following format, e.g., 3 75 &GLOBAL-DEFINE xpMyProperty 3 76 These preprocessors tell at compile time which properties can 3 77 be retrieved directly from the temp-table */ 3 78 3 79 3 80 &IF "{&ADMSuper}":U = "":U &THEN 3 81 /* Put your property field definitions here. 3 82 Use the following syntax, e.g., 3 83 ghADMProps:ADD-NEW-FIELD('MyProperty':U, 'CHAR':U, 0,'X(20)':U, 3 83 'Hi':U). */ 3 84 3 85 &ENDIF 3 86 3 87 /* _UIB-CODE-BLOCK-END */ 3 88 &ANALYZE-RESUME 3 89 3 90 2 126 2 127 2 128 /* _UIB-CODE-BLOCK-END */ 2 129 &ANALYZE-RESUME 2 130 2 131 1 24 1 25 &ENDIF 1 26 1 27 /* _UIB-CODE-BLOCK-END */ 1 28 &ANALYZE-RESUME 1 29 1 30 1 31 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 31 {} Line Blk -- ---- --- 1 32 1 33 /* ******************** Preprocessor Definitions ***************** 1 33 *** */ 1 34 1 35 1 36 1 37 /* _UIB-PREPROCESSOR-BLOCK-END */ 1 38 &ANALYZE-RESUME 1 39 1 40 1 41 1 42 /* *********************** Procedure Settings ********************** 1 42 ** */ 1 43 1 44 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 1 45 /* Settings for THIS-PROCEDURE 1 46 Type: Method-Library 1 47 Allow: 1 48 Frames: 0 1 49 Add Fields to: Neither 1 50 Other Settings: INCLUDE-ONLY 1 51 */ 1 52 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 1 53 1 54 /* ************************* Create Window *********************** 1 54 *** */ 1 55 1 56 &ANALYZE-SUSPEND _CREATE-WINDOW 1 57 /* DESIGN Window definition (used by the UIB) 1 58 CREATE WINDOW Method-Library ASSIGN 1 59 HEIGHT = 8 1 60 WIDTH = 60. 1 61 /* END WINDOW DEFINITION */ 1 62 1 62 */ 1 63 &ANALYZE-RESUME 1 64 1 65 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Librar 1 65 y 1 66 /* ************************* Included-Libraries ******************** 1 66 *** */ 1 67 1 68 {src/adm2/xml.i} 2 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 2 2 &ANALYZE-RESUME 2 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 2 3 2 4 /*------------------------------------------------------------------ 2 4 ------- 2 5 File : xml.i 2 6 Purpose : Basic Method Library for the ADMClass xml. ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 32 {} Line Blk -- ---- --- 2 7 2 8 Syntax : {src/adm2/xml.i} 2 9 2 10 Description : 2 11 2 12 Modified : 05/16/2000 2 13 -------------------------------------------------------------------- 2 13 -----*/ 2 14 /* This .W file was created with the Progress UIB. 2 14 */ 2 15 /*------------------------------------------------------------------ 2 15 ----*/ 2 16 2 17 /* *************************** Definitions *********************** 2 17 *** */ 2 18 2 19 &IF "{&ADMClass}b2b":U = "":U &THEN 2 20 &GLOB ADMClass xml 2 21 &ENDIF 2 22 2 23 &IF "{&ADMClass}b2b":U = "xml":U &THEN 2 24 {src/adm2/xmlprop.i} 2 25 &ENDIF 2 26 2 27 /* _UIB-CODE-BLOCK-END */ 2 28 &ANALYZE-RESUME 2 29 2 30 2 31 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 2 32 2 33 /* ******************** Preprocessor Definitions ***************** 2 33 *** */ 2 34 2 35 2 36 2 37 /* _UIB-PREPROCESSOR-BLOCK-END */ 2 38 &ANALYZE-RESUME 2 39 2 40 2 41 2 42 /* *********************** Procedure Settings ********************** 2 42 ** */ 2 43 2 44 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 2 45 /* Settings for THIS-PROCEDURE 2 46 Type: Method-Library 2 47 Allow: 2 48 Frames: 0 2 49 Add Fields to: Neither 2 50 Other Settings: INCLUDE-ONLY 2 51 */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 33 {} Line Blk -- ---- --- 2 52 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 2 53 2 54 /* ************************* Create Window *********************** 2 54 *** */ 2 55 2 56 &ANALYZE-SUSPEND _CREATE-WINDOW 2 57 /* DESIGN Window definition (used by the UIB) 2 58 CREATE WINDOW Method-Library ASSIGN 2 59 HEIGHT = 8 2 60 WIDTH = 60. 2 61 /* END WINDOW DEFINITION */ 2 62 2 62 */ 2 63 &ANALYZE-RESUME 2 64 2 65 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Librar 2 65 y 2 66 /* ************************* Included-Libraries ******************** 2 66 *** */ 2 67 2 68 {src/adm2/msghandler.i} 3 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 3 2 &ANALYZE-RESUME 3 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 3 3 3 4 /*------------------------------------------------------------------ 3 4 ------- 3 5 File : msghandler.i 3 6 Purpose : Basic Method Library for the ADMClass msghandler. 3 7 3 8 Syntax : {src/adm2/msghandler.i} 3 9 3 10 Description : 3 11 3 12 Modified : 05/11/2000 3 13 -------------------------------------------------------------------- 3 13 -----*/ 3 14 /* This .W file was created with the Progress UIB. 3 14 */ 3 15 /*------------------------------------------------------------------ 3 15 ----*/ 3 16 3 17 /* *************************** Definitions *********************** 3 17 *** */ 3 18 3 19 &IF "{&ADMClass}b2b":U = "":U &THEN 3 20 &GLOB ADMClass msghandler 3 21 &ENDIF 3 22 3 23 &IF "{&ADMClass}b2b":U = "msghandler":U &THEN 3 24 {src/adm2/msghprop.i} ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 34 {} Line Blk -- ---- --- 3 25 &ENDIF 3 26 3 27 /* _UIB-CODE-BLOCK-END */ 3 28 &ANALYZE-RESUME 3 29 3 30 3 31 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 3 32 3 33 /* ******************** Preprocessor Definitions ***************** 3 33 *** */ 3 34 3 35 3 36 3 37 /* _UIB-PREPROCESSOR-BLOCK-END */ 3 38 &ANALYZE-RESUME 3 39 3 40 3 41 3 42 /* *********************** Procedure Settings ********************** 3 42 ** */ 3 43 3 44 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 3 45 /* Settings for THIS-PROCEDURE 3 46 Type: Method-Library 3 47 Allow: 3 48 Frames: 0 3 49 Add Fields to: Neither 3 50 Other Settings: INCLUDE-ONLY 3 51 */ 3 52 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 3 53 3 54 /* ************************* Create Window *********************** 3 54 *** */ 3 55 3 56 &ANALYZE-SUSPEND _CREATE-WINDOW 3 57 /* DESIGN Window definition (used by the UIB) 3 58 CREATE WINDOW Method-Library ASSIGN 3 59 HEIGHT = 8 3 60 WIDTH = 60. 3 61 /* END WINDOW DEFINITION */ 3 62 3 62 */ 3 63 &ANALYZE-RESUME 3 64 3 65 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Librar 3 65 y 3 66 /* ************************* Included-Libraries ******************** 3 66 *** */ 3 67 3 68 {src/adm2/smart.i} 4 1 &ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 35 {} Line Blk -- ---- --- 4 2 &ANALYZE-RESUME 4 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library 4 3 4 4 /*------------------------------------------------------------------ 4 4 -------- 4 5 Library : smart.i - NEW V9 version of top-level SmartObject 4 5 include 4 6 4 7 Modified : May 22, 2000 -- Version 9.1B 4 8 ------------------------------------------------------------------ 4 8 ------*/ 4 9 /* This .i file was created with the Progress UIB. 4 9 */ 4 10 /*------------------------------------------------------------------ 4 10 ----*/ 4 11 4 12 /* *************************** Definitions *********************** 4 12 *** */ 4 13 4 14 /* If smart.i has already been included, skip everything 4 15 (matching ENDIF is at the end of the file). */ 4 16 &IF DEFINED(adm-smart) = 0 &THEN 4 17 &GLOB adm-smart yes 4 18 4 19 /* Define the preprocessor that identifies the basic "class" of th 4 19 e object; 4 20 ADMClass will remain undefined here only if the object uses no 4 20 sub-class 4 21 include files. */ 4 22 &IF "{&ADMClass}b2b":U = "":U &THEN 4 23 &GLOB ADMClass smart 4 24 &ENDIF 4 25 4 26 DEFINE VARIABLE ghContainer AS HANDLE NO-UNDO. /* Window or Fra 4 26 me handle */ 4 27 4 28 /* If this object is of type "smart", i.e., uses no lower class in 4 28 clude 4 29 files, then include the property file here. Otherwise this will 4 29 be 4 30 done in the class include file of the base class of the object. 4 30 */ 4 31 4 32 &IF "{&ADMClass}b2b":U = "smart":U &THEN 4 33 {src/adm2/smrtprop.i} 4 34 &ENDIF 4 35 4 36 /* _UIB-CODE-BLOCK-END */ 4 37 &ANALYZE-RESUME 4 38 4 39 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 36 {} Line Blk -- ---- --- 4 40 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 4 41 4 42 /* ******************** Preprocessor Definitions ***************** 4 42 *** */ 4 43 4 44 4 45 4 46 /* _UIB-PREPROCESSOR-BLOCK-END */ 4 47 &ANALYZE-RESUME 4 48 4 49 4 50 4 51 /* *********************** Procedure Settings ********************** 4 51 ** */ 4 52 4 53 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 4 54 /* Settings for THIS-PROCEDURE 4 55 Type: Method-Library 4 56 Allow: 4 57 Frames: 0 4 58 Add Fields to: Neither 4 59 Other Settings: INCLUDE-ONLY 4 60 */ 4 61 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 4 62 4 63 /* ************************* Create Window *********************** 4 63 *** */ 4 64 4 65 &ANALYZE-SUSPEND _CREATE-WINDOW 4 66 /* DESIGN Window definition (used by the UIB) 4 67 CREATE WINDOW Method-Library ASSIGN 4 68 HEIGHT = 8 4 69 WIDTH = 60. 4 70 /* END WINDOW DEFINITION */ 4 71 4 71 */ 4 72 &ANALYZE-RESUME 4 73 4 74 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Method-Librar 4 74 y 4 75 /* ************************* Included-Libraries ******************** 4 75 *** */ 4 76 4 77 /* _UIB-CODE-BLOCK-END */ 4 78 &ANALYZE-RESUME 4 79 4 80 4 81 4 82 4 83 4 84 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 37 {} Line Blk -- ---- --- 4 85 4 86 4 87 /* *************************** Main Block ************************ 4 87 *** */ 4 88 4 89 DEFINE VARIABLE cObjectName AS CHARACTER NO-UNDO. 4 90 DEFINE VARIABLE iStart AS INTEGER NO-UNDO. 4 91 4 92 /* Now create the one record in this property temp-table, and stor 4 92 e its 4 93 handle in ADM-DATA. The CHR(1) delimiters are to set aside spot 4 93 s 4 94 for UserProperties and UserLinks. */ 4 95 ghADMProps:TEMP-TABLE-PREPARE('ADMProps':U). 4 96 ghADMPropsBuf = ghADMProps:DEFAULT-BUFFER-HANDLE. 4 97 ghADMPropsBuf:BUFFER-CREATE(). 4 98 THIS-PROCEDURE:ADM-DATA = STRING(ghADMPropsBuf) + CHR(1) + CHR(1). 4 99 4 100 RUN start-super-proc ("adm2/smart.p":U). 4 101 4 102 &IF "{&ADM-CONTAINER}":U NE "":U &THEN 4 103 &IF "{&ADM-CONTAINER}":U = "WINDOW":U &THEN 4 104 ghContainer = {&WINDOW-NAME}CURRENT-WINDOW. 4 105 &ELSEIF "{&ADM-CONTAINER}":U = "VIRTUAL":U OR "{&FRAME-NAME}":U = 4 105 "":U &THEN 4 106 ghContainer = ?. /* Container has no vis. */ 4 107 &ELSEIF "{&ADM-CONTAINER}":U = "FRAME":U OR 4 108 "{&ADM-CONTAINER}":U = "DIALOG-BOX":U 4 109 &THEN 4 110 ghContainer = FRAME {&FRAME-NAME}:HANDLE. 4 111 &ENDIF 4 112 &ELSE 4 113 &IF "{&FRAME-NAME}":U NE "":U &THEN 4 114 ghContainer = FRAME {&FRAME-NAME}:HANDLE. 4 115 &ENDIF 4 116 &ENDIF 4 117 4 118 /* Set the default object name to the simple procedure file name. 4 118 */ 4 119 ASSIGN cObjectName = REPLACE(THIS-PROCEDURE:FILE-NAME, "~\":U, "~/ 4 119 ":U) 4 120 iStart = R-INDEX(cObjectName, "~/":U) + 1 4 121 cObjectName = SUBSTR(cObjectName, iStart, 4 122 R-INDEX(THIS-PROCEDURE:FILE-NAME, ".":U) - iStart). 4 123 {set ObjectName cObjectName} 5 1 /* {set Prop value [handle]} */ &IF "{3}":U = "":U &THEN &IF DEFINED 5 1 (xp{1}ObjectName) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, 5 1 TARGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIELD('{1 5 1 }ObjectName':U) ghProp:BUFFER-VALUE = {2}cObjectName &ELSE dynamic-f 5 1 unction("set{1}ObjectName":U IN TARGET-PROCEDURE, {2}cObjectName) &E 5 1 NDIF &ELSE &IF DEFINED(xp{1}ObjectName) NE 0 &THEN ASSIGN ghProp = W ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 38 {} Line Blk -- ---- --- 5 1 IDGET-HANDLE(ENTRY(1, {3}:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER- 5 1 FIELD('{1}ObjectName':U) ghProp:BUFFER-VALUE = {2}cObjectName &ELSE 5 2 dynamic-function("set{1}ObjectName":U IN {3}, {2}cObjectName) &ENDI 5 2 F &ENDIF 4 123 . 4 124 4 125 {set ContainerHandle ghContainer} 5 1 /* {set Prop value [handle]} */ &IF "{3}":U = "":U &THEN &IF DEFINED 5 1 (xp{1}ContainerHandle) NE 0 &THEN ASSIGN ghProp = WIDGET-HANDLE(ENTR 5 1 Y(1, TARGET-PROCEDURE:ADM-DATA, CHR(1))) ghProp = ghProp:BUFFER-FIEL 5 1 D('{1}ContainerHandle':U) ghProp:BUFFER-VALUE = {2}ghContainer &ELSE 5 1 dynamic-function("set{1}ContainerHandle":U IN TARGET-PROCEDURE, {2} 5 1 ghContainer) &ENDIF &ELSE &IF DEFINED(xp{1}ContainerHandle) NE 0 &TH 5 1 EN ASSIGN ghProp = WIDGET-HANDLE(ENTRY(1, {3}:ADM-DATA, CHR(1))) ghP 5 1 rop = ghProp:BUFFER-FIELD('{1}ContainerHandle':U) ghProp:BUFFER-VALU 5 1 E = {2}ghContainer &ELSE 5 2 dynamic-function("set{1}ContainerHandle":U IN {3}, {2}ghContainer) 5 2 &ENDIF &ENDIF 4 125 . 4 126 4 127 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 4 128 {src/adm2/custom/smartcustom.i} 5 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 5 2 &ANALYZE-RESUME 5 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 5 4 /*------------------------------------------------------------------ 5 4 ------ 5 5 File : smartcustom.i 5 6 Purpose : References the start of the custom super procedure 5 6 . 5 7 Allows properties initialization. 5 8 5 9 Syntax : {src/adm2/custom/smartcustom.i} 5 10 5 11 Description : 5 12 5 13 Created : 06/03/1999 5 14 Notes : Referenced in {src/adm2/smart.i} 5 15 ------------------------------------------------------------------ 5 15 ----*/ 5 16 /* This .W file was created with the Progress AppBuilder. 5 16 */ 5 17 /*------------------------------------------------------------------ 5 17 ----*/ 5 18 5 19 /* *************************** Definitions *********************** 5 19 *** */ 5 20 5 21 /* _UIB-CODE-BLOCK-END */ 5 22 &ANALYZE-RESUME 5 23 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 39 {} Line Blk -- ---- --- 5 24 5 25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 5 26 5 27 /* ******************** Preprocessor Definitions ***************** 5 27 *** */ 5 28 5 29 5 30 5 31 /* _UIB-PREPROCESSOR-BLOCK-END */ 5 32 &ANALYZE-RESUME 5 33 5 34 5 35 5 36 /* *********************** Procedure Settings ********************** 5 36 ** */ 5 37 5 38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 5 39 /* Settings for THIS-PROCEDURE 5 40 Type: Include 5 41 Allow: 5 42 Frames: 0 5 43 Add Fields to: Neither 5 44 Other Settings: INCLUDE-ONLY 5 45 */ 5 46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 5 47 5 48 /* ************************* Create Window *********************** 5 48 *** */ 5 49 5 50 &ANALYZE-SUSPEND _CREATE-WINDOW 5 51 /* DESIGN Window definition (used by the UIB) 5 52 CREATE WINDOW Include ASSIGN 5 53 HEIGHT = 15 5 54 WIDTH = 60. 5 55 /* END WINDOW DEFINITION */ 5 56 5 56 */ 5 57 &ANALYZE-RESUME 5 58 5 59 5 60 5 61 5 62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 5 63 5 64 5 65 /* *************************** Main Block ************************ 5 65 *** */ 5 66 5 67 /* Starts here the custom super procedure 5 68 Uncomment to run it */ 5 69 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 40 {} Line Blk -- ---- --- 5 70 /*RUN start-super-proc ("adm2/custom/smartcustom.p":U).*/ 5 71 5 72 /* _UIB-CODE-BLOCK-END */ 5 73 &ANALYZE-RESUME 5 74 5 75 5 76 5 77 4 128 4 129 /* _ADM-CODE-BLOCK-END */ 4 130 4 131 /* _UIB-CODE-BLOCK-END */ 4 132 &ANALYZE-RESUME 4 133 4 134 4 135 /* ********************** Internal Procedures ******************** 4 135 *** */ 4 136 4 137 &IF DEFINED(EXCLUDE-start-super-proc) = 0 &THEN 4 138 4 139 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE start-super-proc Method- 4 139 Library 4 140 PROCEDURE start-super-proc : 4 141 /*------------------------------------------------------------------ 4 141 ------------ 4 142 Purpose: Procedure to start a super proc if it's not already r 4 142 unning, 4 143 and to add it as a super proc in any case. 4 144 Parameters: Procedure name to make super. 4 145 Notes: NOTE: This presumes that we want only one copy of an 4 145 ADM 4 146 super procedure running per session, meaning that the 4 146 y are 4 147 stateless and "multi-threaded". This is intended to b 4 147 e the case 4 148 for ours, but may not be true for all super procs. 4 149 -------------------------------------------------------------------- 4 149 ----------*/ 4 150 4 151 DEFINE INPUT PARAMETER pcProcName AS CHARACTER NO-UNDO. 4 152 DEFINE VARIABLE hProc AS HANDLE NO-UNDO. 4 153 4 154 hProc = SESSION:FIRST-PROCEDURE. 4 155 1 DO WHILE VALID-HANDLE(hProc) AND hProc:FILE-NAME NE pcProcName: 4 156 1 hProc = hProc:NEXT-SIBLING. 4 157 END. 4 158 IF NOT VALID-HANDLE(hProc) THEN 4 159 RUN VALUE(pcProcName) PERSISTENT SET hProc. 4 160 THIS-PROCEDURE:ADD-SUPER-PROCEDURE(hProc, SEARCH-TARGET). 4 161 4 162 RETURN. ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 41 {} Line Blk -- ---- --- 4 163 4 164 END PROCEDURE. 4 165 4 166 /* Note: This ENDIF matches the adm-smart definition at the top of f 4 166 ile. 4 167 Do not delete it and if another procedure or function is defined 4 167 which 4 168 occurs later in the file, move it to the end of that. */ 4 169 &ENDIF 4 170 4 171 /* _UIB-CODE-BLOCK-END */ 4 172 &ANALYZE-RESUME 4 173 4 174 &ENDIF 4 175 3 68 3 69 3 70 /* _UIB-CODE-BLOCK-END */ 3 71 &ANALYZE-RESUME 3 72 3 73 3 74 3 75 3 76 3 77 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 3 78 3 79 3 80 /* *************************** Main Block ************************ 3 80 *** */ 3 81 3 82 3 83 /* Starts super procedure */ 3 84 RUN start-super-proc("adm2/msghandler.p":U). 3 85 3 86 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 3 87 3 88 {src/adm2/custom/msghandlercustom.i} 4 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 4 2 &ANALYZE-RESUME 4 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 4 4 /*------------------------------------------------------------------ 4 4 ------ 4 5 File : msghandlercustom.i 4 6 Purpose : References the start of the custom super procedure 4 6 . 4 7 Allows properties initialization. 4 8 4 9 Syntax : {src/adm2/custom/msghandlercustom.i} 4 10 4 11 Description : 4 12 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 42 {} Line Blk -- ---- --- 4 13 Created : 05/11/2000 4 14 Notes : Referenced in {src/adm2/msghandler.i} 4 15 ------------------------------------------------------------------ 4 15 ----*/ 4 16 /* This .W file was created with the Progress AppBuilder. 4 16 */ 4 17 /*------------------------------------------------------------------ 4 17 ----*/ 4 18 4 19 /* *************************** Definitions *********************** 4 19 *** */ 4 20 4 21 /* _UIB-CODE-BLOCK-END */ 4 22 &ANALYZE-RESUME 4 23 4 24 4 25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 4 26 4 27 /* ******************** Preprocessor Definitions ***************** 4 27 *** */ 4 28 4 29 4 30 4 31 /* _UIB-PREPROCESSOR-BLOCK-END */ 4 32 &ANALYZE-RESUME 4 33 4 34 4 35 4 36 /* *********************** Procedure Settings ********************** 4 36 ** */ 4 37 4 38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 4 39 /* Settings for THIS-PROCEDURE 4 40 Type: Include 4 41 Allow: 4 42 Frames: 0 4 43 Add Fields to: Neither 4 44 Other Settings: INCLUDE-ONLY 4 45 */ 4 46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 4 47 4 48 /* ************************* Create Window *********************** 4 48 *** */ 4 49 4 50 &ANALYZE-SUSPEND _CREATE-WINDOW 4 51 /* DESIGN Window definition (used by the UIB) 4 52 CREATE WINDOW Include ASSIGN 4 53 HEIGHT = 15 4 54 WIDTH = 60. 4 55 /* END WINDOW DEFINITION */ 4 56 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 43 {} Line Blk -- ---- --- 4 56 */ 4 57 &ANALYZE-RESUME 4 58 4 59 4 60 4 61 4 62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 4 63 4 64 4 65 /* *************************** Main Block ************************ 4 65 *** */ 4 66 4 67 /* Starts here the custom super procedure 4 68 Uncomment to run it */ 4 69 4 70 /*RUN start-super-proc ("adm2/custom/msghandlercustom.p":U).*/ 4 71 4 72 /* _UIB-CODE-BLOCK-END */ 4 73 &ANALYZE-RESUME 4 74 4 75 4 76 4 77 3 88 3 89 3 90 /* _ADM-CODE-BLOCK-END */ 3 91 3 92 /* _UIB-CODE-BLOCK-END */ 3 93 &ANALYZE-RESUME 3 94 3 95 2 68 2 69 2 70 /* _UIB-CODE-BLOCK-END */ 2 71 &ANALYZE-RESUME 2 72 2 73 2 74 2 75 2 76 2 77 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 2 78 2 79 2 80 /* *************************** Main Block ************************ 2 80 *** */ 2 81 2 82 2 83 /* Starts super procedure */ 2 84 RUN start-super-proc("adm2/xml.p":U). 2 85 2 86 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 44 {} Line Blk -- ---- --- 2 87 2 88 {src/adm2/custom/xmlcustom.i} 3 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 3 2 &ANALYZE-RESUME 3 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 3 4 /*------------------------------------------------------------------ 3 4 ------ 3 5 File : xmlcustom.i 3 6 Purpose : References the start of the custom super procedure 3 6 . 3 7 Allows properties initialization. 3 8 3 9 Syntax : {src/adm2/custom/xmlcustom.i} 3 10 3 11 Description : 3 12 3 13 Created : 05/16/2000 3 14 Notes : Referenced in {src/adm2/xml.i} 3 15 ------------------------------------------------------------------ 3 15 ----*/ 3 16 /* This .W file was created with the Progress AppBuilder. 3 16 */ 3 17 /*------------------------------------------------------------------ 3 17 ----*/ 3 18 3 19 /* *************************** Definitions *********************** 3 19 *** */ 3 20 3 21 /* _UIB-CODE-BLOCK-END */ 3 22 &ANALYZE-RESUME 3 23 3 24 3 25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 3 26 3 27 /* ******************** Preprocessor Definitions ***************** 3 27 *** */ 3 28 3 29 3 30 3 31 /* _UIB-PREPROCESSOR-BLOCK-END */ 3 32 &ANALYZE-RESUME 3 33 3 34 3 35 3 36 /* *********************** Procedure Settings ********************** 3 36 ** */ 3 37 3 38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 3 39 /* Settings for THIS-PROCEDURE 3 40 Type: Include 3 41 Allow: ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 45 {} Line Blk -- ---- --- 3 42 Frames: 0 3 43 Add Fields to: Neither 3 44 Other Settings: INCLUDE-ONLY 3 45 */ 3 46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 3 47 3 48 /* ************************* Create Window *********************** 3 48 *** */ 3 49 3 50 &ANALYZE-SUSPEND _CREATE-WINDOW 3 51 /* DESIGN Window definition (used by the UIB) 3 52 CREATE WINDOW Include ASSIGN 3 53 HEIGHT = 15 3 54 WIDTH = 60. 3 55 /* END WINDOW DEFINITION */ 3 56 3 56 */ 3 57 &ANALYZE-RESUME 3 58 3 59 3 60 3 61 3 62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 3 63 3 64 3 65 /* *************************** Main Block ************************ 3 65 *** */ 3 66 3 67 /* Starts here the custom super procedure 3 68 Uncomment to run it */ 3 69 3 70 /*RUN start-super-proc ("adm2/custom/xmlcustom.p":U).*/ 3 71 3 72 /* _UIB-CODE-BLOCK-END */ 3 73 &ANALYZE-RESUME 3 74 3 75 3 76 3 77 2 88 2 89 2 90 /* _ADM-CODE-BLOCK-END */ 2 91 2 92 /* _UIB-CODE-BLOCK-END */ 2 93 &ANALYZE-RESUME 2 94 2 95 2 96 1 68 1 69 1 70 /* _UIB-CODE-BLOCK-END */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 46 {} Line Blk -- ---- --- 1 71 &ANALYZE-RESUME 1 72 1 73 1 74 1 75 1 76 1 77 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library 1 78 1 79 1 80 /* *************************** Main Block ************************ 1 80 *** */ 1 81 1 82 1 83 /* Starts super procedure */ 1 84 RUN start-super-proc("adm2/b2b.p":U). 1 85 1 86 /* _ADM-CODE-BLOCK-START _CUSTOM _INCLUDED-LIB-CUSTOM CUSTOM */ 1 87 1 88 {src/adm2/custom/b2bcustom.i} 2 1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 2 2 &ANALYZE-RESUME 2 3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 2 4 /*------------------------------------------------------------------ 2 4 ------ 2 5 File : b2bcustom.i 2 6 Purpose : References the start of the custom super procedure 2 6 . 2 7 Allows properties initialization. 2 8 2 9 Syntax : {src/adm2/custom/b2bcustom.i} 2 10 2 11 Description : 2 12 2 13 Created : 04/19/2000 2 14 Notes : Referenced in {src/adm2/b2b.i} 2 15 ------------------------------------------------------------------ 2 15 ----*/ 2 16 /* This .W file was created with the Progress AppBuilder. 2 16 */ 2 17 /*------------------------------------------------------------------ 2 17 ----*/ 2 18 2 19 /* *************************** Definitions *********************** 2 19 *** */ 2 20 2 21 /* _UIB-CODE-BLOCK-END */ 2 22 &ANALYZE-RESUME 2 23 2 24 2 25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 2 26 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 47 {} Line Blk -- ---- --- 2 27 /* ******************** Preprocessor Definitions ***************** 2 27 *** */ 2 28 2 29 2 30 2 31 /* _UIB-PREPROCESSOR-BLOCK-END */ 2 32 &ANALYZE-RESUME 2 33 2 34 2 35 2 36 /* *********************** Procedure Settings ********************** 2 36 ** */ 2 37 2 38 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS 2 39 /* Settings for THIS-PROCEDURE 2 40 Type: Include 2 41 Allow: 2 42 Frames: 0 2 43 Add Fields to: Neither 2 44 Other Settings: INCLUDE-ONLY 2 45 */ 2 46 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS 2 47 2 48 /* ************************* Create Window *********************** 2 48 *** */ 2 49 2 50 &ANALYZE-SUSPEND _CREATE-WINDOW 2 51 /* DESIGN Window definition (used by the UIB) 2 52 CREATE WINDOW Include ASSIGN 2 53 HEIGHT = 15 2 54 WIDTH = 60. 2 55 /* END WINDOW DEFINITION */ 2 56 2 56 */ 2 57 &ANALYZE-RESUME 2 58 2 59 2 60 2 61 2 62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 2 63 2 64 2 65 /* *************************** Main Block ************************ 2 65 *** */ 2 66 2 67 /* Starts here the custom super procedure 2 68 Uncomment to run it */ 2 69 2 70 /*RUN start-super-proc ("adm2/custom/b2bcustom.p":U).*/ 2 71 2 72 /* _UIB-CODE-BLOCK-END */ ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 48 {} Line Blk -- ---- --- 2 73 &ANALYZE-RESUME 2 74 2 75 1 88 1 89 1 90 /* _ADM-CODE-BLOCK-END */ 1 91 1 92 /* _UIB-CODE-BLOCK-END */ 1 93 &ANALYZE-RESUME 1 94 1 95 99 100 101 /* _UIB-CODE-BLOCK-END */ 102 &ANALYZE-RESUME 103 104 105 106 107 /* *********** Runtime Attributes and AppBuilder Settings ******** 107 *** */ 108 109 &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES 110 /* SETTINGS FOR WINDOW sbbObject 111 VISIBLE,,RUN-PERSISTENT 111 */ 112 /* _RUN-TIME-ATTRIBUTES-END */ 113 &ANALYZE-RESUME 114 115 116 117 118 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK sbbObject 119 120 121 /* *************************** Main Block ************************ 121 *** */ 122 123 /* If testing in the UIB, initialize the SmartObject. */ 124 &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN 125 RUN initializeObject. 126 &ENDIF 127 128 /* _UIB-CODE-BLOCK-END */ 129 &ANALYZE-RESUME 130 131 132 /* ********************** Internal Procedures ******************** 132 *** */ 133 134 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI sbbObject _D ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 49 {} Line Blk -- ---- --- 134 EFAULT-DISABLE 135 PROCEDURE disable_UI : 136 /*------------------------------------------------------------------ 136 ------------ 137 Purpose: DISABLE the User Interface 138 Parameters: 139 Notes: Here we clean-up the user-interface by deleting 140 dynamic widgets we have created and/or hide 141 frames. This procedure is usually called when 142 we are ready to "clean-up" after running. 143 -------------------------------------------------------------------- 143 ----------*/ 144 /* Hide all frames. */ 145 IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. 146 END PROCEDURE. 147 148 /* _UIB-CODE-BLOCK-END */ 149 &ANALYZE-RESUME 150 ...src\adm2\dynb2b.w 08/20/2002 21:05:03 PROGRESS(R) Page 50 File Name Line Blk. Type Tran Blk. Label -------------------- ---- --------- ---- -------------------------------- ...c\adm2\smrtprto.i 1 Procedure No Procedure initializeObject ...c\adm2\smrtprto.i 170 Procedure No Procedure destroyObject ...c\adm2\smrtprto.i 173 Procedure No Procedure displayLinks ...c\adm2\smrtprto.i 177 Procedure No Procedure repositionObject ...c\adm2\smrtprop.i 166 Function No Function getObjectType ...\src\adm2\smart.i 137 Procedure No Procedure start-super-proc ...\src\adm2\smart.i 155 Do No ...src\adm2\dynb2b.w 124 Procedure No Procedure disable_UI ...src\adm2\dynb2b.w 0 Procedure No ...src\adm2\dynb2b.w 77 Do No