home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / LASERPRO.ZIP / INVOICE2.PRG < prev    next >
Encoding:
Text File  |  1991-03-02  |  4.6 KB  |  120 lines
  1. * Program-id...: INVOICE2.PRG
  2. * Author.......: Richard H. Elliott, Ferret Software
  3. * Purpose......: Uses LaserPro procedure file routines to
  4. *              : print a report.
  5. *              : Uses internal fonts only.
  6.  
  7. SET TALK off
  8.  
  9. SET PROCEDURE TO LaserPro                        && Use LaserPro procedure
  10.  
  11. DO init_print                                    && Initialize
  12. ??? reset                                        && Clean up stuff left behind
  13.  
  14. ** DRAW INVOICE
  15. ??? BOX( 0.60 , 1.20 , 6.00 , 7.50 ,  5 )        && Draws upper right
  16. ??? HLINE( 0.80 , 6.00, 1.50, 5 )                && invoice number box
  17. ??? SHADING( 0.60 , 0.80 , 6.00 , 7.50 ,  20 )
  18.  
  19. ??? BOX( 4.00 , 9.50, 0.50 , 7.50 ,  7 )         && Big box for invoice
  20. ??? HLINE( 4.20 , 0.50, 7.00, 5 )
  21. ??? HLINE( 4.60 , 0.50, 7.00, 5 )
  22. ??? HLINE( 4.80 , 0.50, 7.00, 5 )
  23. ??? HLINE( 8.40 , 0.50, 7.00, 5 )
  24. ??? SHADING( 4.00 , 4.20 , 0.50 , 7.50 ,  20 )   && Medium shading for column
  25. ??? SHADING( 4.60 , 4.80 , 0.50 , 7.50 ,  20 )   && headings
  26. ??? VLINE( 4.00 , 1.50, 0.60, 5 )
  27. ??? VLINE( 4.00 , 2.50, 0.60, 5 )
  28. ??? VLINE( 4.00 , 4.00, 0.60, 5 )
  29. ??? VLINE( 4.00 , 5.00, 0.60, 5 )
  30. ??? VLINE( 4.00 , 6.50, 0.60, 5 )
  31. ??? VLINE( 4.60 , 1.50, 0.20, 5 )
  32. ??? VLINE( 4.60 , 2.50, 0.20, 5 )
  33. ??? VLINE( 4.60 , 5.00, 0.20, 5 )
  34. ??? VLINE( 4.60 , 5.50, 0.20, 5 )
  35. ??? VLINE( 4.60 , 6.50, 0.20, 5 )
  36. ??? VLINE( 4.80 , 1.50, 3.60, 2 )
  37. ??? VLINE( 4.80 , 2.50, 3.60, 2 )
  38. ??? VLINE( 4.80 , 5.00, 3.60, 2 )
  39. ??? VLINE( 4.80 , 5.50, 3.60, 2 )
  40. ??? VLINE( 4.80 , 6.50, 3.60, 2 )
  41. ??? VLINE( 8.40 , 5.50, 1.10, 5 )
  42. ??? VLINE( 8.40 , 6.50, 1.10, 5 )
  43. ??? SHADING( 4.80 , 5.00 , 0.50 , 7.50 , 5 )   && Light shading for invoice
  44. ??? SHADING( 5.20 , 5.40 , 0.50 , 7.50 , 5 )   && text bars
  45. ??? SHADING( 5.60 , 5.80 , 0.50 , 7.50 , 5 )
  46. ??? SHADING( 6.00 , 6.20 , 0.50 , 7.50 , 5 )
  47. ??? SHADING( 6.40 , 6.60 , 0.50 , 7.50 , 5 )
  48. ??? SHADING( 6.80 , 7.00 , 0.50 , 7.50 , 5 )
  49. ??? SHADING( 7.20 , 7.40 , 0.50 , 7.50 , 5 )
  50. ??? SHADING( 7.60 , 7.80 , 0.50 , 7.50 , 5 )
  51. ??? SHADING( 8.00 , 8.20 , 0.50 , 7.50 , 5 )
  52.  
  53. ** FILL OUT TEXT PORTION OF INVOICE
  54.  
  55. ??? pitch_10 + bold_on                           && Select Bold 12 point Courier
  56. ??? SAYIT( 0.60, 0.50, 'FERRET SOFTWARE','')
  57. ??? bold_off                                     && Turn off Bold
  58. ??? SAYIT( 0.80, 0.50, '1102 Burwick Drive')
  59. ??? SAYIT( 1.00, 0.50, 'Herndon, VA 22070')
  60. ??? SAYIT( 1.20, 0.50, '(703) 742-8266')
  61. ??? bold_on                                      && Set Bold on
  62. ??? SAYIT( 0.00, 3.60, 'INVOICE','')
  63. ??? pitch_10 + bold_off                          && Select 10 point Courier
  64. ??? SAYIT( 0.76, 6.25, 'INVOICE NO.','')
  65. ??? pitch_17                                     && Select 16.67 point
  66. ??? SAYIT( 2.30, 0.50, 'S','')
  67. ??? SAYIT( 2.40, 0.50, 'O','')
  68. ??? SAYIT( 2.50, 0.50, 'L','')
  69. ??? SAYIT( 2.60, 0.50, 'D','')
  70. ??? SAYIT( 2.80, 0.50, 'T','')
  71. ??? SAYIT( 2.90, 0.50, 'O','')
  72. ??? SAYIT( 2.30, 4.50, 'S','')
  73. ??? SAYIT( 2.40, 4.50, 'H','')
  74. ??? SAYIT( 2.50, 4.50, 'I','')
  75. ??? SAYIT( 2.60, 4.50, 'P','')
  76. ??? SAYIT( 2.80, 4.50, 'T','')
  77. ??? SAYIT( 2.90, 4.50, 'O','')
  78. ??? VLINE( 1.90 , 0.50, 0.30, 1 )
  79. ??? VLINE( 2.95 , 0.50, 0.30, 1 )
  80. ??? HLINE( 1.90 , 0.50, 0.30, 1 )
  81. ??? HLINE( 3.25 , 0.50, 0.30, 1 )
  82. ??? VLINE( 1.90 , 4.50, 0.30, 1 )
  83. ??? VLINE( 2.95 , 4.50, 0.30, 1 )
  84. ??? HLINE( 1.90 , 4.50, 0.30, 1 )
  85. ??? HLINE( 3.25 , 4.50, 0.30, 1 )
  86. ??? pitch_12                                     && Select 10 point Courier
  87. ??? SAYIT( 4.16, 0.65, 'INV DATE','')
  88. ??? SAYIT( 4.16, 1.60, 'SALES REP','')
  89. ??? SAYIT( 4.16, 2.80, 'ORDER NO.','')
  90. ??? SAYIT( 4.16, 4.03, 'ORDER DATE','')
  91. ??? SAYIT( 4.16, 5.40, 'SHIP VIA','')
  92. ??? SAYIT( 4.16, 6.72, 'TERMS','')
  93. ??? SAYIT( 4.76, 0.58, 'QTY ORDER','')
  94. ??? SAYIT( 4.76, 1.69, 'QTY SHIP','')
  95. ??? SAYIT( 4.76, 2.70, 'ITEM NUMBER/DESCRIPTION','')
  96. ??? SAYIT( 4.76, 5.07, 'UNIT','')
  97. ??? SAYIT( 4.76, 5.55, 'UNIT PRICE','')
  98. ??? SAYIT( 4.76, 6.65, 'AMOUNT','')
  99. ??? SAYIT( 8.60, 5.60, 'SALES','')
  100. ??? SAYIT( 8.80, 5.60, 'SALES TAX','')
  101. ??? SAYIT( 9.00, 5.60, 'FREIGHT','')
  102. ??? HLINE( 9.10, 5.50, 2.00, 3 )
  103. ??? SAYIT( 9.35, 5.60, 'TOTAL','')
  104.  
  105. ** Remove the following for "real" use
  106. ??? INTERNAL(1)                                 && Selects internal Courier 10
  107. ??? SAYIT( 10.00, 0.50, 'INVOICE2.PRG - INTERNAL FONT DEMO','' )
  108.  
  109. ** NOTE: The following uses the DOS copy command
  110. ** to copy an image to the printer.  I'm experimenting
  111. ** with this and hope to have something in the
  112. ** future to allow image management as well.
  113. ** Remove unless you like ferrets.
  114.  
  115. !COPY FERRET.PIC /B &printport /B > NUL               && Prints cute picture
  116.  
  117. EJECT
  118.  
  119. ** EOF: INVOICE2.PRG
  120.