home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 2.img / TOOLKIT / TOOLKIT.ZIP / INVDPA.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  2.2 KB  |  69 lines
  1. TableName = "Invoice"
  2. FormId = "F"
  3. BorrowFile = "Borrow2"
  4.  
  5. Proc TKInvoice_F()
  6.  
  7.    Array TKAction[15]
  8.    TKAction[1] = ""
  9.    TKAction[2] = ""
  10.    TKAction[3] = ""
  11.    TKAction[4] = "D"
  12.    TKAction[5] = "D"
  13.    TKAction[6] = ""
  14.    TKAction[7] = "F"
  15.    TKAction[8] = "AD"
  16.    TKAction[9] = "DK"
  17.    TKAction[10] = "D"
  18.    TKAction[11] = ""
  19.    TKAction[12] = ""
  20.    TKAction[13] = ""
  21.    TKAction[14] = ""
  22.    TKAction[15] = ""
  23.  
  24.    Array TKArrive[8]
  25.    TKArrive[8] = "SkipCredInfo"
  26.  
  27.    Array TKGoodDepart[10]
  28.    TKGoodDepart[4] = "GetCustNo"
  29.    TKGoodDepart[5] = "ReCalcDisc"
  30.    TKGoodDepart[8] = "ReqCredInfo"
  31.    TKGoodDepart[9] = "ReqCredInfo"
  32.    TKGoodDepart[10] = "ControlMvmnt"
  33.  
  34.    Array TKBadDepart[7]
  35.    TKBadDepart[7] = "BadPayMethod"
  36.  
  37.    Array TKKeystroke[9]
  38.    TKKeystroke[9] = "LeaveFullDate"
  39.  
  40.    TKTblArrive = "SetInvPrompt"
  41.    TKTblDepart = ""
  42.    TKRecArrive = "InitInvRec"
  43.    TKRecDepart = "PostInvRec"
  44.    TKMvmntProc = "RecMvmnt"
  45.    TKInactiveProc = "InactivityProc"
  46.    TKSpclProc = "InvSpclKey"
  47.  
  48. ;             0....+....1....+....2....+....3....+....4....+....5....+....6
  49.    TKNegKey ="IIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIIIIIIIISIIIIIIIIIIIISD" +
  50.               "DDIIIIISIIMMIIMIMIMMIMMIIIIIIIIIIIIIIIIIIIIIIIIRIIIIIIMMMMMI" +
  51.               "IIIIIIIIIIIM"
  52.    TKPosKey = "RRRRRRRRMRRRMRIRRIRRDRRRRMRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  53.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  54.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  55.               "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR" +
  56.               "RRRRRRRRRRRRRRR"
  57.  
  58. ;             0....+....1....+....2....+....3....+....4....+....5....+....6
  59.     TKNegMv ="....................................................." +
  60.               "............................................" +
  61.               "..........."
  62.     TKPosMv = "........................................................." +
  63.               "............................................................" +
  64.               "............................................................" +
  65.               "............................................................" +
  66.               "..............."
  67.  
  68. Endproc
  69.