home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP18_2.PRG < prev    next >
Encoding:
Text File  |  1994-01-13  |  5.3 KB  |  202 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP18_2.PRG                                          ⌐ª
  3. *⌐ª     Function: ┤≥╙í▒¿▒φ╖╢└²╢■                                       ⌐ª
  4. *⌐ª   DBF & File: customer.dbf                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. PRIVATE m.currarea, m.talkstat, m.compstat, m.safestat
  8. PRIVATE m.output, m.filename, m.choice, m.fromname, ;
  9.         m.report, reps, repo, to
  10.  
  11. IF SET("TALK") = "ON"
  12.         SET TALK OFF
  13.         m.talkstat = "ON"
  14. ELSE
  15.         m.talkstat = "OFF"
  16. ENDIF
  17. IF SET("SAFETY") = "ON"
  18.         SET SAFETY OFF
  19.         m.safestat = "ON"
  20. ELSE
  21.         m.safestat = "OFF"
  22. ENDIF
  23.  
  24. m.compstat = SET("COMPATIBLE")
  25. SET COMPATIBLE FOXPLUS
  26. IF NOT WEXIST("reports")
  27.         DEFINE WINDOW reports ;
  28.                 FROM INT((SROW()-18)/2),INT((SCOL()-58)/2) ;
  29.                 TO INT((SROW()-18)/2)+12,INT((SCOL()-58)/2)+57 ;
  30.                 TITLE "<< ▒¿▒φ╩Σ│÷╜τ├µ >>" ;
  31.                 FLOAT ;
  32.                 NOCLOSE ;
  33.                 SHADOW ;
  34.                 COLOR SCHEME  7
  35. ENDIF
  36. IF NOT WEXIST("view")
  37.         DEFINE WINDOW view ;
  38.                 FROM 0,-4 TO 24,79 ;
  39.                 TITLE "<< ▒¿▒φ╙Φ╩╙┤░┐┌ >>" ;
  40.                 NOCLOSE ;
  41.                 COLOR SCHEME 8
  42. ENDIF
  43.  
  44. m.choice   = ""
  45. m.output   = "Preview"
  46. m.filename = SPACE(20)
  47. m.report   = 1
  48. CLEAR
  49. IF WVISIBLE("reports")
  50.         ACTIVATE WINDOW reports SAME
  51. ELSE
  52.         ACTIVATE WINDOW reports NOSHOW
  53. ENDIF
  54.  
  55. * Radio ░┤┼ñ
  56. @ 01,14 GET m.output ;
  57.         PICTURE "@*RVN ╙Φ╩╙;╬─╝■;┤≥╙í╗·" ;
  58.         SIZE 1,12,1 ;
  59.         DEFAULT 1 ;
  60.         VALID _val281()
  61. * ╬─╫╓▒α╝¡╟°
  62. @ 03,27 EDIT m.filename ;
  63.         PICTURE "@TK" ;
  64.         SIZE 1,21,0 ;
  65.         DEFAULT " " ;
  66.         COLOR SCHEME 1
  67. * Push ░┤┼ñ
  68. @ 08,16 GET m.choice ;
  69.         PICTURE "@*HN \!\<OK;\?\<Cancel" ;
  70.         SIZE 1,10,4 ;
  71.         DEFAULT 1 ;
  72.         VALID _val282()
  73.  
  74. IF NOT WVISIBLE("reports")
  75.         ACTIVATE WINDOW reports
  76. ENDIF
  77.  
  78. READ CYCLE
  79.  
  80. RELEASE WINDOWS reports,view
  81.  
  82. IF m.talkstat = "ON"
  83.    SET TALK ON
  84. ENDIF
  85. IF m.safestat = "ON"
  86.    SET SAFETY ON
  87. ENDIF
  88. IF m.compstat = "ON"
  89.         SET COMPATIBLE ON
  90. ENDIF
  91.  
  92.  
  93. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  94. *⌐ª   ▒Σ┴┐: m.output
  95. *⌐ª   ╡≈╙├: VALID ▒Σ┴┐
  96. *⌐ª   └α╨═: Radio Buttons
  97. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  98. FUNCTION _val281     &&  m.output VALID
  99. PRIVATE m.reponame
  100. m.reponame = "retaurs"+".TXT"
  101. IF m.output = "To File"
  102.         m.filename = ALLTRIM(PUTFILE("Output file:", reponame,"TXT"))
  103.         SHOW GET m.filename
  104. ELSE
  105.         m.filename = SPACE(20)
  106.         SHOW GET m.filename
  107. ENDIF
  108.  
  109. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  110. *⌐ª     ▒Σ┴┐: m.choice
  111. *⌐ª     ╡≈╙├: VALID ▓╬╩²
  112. *⌐ª     └α╨═: Push Buttons
  113. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  114. FUNCTION _val282     &&  m.choice VALID
  115. DO CASE
  116. CASE m.choice = "OK"
  117.         DO CASE
  118.         CASE m.output = "╬─╝■"
  119.              to = m.filename
  120.              SET PRINTER ON
  121.              SET PRINTER TO &to
  122.              SET CONSOLE OFF
  123.              DO printing
  124.              CLEAR READ
  125.         CASE m.output = "╙Φ╩╙"
  126.              SET PRINTER ON
  127.              SET PRINTER TO preview.txt
  128.              SET CONSOLE OFF
  129.              DO printing
  130.              USE SYS
  131.              APPEND MEMO sysmem FROM preview.txt OVERWRITE
  132.              MODIFY MEMO sysmem NOEDIT WINDOW view
  133.         CASE m.output = "┤≥╙í╗·"
  134.              SET ESCAPE OFF
  135.              IF PRINTSTATUS()
  136.                 SET PRINTER ON
  137.                 DO printing
  138.                 CLEAR READ
  139.              ELSE
  140.                  WAIT WINDOW  " ┤≥╙í╗·├╗╫╝▒╕║├! "
  141.                  RETURN TO MASTER
  142.              ENDIF
  143.              SET ESCAPE ON
  144.         ENDCASE
  145. CASE m.choice = "Cancel"
  146.      CLEAR READ
  147. ENDCASE
  148.  
  149. **⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  150. PROCEDURE printing
  151. PRIVATE YY,MM,DD,TITLE,OnPageLine
  152. STORE "LINEFEED" TO _PADVANCE     && ╔Φ╢¿▓╔╙├╨╨╜°╓╜╖╜╩╜
  153. STORE 2 TO _PSPACING              && ╔Φ╢¿╨╨╝Σ╛α╬¬ 2
  154. STORE 1 TO _PAGENO                && ╜½  _PAGENO ╓╪╔Φ╬¬ 1
  155. width = _RMARGIN-_LMARGIN         && ╝╞╦π┤≥╙í┐φ╢╚
  156. YY    = STR(YEAR(DATE()))
  157. MM    = STR(MONTH(DATE()),2)
  158. DD    = STR(DAY(DATE()),2)
  159. TITLE = "<< ┐═╗º╩²╛▌▒¿▒φ >>"
  160. USE CUSTOMER
  161. OnPageLine = IIF(_PSPACING>1,_PLENGTH-(2*_PSPACING+3), ;
  162.                              _PLENGTH-8)
  163. ON PAGE AT LINE OnPageLine DO Pg_Brk
  164.  
  165. DO Pg_head
  166. SCAN FOR YTDPURCH > 4000
  167.      ? PADR(CNO,8),PADR(CONTACT,22),PADR(ADDRESS,32),PADR(PHONE,14)
  168. ENDSCAN
  169. ON PAGE && ╚í╧√╧╚╟░ ON PAGE ├ⁿ┴ε╔Φ╢¿
  170. FOR I=_PLINENO TO OnPageLine STEP _PSPACING
  171.     ?
  172. ENDFOR
  173. DO Pg_foot
  174.  
  175. * ╗╓╕┤╧╡═│╫┤╠¼
  176. STORE 1 TO _PSPACING
  177. STORE "FORMFEED" TO _PADVANCE
  178. SET PRINTER OFF
  179. SET PRINTER TO
  180. SET CONSOLE ON
  181.  
  182. PROCEDURE Pg_Brk
  183.  DO Pg_foot
  184.  DO Pg_head
  185. RETURN
  186.  
  187. * ┤≥╙í▒¿▒φ▒φ╬▓
  188. PROCEDURE Pg_foot
  189.   ? REPLICATE("=",width)
  190.   ? PADC("┤≥╙í╚╒╞┌: "+YY+" ─Ω "+MM+" ╘┬ "+DD+" ╚╒ ",width)
  191.   EJECT PAGE
  192. RETURN
  193.  
  194. * ┤≥╙í▒¿▒φ▒φ═╖
  195. PROCEDURE Pg_head
  196.  ?? "╥│  ┤╬: " AT 65,LTRIM(STR(_PAGENO,4))
  197.  ? PADC(TITLE,width)
  198.  ? "┐═╗º▒α║┼"+PADC("┴¬ ╧╡ ╚╦",22)+PADC("╫í    ╓╖",32)+;
  199.    PADC("╡τ    ╗░",14)
  200.  ? REPLICATE("=",width)
  201. RETURN
  202.