Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : LASERPRO.ZIP
Filename : INVOICE2.PRG

* Program-id...: INVOICE2.PRG
* Author.......: Richard H. Elliott, Ferret Software
* Purpose......: Uses LaserPro procedure file routines to
* : print a report.
* : Uses internal fonts only.

SET TALK off

SET PROCEDURE TO LaserPro && Use LaserPro procedure

DO init_print && Initialize
??? reset && Clean up stuff left behind

** DRAW INVOICE
??? BOX( 0.60 , 1.20 , 6.00 , 7.50 , 5 ) && Draws upper right
??? HLINE( 0.80 , 6.00, 1.50, 5 ) && invoice number box
??? SHADING( 0.60 , 0.80 , 6.00 , 7.50 , 20 )

??? BOX( 4.00 , 9.50, 0.50 , 7.50 , 7 ) && Big box for invoice
??? HLINE( 4.20 , 0.50, 7.00, 5 )
??? HLINE( 4.60 , 0.50, 7.00, 5 )
??? HLINE( 4.80 , 0.50, 7.00, 5 )
??? HLINE( 8.40 , 0.50, 7.00, 5 )
??? SHADING( 4.00 , 4.20 , 0.50 , 7.50 , 20 ) && Medium shading for column
??? SHADING( 4.60 , 4.80 , 0.50 , 7.50 , 20 ) && headings
??? VLINE( 4.00 , 1.50, 0.60, 5 )
??? VLINE( 4.00 , 2.50, 0.60, 5 )
??? VLINE( 4.00 , 4.00, 0.60, 5 )
??? VLINE( 4.00 , 5.00, 0.60, 5 )
??? VLINE( 4.00 , 6.50, 0.60, 5 )
??? VLINE( 4.60 , 1.50, 0.20, 5 )
??? VLINE( 4.60 , 2.50, 0.20, 5 )
??? VLINE( 4.60 , 5.00, 0.20, 5 )
??? VLINE( 4.60 , 5.50, 0.20, 5 )
??? VLINE( 4.60 , 6.50, 0.20, 5 )
??? VLINE( 4.80 , 1.50, 3.60, 2 )
??? VLINE( 4.80 , 2.50, 3.60, 2 )
??? VLINE( 4.80 , 5.00, 3.60, 2 )
??? VLINE( 4.80 , 5.50, 3.60, 2 )
??? VLINE( 4.80 , 6.50, 3.60, 2 )
??? VLINE( 8.40 , 5.50, 1.10, 5 )
??? VLINE( 8.40 , 6.50, 1.10, 5 )
??? SHADING( 4.80 , 5.00 , 0.50 , 7.50 , 5 ) && Light shading for invoice
??? SHADING( 5.20 , 5.40 , 0.50 , 7.50 , 5 ) && text bars
??? SHADING( 5.60 , 5.80 , 0.50 , 7.50 , 5 )
??? SHADING( 6.00 , 6.20 , 0.50 , 7.50 , 5 )
??? SHADING( 6.40 , 6.60 , 0.50 , 7.50 , 5 )
??? SHADING( 6.80 , 7.00 , 0.50 , 7.50 , 5 )
??? SHADING( 7.20 , 7.40 , 0.50 , 7.50 , 5 )
??? SHADING( 7.60 , 7.80 , 0.50 , 7.50 , 5 )
??? SHADING( 8.00 , 8.20 , 0.50 , 7.50 , 5 )

** FILL OUT TEXT PORTION OF INVOICE

??? pitch_10 + bold_on && Select Bold 12 point Courier
??? SAYIT( 0.60, 0.50, 'FERRET SOFTWARE','')
??? bold_off && Turn off Bold
??? SAYIT( 0.80, 0.50, '1102 Burwick Drive')
??? SAYIT( 1.00, 0.50, 'Herndon, VA 22070')
??? SAYIT( 1.20, 0.50, '(703) 742-8266')
??? bold_on && Set Bold on
??? SAYIT( 0.00, 3.60, 'INVOICE','')
??? pitch_10 + bold_off && Select 10 point Courier
??? SAYIT( 0.76, 6.25, 'INVOICE NO.','')
??? pitch_17 && Select 16.67 point
??? SAYIT( 2.30, 0.50, 'S','')
??? SAYIT( 2.40, 0.50, 'O','')
??? SAYIT( 2.50, 0.50, 'L','')
??? SAYIT( 2.60, 0.50, 'D','')
??? SAYIT( 2.80, 0.50, 'T','')
??? SAYIT( 2.90, 0.50, 'O','')
??? SAYIT( 2.30, 4.50, 'S','')
??? SAYIT( 2.40, 4.50, 'H','')
??? SAYIT( 2.50, 4.50, 'I','')
??? SAYIT( 2.60, 4.50, 'P','')
??? SAYIT( 2.80, 4.50, 'T','')
??? SAYIT( 2.90, 4.50, 'O','')
??? VLINE( 1.90 , 0.50, 0.30, 1 )
??? VLINE( 2.95 , 0.50, 0.30, 1 )
??? HLINE( 1.90 , 0.50, 0.30, 1 )
??? HLINE( 3.25 , 0.50, 0.30, 1 )
??? VLINE( 1.90 , 4.50, 0.30, 1 )
??? VLINE( 2.95 , 4.50, 0.30, 1 )
??? HLINE( 1.90 , 4.50, 0.30, 1 )
??? HLINE( 3.25 , 4.50, 0.30, 1 )
??? pitch_12 && Select 10 point Courier
??? SAYIT( 4.16, 0.65, 'INV DATE','')
??? SAYIT( 4.16, 1.60, 'SALES REP','')
??? SAYIT( 4.16, 2.80, 'ORDER NO.','')
??? SAYIT( 4.16, 4.03, 'ORDER DATE','')
??? SAYIT( 4.16, 5.40, 'SHIP VIA','')
??? SAYIT( 4.16, 6.72, 'TERMS','')
??? SAYIT( 4.76, 0.58, 'QTY ORDER','')
??? SAYIT( 4.76, 1.69, 'QTY SHIP','')
??? SAYIT( 4.76, 2.70, 'ITEM NUMBER/DESCRIPTION','')
??? SAYIT( 4.76, 5.07, 'UNIT','')
??? SAYIT( 4.76, 5.55, 'UNIT PRICE','')
??? SAYIT( 4.76, 6.65, 'AMOUNT','')
??? SAYIT( 8.60, 5.60, 'SALES','')
??? SAYIT( 8.80, 5.60, 'SALES TAX','')
??? SAYIT( 9.00, 5.60, 'FREIGHT','')
??? HLINE( 9.10, 5.50, 2.00, 3 )
??? SAYIT( 9.35, 5.60, 'TOTAL','')

** Remove the following for "real" use
??? INTERNAL(1) && Selects internal Courier 10
??? SAYIT( 10.00, 0.50, 'INVOICE2.PRG - INTERNAL FONT DEMO','' )

** NOTE: The following uses the DOS copy command
** to copy an image to the printer. I'm experimenting
** with this and hope to have something in the
** future to allow image management as well.
** Remove unless you like ferrets.

!COPY FERRET.PIC /B &printport /B > NUL && Prints cute picture

EJECT

** EOF: INVOICE2.PRG