var GRAFICASFLASH_URLBASE="http://miarroba.st/graficas/charts_new";if(Array.prototype.push==null){Array.prototype.push=function(item){this[this.length]=item;return this.length;}}
function GraficaFlash(){this.Graficas=new Array();this.Etiquetas=new Array();this.Datos=new Array();this.Links=new Array();this.Colors=new Array();this.AutoIncrement=0;}
GraficaFlash.prototype={NuevaGrafica:function(Label,Color,Valores,Pref,Suf){this.AutoIncrement++;this.Graficas[this.AutoIncrement]=new Array();this.Etiquetas[this.AutoIncrement]=new Array();this.Datos[this.AutoIncrement]=new Array();this.Links[this.AutoIncrement]=new Array();this.Colors[this.AutoIncrement]=new Array();if(typeof(Pref)=='undefined')Pref='';if(typeof(Suf)=='undefined')Suf='';this.Graficas[this.AutoIncrement]['Label']=Label;this.Graficas[this.AutoIncrement]['Color']=Color;this.Graficas[this.AutoIncrement]['Pref']=Pref;this.Graficas[this.AutoIncrement]['Suf']=Suf;for(Key in Valores){if(typeof(Valores[Key])!='function'){this.Etiquetas[this.AutoIncrement].push(Valores[Key]["Etiqueta"]);this.Datos[this.AutoIncrement].push(Valores[Key]["Valor"]);this.Links[this.AutoIncrement].push(Valores[Key]["Link"]);if(Valores[Key]["Color"]){this.Colors[this.AutoIncrement].push(Valores[Key]["Color"]);}else{this.Colors[this.AutoIncrement].push(null);}}}
return this.AutoIncrement;},DibujaGrafica:function(Nombre,Cual,Tipo,Width,Height,ChartLink,Labels,NumMax){if(typeof(ChartLink)=='undefined')ChartLink=false;if(typeof(Labels)=='undefined')Labels=false;if(typeof(Cual)!='object'){Cual=new Array(Cual);}
var Swf,Codigo;switch(Tipo){case"linea":Swf=GRAFICASFLASH_URLBASE+"/MSLine.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,2,NumMax);break;case"area":Swf=GRAFICASFLASH_URLBASE+"/MSArea.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,2,NumMax,false);break;case"barra2D":Swf=GRAFICASFLASH_URLBASE+"/MSColumn2D.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,1,NumMax);break;case"barra3D":Swf=GRAFICASFLASH_URLBASE+"/MSColumn3D.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,1,NumMax);break;case"acum2D":Swf=GRAFICASFLASH_URLBASE+"/StackedColumn2D.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,1,NumMax);break;case"acum3D":Swf=GRAFICASFLASH_URLBASE+"/StackedColumn3D.swf";Codigo=this.CodigoLineal(Cual,ChartLink,Labels,1,NumMax);break;case"tarta2D":Swf=GRAFICASFLASH_URLBASE+"/Pie2D.swf";Codigo=this.CodigoPorciones(Cual[0],ChartLink,Width,Height);break;case"tarta3D":Swf=GRAFICASFLASH_URLBASE+"/Pie3D.swf";Codigo=this.CodigoPorciones(Cual[0],ChartLink,Width,Height);break;case"donut2D":Swf=GRAFICASFLASH_URLBASE+"/Doughnut2D.swf";Codigo=this.CodigoPorciones(Cual[0],ChartLink,Width,Height);break;case"donut3D":Swf=GRAFICASFLASH_URLBASE+"/Doughnut3D.swf";Codigo=this.CodigoPorciones(Cual[0],ChartLink,Width,Height);break;default:return;break;}
var myChart=new FusionCharts(Swf,'HTML'+Nombre,Width,Height,0,0);myChart.setDataXML(Codigo);myChart.render(Nombre);},CodigoPorciones:function(Cual,ChartLink,width,height){var RadioPie,Angulo;var Codigo="<chart";Codigo+=" animation='1' palette='2'";Codigo+=" shownames='0' showPercentageValues='1' showPercentageInLabel='1'";Codigo+=" skipOverlapLabels='1' showZeroPies='0' enableSmartLabels='1'";RadioPie=parseInt((width-150)/2);if((height-25)>(width-150))Angulo=90;else{Angulo=parseInt(Math.asin(((height-25)/2)/RadioPie)*(180/Math.PI));}
Codigo+=" pieSliceDepth='15' pieYScale='"+Angulo+"' pieRadius='"+RadioPie+"'";Codigo+=" bgColor='FFFFFF' bgAlpha='0'";Codigo+=" pieBorderThickness='1' pieBorderAlpha='50'";Codigo+=" chartLeftMargin='0' chartRightMargin='0' chartTopMargin='0' chartBottomMargin='0'";Codigo+=" decimalPrecision='2' decimalSeparator=',' thousandSeparator='.' formatNumberScale='0'";Codigo+=" use3DLighting='0'";Codigo+=" doughnutRadius='"+(RadioPie*0.35)+"'";if(ChartLink)Codigo+=" clickURL='"+escape(ChartLink)+"'";Codigo+=">";for(var x=0;x<this.Etiquetas[Cual].length;x++){Codigo+="<set hoverText='"+this.Etiquetas[Cual][x]+" - "+this.miles(this.Datos[Cual][x],0,',','.')+"' name='"+this.Etiquetas[Cual][x]+"' value='"+this.Datos[Cual][x]+"'"+((1!=1&&this.Links[Cual][x])?" link='"+this.Links[Cual][x]+"'":"")+((this.Colors[Cual][x])?" color='"+this.Colors[Cual][x]+"'":"")+" />";}
Codigo+="</chart>";return Codigo;},CodigoLineal:function(Cual,ChartLink,Labels,AjusteVLines,NumMax,Anchors){if(typeof(Anchors)=='undefined')Anchors=true;if(typeof(AjusteVLines)=='undefined')AjusteVLines=2;var Key=0;var x=0;var Codigo="<chart";Codigo+=" showShadow='0'";Codigo+=" showLegend='0'";Codigo+=" bgAlpha='0' canvasBgDepth='0' canvasBaseDepth='5' canvasBorderThickness='1'";Codigo+=" divLineDecimalPrecision='0' limitsDecimalPrecision='0' decimalPrecision='0' decimalSeparator=',' thousandSeparator='.' formatNumberScale='0'";Codigo+=" numberPrefix='"+this.Graficas[Cual[0]]['Pref']+"' numberSuffix='"+this.Graficas[Cual[0]]['Suf']+"'"
Codigo+=" areaBorderThickness='2' lineThickness='2'";Codigo+=" chartTopMargin='10' chartBottomMargin='15' chartLeftMargin='0' chartRightMargin='5'";Codigo+=" bgcolor='FFFFFF' alternateHGridColor='ECECF8'";Codigo+=" numDivLines='10' numVDivLines='"+(((this.Etiquetas[Cual[0]].length>60)?12:this.Etiquetas[Cual[0]].length)-AjusteVLines)+"'";Codigo+=" vDivLineIsDashed='1' vDivLineDashLen='2' vDivLineDashGap='2'";Codigo+=" rotateNames='1'";if(Anchors){Codigo+=" showAnchors='1' anchorSides='10' anchorRadius='3' anchorBorderThickness='1' anchorAlpha='"+((this.Etiquetas[Cual[0]].length>60)?'0':'100')+"'";}else{Codigo+=" showAnchors='1' anchorAlpha='0'";}
Codigo+=" showhovercap='1'";Codigo+=" plotFillAlpha='100'";Codigo+=" plotGradientColor=''";Codigo+=" setAdaptiveYMin='1'";Codigo+=" use3DLighting='0'";Codigo+=" toolTipSepChar=', '";if(this.Graficas[Cual[0]]['Suf'].indexOf('%')!==-1){Codigo+=" yAxisMaxValue='100'";}else{Codigo+=" yAxisMaxValue='11'";}
Codigo+=" overlapColumns='1'";Codigo+=" showBorder='0' showBarShadow='1' showValues='0'"+((ChartLink)?" clickURL='"+escape(ChartLink)+"'":"");if(Labels===false)Codigo+=" shownames='0'";Codigo+=" >";Codigo+="<categories>";for(Key in this.Etiquetas[Cual[0]]){if(typeof(this.Etiquetas[Cual[0]][Key])!='function'){Codigo+="<category name='"+this.Etiquetas[Cual[0]][Key]+"' hoverText='"+this.Etiquetas[Cual[0]][Key]+"' />";}}
Codigo+="</categories>";for(Key in Cual){if(typeof(Cual[Key])!='function'){Codigo+="<dataset seriesName='"+this.Graficas[Cual[Key]]['Label']+"' areaBorderColor='"+this.Graficas[Cual[Key]]['Color'].replace(/#/,'')+"' color='"+this.Graficas[Cual[Key]]['Color'].replace(/#/,'')+"' anchorBorderColor='"+this.Graficas[Cual[Key]]['Color'].replace(/#/,'')+"'>";for(x=0;x<this.Etiquetas[Cual[Key]].length;x++){Codigo+="<set value='"+this.Datos[Cual[Key]][x]+"'"+((this.Links[Cual[Key]][x])?" link='"+this.Links[Cual[Key]][x]+"'":"")+((this.Colors[Cual[Key]][x])?" color='"+this.Colors[Cual[Key]][x].replace(/#/,'')+"'":"")+" />";}
Codigo+="</dataset>";}}
Codigo+="</chart>";return Codigo;},miles:function(a,b,c,d){if(isNaN(a)){a=0;}
if(a=='Infinity'){return'&infin;';}
a=Math.round(a*Math.pow(10,b))/Math.pow(10,b);e=a+'';f=e.split('.');if(!f[0]){f[0]='0';}
if(!f[1]){f[1]='';}
if(f[1].length<b){g=f[1];for(i=f[1].length+1;i<=b;i++){g+='0';}
f[1]=g;}
if(d!=''&&f[0].length>3){h=f[0];f[0]='';for(j=3;j<h.length;j+=3){i=h.slice(h.length-j,h.length-j+3);f[0]=d+i+f[0]+'';}
j=h.substr(0,(h.length%3==0)?3:(h.length%3));f[0]=j+f[0];}
c=(b<=0)?'':c;return f[0]+c+f[1];}}