var oneTabla = null;
var oneT = null;
var oneRecord = null;
var qCampo = 1;
var qTabla = 0;
var numTablas = 0;
var winBTC = null;
var control = null;
var numT = 0;

function loadTabla(que){
	clearPage();
	oneRecord = new Array();
	getOneTabla(que);
	for(i=0; i<oneTabla.numc; i++) oneRecord[i] = getOneCampo(i);
	j = comboNomCampo.options.length;
	for(i=0; i<=j; i++) comboNomCampo.options[0] = null;
	for(i=0; i<oneRecord.length; i++) comboNomCampo[i] = new Option(oneRecord[i].cnom,oneRecord[i].cnom);
	if(oneTabla.numc>0) showCampo();
}

function showCampo(cual){
	cual = cual&&cual>0 ? cual : 1;
	cual = ( cual>1*oneRecord.length ? 1*oneRecord.length : cual ) - 1;
	qCampo = cual+1;
	clearPage();
	numTabla.value = oneTabla.tnum;
	numCampo.value = oneRecord[cual].cnum;
	codCampo.value = numTabla.value + numCampo.value;
	var ref = split(oneRecord[cual].tpad,",");
	var hij = split(oneRecord[cual].hija,",");
	var indice = oneRecord[cual].cnom.indexOf("_");
	var nomCamRel = "";
	if(indice == -1) nomCamRel = oneRecord[cual].cnom;
	else nomCamRel = oneRecord[cual].cnom.substring(0,indice);
	for(i=0; i<ref.length; i++) comboPad[i] = new Option(ref[i],nomCamRel);
	for(i=0; i<hij.length; i++) comboHij[i] = new Option(hij[i],nomCamRel);
	nomTabla.value = oneTabla.tnom;
	desTabla.value = "DESCRIPCION: " + oneTabla.tdes;
	comboNomCampo.selectedIndex = cual;
	desCampo.value = "DESCRIPCION: " + oneRecord[cual].cdes;
	tipoDato.value = oneRecord[cual].tipd;
	valorIni.value = "VALOR INICIAL: ";
	mandatory.checked = oneRecord[cual].mand;
	primary.checked = oneRecord[cual].prim;
}

function clearPage(){
	numTabla.value = "";
	numCampo.value = "";
	codCampo.value = "";
	j=comboPad.options.length; for(i=0; i<=j; i++) comboPad.options[0] = null;
	j=comboHij.options.length; for(i=0; i<=j; i++) comboHij.options[0] = null;
	nomTabla.value = "";
	desTabla.value = "DESCRIPCION: ";
	desCampo.value = "DESCRIPCION: ";
	tipoDato.value = "";
	valorIni.value = "VALOR INICIAL: ";
	mandatory.checked = false;
	primary.checked = false;
}

function getOneTabla(cual){
	numTablas = document.getElementById("islasCC").getElementsByTagName("tabla").length;
	cual = cual>numTablas-1 ? numTablas-1 : (cual<0 ? 0 : cual);
	qTabla = cual;
	oneTabla = new Object();
	oneT = document.getElementById("islasCC").getElementsByTagName("tabla")[cual];
	oneTabla.tnum = oneT.getElementsByTagName("tnum")[0] ? oneT.getElementsByTagName("tnum")[0].firstChild.data : "";
	oneTabla.tnom = oneT.getElementsByTagName("tnom")[0] ? oneT.getElementsByTagName("tnom")[0].firstChild.data : "";
	oneTabla.tdes = oneT.getElementsByTagName("tdes")[0] ? oneT.getElementsByTagName("tdes")[0].firstChild.data : "";
	oneTabla.numc = oneT.childNodes.length - 3;
}

function getOneCampo(cual){
	var oneCampo = new Object();
	var oneC = oneT.getElementsByTagName("campo")[cual];
	oneCampo.cnum = oneC.getElementsByTagName("cnum")[0] ? oneC.getElementsByTagName("cnum")[0].firstChild.data : "";
	oneCampo.cnom = oneC.getElementsByTagName("cnom")[0] ? oneC.getElementsByTagName("cnom")[0].firstChild.data : "";
	oneCampo.cdes = oneC.getElementsByTagName("cdes")[0] ? oneC.getElementsByTagName("cdes")[0].firstChild.data : "";
	oneCampo.tipd = oneC.getElementsByTagName("tipd")[0] ? oneC.getElementsByTagName("tipd")[0].firstChild.data : "";
	oneCampo.mand = oneC.getElementsByTagName("mand")[0] ? true : false;
	oneCampo.prim = oneC.getElementsByTagName("prim")[0] ? true : false;
	oneCampo.defv = oneC.getElementsByTagName("defv")[0] ? oneC.getElementsByTagName("defv")[0].firstChild.data : "";
	oneCampo.tpad = oneC.getElementsByTagName("tpad")[0] ? oneC.getElementsByTagName("tpad")[0].firstChild.data : "";
	oneCampo.hija = oneC.getElementsByTagName("hija")[0] ? oneC.getElementsByTagName("hija")[0].firstChild.data : "";
	return oneCampo;
}

function split(dato,e){
	var f = new Array();
	kf = dato.lastIndexOf(e);
	ko = i = 0;
	while(ko<kf){
	  f[i++] = dato.substring(ko, k1 = dato.indexOf(e,ko));
	  ko = k1 + 1;
	}
	f[i++] = dato.substring(ko);
	return f;
}

function cargarWin(){
  winCC=window.open('','qwinCC','left=300,top=50,height=570,width=520');
	if(winCC.document.body && winCC.document.all.length>4) {
		winCC.close();
		winCC=window.open('','qwinCC','left=300,top=50,height=570,width=520');
	}
	wt= "<html><?xml version='1.0' encoding='iso-8859-1'?><head><title>...&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="Orígenes DB - iFG - internet Form Generator - F I T B A N K &nbsp;&nbsp;&nbsp;</title>";
	wt+="<script src='islasCC.js' language='JavaScript' type='text/JavaScript'></script>";
	wt+="</head><body onload='loadTabla(0);' onunload='if(winBTC)winBTC.close();' "+
			"style='font-size:16;background-color:lightyellow'>";
	wt+="<fieldset><legend style='font-size:25;color:darkred'>&nbsp;&nbsp;&nbsp; C A M P O S &nbsp;&nbsp; "+
			"C O N S U L T A B L E S &nbsp;&nbsp;&nbsp; </legend><br>";
	wt+="<fieldset><legend style='font-size:20;color:darkred'> &nbsp; T a b l a &nbsp; B a s e &nbsp;"+
			"</legend>";
	wt+="<label>&nbsp;&nbsp;Número: &nbsp; <input type='text' style='text-align:center;font-size:18'";
	wt+=" name='numTabla' "+
			"onblur=\"if(this.value=='')this.value=codCampo.value.substring(0,codCampo.value.length-3);\" "+
			"onchange=\"if(this.value=='')this.blur();"+
			"else{numT=this.value;buscaTabla();}\" size='1' /> &nbsp;&nbsp;&nbsp;";
	wt+="<input type='button' value='  |&lt;  ' onclick='loadTabla(0)' /> &nbsp;";
	wt+="<input type='button' value='  &lt;  ' onclick='qTabla--;loadTabla(qTabla)' /> &nbsp;";
	wt+="<input type='button' value='  &gt;  ' onclick='qTabla++;loadTabla(qTabla)' /> &nbsp;";
	wt+="<input type='button' value='  &gt;|  ' onclick='loadTabla(numTablas)' />"+
			" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="<button onclick='buscaTabla()'>&nbsp;Buscar Tabla&nbsp;</button><br>";
	wt+="<label>&nbsp;&nbsp;Nombre: &nbsp; <input type='text' name='nomTabla' value='' size='60' "+
			"readonly /><br>";
	wt+="<label>&nbsp;&nbsp;<textarea style='vertical-align:top' name='desTabla' rows='4' cols='55' "+
			"readonly></textarea><br></label></fieldset><br>";
	wt+="<fieldset><legend style='font-size:20;color:darkred'> &nbsp; C a m p o &nbsp; B a s e &nbsp;"+
			"</legend>";
	wt+="<label>&nbsp;&nbsp;Número: &nbsp; <input type='text' style='text-align:center;font-size:18' "+
			"name='numCampo' size='1' readonly /> &nbsp;&nbsp;&nbsp;";
	wt+="<input type='button' value='  |&lt;  ' onclick='showCampo(1)' /> &nbsp;";
	wt+="<input type='button' value='  &lt;  ' onclick='qCampo--;showCampo(qCampo)' /> &nbsp;";
	wt+="<input type='button' value='  &gt;  ' onclick='qCampo++;showCampo(qCampo)' /> &nbsp;";
	wt+="<input type='button' value='  &gt;|  ' onclick='showCampo(oneRecord.length)' />"+
			" &nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="<button onclick='buscaCampo()'>Buscar Campo</button></label><br>";
	wt+="<label>&nbsp;&nbsp;Nombre: &nbsp; <select name='comboNomCampo' style='width:395px' "+
			"onchange='showCampo(this.selectedIndex+1)'></select><br>";
	wt+="<label>&nbsp;&nbsp;<textarea style='vertical-align:top' name='desCampo' rows='4' cols='55' "+
			"readonly /></textarea><br></label>";
	wt+="<label>&nbsp;&nbsp;Tipo de Dato: &nbsp;<input type='text' name='tipoDato' value='' size='39' "+
			"readonly /> &nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="&nbsp;&nbsp;Primary&nbsp;<input type='checkbox' style='background-color:gray' name='primary' "+
			"disabled ><br>";
	wt+="<label>&nbsp;<textarea style='vertical-align:middle' name='valorIni' rows='2' cols='43' readonly>"+
			"</textarea> &nbsp;Mandatory";
	wt+="&nbsp;<input type='checkbox' style='background-color:gray' name='mandatory' disabled ><br>"+
			"</label></fieldset><br>";
	wt+="<label>&nbsp;&nbsp;TABLAS PADRES: &nbsp;&nbsp;&nbsp;&nbsp;<select name='comboPad' "+
			"style='width:280px'></select>&nbsp;&nbsp;&nbsp;";
	wt+="<button onclick='busTPH(comboPad)'>&nbsp;&gt;&gt;&nbsp;</button></label><br>";
	wt+="<label>&nbsp;&nbsp;TABLAS H I J A S: &nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="<select name='comboHij' style='width:280px'></select>&nbsp;&nbsp;&nbsp;";
	wt+="<button onclick='busTPH(comboHij)'>&nbsp;&gt;&gt;&nbsp;</button></label><br><br></fieldset>";
	wt+="<div style='font-size:20;text-align:center'>Código de Campo: &nbsp;<input type='text' "+
			"name='codCampo' size='5' style='vertical-align:middle;font-size:20;text-align:center' readonly />"+
			"</div>";
	wt+="<xml id='islasCC' src='islasCC.xml'></xml>";
	wt+="</body></html>";
	winCC.document.write(wt);
	winCC.document.close();
}

function buscaTabla(){
  winBTC = window.open('','qwinBTC','left=380,top=130,height=380,width=360');
	if(winBTC.document.body && winBTC.document.all.length>4) {
		winBTC.close();
		winBTC = window.open('','qwinBTC','left=380,top=130,height=380,width=360');
	}
	wt= "<html><?xml version='1.0' encoding='iso-8859-1'?><head><title>...&nbsp;&nbsp;;&nbsp;&nbsp;&nbsp;";
	wt+="&nbsp;&nbspBUSCAR TABLA - F I T B A N K &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</title>";
	wt+="<script src='islasCC.js' language='JavaScript' type='text/JavaScript'></script>";
	wt+="</head><body onload='if(opener.numT>0){busCampo.value=opener.numT;red(busCampo,true,false);}"+
			"busCampo.focus()' style='background-color:lightyellow' "+
			"onunload='if(opener.numT!=0){opener.numT=0;"+
			"opener.numTabla.value=opener.codCampo.value.substring(0,opener.codCampo.value.length-3);}'>";
	wt+="<input type='text' name='busCampo' style='text-transform:uppercase' size='51' "+
			"onkeyup=\"ev=event.keyCode;if(ev==13){clearTimeout(control);"+
			"if(!event.shiftKey)red(this,true,true);else red(this,true,false)}\" "+
			"onfocus=\"title='Presione Shift + Enter para Buscar una Tabla por su n&uacute;mero, o s&oacute;"+
			"lo Enter para buscar Tablas por texto com&uacute;n';\" /><br>";
	wt+="<select name='selecciones' size='20' style='width:340px' "+
			"onclick='if(this.selectedIndex<0){busCampo.focus();return;}";
	wt+="busCampo.value=this.options[this.selectedIndex].text;opener.loadTabla(this.value);"+
			"opener.numT=0;setTimeout(\"window.close()\",250)' "+
			"onkeydown=\"if(event.keyCode==13)this.click();\"></select>";
	wt+="<xml id='islasCC' src='islasCC.xml'></xml>";
	wt+="</body></html>";
	winBTC.document.write(wt);
	winBTC.document.close();
}

function busT(d) {
	d.value = d.value.toUpperCase();
	numTablas = document.getElementById("islasCC").getElementsByTagName("tabla").length;
	oneTabla = new Object();
	for(i=0; i<numTablas; i++) {
		oneT = document.getElementById("islasCC").getElementsByTagName("tabla")[i];
		oneTabla.tnom = oneT.getElementsByTagName("tnom")[0] ? oneT.getElementsByTagName("tnom")[0].firstChild.data : "";
		if(oneTabla.tnom.indexOf(d.value)!=-1) 
			selecciones[selecciones.options.length] = new Option(oneTabla.tnom,i);
	}
	busCampo.readonly = false;
	d.style.background = "white";
	if(selecciones.options.length==1) { selecciones.selectedIndex = 0; selecciones.click(); }
}
	
function busTxNum(d) {
	if(d.value.length>0) {
		numTablas = document.getElementById("islasCC").getElementsByTagName("tabla").length;
		oneTabla = new Object();
		for(i=0; i<numTablas; i++) {
			oneT = document.getElementById("islasCC").getElementsByTagName("tabla")[i];
			oneTabla.tnum = oneT.getElementsByTagName("tnum")[0] ? oneT.getElementsByTagName("tnum")[0].firstChild.data : "";
			if(oneTabla.tnum==d.value) { selecciones[selecciones.options.length] = new Option(oneTabla.tnum,i); break; }
		}
		busCampo.readonly = false;
		d.style.background = "white";
		d.parentNode.style.cursor = "auto";
		if(selecciones.options.length==1) { selecciones.selectedIndex = 0; selecciones.click(); }
	}
}
	
function buscaCampo(){
  winBTC = window.open('','qwinBTC','left=335,top=130,height=380,width=450');
	if(winBTC.document.body && winBTC.document.all.length>4) {
		winBTC.close();
		winBTC = window.open('','qwinBTC','left=335,top=130,height=380,width=450');
	}
	wt= "<html><?xml version='1.0' encoding='iso-8859-1'?><head>"+
			"<title>...&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	wt+="BUSCAR CAMPO - F I T B A N K &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</title>";
	wt+="<script src='islasCC.js' language='JavaScript' type='text/JavaScript'></script>";
	wt+="</head><body onload='busCampo.focus()' style='background-color:lightyellow'>";
	wt+="<input type='text' name='busCampo' style='text-transform:uppercase' size='51' "+
			"onkeyup=\"ev=event.keyCode;if(ev==13){clearTimeout(control);red(this,false,true);}\" "+
			"onfocus=\"title='Presione Enter para buscar Campos + (Tabla) por texto com&uacute;n';\" />"+
			" + ( TABLA )<br>";
	wt+="<select name='selecciones' size='20' style='width:430px' "+
			"onclick=\"if(this.selectedIndex<0){busCampo.focus();return;}";
	wt+="busCampo.value=this.options[this.selectedIndex].text;opener.loadTabla(1*split(this.value,',')[0]);"+
			"aux1=this.value;aux=',';"+
			"setTimeout('opener.qCampo=1*split(aux1,aux)[1]+1;opener.showCampo(opener.qCampo);window.close()'"+
			",250)\" onkeydown=\"if(event.keyCode==13)this.click();\"></select>";
	wt+="<xml id='islasCC' src='islasCC.xml'></xml>";
	wt+="</body></html>";
	winBTC.document.write(wt);
	winBTC.document.close();
}

function red(d,e,f){
	numS = selecciones.options.length;
	for(i=0; i<=numS; i++) selecciones.options[0] = null;
	if(!f || d.value.length>3){
		d.style.background="rgb(255,255,140)";
		if(e && f) control = setTimeout("busT(busCampo)",1000);
		else if(e) control = setTimeout("busTxNum(busCampo)",1000);
		else control = setTimeout("busC(busCampo)",1000);
	}else d.style.background = "white";
}

function busC(d) {
	d.value = d.value.toUpperCase();
	numTablas = document.getElementById("islasCC").getElementsByTagName("tabla").length;
	oneTabla = new Object();
	for(i=0; i<numTablas; i++) {
		oneT = document.getElementById("islasCC").getElementsByTagName("tabla")[i];
		oneTabla.tnom = oneT.getElementsByTagName("tnom")[0]? oneT.getElementsByTagName("tnom")[0].firstChild.data : "";
		var oneCampo = new Object();
		for(j=0; j<oneT.childNodes.length-3; j++) {
			var oneC = oneT.getElementsByTagName("campo")[j];
			oneCampo.cnom = oneC.getElementsByTagName("cnom")[0]? oneC.getElementsByTagName("cnom")[0].firstChild.data : "";
			if(oneCampo.cnom.indexOf(d.value)!=-1)
				selecciones[selecciones.options.length] = new Option(oneCampo.cnom+"     ( "+oneTabla.tnom+" )",i+","+j);
		}
	}
	if(selecciones.options.length==1) { selecciones.selectedIndex = 0; selecciones.click(); }
	busCampo.readonly = false;
	d.style.background = "white";
}
  
function busTPH(d){
	if(d && d.options[d.selectedIndex].text!="" && d.options[d.selectedIndex].value!="") {
		var numXTablas = document.getElementById("islasCC").getElementsByTagName("tabla").length;
		var oneXTabla = new Object();
		for(i=0; i<numXTablas; i++) {
			oneXT = document.getElementById("islasCC").getElementsByTagName("tabla")[i];
			oneXTabla.tnom = oneXT.getElementsByTagName("tnom")[0]? oneXT.getElementsByTagName("tnom")[0].firstChild.data : "";
			if(oneXTabla.tnom==d.options[d.selectedIndex].text) {
				var oneXCampo = new Object();
				for(jj=0; jj<oneXT.childNodes.length-3; jj++) {
					var oneXC = oneXT.getElementsByTagName("campo")[jj];
					oneXCampo.cnom = oneXC.getElementsByTagName("cnom")[0]? oneXC.getElementsByTagName("cnom")[0].firstChild.data : "";
					if(oneXCampo.cnom.indexOf(d.options[d.selectedIndex].value)!=-1) {
						loadTabla(i);
						qCampo = jj + 1;
						showCampo(qCampo);
						return;
					}
				}
			}
		}
	}	
}