LOCAL lcCRLF, lcTAB, lcData
m.lcCRLF = CHR( 13 )+CHR( 10 )
m.lcTAB = CHR( 9 )

IF  fontmetric( 1 , 'MS Sans Serif',  8 , '') #  13  OR ;
	fontmetric( 4 , 'MS Sans Serif',  8 , '') #  2  OR ;
	fontmetric( 6 , 'MS Sans Serif',  8 , '') #  5  OR ;
	fontmetric( 7 , 'MS Sans Serif',  8 , '') #  11 
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize', 8 )

*#DEFINE CRLF	CHR( 13 )+CHR( 10 )
*#DEFINE TAB 	CHR( 9 )
*#DEFINE DOGS_LOC "Dogs"
*#DEFINE CATS_LOC "Cats"
#DEFINE bartype	- 4099 

SELECT ;
     weeks.Week,;
     COUNT(*) as Regs,;
     SUM(InfoDepRpt.Quantity) as Quantity,;
     MAX(InfoDepRpt.date) as LastDate;
   FROM InfoDepRpt;
     LEFT JOIN weeks on BETWEEN(InfoDepRpt.date,weeks.date_beg,Weeks.date_end);
   GROUP BY weeks.Week;
   INTO CURSOR curInfoDepRptRegs
USE IN Weeks
USE IN InfoDepRpt

SELECT curInfoDepRptRegs
m.lcData = " " + m.lcTAB + " " + m.lcCRLF
SCAN
 m.lcData = m.lcData + LTRIM(STR(week)) + m.lcTAB
 m.lcData = m.lcData + LTRIM(STR(Quantity)) + m.lcCRLF
ENDSCAN
USE 

SET SAFETY OFF
create table foo (gen1 g)
SET SAFETY ON
append blank
THIS.LockScreen = .T.
append general gen1 class "msgraph.chart" DATA m.lcData
THIS.OleBoundControl1.ControlSource = "Gen1"
THIS.OleBoundControl1.HasLegend = .F.
THIS.OleBoundControl1.autoformat(bartype, 1 )
THIS.LockScreen = .F.

#DEFINE bartype	- 4099 
#DEFINE coltype	- 4100 
#DEFINE pietype	- 4102 

DO CASE
CASE THIS.Value =  1 
	THISFORM.OleBoundControl1.autoformat(bartype, 1 )
CASE THIS.Value =  2 
	THISFORM.OleBoundControl1.autoformat(coltype, 1 )
OTHERWISE
	THISFORM.OleBoundControl1.autoformat(pietype, 7 )
ENDCASE

   Name: Area
      OptionValue:  1 
   Name: Bar
      OptionValue:  2 
   Name: Column
      OptionValue:  3 
   Name: 3D_Area
      OptionValue: - 4098 
   Name: 3D_Bar
      OptionValue: - 4099 
   Name: 3D_Column
      OptionValue: - 4100 

#DEFINE xl3DArea - 4098 
#DEFINE xl3DAreaStacked  78 
#DEFINE xl3DAreaStacked100  79 

#DEFINE xl3DBar - 4099 
#DEFINE xl3DBarClustered  60 
#DEFINE xl3DBarStacked  61 
#DEFINE xl3DBarStacked100  62 

#DEFINE xl3DColumn - 4100 
#DEFINE xl3DColumnClustered  54 
#DEFINE xl3DColumnStacked  55 
#DEFINE xl3DColumnStacked100  56 

#DEFINE xl3DEffects1  13 
#DEFINE xl3DEffects2  14 

#DEFINE xl3DLine - 4101 

#DEFINE xl3DPie - 4102 
#DEFINE xl3DPieExploded  70 

#DEFINE xl3DSurface - 4103 

#DEFINE xlArea  1 
#DEFINE xlAreaStacked  76 
#DEFINE xlAreaStacked100  77 

#DEFINE xlBar  2 
#DEFINE xlBarClustered  57 
#DEFINE xlBarOfPie  71 
#DEFINE xlBarStacked  58 
#DEFINE xlBarStacked100  59 

#DEFINE xlBubble  15 
#DEFINE xlBubble3DEffect  87 

#DEFINE xlColumn  3 
#DEFINE xlColumnClustered  51 
#DEFINE xlColumnField  2 
#DEFINE xlColumnHeader - 4110 
#DEFINE xlColumnItem  5 
#DEFINE xlColumnLabels  2 
#DEFINE xlColumnSeparator  14 
#DEFINE xlColumnStacked  52 
#DEFINE xlColumnStacked100  53 
#DEFINE xlColumnThenRow  2 

#DEFINE xlConeBarClustered  102 
#DEFINE xlConeBarStacked  103 
#DEFINE xlConeBarStacked100  104 
#DEFINE xlConeCol  105 
#DEFINE xlConeColClustered  99 
#DEFINE xlConeColStacked  100 
#DEFINE xlConeColStacked100  101 

#DEFINE xlCylinder  3 
#DEFINE xlCylinderBarClustered  95 
#DEFINE xlCylinderBarStacked  96 
#DEFINE xlCylinderBarStacked100  97 
#DEFINE xlCylinderCol  98 
#DEFINE xlCylinderColClustered  92 
#DEFINE xlCylinderColStacked  93 
#DEFINE xlCylinderColStacked100  94 

#DEFINE xlLine  4 
#DEFINE xlLineMarkers  65 
#DEFINE xlLineMarkersStacked  66 
#DEFINE xlLineMarkersStacked100  67 
#DEFINE xlLineStacked  63 
#DEFINE xlLineStacked100  64 
#DEFINE xlLineStyleNone - 4142 
#DEFINE xlLinear - 4132 

#DEFINE xlPyramidBarClustered  109 
#DEFINE xlPyramidBarStacked  110 
#DEFINE xlPyramidBarStacked100  111 
#DEFINE xlPyramidCol  112 
#DEFINE xlPyramidColClustered  106 
#DEFINE xlPyramidColStacked  107 

.OleBoundControl1.Object.Application.PlotBy =  2 

  2D    3D     Name
    1    - 4098   Area
    2    - 4099   Bar
    3    - 4100   Column
    4    - 4101   Line
    5    - 4102   Pie

.OleBoundControl1.autoformat(coltype, 1 )