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