function bloquear_form(form,valor){var F=document.forms[form];var ele=F.elements.length;for(i=0;i<ele;i++){F.elements[i].disabled=valor}}function lectura(form,status){var ele=form.elements.length;for(i=0;i<ele;i++){form.elements[i].readOnly=status}}function modo_formulario(formulario,style){var n=formulario.elements.length;for(i=0;i<n;i++){formulario.elements[i].className=style}}function llenar_campos(vector,formulario){var F=document.getElementById(formulario);var n_ele=vector.length;var tipo='';for(i=0;i<n_ele;i++){tipo=F.elements[i].type;if(tipo!='button'){F.elements[i].value=vector[i]}}}function limpiar(form){var F=document.getElementById(form);var ele=F.elements.length;var tipo='';for(i=0;i<ele;i++){tipo=F.elements[i].type;if(tipo!='button'){F.elements[i].value=''}}}function js_verificar_form(formulario){var F=document.getElementById(formulario);var n_ele=F.elements.length;var ele;var index;var text="";var title;var name;for(i=0;i<n_ele;i++){var tipo=F.elements[i].type;if(tipo!='button'&&tipo!='reset'&&tipo!='submit'){ele=F.elements[i];if(ele.title>""){switch(tipo){case'text':{text=ele.value;break}case'textarea':{text=ele.value;break}case'password':{text=ele.value;break}case'select-one':{index=ele.selectedIndex;if(index>0){text=ele.options[index].text}break}}text=trim(text);if(!(text>'')){alert(ele.title);ele.focus();return false}text=""}}}return true}function form_a_url(formulario){var F=document.getElementById(formulario);var v_url='';var tipo='';var nombre='';var valor='';var pos_guion=0;var n_ele=F.length;var ele=null;var lectura;for(i=0;i<n_ele;i++){tipo=F.elements[i].type;if(tipo!='button'&&tipo!='reset'&&tipo!='submit'){ele=F.elements[i];lectura=ele.readOnly;if(typeof(lectura)=="undefined"){lectura=false}if(lectura==false){id=ele.id;pos_guion=id.indexOf('_');nombre=id.slice(pos_guion+1);valor=ele.value;if(v_url>""){v_url+="&"+nombre+"="+escape(valor)}else{v_url+=nombre+"="+escape(valor)}}}}v_url="?"+v_url;return v_url}function load_combo(combo,dimensiones,vector){var n_regs,n_tds;var S;var size;var valor='',text='';var op_valor;if(dimensiones==1){n_regs=vector.length;S=document.getElementById(combo);size=S.size;for(i=0;i<n_regs;i++){valor=vector[i];op_valor=document.createElement("option");op_valor.value=unescape(valor);op_valor.text=unescape(valor);if(size>1&&i==0){op_valor.selected=true}S.add(op_valor)}}else{S=document.getElementById(combo);size=S.size;var n_dims=vector.dimensions();var n_rows_tds=n_rows_n_tds_vbarray(vector,n_dims);var n_rows_tds=n_rows_tds.split(",");n_regs=n_rows_tds[0];n_tds=n_rows_tds[1];for(i=0;i<n_regs;i++){text=vector.getItem(i,1);valor=vector.getItem(i,0);op_valor=document.createElement("option");op_valor.value=unescape(valor);op_valor.text=unescape(text);if(size>1&&i==0){op_valor.selected=true}S.add(op_valor)}}}function limpiar_combo(combo){var S=document.getElementById(combo);var n_opt=S.options.length;if(n_opt>0){for(i=0;i<n_opt;i++){S.options.remove(0)}}return true}function buscar_en_select(select,valor){var opts=select.options.length;for(i=0;i<opts;i++){if(select.options[i].value==valor){select.options[i].selected=true;return true}}}function dias(cbo){for(i=1;i<32;i++){var opt=document.createElement("option");if(i<10){opt.value="0"+i;opt.text="0"+i}else{opt.value=i;opt.text=i}var combo=document.getElementById(cbo);combo.options.add(opt)}}function meses(cbo){var meses=new Array();meses[0]="Enero";meses[1]="Febrero";meses[2]="Marzo";meses[3]="Abril";meses[4]="Mayo";meses[5]="Junio";meses[6]="Julio";meses[7]="Agosto";meses[8]="Septiembre";meses[9]="Octubre";meses[10]="Noviembre";meses[11]="Diciembre";for(i=0;i<12;i++){var opt=document.createElement("option");if(i<9){opt.value="0"+(i+1)}else{opt.value=i+1}opt.text=meses[i];var combo=document.getElementById(cbo);combo.options.add(opt)}}function anos(cbo){var combo=document.getElementById(cbo);var fecha=new Date();var ano_act=fecha.getFullYear();var ano_max=ano_act-10;var ano_min=ano_max-65;for(i=ano_max;i>ano_min;i--){var opt=document.createElement("option");opt.value=i;opt.text=i;combo.options.add(opt)}}function ocupaciones(cbo){var ocupaciones=new Array();ocupaciones[0]="Ingeniero de Sistemas";ocupaciones[1]="Ingeniero Electronico";ocupaciones[2]="Ingeniero Mecanico";ocupaciones[3]="Ingeniero Biologo";ocupaciones[4]="Arquitecto";ocupaciones[5]="Maestro en Educación";ocupaciones[6]="Matematico";ocupaciones[7]="Contador";ocupaciones[8]="Abogado";ocupaciones[9]="Medico General";ocupaciones[10]="Administrador";ocupaciones[11]="Economista";ocupaciones[12]="Programador";var n_ocps=ocupaciones.length;for(i=0;i<n_ocps;i++){var opt=document.createElement("option");opt.value=ocupaciones[i];opt.text=ocupaciones[i];cbo.options.add(opt)}}function paises(cbo){var paises=new Array("Afghanistan","Albania","Algeria","Andorra","Angola","Antarctica","Antigua and Barbuda","Argentina","Armenia","Australia","Austria","Azerbaijan","Bahamas","Bahrain","Bangladesh","Barbados","Belarus","Belgium","Belize","Benin","Bermuda","Bhutan","Bolivia","Bosnia and Herzegovina","Botswana","Brazil","Brunei","Bulgaria","Burkina Faso","Burma","Burundi","Cambodia","Cameroon","Canada","Cape Verde","Central African Republic","Chad","Chile","China","Colombia","Comoros","Congo, Democratic Republic","Congo, Republic of the","Costa Rica","Cote d'Ivoire","Croatia","Cuba","Cyprus","Czech Republic","Denmark","Djibouti","Dominica","Dominican Republic","East Timor","Ecuador","Egypt","El Salvador","Equatorial Guinea","Eritrea","Estonia","Ethiopia","Fiji","Finland","France","Gabon","Gambia","Georgia","Germany","Ghana","Greece","Greenland","Grenada","Guatemala","Guinea","Guinea-Bissau","Guyana","Haiti","Honduras","Hong Kong","Hungary","Iceland","India","Indonesia","Iran","Iraq","Ireland","Israel","Italy","Jamaica","Japan","Jordan","Kazakhstan","Kenya","Kiribati","Korea, North","Korea, South","Kuwait","Kyrgyzstan","Laos","Latvia","Lebanon","Lesotho","Liberia","Libya","Liechtenstein","Lithuania","Luxembourg","Macedonia","Madagascar","Malawi","Malaysia","Maldives","Mali","Malta","Marshall Islands","Mauritania","Mauritius","Mexico","Micronesia","Moldova","Mongolia","Morocco","Monaco","Mozambique","Namibia","Nauru","Nepal","Netherlands","New Zealand","Nicaragua","Niger","Nigeria","Norway","Oman","Pakistan","Panama","Papua New Guinea","Paraguay","Peru","Philippines","Poland","Portugal","Qatar","Romania","Russia","Rwanda","Samoa","San Marino"," Sao Tome","Saudi Arabia","Senegal","Serbia and Montenegro","Seychelles","Sierra Leone","Singapore","Slovakia","Slovenia","Solomon Islands","Somalia","South Africa","Spain","Sri Lanka","Sudan","Suriname","Swaziland","Sweden","Switzerland","Syria","Taiwan","Tajikistan","Tanzania","Thailand","Togo","Tonga","Trinidad and Tobago","Tunisia","Turkey","Turkmenistan","Uganda","Ukraine","United Arab Emirates","United Kingdom","United States","Uruguay","Uzbekistan","Vanuatu","Venezuela","Vietnam","Yemen","Zambia","Zimbabwe");var n_paises=paises.length;for(i=0;i<n_paises;i++){var opt=document.createElement("option");opt.value=paises[i];opt.text=paises[i];if(paises[i]=="Peru"){opt.selected=true}cbo.options.add(opt);delete opt}delete paises,n_paises,cbo}function preguntas_recordar_clave(cbo){var preguntas=Array();preguntas[0]="¿Cuál es el nombre de tu mascota?";preguntas[1]="¿Cómo se llama tu mejor amigo?";preguntas[2]="¿Cuál es tu color favorito?";preguntas[3]="¿Cuál es tu deporte preferido?";preguntas[4]="¿Qué es lo que mas admiras?";preguntas[5]="¿Cuáles son tus virtudes?";preguntas[6]="¿Cuáles son tus defectos?";preguntas[7]="¿Qué programa de televisión ves?";var n_prgs=preguntas.length;for(i=0;i<n_prgs;i++){var opt=document.createElement("option");opt.value=preguntas[i];opt.text=preguntas[i];cbo.options.add(opt)}}function controles_ocultos(valor){cap_controles.style.visibility=valor}mask_fecha=function(e){var ele=Event.element(e);var valor=$F(ele);if((e.keyCode>=48&&e.keyCode<=57)||(e.keyCode>=96&&e.keyCode<=105)||e.keyCode==37||e.keyCode==39||e.keyCode==8||e.keyCode==46||e.keyCode==35||e.keyCode==36){if(valor.length==2){$(ele).value+="-"}if(valor.length==5){$(ele).value+="-"}}else{$(ele).value=valor.substr(0,valor.length-1)}}