Code: Select all
#include <hmg.ch>
#include "hfcl.ch"
Function Main
define window main at 0,0 width 800 height 600 main
define grid details
row 10
col 10
width 780
height 500
headers {"Invoice Number","Date & DueDate","Transaction Type","Ship Via","Sales Rep Attention","Paid","Invoice Total"}
widths {80,120,100,100,200,60,100}
justify {0,0,1,0,0,1,1}
end grid
define button print
row 520
col 10
width 80
caption "Print"
action printreport()
end button
end window
main.details.additem({"SI-10027","01/05/2008 31/05/2008","Invoice","UPS Ground","SR10006 124115","No","8320.85"})
main.details.additem({"","","","","","",""})
main.details.additem({"","Item Number","Shipped","","Description","Sales Price","Total"})
main.details.additem({"","SHIRT-2-S","5","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","425.00"})
main.details.additem({"","SHIRT-3-S","4","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","340.00"})
main.details.additem({"","SHIRT-1-M","20","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","1700.00"})
main.details.additem({"","SHIRT-2-M","0","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","0.00"})
main.details.additem({"","SHIRT-3-M","0","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","0.00"})
main.details.additem({"","SHIRT-1-L","18","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","1530.00"})
main.details.additem({"","SHIRT-2-L","18","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","1530.00"})
main.details.additem({"","SHIRT-3-L","1","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","85.00"})
main.details.additem({"","SHIRT-1-X","0","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","0.00"})
main.details.additem({"","SHIRT-2-X","8","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","680.00"})
main.details.additem({"","SHIRT-3-X","0","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","0.00"})
main.details.additem({"","SHIRT-1-S","15","","Tommy Bahama Relax 'Aruba' Zip Sweat Shirt","85.00","1275.00"})
main.details.additem({"","","","","","Freight","75.00"})
main.details.additem({"","","","","","Tax","680.85"})
main.details.additem({"","","","","","Total","4700.00"})
main.center
main.activate
Return
function printreport
PRINT GRID details ;
OF main ;
FONT "Arial" ;
SIZE 8 ;
ORIENTATION "P" ;
WIDTHS {25,31,15,15,39,10,20};
PAPERSIZE PRINTER_PAPER_A4
return nil
Don't forget to include the path 'c:\hmg\hfcl\include' in additional include paths and 'hfcl' in additional library.