home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / catalogs / djdemo12.zip / DJ.ZIP / FDANCE < prev    next >
Text File  |  1993-01-03  |  3KB  |  131 lines
  1. Proc SubParts()
  2. ClearAll
  3. Clear
  4. @11,10??"Please enter Part Number "
  5. Accept "A15"
  6. Picture "*!"
  7. To Part
  8. Message " Searching for Part #: ",Part
  9. EMPTY "Sub_Tmp"
  10. Query
  11.  
  12.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  13.      | Check       | Check ..~Part..      | Check  | Check  | Check  | Check  | 
  14.  
  15.  Sub | Sub 5  | 
  16.      | Check  | 
  17.  
  18. Endquery
  19.  
  20.  
  21. Do_It!
  22.  
  23. If Not (IsEmpty("Answer"))
  24.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  25.    EndIf
  26. ClearImage
  27. Message "Pass #2"
  28.  
  29. Query
  30.  
  31.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  32.      | Check       | Check       | Check ..~Part.. | Check  | Check  | Check  | 
  33.  
  34.  Sub | Sub 5  | 
  35.      | Check  | 
  36.  
  37. Endquery
  38.  
  39.  
  40. Do_It!
  41.  
  42. If Not (IsEmpty("Answer"))
  43.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  44.    EndIf
  45. ClearImage
  46.  
  47. Message "Pass #3"
  48. Query
  49.  
  50.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  51.      | Check       | Check       | Check  | Check ..~Part.. | Check  | Check  | 
  52.  
  53.  Sub | Sub 5  | 
  54.      | Check  | 
  55.  
  56. Endquery
  57.  
  58.  
  59. Do_It!
  60.  
  61. If Not (IsEmpty("Answer"))
  62.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  63.    EndIf
  64. ClearImage
  65.  
  66. Message "Pass #4"
  67. Query
  68.  
  69.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  70.      | Check       | Check       | Check  | Check  | Check ..~Part..  | Check  | 
  71.  
  72.  Sub | Sub 5  | 
  73.      | Check  | 
  74.  
  75. Endquery
  76.  
  77.  
  78. Do_It!
  79.  
  80. If Not (IsEmpty("Answer"))
  81.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  82.    EndIf
  83. ClearImage
  84. Message "Pass #5"
  85. Query
  86.  
  87.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  88.      | Check       | Check       | Check  | Check  | Check  | Check ..~Part.. | 
  89.  
  90.  Sub | Sub 5  | 
  91.      | Check  | 
  92.  
  93. Endquery
  94.  
  95.  
  96. Do_It!
  97.  
  98. If Not (IsEmpty("Answer"))
  99.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  100.    EndIf
  101. ClearImage
  102. Message "Final Pass..."
  103. Query
  104.  
  105.  Sub | Description | Main Part # | Sub 1  | Sub 2  | Sub 3  | Sub 4  | 
  106.      | Check       | Check       | Check  | Check  | Check  | Check  | 
  107.  
  108.  Sub | Sub 5  | 
  109.      | Check ..~Part.. | 
  110.  
  111. Endquery
  112. Do_It!
  113. If Not (IsEmpty("Answer"))
  114.       Then ADD "Answer" "sub_tmp" Empty "Answer"
  115.    EndIf
  116.  
  117. If (IsEmpty("Sub_Tmp"))
  118.    Then Message "No Records Exist...." Sleep 2000 Main_Men()
  119.    Else View "Sub_Tmp" PickForm 1
  120.        
  121.        Wait Table
  122.           Message "Press F2 or ESC when done viewing.."
  123.           Until "F2","ESC"
  124. EndIf
  125. ClearImage
  126. Clear
  127. Empty "Sub_Tmp"
  128. Main_Men()
  129. EndProc
  130. ;**************************************************************************
  131.