home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 2.img / TOOLKIT / TOOLKIT.ZIP / ORDRDPA.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  1.8 KB  |  54 lines
  1. TableName = "Orders"
  2. FormId = "F"
  3. BorrowFile = "Borrow3"
  4.  
  5. Proc TKOrders_F()
  6.  
  7.    Array TKAction[8]
  8.    TKAction[1] = ""
  9.    TKAction[2] = ""
  10.    TKAction[3] = ""
  11.    TKAction[4] = ""
  12.    TKAction[5] = ""
  13.    TKAction[6] = ""
  14.    TKAction[7] = ""
  15.    TKAction[8] = ""
  16.  
  17.    Array TKArrive[1]
  18.  
  19.    Array TKGoodDepart[1]
  20.  
  21.    Array TKBadDepart[1]
  22.  
  23.    Array TKKeystroke[1]
  24.  
  25.    TKTblArrive = "SetOrdrPrompt"
  26.    TKTblDepart = ""
  27.    TKRecArrive = "InitOrdrRec"
  28.    TKRecDepart = "ChngOrdrRec"
  29.    TKMvmntProc = "RecMvmnt"
  30.    TKInactiveProc = "InactivityProc"
  31.    TKSpclProc = "OrdrSpclKey"
  32.  
  33. ;             0....+....1....+....2....+....3....+....4....+....5....+....6
  34.    TKNegKey ="IIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIIIIIIMISIIIIIIIIIIIISD" +
  35.               "MMIIIIIIIIMMMIMIMIMMMMMIIIIIIIIIIIIIIIIIIIIIIIIRIIIIIIMMMMMI" +
  36.               "IIIIIIIIIIIM"
  37.    TKPosKey = "RRRRRRRRMRRRMRIRRIRRMRRRRMRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  38.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  39.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  40.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  41.               "RRRRRRRRRRRRRRR"
  42.  
  43. ;             0....+....1....+....2....+....3....+....4....+....5....+....6
  44.     TKNegMv ="....................................................." +
  45.               "............................................" +
  46.               "..........."
  47.     TKPosMv = "........................................................." +
  48.               "............................................................" +
  49.               "............................................................" +
  50.               "............................................................" +
  51.               "..............."
  52.  
  53. Endproc
  54.