Domů Procházet Nápověda
Registrovat se Přihlásit se
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Rozštěpit 0
Soubory Úkoly 0 Pull Requesty 0 Wiki
Strom: 5e9e701408
Větve Značky
GeMIS_WEB
/
GUI
/
administration
/
webfunction.i

webfunction.i 2.3 KB
Historie Surový

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 
  1. &ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12
    2. 

  2. /* Procedure Description
    3. 

  3. "Structured Include File Template.
    4. 

  4. 

  5. Use this template to create a new Structured Include file to include PROGRESS 4GL code into another PROGRESS source file. You edit structured include files using the AB's Section Editor."
    6. 

  6. */
    7. 

  7. &ANALYZE-RESUME
    8. 

  8. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 
    9. 

  9. /*------------------------------------------------------------------------
    10. 

  10.     File        : webfunction.i
    11. 

  11.     Purpose     : 
    12. 

  12. 

  13.     Syntax      :
    14. 

  14. 

  15.     Description : 
    16. 

  16. 

  17.     Author(s)   : walter.riechsteiner
    18. 

  18.     Created     :
    19. 

  19.     Notes       :
    20. 

  20.   ----------------------------------------------------------------------*/
    21. 

  21. /*----------------------------------------------------------------------*/
    22. 

  22. 

  23. /* ***************************  Definitions  ************************** */
    24. 

  24. 

  25. 

  26. /* _UIB-CODE-BLOCK-END */
    27. 

  27. &ANALYZE-RESUME
    28. 

  28. 

  29. 

  30. &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 
    31. 

  31. 

  32. /* ********************  Preprocessor Definitions  ******************** */
    33. 

  33. 

  34. 

  35. 

  36. /* _UIB-PREPROCESSOR-BLOCK-END */
    37. 

  37. &ANALYZE-RESUME
    38. 

  38. 

  39. 

  40. 

  41. /* *********************** Procedure Settings ************************ */
    42. 

  42. 

  43. &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
    44. 

  44. /* Settings for THIS-PROCEDURE
    45. 

  45.    Type: Include Template
    46. 

  46.    Allow: 
    47. 

  47.    Frames: 0
    48. 

  48.    Add Fields to: Neither
    49. 

  49.    Other Settings: INCLUDE-ONLY
    50. 

  50.  */
    51. 

  51. &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
    52. 

  52. 

  53. /* *************************  Create Window  ************************** */
    54. 

  54. 

  55. &ANALYZE-SUSPEND _CREATE-WINDOW
    56. 

  56. /* DESIGN Window definition (used by the UIB) 
    57. 

  57.   CREATE WINDOW Include ASSIGN
    58. 

  58.          HEIGHT             = 15
    59. 

  59.          WIDTH              = 60.
    60. 

  60. /* END WINDOW DEFINITION */
    61. 

  61.                                                                         */
    62. 

  62. &ANALYZE-RESUME
    63. 

  63.  
    64. 

  64. 

  65. 

  66. 

  67. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 
    68. 

  68. 

  69. 

  70. /* ***************************  Main Block  *************************** */
    71. 

  71. 

  72. DEF VAR xHandle AS HANDLE NO-UNDO.
    73. 

  73. 

  74. xHandle = SESSION:FIRST-PROCEDURE.
    75. 

  75. DO WHILE VALID-HANDLE(xHandle):
    76. 

  76.     IF  xHandle:FILE-NAME = 'webfunction.p':U OR
    77. 

  77.         xHandle:FILE-NAME = 'webfunction.r':U THEN LEAVE.
    78. 

  78.     xHandle = xHandle:NEXT-SIBLING.
    79. 

  79. END.
    80. 

  80. IF NOT VALID-HANDLE(xHandle) THEN 
    81. 

  81. DO:
    82. 

  82.     RUN 'webfunction.p' PERSISTENT SET xHandle.
    83. 

  83.     SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
    84. 

  84. END.
    85. 

  85. 

  86. 

  87. 

  88. 

  89. /* _UIB-CODE-BLOCK-END */
    90. 

  90. &ANALYZE-RESUME
    91. 

  91. 

  92.