// ********************************************************************************

function get_rb_aloja(){
 
 	var lcheck = false;
	var n  = document.form1.rb_alojamiento.length;		
	var ctipo  = typeof(n);

	if( ctipo == "undefined" ){
		return "";
	}
 
    for (i=0 ; i < n ; i++){ 
		if( document.form1.rb_alojamiento[i].checked ){
			lcheck = true;
			break;
		}
    } 
	if( lcheck == true ){
		valor = document.form1.rb_alojamiento[i].value;
	}else{
		valor = "";
	}
	return valor;
}

// ********************************************************************************

function get_rb_turismo(){
 
	var lcheck = false;
	var n      = document.form1.rb_turismo.length;
	var ctipo  = typeof(n);
	
	if( ctipo == "undefined" ){
		return "";
	}
 
    for (i=0 ; i < n ; i++){ 
		if( document.form1.rb_turismo[i].checked ){
			lcheck = true;
			break;
		}
    } 
	if( lcheck == true ){
		valor = document.form1.rb_turismo[i].value;
	}else{
		valor = "";
	}
	return valor;
}

// ********************************************************************************

function infomed_mostrar( n1 ){
	// habilita-deshabilita los cuadros de texto en INFO_MEDICA.HTML/RPTA1...5
	var n = parseInt( n1 );		
	var valor1 = "document.form1.lst_p" + n + ".value";
	var valor2 = "document.form1.rpta"  + n + ".disabled=false";
	var valor3 = "document.form1.rpta"  + n + ".disabled=true";
	var valor4 = "document.form1.rpta"  + n + ".value=''";
	
	if( eval( valor1 ) == "S" ){
		eval( valor2 );
	}else{
		eval( valor3 );
		eval( valor4 );
	}
}

// ********************************************************************************

function limpiar_resultado(){
	document.getElementById('div_resultado').innerHTML = "";
}

// ********************************************************************************

function limpiar_var( nTipo ){
	switch( nTipo ){
		case 1:
			for( i=1 ; i<=3 ; i++ ){
				eval( "document.form1.nmb_trapre" + i + ".value = ''" );
				eval( "document.form1.nmr_trapre" + i + ".value = ''" );
			}
			break;
		case 2:
			for( i=1 ; i<=3 ; i++ ){
				eval( "document.form1.nmb_trapos" + i + ".value = ''" );
				eval( "document.form1.nmr_trapos" + i + ".value = ''" );
			}
			break;
		case 3:
			for( i=1 ; i<=4 ; i++ ){
				eval( "document.form1.nmb_ponen" + i + ".value = ''" );
			}
			break;
	}
}

// ********************************************************************************

function tparticip_procesar(){
	// lista/menu TIPO_PARTICIPACION.ONCHANMGE del formulario	
	var lDisable;

	f_tparticip = document.form1.lst_tparticipacion.value;
	if( f_tparticip == 'P' ){
		lDisable = false;
	}else{
		lDisable = true;
		limpiar_var(3);
	}
	document.form1.nmb_ponen1.disabled = lDisable;
	document.form1.nmb_ponen2.disabled = lDisable;
	document.form1.nmb_ponen3.disabled = lDisable;
	document.form1.nmb_ponen4.disabled = lDisable;
}

// ********************************************************************************

function tprevios_procesar(){
	// lista/menu TRABAJOS_PREVIOS.ONCHANMGE del formulario	
	var f_tprevios = document.form1.lst_tprevios.value;
	var lDisable;
	if( f_tprevios == 'S' ){
		lDisable = false;
	}else{
		lDisable = true;
		limpiar_var(1);
	}
	document.form1.nmb_trapre1.disabled = lDisable;
	document.form1.nmb_trapre2.disabled = lDisable;
	document.form1.nmb_trapre3.disabled = lDisable;
	document.form1.nmr_trapre1.disabled = lDisable;
	document.form1.nmr_trapre2.disabled = lDisable;
	document.form1.nmr_trapre3.disabled = lDisable;	
}

// ********************************************************************************

function tpost_procesar(){
	// lista/menu TRABAJOS_POSTERIORES.ONCHANMGE del formulario	
	var f_tpost = document.form1.lst_tpost.value;
	var lDisable;
	if( f_tpost == 'S' ){
		lDisable = false;
	}else{
		lDisable = true;
		limpiar_var(2);
	}
	document.form1.nmb_trapos1.disabled = lDisable;
	document.form1.nmb_trapos2.disabled = lDisable;
	document.form1.nmb_trapos3.disabled = lDisable;
	document.form1.nmr_trapos1.disabled = lDisable;
	document.form1.nmr_trapos2.disabled = lDisable;
	document.form1.nmr_trapos3.disabled = lDisable;
}

// ********************************************************************************

function valida_mail( e_mail ) {
	var lok;
	var f_email     = e_mail;
	var len_mail    = f_email.length;
	var pos_pto     = f_email.indexOf( "." );
	var pos_arroba  = f_email.indexOf( "@" );
	var pos_arroba2 = f_email.lastIndexOf( "@" );

	if( f_email.length < 6 ){
		alert( "La longitud debe ser mayor a 6 caracteres." );
		return false;
	}	
	if( pos_arroba == -1 ){
		alert( "Falta el simbolo @." );
		return false;
	}	
	if( pos_arroba == 0 ){
		alert( "Simbolo '@' al inicio." );
		return false;
	}
	if( pos_arroba == f_email.length - 1 ){
		alert( "Simbolo '@' al final." );
		return false;
	}
	if( pos_arroba != pos_arroba2 ){
		alert( "Simbolo @ duplicado." );
		return false;
	}
	if( pos_pto == -1 ){
		alert( "Falta el simbolo ." );
		return false;
	}
	return true;
}