//#########################################################
//# Implementacion de Formulas LotusNotes para JavaScript
//#

var SERVER =  "http://www.corona.cl/corona.nsf/";


function jsDbColumn(view,col){
	server = new serverurl();
	server.urldbcolumn(view,col); // setea url
	//window.open(server.url)
	return recorrestring(makeRequest(server.url))  
}

function jsDbLookup(view,key,col){
	server = new serverurl();
	server.urldblookup(view,key,col); // setea url
//	window.open(server.url)
	return recorrestring(makeRequest(server.url))  
}

function jsGetDocField(id,fieldName){
	server = new serverurl();
	server.urlgetdocfield(id,fieldName); // setea url
	return recorrestring(makeRequest(server.url)) 
}
function serverurl() {
//#############################################################################
//#  clase para generar ruta 

	this.url = SERVER
	this.urldblookup				= _dblookup
	this.urlgetdocfield			= _getdocfield
	this.urldbcolumn			= _dbcolumn
	
	function _dblookup(view,key,col) {
		this.url= this.url+"sysDbLookup?OpenForm&vista="+view+"&clave="+key+"&columna="+col+"&date="+Date()
	}
	function _dbcolumn(view,col) {
		this.url= this.url+"sysDbColumn?OpenForm&vista="+view+"&columna="+col+"&date="+Date()
	}
	function _getdocfield(id,fieldName) {
		this.url= this.url+"sysGetDocField?OpenForm&id="+id+"&fieldName="+fieldName+"&date="+Date()
	}

}


function recorrestring(text) {
// #############################################################################
// #  Procesa html devuelto por jsdblookup. 
// #  el resultado original devuelto es un html, esta funcion recorre el html 
// #  y retorna lo que esta entre los caracteres '\u00B6'

	largo = text.length;
	inicio = text.indexOf('\u00B6');
	text = text.substr(inicio+1,largo);
 	fin = text.indexOf('\u00B6');
 	text = text.substr(text,fin);
	
	return text

}



function makeRequest(url) {

		http_request = false;

		if (window.XMLHttpRequest) { // Mozilla, Safari,...
			http_request = new XMLHttpRequest();
			if (http_request.overrideMimeType) {
				http_request.overrideMimeType("text/xml");
				// Ver nota sobre esta linea al final
				}
			} else if (window.ActiveXObject) { // IE
				try {
					http_request = new ActiveXObject("Msxml2.XMLHTTP");
				} catch (e) {
				try {
					http_request = new ActiveXObject("Microsoft.XMLHTTP");
				} catch (e) {}
			}
		}

		if (!http_request) {
			alert("ERROR :( No es posible crear una instancia XMLHTTP");
			return false;
		}
		//http_request.onreadystatechange = alertContents;
		http_request.open("GET", url, false);
		http_request.send(null);
		rt = http_request.responseText
		http_request = null
		return rt

		}

		function alertContents() {
			if (http_request.readyState == 4) {
				if (http_request.status == 200) {
					alert(http_request.responseText);
				} else {
				alert("Hubo problemas con la petici\u00F3n.");
				}
		}
}


function esNulo(val) {
  return (val === null || val==Infinity || isNaN(val))
}

	

function GoToCategory(categoria) {
	id     = jsDbLookup("(pubDocs)",categoria,2);
	ruta = SERVER+"data/"+id+"?OpenDocument";
	makeRequest(SERVER+"statistic?OpenAgent&cate=" + categoria)
	window.location = ruta
}