home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP17_3.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  1.6 KB  |  64 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP17_3.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧╡═│─┌┤µ▒Σ┴┐┤≥╙í▒¿▒φ╡─╖╢└².                      ⌐ª
  4. *⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET PRINTER ON
  8.  
  9. STORE "LINEFEED" TO _PADVANCE
  10. * ╔Φ╢¿▓╔╙├╨╨╜°╓╜╖╜╩╜
  11. STORE 2 TO _PSPACING
  12. * ╔Φ╢¿╨╨╝Σ╛α╬¬ 2
  13. STORE 1 TO _PAGENO
  14. * ╜½ _PAGENO ╓╪╔Φ╬¬ 1
  15. width = _RMARGIN-_LMARGIN
  16. * ╝╞╦π┤≥╙í╡─┐φ╢╚
  17. YY    = STR(YEAR(DATE()),4)
  18. MM    = STR(MONTH(DATE()),2)
  19. DD    = STR(DAY(DATE()),2)
  20. TITLE = "<<┐═╗º╩²╛▌▒¿▒φ>>"
  21.  
  22. USE CUSTOMER
  23. OnPageLine = IIF(_PSPACING>1,_PLENGTH-(2*_PSPACING+3), ;
  24.                              _PLENGTH-8)
  25. ON PAGE AT LINE OnPageLine DO Pg_Brk
  26.  
  27. DO Pg_head
  28. SCAN FOR YTDPURCH > 8000
  29.      ? PADR(CNO,8),PADR(CONTACT,22),PADR(ADDRESS,32),PADR(PHONE,14)
  30. ENDSCAN
  31. ON PAGE && ╚í╧√╧╚╟░╡─ ON PAGE ├ⁿ┴ε╔Φ╢¿
  32. FOR I=_PLINENO TO OnPageLine STEP _PSPACING
  33.     ?
  34. ENDFOR
  35. DO Pg_foot
  36.  
  37. * ╧╡═│╫┤╠¼╕┤╘¡
  38. STORE 1 TO _PSPACING
  39. STORE "FORMFEED" TO _PADVANCE
  40. SET PRINTER OFF
  41. SET TALK ON
  42.  
  43. PROCEDURE Pg_Brk
  44. DO Pg_foot
  45. DO Pg_head
  46. * ┤≥╙í╡┌╢■╥│╥╘║≤╡─▒φ═╖
  47. RETURN
  48.  
  49. * ▒φ╬▓┤≥╙í
  50. PROCEDURE Pg_foot
  51.   ? REPLICATE("=",width)
  52.   ? PADC("┤≥╙í╚╒╞┌: "+YY+" ─Ω "+MM+" ╘┬ "+DD+" ╚╒ ",width)
  53.   EJECT PAGE
  54. RETURN
  55.  
  56. * ▒φ═╖┤≥╙í
  57. PROCEDURE Pg_head
  58.  ?? "╥│┤╬: " AT 65,LTRIM(STR(_PAGENO,4))
  59.  ? PADC(TITLE,width)
  60.  ? "┐═╗º▒α║┼"+PADC("┴¬ ╧╡ ╚╦",22)+PADC("╫í     ╓╖",32)+;
  61.    PADC("╡τ    ╗░",14)
  62.  ? REPLICATE("=",width)
  63. RETURN
  64.