home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / flexerrs.src < prev    next >
Encoding:
Text File  |  1993-05-19  |  8.7 KB  |  191 lines
  1. // DataFlex Source Code
  2. // Copyright 1987-1992 Data Access Corporation, Miami FL, USA
  3. // All Rights reserved
  4. // 
  5. // LS 5/12/92
  6. // JR 2/7/92
  7.  
  8. Use ALLENTRY
  9. Set Application_Name to "System"
  10.  
  11. // **************************************************************************
  12. // *                                                                        *
  13. // *     Code Style: OOP                                                    *
  14. // *                                                                        *
  15. // *           Name: FLEXERRS                                               *
  16. // *       Revision: 9                                                      *
  17. // *      Main File: FLEXERRS                                               *
  18. // *          Title: DataFlex Error Maintenance Utility                     *
  19. // *                                                                        *
  20. // *  Creation Date: 02/06/92                                               *
  21. // *    Last Update: 05/12/92                                               *
  22. // *                                                                        *
  23. // *         Author:                                                        *
  24. // *       Comments: New Flexerrs maintenance program.                      *
  25. // *                                                                        *
  26. // *                                                                        *
  27. // *                                                                        *
  28. // **************************************************************************
  29.  
  30. Name_Object BACKGROUND_Client Global
  31. Name_Object FLEXERRS_Data_Set Child BACKGROUND_Client
  32. Name_Object errorTable_Table Child FLEXERRS_Data_Set
  33. Name_Object Flexerrs_Zoom_Zoom_Form Child BACKGROUND_Client
  34.  
  35. Open "flexerrs" as FLEXERRS
  36.  
  37. /Main_Menu
  38.    ____  ______  ____                                                           
  39. /*
  40.  
  41. Create_Menu Main_Menu Location 1 0 Absolute
  42.  
  43.     Set Action_Bar_Keys_Msg To Main_Menu_Keys
  44.  
  45.     #INCLUDE FFILE_PD.INC
  46.     #INCLUDE RECD_PD.INC
  47.     #INCLUDE HELP_PD.INC
  48.  
  49. End_Menu
  50.  
  51. Procedure Main_Menu_Keys For Desktop Integer Act_Obj
  52.     On_Key KEY_ALT+KEY_F Send Activate To (File_Pull_Down(Act_Obj)) Private
  53.     On_Key KEY_ALT+KEY_R Send Activate To (Record_Pull_Down(Act_Obj)) Private
  54.     On_Key KEY_ALT+KEY_H Send Activate To (Help_Pull_Down(Act_Obj)) Private
  55. End_Procedure
  56.  
  57. #INCLUDE FLEXERR3.INC
  58.  
  59. /BACKGROUND_Client_Title
  60.                        DataFlex Error Maintenance Utility                       
  61. /*
  62.  
  63. /BACKGROUND_Client
  64. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  65. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  66. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  67. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  68. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  69. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  70. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  71. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  72. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  73. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  74. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  75. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  76. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  77. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  78. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  79. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  80. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  81. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  82. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  83. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  84. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  85. /*
  86.  
  87. Object BACKGROUND_Client is an Entry_Client BACKGROUND_Client ;
  88.         RING Action_Bar Main_Menu
  89.  
  90.     Set Location To 2 0 Absolute
  91.  
  92.     Object BACKGROUND_Client_Title is a Title BACKGROUND_Client_Title
  93.         Set Location To -2 0 Relative
  94.     End_Object  // BACKGROUND_Client_Title
  95.  
  96.  
  97.     Object FLEXERRS_Data_Set is a Data_Set NO_IMAGE Main_File FLEXERRS
  98.  
  99. /errorTable_Table
  100. ┌──────────────────────────────────────────────────────────────────────────────┐
  101. │                                                                              │
  102. │                                                                              │
  103. │ Error #  Description                              Notes                      │
  104. │ ───────  ──────────────────────────────────────── ────────────────────────   │
  105. │ _______. ________________________________________ ________________________   │
  106. │ _______. ________________________________________ ________________________   │
  107. │ _______. ________________________________________ ________________________   │
  108. │ _______. ________________________________________ ________________________   │
  109. │ _______. ________________________________________ ________________________   │
  110. │ _______. ________________________________________ ________________________   │
  111. │ _______. ________________________________________ ________________________   │
  112. │ _______. ________________________________________ ________________________   │
  113. │ _______. ________________________________________ ________________________   │
  114. │ _______. ________________________________________ ________________________   │
  115. │ _______. ________________________________________ ________________________   │
  116. │ _______. ________________________________________ ________________________   │
  117. │ _______. ________________________________________ ________________________   │
  118. │                                                                              │
  119. │                                                                              │
  120. └──────────────────────────────────────────────────────────────────────────────┘
  121. /*
  122.  
  123.         Object errorTable_Table is a Table errorTable_Table Main_File FLEXERRS By Recnum
  124.  
  125.             Set Wrap_State To True
  126.             Set Location To 0 0 Relative
  127.             Set Scroll_Bar_Visible_State To True
  128.             Set Location of (ScrollBar(Current_Object)) To 5 78 Relative
  129.  
  130.             Begin_Row
  131.                 Entry_Item FLEXERRS.RECNUM          { NOPUT, IZOOM=Flexerrs_Zoom_Zoom_Form.obj }
  132.                 Entry_Item FLEXERRS.ERROR_DESCR     { IZOOM=Flexerrs_Zoom_Zoom_Form.obj }
  133.                 Entry_Item FLEXERRS.NOTE            { IZOOM=Flexerrs_Zoom_Zoom_Form.obj }
  134.             End_Row
  135.  
  136.             #INCLUDE FLEXERR1.INC
  137.  
  138.         End_Object  // errorTable_Table
  139.  
  140.     End_Object  // FLEXERRS_Data_Set
  141.  
  142. /Flexerrs_Zoom_Zoom_Form
  143. ╔═══════════════════════════════════════════════════════╗
  144. ║ Record#:     _______.                                 ║
  145. ║                                                       ║
  146. ║ Error#:      _______.                                 ║
  147. ║                                                       ║
  148. ║ Description: ________________________________________ ║
  149. ║                                                       ║
  150. ║ Notes:       ________________________                 ║
  151. ║                                                       ║
  152. ║                                                       ║
  153. ╚═══════════════════════════════════════════════════════╝
  154. /*
  155.  
  156.     Object Flexerrs_Zoom_Zoom_Form is an Entry_Form Flexerrs_Zoom_Zoom_Form Popup Using FLEXERRS_Data_Set
  157.  
  158.         Set Location To 6 11 Relative
  159.         Set Block_Mouse_State To True
  160.         Set Scope_State to True
  161.  
  162.         Item_List
  163.             Entry_Item FLEXERRS.RECNUM          { AutoClear, AutoFind, NoPut }
  164.             Entry_Item (FLEXERRS.RECNUM + if( FLEXERRS.RECNUM <> 0, errorOffset, 0 ))
  165.             Entry_Item FLEXERRS.ERROR_DESCR
  166.             Entry_Item FLEXERRS.NOTE
  167.         End_Item_List
  168.  
  169.         #INCLUDE FLEXERR2.INC
  170.  
  171.     End_Object  // Flexerrs_Zoom_Zoom_Form
  172.  
  173. End_Object  // BACKGROUND_Client
  174.  
  175. Item_Group
  176.     Dependent_Item errorTable_Table 0
  177.     Dependent_Item Flexerrs_Zoom_Zoom_Form 1
  178. End_Item_Group
  179.  
  180. Item_Group
  181.     Dependent_Item errorTable_Table 1
  182.     Dependent_Item Flexerrs_Zoom_Zoom_Form 2
  183. End_Item_Group
  184.  
  185. Item_Group
  186.     Dependent_Item errorTable_Table 2
  187.     Dependent_Item Flexerrs_Zoom_Zoom_Form 3
  188. End_Item_Group
  189.  
  190. Start_Ui BACKGROUND_Client
  191.