Home Explore Help
Register Sign In
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 04d475eee7
Branches Tags
GeMIS_WEB
/
GUI
/
Tools
/
export.p

export.p 1.8 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 
  1. &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
    2. 

  2. &ANALYZE-RESUME
    3. 

  3. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
    4. 

  4. /*------------------------------------------------------------------------
    5. 

  5.     File        : 
    6. 

  6.     Purpose     :
    7. 

  7. 

  8.     Syntax      :
    9. 

  9. 

  10.     Description :
    11. 

  11. 

  12.     Author(s)   :
    13. 

  13.     Created     :
    14. 

  14.     Notes       :
    15. 

  15.   ----------------------------------------------------------------------*/
    16. 

  16. /*          This .W file was created with the Progress AppBuilder.      */
    17. 

  17. /*----------------------------------------------------------------------*/
    18. 

  18. 

  19. /* ***************************  Definitions  ************************** */
    20. 

  20. 

  21. /* _UIB-CODE-BLOCK-END */
    22. 

  22. &ANALYZE-RESUME
    23. 

  23. 

  24. 

  25. &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 
    26. 

  26. 

  27. /* ********************  Preprocessor Definitions  ******************** */
    28. 

  28. 

  29. &Scoped-define PROCEDURE-TYPE Procedure
    30. 

  30. &Scoped-define DB-AWARE no
    31. 

  31. 

  32. 

  33. 

  34. /* _UIB-PREPROCESSOR-BLOCK-END */
    35. 

  35. &ANALYZE-RESUME
    36. 

  36. 

  37. 

  38. 

  39. /* *********************** Procedure Settings ************************ */
    40. 

  40. 

  41. &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
    42. 

  42. /* Settings for THIS-PROCEDURE
    43. 

  43.    Type: Procedure
    44. 

  44.    Allow: 
    45. 

  45.    Frames: 0
    46. 

  46.    Add Fields to: Neither
    47. 

  47.    Other Settings: CODE-ONLY COMPILE
    48. 

  48.  */
    49. 

  49. &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
    50. 

  50. 

  51. /* *************************  Create Window  ************************** */
    52. 

  52. 

  53. &ANALYZE-SUSPEND _CREATE-WINDOW
    54. 

  54. /* DESIGN Window definition (used by the UIB) 
    55. 

  55.   CREATE WINDOW Procedure ASSIGN
    56. 

  56.          HEIGHT             = 15
    57. 

  57.          WIDTH              = 60.
    58. 

  58. /* END WINDOW DEFINITION */
    59. 

  59.                                                                         */
    60. 

  60. &ANALYZE-RESUME
    61. 

  61. 

  62.  
    63. 

  63. 

  64. 

  65. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 
    66. 

  66. 

  67. 

  68. /* ***************************  Main Block  *************************** */
    69. 

  69. 

  70. { SUPER/funktionen.i }
    71. 

  71. 

  72. RUN g-exportauftrag.w .
    73. 

  73. QUIT.
    74. 

  74. 

  75. /* _UIB-CODE-BLOCK-END */
    76. 

  76. &ANALYZE-RESUME
    77. 

  77. 

  78.