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 / SYCLBL._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  13KB  |  216 lines
  1. TYPE("lc_opt")      = "C"
  2. TYPE("lc_title1")   = "C"
  3. TYPE("lc_type")     = "C"
  4. TYPE("lc_title2")   = "C"
  5. Labels for one Record
  6. Selected Labels
  7. Labels for All Records
  8. Modify Label Form
  9. HIDE POPUPS &lc_popup
  10. Custom Label
  11. a_araddr//
  12. invno
  13. a_soaddr//
  14. Don't modify Label Forms while 
  15. there are any other active users.
  16. Modify
  17. Cancel
  18. Customer Mailing Labels
  19. sycmai
  20. Customer Folder Labels
  21. sycfol
  22. Shipping Address Labels
  23. arship
  24. invno
  25. soship
  26. MODLABL
  27. Modify Label Form for 
  28. <Ctrl-W> to save label, <Esc> to cancel...F
  29. lw_lblms
  30. lw_syclbl
  31. lw_label
  32. Sample
  33. Print
  34. Edit count and contents
  35. Cancel
  36. Print a sample label for printer alignment
  37. Print labels
  38. Return to Menu
  39. Number 
  40. Option Grid - F
  41. Option Grid - F
  42. Number of Labels
  43. (number of labels per record)
  44. @M Number ,Company,Zip    
  45. Order By
  46. {Number/Company/Zip}
  47. !!!!!!
  48. Beginning Cust #
  49. (portion or blank for all)
  50. !!!!!!
  51. Ending Cust #
  52. (portion or blank for all)
  53. Cust Misc Code
  54. (portion or blank for all)
  55.  Enter Database Selection Expression or <Esc> to cancel: 
  56. @S70 F
  57. Enter an expression that evaluates to a logical 
  58. true/false...
  59. IF .NOT. EMPTY(lablscope) .AND. TYPE([&lablscope.]) <> "L"
  60. @S70 F
  61. Error in expression.
  62. IF TYPE([&lablscope.]) = "L"
  63.  .AND. 
  64. .t. .AND. 
  65. Creating Temporary Label File
  66. a_tmpf1
  67. COPY TO (gc_idrvtmp + gc_tmpf1)  WHILE custno >= mbcustno .AND.  LEFT(custno, LEN(mecustno)) <= mecustno  FOR &lc_cond. code = mcode .AND. .NOT. DELETED()
  68. COPY TO (gc_idrvtmp + gc_tmpf1)  WHILE custno >= mbcustno  FOR &lc_cond. code = mcode .AND. .NOT. DELETED()
  69. COPY TO (gc_idrvtmp + gc_tmpf1)  WHILE LEFT(custno,LEN(mecustno)) <= mecustno  FOR &lc_cond. code = mcode .AND. .NOT. DELETED()
  70. COPY TO (gc_idrvtmp + gc_tmpf1)  FOR &lc_cond. code = mcode .AND. .NOT. DELETED()
  71. a_tmpf1e/
  72. Indexing File
  73. Indexing File
  74. Indexing File
  75. SET FILTER TO &lc_cond. .NOT. DELETED()
  76. invno
  77. Creating Temporary Label File
  78. a_tmpf1
  79. COPY TO (gc_idrvtmp + gc_tmpf1)  FOR &lc_cond. arstat <> "V" .AND. .NOT. DELETED()
  80. COPY TO (gc_idrvtmp + gc_tmpf1)  FOR &lc_cond. sostat <> "V" .AND. .NOT. DELETED()
  81. a_tmpf1e/
  82. Indexing File
  83. SET FILTER TO &lc_cond. arstat <> "V" .AND. .NOT. DELETED()
  84. SET FILTER TO &lc_cond. sostat <> "V" .AND. .NOT. DELETED()
  85. Selected Label(s)
  86. Label(s) for All Records
  87. sycmai
  88. sycfol
  89. arship
  90. soship
  91. ll_cont = g_cncjob("")
  92. Creating Temporary Label File
  93. a_tmpf1
  94. a_tmpf1e/
  95. Label(s) for one Record
  96. sycmai
  97. sycfol
  98. a_arcust->custno = mcust .AND. 
  99. ll_cont = g_cncjob("")
  100. ARINVNUM
  101. SOSLSNUM
  102. Enter Invoice/Credit Memo Number 
  103. Enter Sales Order/Bid 
  104. !#######
  105. <F2> to List / Leave Blank To QuitF
  106. lw_invno
  107. invno
  108. ARMAST
  109. Invoice/CM
  110. SOMAST
  111. Sales Order
  112. Creating Temporary Label File
  113. a_tmpf1
  114. a_tmpf1e/
  115. invno = lc_frmno .AND. 
  116. arship
  117. sono = lc_frmno .AND. 
  118. soship
  119. Label(s) for one Record
  120. ll_cont = g_cncjob("")
  121. a_araddr
  122. a_soaddr
  123. a_tmpf1
  124. lw_syclbl
  125. lw_label
  126. SHOW POPUPS &lc_popup
  127. LC_OPT
  128. LC_TITLE1
  129. LC_TYPE
  130. LC_TITLE2
  131. GN_TRACE
  132. E_TRACE
  133. GL_ASSERT
  134. E_ASSRT
  135. LC_HELPID
  136. GU_PRNT1
  137. GU_PRNT
  138. MNGM_MAIN
  139. MNLW_SYCLBL
  140. LW_LABEL
  141. ELL_CONT
  142. NELN_OPNADDRGC_APPLID
  143. G_OPNFL
  144. DRGF_ARADDRFGF_SOADDRFGL_MULTI
  145. TG_GETDLG
  146. GC_OSEOL
  147. ELC_TITLE
  148. LC_LBLFILEGC_IDRVPRGA_ARCUST
  149. GGC_ADRVPRGA_ARMAST
  150. EINVNO
  151. ECUSTNO
  152. A_ARADDR
  153. A_SOMAST
  154. GSONO
  155. PA_SOADDR
  156. GC_HELPID
  157. LW_LBLMS
  158. GC_EXTLBL
  159. LL_EDIT
  160. LL_SAMPL
  161. LA_PAD
  162. PLA_PRMPT
  163. MLABLEACH
  164. MORDER
  165. MBCUSTNO
  166. RMECUSTNO
  167. EMCODE
  168. HFLABLSCOPE
  169. G_PNTBG
  170. G_DSPGD
  171. I8G_DSPCH
  172. PLN_LINE
  173. G_SAYOP
  174. G_DSPST
  175. GN_MSGLINEGK_ESC
  176. G_ENTVL
  177. LC_COND
  178. LN_RESP
  179. G_GETCH
  180. C_SELPR
  181. DA_TMPF1
  182. NEGC_IDRVTMPGC_TMPF1
  183. HGC_EXTDBF
  184. GC_TMPF2
  185. PLN_COPIES
  186. SGLINECOMPANY
  187. GC_EXTNDX
  188. L_LBOAR
  189. RGMCUST
  190. G_SELCST
  191. LW_INVNO
  192. LC_FRMNO
  193. ARSTAT
  194. SOSTAT
  195. G_SELRC
  196. TYPE("lc_title")  = "C"
  197. TYPE("mlableach") = "C"
  198. Printing 
  199. No matching records found.  Report cancelled.
  200. LABEL FORM (lc_lblfile + gc_extlbl)  OFF  WHILE &lc_cond. ll_cont  TO PRINTER
  201. LABEL FORM (lc_lblfile + gc_extlbl)  OFF  WHILE &lc_cond. ll_cont  SAMPLE  TO PRINTER
  202. GN_TRACE
  203. E_TRACE
  204. GL_ASSERT
  205. E_ASSRT
  206. G_DSPST
  207. LC_TITLE
  208. GN_MSGLINEG_DSPALT
  209. LL_CONT
  210. LC_LBLFILE_PDPARMS
  211. NLL_SAMPL
  212. NL_LBOAR
  213. C:\SMDISK\
  214. C:\SMDISK\SYCLBL.PRG
  215. SYCLBL.FXP
  216.