var monto=0;
var cash=0;
//----------crea cookie con nombre,datos y expdate----------ok
function crea(Name,prop1,prop2,prop3,fecha) {
//----------------------------------------------------------
	var dias=1000
	expdate = new Date ();
	expdate.setTime (expdate.getTime() + 86400000 * dias);
	datos = "Cash:"+prop1+"&ProfitOper:"+prop2+"&Capital:"+prop3+"&Fecha:"+fecha;
	SetCookie (Name,datos,expdate );
	}
//----------------------------------------------------------
function SetCookie (name,value,expires,path,domain,secure) {
//----------------------------------------------------------
  document.cookie = name + "=" + value +
    ((expires) ? "; expires=" + expires.toGMTString() : "") +
    ((path) ? "; path=" + path : "") +
    ((domain) ? "; domain=" + domain : "") +
    ((secure) ? "; secure" : "");
	}


//---------Retorna el Array c con la lista de los fields que encuentra
//---------al separar el String name en Records y fields segun dos caracteres
//---------para el field del lado izquierdo=>0 , y lado derecho=>1
function Split21 (name,carX,carY,lado) {
//--------------------------------------------------------------
	c = new Array()
	a = name.split(carX); 
	for(var i=0; i < a.length; i++) {
		b = unescape(a[i]).split(carY); 
		for(var j=0; j < b.length; j++) {
			if(j == lado) c[i]=b[j];
			}
		}
	return c
	}

//-----------------------------
function Proporciona(){
//-----------------------------
	var msg = "\n Warning \n--------------------------\n" +
	"This function will distribute all your capital " + monto + " evenly throughout your portfolio. \n" +
	"--------------------------\n\nDo you really want to do this? ??";

	if( confirm(msg) ) {
		var cont=0.0
		cok = document.cookie;
		b=Split21(cok,";","=",1);

		var cont=b.length ;

		for(var i=0; i < b.length; i++) {
			c=unescape(b[i]).split("&");
			d=unescape(c[0]).split(":");
			name=stock.name+d[1]
			if(d[0] !== "name") continue
			stockdata = new Cookie(document, name , 8640);
			stockdata.name = d[1]
			d=unescape(c[1]).split(":");
			stockdata.date = d[1]
			d=unescape(c[2]).split(":");
			stockdata.transaction=d[1]
			d=unescape(c[3]).split(":");
			stockdata.price = d[1]
			stockdata.shares = parseInt(monto / ( cont * d[1] ) + 0.5 )
			stockdata.store(name );
			}
			Info2Ident();
		}
	}


//-----------------------------
function NuevoStock( ) { 
//-----------------------------
	stockdata = new Cookie(document, stock.name+stock.Sel , 8640);
	stockdata.name = stock.Sel
	stockdata.date = fechahoy();
	stockdata.transaction=stock.Oper;
	stockdata.price = stock.Price;
	stockdata.shares = stock.Shares;
	if(b.length == 0)Actu();
	else { 
		bandera=0;
		for(var i=0; i < b.length; i++) { 
			c=unescape(b[i]).split("&");
			d=unescape(c[0]).split(":");
			if(d[1] == stock.Sel ) { 
				bandera=-1;
				i=b.length+1;
				} 
			} 
		if(bandera == 0) Actu();
		else if( confirm("Already exists; Do you want to replace ?") ) Actu();
		} 
	}	
//-----------------------------
function Actu(){
//-----------------------------
	stockdata.store(stock.name+stock.Sel);
	RutinaInfo("Added "+ " " + stock.Sel + " " + stock.Price + " " + stock.Oper + " " + stock.Shares);
	window.location.reload();
	}

//-----------------------------
function Change(){
//-----------------------------
	cok = document.cookie;
	b=Split21(cok,";","=",0);
	for(var i=0; i < b.length; i++) {
		if( (b[i]+" ") == stock.Sel ) {

			bb=Split21(cok,";","=",1);
			y=Split21(bb[i],"&",":",1);

			var cantC=0.0;
			if ( stock.Oper == "BUY" ) cantC = parseInt(stock.Shares);
				else cantC = -parseInt(stock.Shares);
			var trans="";
			var cantA=0.0;
			if ( y[2] == "BUY" ) cantA = parseInt(y[4]);
				else cantA = -parseInt(y[4]);

			var cant= cantA + cantC;
			valorIni= cantC * parseFloat(y[3]) ;
			valorFin= cantC * parseFloat(stock.Price);

			var precio=( cantC * parseFloat(stock.Price) + cantA * parseFloat(y[3]) ) / cant;
			var prec = Math.round( parseFloat(precio) * 100) / 100;
			if(cant >= 0) trans="BUY";
			else {
				trans="SELLS";
				cant *= -1;
				}
			}
		}

	stockdata = new Cookie(document, stock.Sel , 8640);
	stockdata.name = y[0]
	stockdata.date = fechahoy();
	stockdata.transaction = trans;
	stockdata.price = prec;
	stockdata.shares = cant;


	var msg = "\n Warning \n--------------------------\n" +
	"\nPrevious \n\nname="+y[0]+"\ndate="+y[1]+"\ntransaction="+y[2]+"\nprice="+y[3]+"\nshares="+y[4] + 
	"\n---------\n\nTransaction \n\nname="+stock.Sel+"\ntransaction="+stock.Oper+"\nprice"+stock.Price+"\nshares="+stock.Shares +
	"\n---------\n\nResult \n\nname="+stock.Sel+"\ntransaction="+trans+"\nprice="+prec+"\nshares="+cant +
	"\n---------\n\nIs this correct ??....\n"+
	"--------------------------\n\n ";
	if( confirm(msg) ) {
		cash -= parseFloat(valorFin);
		profitOper =  parseFloat(valorIni) - parseFloat(valorFin) ;
		monto += parseFloat(profitOper);
		crea("efectivo",cash,profitOper,monto,stockdata.date);
		if( stockdata.shares == 0) Borre();
		else {
			stockdata.store( stock.name+stock.Sel);
			RutinaInfo("Changed " + stock.Sel+"\nCash="+cash+"\nProfit="+ profitOper+"\nCapital="+ monto);
			}
		}
	}

//-----------------------------
function Borre(){
//-----------------------------
	cok = document.cookie;
	b=Split21(cok,";","=",0);
	for(var i=0; i < b.length; i++) {
		if( (b[i]+" ") == stock.Sel ) {
			bb=Split21(cok,";","=",1);
			y=Split21(bb[i],"&",":",1);
//alert("Dato borre\nname="+y[0]+"\ndate="+y[1]+"\ntransaction="+y[2]+"\nprice="+y[3]+"\nshares="+y[4] ) 

			stockdata = new Cookie(document, stock.Sel , 8640);
			stockdata.name = stock.Sel

			//---
			stockdata.remove(); 
			}
		}
	RutinaInfo("Deleted " + stock.Sel);
	window.location.reload();
	}


//-----------------------------
function RutinaInfo( transaction ){
//-----------------------------
	alert("Info Operation:\n------\n"+transaction);
window.location.reload();
	}


//-----------------------------
function RutinaParaForm2(){
//-----------------------------
	test=" efectivo";
	cok = document.cookie;
	x=Split21(cok,";","=",0);
	b=Split21(cok,";","=",1);
	for(var i=0; i < x.length; i++) {
		if( x[i] == test ) {
			y=Split21(b[i],"&",":",1);
			cash=y[0];profitOper=parseFloat(y[1]);monto=parseFloat(y[2]);fecha=y[3];
			}
		else document.write("<option value=\""+x[i]+"\">"+x[i]+"</option>");
		}
	}

//-----------------------------List of your portfolio
function Info2Ident(){
//-----------------------------
	test=" efectivo";
	document.writeln("<html><head><title>Estudio</title>");
	document.write("<link rel=\"stylesheet\" href=\"../Calificaciones/estilo7.css\" >");
	document.writeln("</head><body bgcolor=\"#77aaff\">");
	document.write("<table table border=\"1\" class=\"clase3\"><th colspan=\"6\" class=\"clase31\" >List of your portfolio</th>");
	var cok = document.cookie;
	//----
	x=Split21(cok,";","=",0);
	b=Split21(cok,";","=",1);
	c=unescape(b[0]).split("&");
	document.write("<tr>");
	for(var j=0; j < c.length; j++) {
		if( x[i] != test ) {
			d=unescape(c[j]).split(":");
			document.write("<th>" + d[0] + "</th>");
			}
			document.write("<td>Details</td>");
		document.write("</tr>");
		//----
		x=Split21(cok,";","=",0);
		b=Split21(cok,";","=",1);
		for(var i=0; i < b.length; i++) {
			if( x[i] != test ) {
				c=unescape(b[i]).split("&");
				document.writeln("<form method=POST action=http://mesatechtrading.com/cgi-bin/CookiesDet.cgi>");
				document.write("<tr>");
				for(var j=0; j < c.length; j++) {
					d=unescape(c[j]).split(":");
					document.write("<td>" + d[1] + "</td>");
					for(var k=0; k < d.length; k++) {
				
						if( k%2 == 0 ) {
							document.write("<INPUT TYPE=HIDDEN  name="+ d[k] );
							}
						else {
							document.writeln(" value=" + d[k]+ " />" );
							}

					}
					}
				if (d[0] == "shares")
				document.writeln("<td ><INPUT TYPE=submit VALUE=\"Details\" /></td></tr> </form> ");
				}
			}
		}
	document.write("</table><br>");
	document.write("<p><a href=\"Portafolio_nuevo.html\" >Back</a></p></body></html>");
	}

//---------------------------------
function fechahoy () {
//---------------------------------
	var today = new Date();
	var hoy =  1+today.getMonth()  + "_" + today.getDate() +"_"+ today.getYear() ;
	return hoy;
	}

//-----------------------------
function verPortfolio(){
//-----------------------------
	var cok = document.cookie;
	document.writeln("<form target=\"derecha\" method=POST action=http://mesatechtrading.com/cgi-bin/CookiesList.cgi>");
	b=Split21(cok,";","=",1);
	for(var i=0; i < b.length; i++) {
		c=unescape(b[i]).split("&");
		d=unescape(c[0]).split(":");
		if(d[0] !== "name") continue
		for(var j=0; j < c.length; j++) {
			d=unescape(c[j]).split(":");

			for(var k=0; k < d.length; k++) {
					if( k%2 == 0 ) {
						document.write("<INPUT TYPE=HIDDEN  name="+ d[k] );
						}
					else {
						document.writeln(" value=" + d[k]+ " />" );
						}
				}
			}
		}
	document.writeln("<INPUT   TYPE=submit  VALUE=\"Portfolio view\" /></form> ");

	}

//-----------------------------
function verVentana(w,h,foto ){
//-----------------------------
	var NuevaVentana=open("","","height="+h+",width="+w+",resizable=yes,scrollbars=yes");

	NuevaVentana.document.write("<img src=\""+foto+"\"/>");
}