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 / SYWCOM._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  12KB  |  244 lines
  1. AR|SO|PO
  2. INVNO
  3. Accounts Receivable Comments
  4. a_armast//
  5. invno
  6. PURNO
  7. Purchase Order Comments
  8. a_pomast//
  9. purno
  10. Sales Order Comments
  11. a_somast//
  12. gf_commf = gf_&gc_applid.commf
  13. gf_scomf = gf_&gc_applid.scomf
  14. commid
  15. lc_comline[ln_line] = SPACE(LEN(a_&gc_applid.scom->comment))
  16.  Maintenance
  17. lw_comm
  18. USE IN a_&gc_applid.comm
  19. USE IN a_&gc_applid.scom
  20. LC_FORMNO
  21. LC_COMMID
  22. LC_OUTWINDGN_TRACE
  23. E_TRACE
  24. LC_PRMPT
  25. GC_APPLID
  26. LL_CONT
  27. LC_TITLE
  28. ELC_DOCKEY
  29. LN_OPNMASTG_OPNFL
  30. GF_ARMASTFGF_POMASTFGF_SOMASTFLN_OPNSCOMGF_SCOMF
  31. WLN_OPNCOMMGF_COMMF
  32. GLN_MAX
  33. LC_COMLINELN_LINE
  34. LW_COMM
  35. L_ADDCOM
  36. L_EDTCOM
  37. a_armast,
  38. a_pomast,
  39. a_somast,
  40. MISC  
  41. Enter comment code, <F2> to list, or Blank to Quit
  42. Comment Code: 
  43. !!!!!!
  44. MISC  
  45. SELECT a_&gc_applid.scom
  46. commid
  47. System Comment
  48. SET ORDER TO TAG commid IN a_&gc_applid.scom
  49. SCAN WHILE a_&gc_applid.scom->commid = lc_commid .AND. ln_ctr <= 6
  50. lc_comline[ln_ctr] = a_&gc_applid.scom->comment
  51. Cancel
  52. MISC  
  53. Save comment?
  54. Continue to Edit comment?
  55. Save changes to comment F
  56. Continue to Edit commentF
  57. Save comment F
  58.  with current 
  59. form?
  60. Make changes to comment F
  61. Cancel comment entry?
  62. Enter
  63. Edit8
  64.  comment text.  
  65. Press <Ctrl-W> when done.
  66. SECFFF
  67. MISC  
  68. Make copy of new system comment in 
  69.  file?
  70. Make copy
  71. System only
  72. Updating System Comment File
  73. MISC  
  74. MISC  
  75. Accounts Receivable \<Comments
  76. Purchase Order \<Comments
  77. Sales Order \<Comments
  78. Update comment in system comment file?
  79. System file
  80.  file only
  81. Updating System Comment File
  82. SET ORDER TO TAG commid IN a_&gc_applid.scom
  83. MISC  
  84. MISC  
  85. Make copy of system comment F
  86.  file?
  87. Make copy
  88. System only
  89. SELECT a_&gc_applid.comm
  90. Updating 
  91.  File
  92. IF ll_found .AND. lc_formno = &lc_dockey
  93. ll_found = (lc_formno = &lc_dockey)
  94. REPLACE &lc_dockey  WITH a_&gc_applid.mast->&lc_dockey,  comment WITH lc_comline[ln_ctr],  adduser WITH gc_userid,  adddate WITH DATE(),  addtime WITH TIME()
  95. MISC  
  96. SELECT a_&gc_applid.mast
  97. LL_NEWFRM
  98. GC_APPLID
  99. A_ARMAST
  100. DLC_FORMNO
  101. ARSTAT
  102. INVNO
  103. LL_CONT
  104. A_POMAST
  105. POSTAT
  106. PURNO
  107. A_SOMAST
  108. SOSTAT
  109. MASTFLL_NEW
  110. LC_COMMID
  111. LL_EDIT
  112. LW_GETCM
  113. WG_DSPST
  114. MMGN_MSGLINEGK_ESC
  115. COMMID
  116. GC_IDRVTMPGC_TMPF1
  117. GC_EXTNDX
  118. G_SELCM
  119. LN_COMREC
  120. LN_CTR
  121. LA_PAD
  122. ELA_PRMPT
  123. LC_OUTWINDG_DSPCH
  124. LW_COMM
  125. NELN_LINE
  126. LC_COMLINELC_ANS
  127. INDG_GETCH
  128. ICLN_MAX
  129. CL_CNTLNS
  130. G_LCKFL
  131. TGN_RETRY
  132. LL_COPY
  133. TG_GETDL
  134. GC_OSEOL
  135. LC_TITLE
  136. COMMENT
  137. ADDUSER
  138. NEGC_USERID
  139. ADDDATE
  140. IMADDTIME
  141. LC_PRMPT
  142. LL_SYST
  143. LL_FOUND
  144. G_LCKRC
  145. Unable to locate comment for 
  146. MISC  
  147. SELECT a_&gc_applid.comm
  148. SELECT a_&gc_applid.scom
  149. MISC  
  150. Edit Commente
  151. SCAN WHILE IIF(lc_commid = "MISC  ", a_&gc_applid.comm->&lc_dockey =  lc_formno, a_&gc_applid.scom->commid = lc_commid) .AND. ln_ctr <= 6
  152. lc_comline[ln_ctr] = IIF(lc_commid = "MISC  ",  a_&gc_applid.comm->comment,  a_&gc_applid.scom->comment)
  153. Cancel
  154. .  Add comment?
  155. .  Cancel edit?
  156. Replace
  157. Delete
  158. Edit this F
  159. MISC  
  160. system
  161. form8
  162.  comment?
  163. Replace comment with F
  164. MISC  
  165. another
  166.  from system comment file?
  167. Delete this F
  168. MISC  
  169. system
  170. form8
  171.  comment?
  172. Discontinue comment editing?
  173. ERDQFFF
  174. MISC  
  175. SELECT a_&gc_applid.comm
  176. Edit Comment/
  177. MISC  
  178. SELECT a_&gc_applid.comm
  179. Edit Comment/
  180. MISC  
  181. SELECT a_&gc_applid.comm
  182. Edit Comment/
  183. DELETE WHILE a_&gc_applid.comm->&lc_dockey = lc_formno
  184. SELECT a_&gc_applid.mast
  185. IF .NOT. (RLOCK() .OR. g_lckrc("a_&gc_applid.mast", gn_retry, .t., ""))
  186. SELECT a_&gc_applid.comm
  187. Comment Deleted
  188. Cancel
  189. Save changes to this comment?
  190. Continue editing comment?
  191. Discard changes to this comment?
  192. Edit comment text.  Press <Ctrl-W> when done.
  193. SECFFF
  194. MISC  
  195. SELECT a_&gc_applid.comm
  196. Edit Comment/
  197. SELECT a_&gc_applid.comm
  198. Updating 
  199.  Comment
  200. IF ll_found .AND. lc_formno = &lc_dockey
  201. ll_found = (lc_formno = &lc_dockey)
  202. REPLACE &lc_dockey  WITH lc_formno,  comment WITH lc_comline[ln_ctr]
  203. SELECT a_&gc_applid.mast
  204. IF a_&gc_applid.mast->commid <> "MISC  "
  205. MISC  
  206. SELECT a_&gc_applid.comm
  207. Edit Comment/
  208. LC_NOCOMM
  209. LC_FORM
  210. LC_FORMNO
  211. LC_COMMID
  212. G_LCKOB
  213. GN_RETRY
  214. LL_CONT
  215. LN_CTR
  216. LA_PAD
  217. LA_PRMPT
  218. LC_OUTWINDG_GETCH
  219. L_ADDCOM
  220. FLW_COMM
  221. LN_LINE
  222. LC_COMLINELC_ANS
  223. INDGK_ESC
  224. MMLL_CLEAR
  225. G_LCKFL
  226. COMMID
  227. G_DSPALT
  228. PG_DSPCH
  229. NDLN_MAX
  230. L_CNTLNS
  231. G_DSPST
  232. GN_MSGLINELL_FOUND
  233. COMMENT
  234. NEG_LCKRC
  235. GN_TRACE
  236. E_TRACE
  237. LN_LINES
  238. LC_COMLINEL_ADDCOM
  239. L_EDTCOM
  240. L_CNTLNS
  241. C:\SMDISK\
  242. C:\SMDISK\SYWCOM.PRG
  243. SYWCOM.FXP
  244.