** ****************************************************************************************** *
** MANDRAGORE PLANETE  
** *******************************************************************************************

#include  "#SYSPATHMANDRAGORE+\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\99-DATABASE\VersionADO\300-00-CreateDBDemoExcel.ms4" 
	
 
BEGIN
 integer zperc := 80;
 integer ztotalPerc := 100;
 text Tperc ;
 DBconnect{Ms4DB}(LEnvDemoExcelDB);
	    Ms4_SQLFetch{Ms4DB}("SELECT  * FROM  [ms4EmplPercBusiness2012] where lastname = 'Peacock' ")
 	 	 Row_ForEach  :
	  		I++;
 	 	Require SetColorText (Hwdisplay:Yellow,black) ;
	 	zLastName 	:= Column_GetData:1,CHAR;
		Tperc 	    := Column_GetData:2,CHAR;
 		Str_num(Tperc, zperc  ) ;
 	 
	 	 Display "---[ms4EmplTotalBusiness]-------Row",i, "----(Value Column 2) are :---: ", zLastName,"----(Value Column 3) are : ",zperc;
 
	 	End_Row_ForEach ;  
END  ;
 
Display " more Peacock % Business ", zperc  ;
	** ************************************************************
** DISPLAY RADIAL GAUGE
** ***********************************************************	
	   
		FormPlus : DrawRadialGauge, title : "  Radial Gauge Peacock "   , Minorunit : 5 , StartAngle : -30 , endAngle : 210, max : ztotalPerc ,value  : zperc    ;
display "end......";