home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 2.img / TOOLKIT / TOOLKIT.ZIP / MINIDPA.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  1.3 KB  |  49 lines
  1. TableName = "Cust"
  2. FormId = "1"
  3. BorrowFile = "Borrow1"
  4.  
  5. Proc TKCust_1()
  6.  
  7.    Array TKAction[10]
  8.    TKAction[1] = ""
  9.    TKAction[2] = ""
  10.    TKAction[3] = "K"
  11.    TKAction[4] = "K"
  12.    TKAction[5] = ""
  13.    TKAction[6] = ""
  14.    TKAction[7] = ""
  15.    TKAction[8] = "D"
  16.    TKAction[9] = ""
  17.    TKAction[10] = ""
  18.  
  19.    Array TKArrive[1]
  20.  
  21.    Array TKGoodDepart[8]
  22.    TKGoodDepart[8] = "SetDiscount"
  23.  
  24.    Array TKBadDepart[1]
  25.  
  26.    Array TKKeystroke[4]
  27.    TKKeystroke[3] = "LeaveName"
  28.    TKKeystroke[4] = "LeaveName"
  29.  
  30.    TKTblArrive = ""
  31.    TKTblDepart = ""
  32.    TKRecArrive = ""
  33.    TKRecDepart = ""
  34.    TKMvmntProc = "StdMvmnt"
  35.    TKInactiveProc = ""
  36.    TKSpclProc = "EditMenu"
  37.  
  38. ;             0....+....1....+....2....+....3....+....4....+....5....+....6
  39.    TKNegKey ="EIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIE" +
  40.               "IIIIIIISIIMMMIMIMIMMMMMIIIIIIIIIIIIIIIIIIIIIIIIRIIIIIIMMMMMI" +
  41.               "IIIIIIIIIIIM"
  42.    TKPosKey = "RRRRRRRRMRRRMRIRRIRRMRRRRMRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  43.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  44.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  45.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  46.               "RRRRRRRRRRRRRRR"
  47.  
  48. Endproc
  49.