home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / sbt25sm4.zip / ZIPSMC02.EXE / SYSCOM._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  11KB  |  242 lines
  1. lf_scomf  = gf_&gc_applid.scomf
  2. commid
  3. lc_comline[1]  = SPACE(LEN(a_&gc_applid.scom->comment))
  4. lc_comline[2]  = SPACE(LEN(a_&gc_applid.scom->comment))
  5. lc_comline[3]  = SPACE(LEN(a_&gc_applid.scom->comment))
  6. lc_comline[4]  = SPACE(LEN(a_&gc_applid.scom->comment))
  7. lc_comline[5]  = SPACE(LEN(a_&gc_applid.scom->comment))
  8. lc_comline[6]  = SPACE(LEN(a_&gc_applid.scom->comment))
  9. \<Select
  10. \<Recall
  11. \<Fwd
  12. \<Back
  13. DO l_cmproc WITH "R"
  14. \<Edit
  15. \<Delete
  16. \<Fwd
  17. \<Back
  18. DO l_cmproc WITH "E"
  19. DO l_cmproc WITH "D"
  20. E\<xit
  21. \<Help
  22. DO l_cmproc WITH "S"
  23. DO l_cmproc WITH "F"
  24. DO l_cmproc WITH "B"
  25. DO l_cmproc WITH "X"
  26. Select option from comments menu
  27. USE IN a_&gc_applid.scom
  28. lw_sycomm
  29. GN_TRACE
  30. E_TRACE
  31. LC_MALIAS
  32. LC_COMMID
  33. LC_RESP
  34. ELL_NEW
  35. LN_OPNSCOMG_OPNFL
  36. LF_SCOMF
  37. GC_APPLID
  38. LW_SYCOMM
  39. LN_MAX
  40. LC_COMLINEL_DSPCOM
  41. L_GETCOM
  42. L_INITCM
  43. LL_INMENU
  44. M_COMM
  45. LP_SELE
  46. LP_RECALL
  47. LP_FWD
  48. LP_BACK
  49. PLN_EXTCOL
  50. LP_EDIT
  51. LP_DELE
  52. LP_QUIT
  53. LP_HELP
  54. GN_HLPCOL
  55. GU_HELP
  56. NEG_DSPST
  57. GN_MSGLINEL_CMPROC
  58. End Of Comment File
  59. Top Of Comment File
  60. Recall Commente
  61. UNLOCK IN a_&gc_applid.scom
  62. ll_cont = (FLOCK() .OR.  g_lckfl("a_&gc_applid.scom", gn_retry, .t., ""))
  63. UNLOCK IN a_&gc_applid.scom
  64. SELECT a_&gc_applid.scom
  65. lc_commid = a_&gc_applid.scom->commid
  66. RDSEBF
  67. M_COMM
  68. LC_ACTION
  69. LC_HELPID
  70. GN_TRACE
  71. E_TRACE
  72. LC_COMLINELN_MAX
  73. L_EDITCM
  74. ECOMMID
  75. LC_COMMID
  76. G_DSPALT
  77. L_DELCOM
  78. G_LCKOB
  79. GN_RETRY
  80. ELL_CONT
  81. LL_CLEAR
  82. LN_XREC
  83. L_INITCM
  84. L_DSPCOM
  85. L_GETCOM
  86. LL_NEW
  87. LL_INMENU
  88. LW_SYCOMM
  89. Delete Commente
  90. UNLOCK IN a_&gc_applid.scom
  91. a_pmprop
  92. a_pmprop//
  93. a_pmtent
  94. a_pmtent
  95. a_armast
  96. a_pomast//
  97. purno
  98. a_somast
  99. open Invoices.
  100. open Purchase Orders.
  101. open Sales Orders.
  102. Properties or Tenants.
  103. documents.
  104. This Comment appears on one or more 
  105. Deletion cancelled.
  106. SELECT a_&gc_applid.scom
  107. SELECT a_&gc_applid.scom
  108. Delete this Comment?
  109. Delete
  110. Cancel
  111. IF  FLOCK() .OR. g_lckfl("a_&gc_applid.scom", gn_retry, .t., "")
  112. UNLOCK IN a_&gc_applid.scom
  113. LL_CONT
  114. G_LCKOB
  115. GN_RETRY
  116. GC_APPLID
  117. LC_MALIAS
  118. LN_OPNPROPG_OPNFL
  119. EGF_PROPF
  120. COMMID
  121. LC_COMMID
  122. LN_OPNTENTGF_TENTF
  123. A_PMTENT
  124. ELN_OPNMASTGF_ARMASTFA_ARMAST
  125. BALANCE
  126. ARSTAT
  127. GF_POMASTFA_POMAST
  128. PURAMT
  129. RECAMT
  130. POSTAT
  131. GF_SOMASTFA_SOMAST
  132. ORDAMT
  133. SOSTAT
  134. LC_MSG
  135. G_DSPALT
  136. GC_OSEOL
  137. GC_BELL
  138. NEG_GETDLG
  139. ELL_CLEAR
  140. Comment File Maintenance
  141. Comment ID:  
  142. Comment Deleted By: F
  143.   On: 
  144. Updated By: F
  145.   On: 
  146.  Comment Text: 
  147. LW_SYCOMM
  148. G_PNTBG
  149. GS_219
  150. LC_COMMID
  151. LCKUSER
  152. LCKDATE
  153. OPGC_BELL
  154. EGS_220
  155. LC_COMLINE-
  156. Edit Commente
  157. UNLOCK IN a_&gc_applid.scom
  158. Enter comment...
  159. Edit comment...8
  160. LW_SYCOMM
  161. Cancel
  162. Save F
  163. Changes to this8
  164.  comment?
  165. Edit F
  166. Changes to this8
  167.  comment?
  168. Cancel comment F
  169. entry?
  170. edit?8
  171. SECFFF
  172. UNLOCK IN a_&gc_applid.scom
  173. LL_CONT
  174. LL_NEW
  175. G_LCKOB
  176. GN_RETRY
  177. G_DSPST
  178. GN_MSGLINEGC_APPLID
  179. GC_COMPID
  180. GC_USERID
  181. LW_SYCOMM
  182. LA_PAD
  183. ENTLA_PRMPT
  184. LC_ANS
  185. EG_DSPCH
  186. STLC_COMLINEG_GETCH
  187. NEGK_ESC
  188. LN_MAX
  189. INEL_UPDFLS
  190. ELL_CLEAR
  191. LC_COMMID
  192. GC_TASK
  193. Enter Comment Code, <F2> to list, or Blanks to Quit
  194. !!!!!!
  195. MISC  
  196. MISC is a reserved comment code. 
  197. commid
  198. Comment
  199. SET ORDER TO TAG commid IN a_&gc_applid.scom
  200. LC_GETCOM
  201. LL_NEW
  202. G_DSPST
  203. GN_MSGLINELW_SYCOMM
  204. G_DSPALT
  205. COMMID
  206. GC_IDRVTMPGC_TMPF1
  207. GC_EXTNDX
  208. G_SELCM
  209. GC_APPLID
  210. LC_COMMID
  211. IF a_&gc_applid.scom->commid = lc_commid
  212. lc_comline[ln_ctr] = a_&gc_applid.scom->comment
  213. lc_comline[ln_ctr] = SPACE(LEN(a_&gc_applid.scom->comment))
  214. IF a_&gc_applid.scom->commid = lc_commid .AND. .NOT. EOF()
  215. LN_CTR
  216. LC_COMMID
  217. Updating Comment File
  218. IF (FLOCK() .OR. g_lckfl("a_&gc_applid.scom", gn_retry, .t., ""))
  219. UNLOCK IN a_&gc_applid.scom
  220. G_DSPST
  221. GN_MSGLINELN_CTR
  222. LL_NEW
  223. INELN_MAX
  224. COMMID
  225. LC_COMMID
  226. COMMENT
  227. MPLC_COMLINEADDUSER
  228. GC_USERID
  229. ADDDATE
  230. ADDTIME
  231. LC_ACTION
  232. L_CMPROC
  233. L_DELCOM
  234. L_DSPCOM
  235. L_EDITCM
  236. L_GETCOM
  237. L_INITCM
  238. L_UPDFLS
  239. C:\SMDISK\
  240. C:\SMDISK\SYSCOM.PRG
  241. SYSCOM.FXP
  242.