var tipos=new Array();
var desc=new Array();
var v=new Array();
var n=0;
var n_comp=0;
var xtemp


//nuevas variables
var n_terceros=0;//cuenta el numero de terceros
var no_submit=0;
var pos_ter=new Array();
var m=0; //por cada tercero es un campo mas de tipo hidden
function parse_date(fecha){var dia=new String();var mes=new String();var anno=new String();var f=new String(fecha);var a=new Number();
a=0;
while(f.charAt(a)!="/"){
	if(isNaN(f.charAt(a))){
	return false;
	}else{
	dia+=f.charAt(a);}a++;}a++;while(f.charAt(a)!="/"){if(isNaN(f.charAt(a))){return false;}else{mes+=f.charAt(a);a++;}}anno+=f.substr(++a,4);return fecha_valida(Number(dia), Number(mes), Number(anno));}

function cambio_comprobante(){if(document.operacion.comprobante.value!=n_comp){document.operacion.comprobante.value=n_comp;}}

function llenar(){
	var des=0;
	var ori;
	for(i=0;i<n_terceros;i++){
		ori=pos_ter[i];
		ori++;
		des=ori+2;
		document.operacion.elements[des].value=document.operacion.elements[ori].value;
	}
}

function abrir(cnsctvo,cd_ayda,id, campos)
{
	

		var obj;
		var valores='';
		var i=campos.indexOf('|')
		var entro=0;
		
		while(i!=-1)
		{
			token=campos.substr(0,i);
			
			
			if(token.indexOf('parent.')!=-1)
			{
				token=token.replace('parent.','');
				obj=parent.document.getElementById(token);
			}
			else
			{
				obj=document.getElementById(token);
			}
			valores+=obj.value;
			
			campos=campos.substr(i+1, campos.length);
			i=campos.indexOf('|')
			if(i!=-1)
				valores+='|';
			entro++;
		}
		
		
		if(campos.length > 0)
		{
			if(campos.indexOf('parent.')!=-1)
			{
				campos=campos.replace('parent.','');
				obj=parent.document.getElementById(campos);
			}
			else
			{
				
				obj=document.getElementById(campos);
				
			}
			
			if(entro==0)			
				valores=obj.value;
			else	
				valores+='|' + obj.value;
		}
		
		valor=document.operacion.Campo[cnsctvo].value
		self.open('aydaWrKFlow.asp?cnsctvo=' + cd_ayda + '&valor=' + valor + '&nmrotrmte=' + id + '&cndcnes=' + valores, '' , 'dependent,scrollbars,status=yes,height=420,resizable');
		
}

function on_submit(){

	if(no_submit==1){
	no_submit=0;
	return false;
	}
	
	//mesuno=top.title.document.forma.mes_gnral.value;
	//mesdos=document.operacion.month.value;
	//anouno=top.title.document.forma.ano_gnral.value;
	//anodos=document.operacion.year.value;
	//if((Number(mesuno)!=Number(mesdos) && mesuno!="") || (Number(anouno)!=Number(anodos))){
	//	alert('El año y el mes de la fecha de afectación \nNo corresponde con la fecha de trabajo')
	//	return false;
	//}





var prim_error=-1;
var error=false;
var dia=document.operacion.day.value;
var mes=document.operacion.month.value;
var anno=document.operacion.year.value;

//si hay tercero en la pagina indica que se debe llenar hidden
if (n_terceros>0){
	llenar();
	}


if(fecha_valida(dia, mes, anno)==false)
	{
	alert("La fecha introducida no es valida.  Por favor rectifique e intentelo nuevamente.");
		if(error==false)
		{error=true;}
	}
	
if(menorhoy( dia,mes,anno)==false)
	{
	alert("la fecha no es  correcta, por favor introduzca una fecha menor o igual a la fecha de hoy ");
	if (error==false){error=true;}
	}
	
if(document.operacion.Valor.value==""){
	alert("El campo Valor no tiene valor.  Por favor introduzca un valor en este campo");
	if(error==false){
	error=true;}
	}
	
//xtemp=document.operacion.Valor.value;
//while(xtemp.indexOf(',')!=-1)
//	xtemp=xtemp.replace(',' , '')

//document.operacion.Valor.value=xtemp;

//if(isNaN(document.operacion.Valor.value))
//	{
//	alert("El campo Valor debe de tener un valor númerico.  Por favor rectifiquelo");
//	if(error==false){
//	error=true;}
//	}
	
/*if(document.operacion.Valor.value < 0){
	alert("Valor sin impuestos:  No puede ser inferior a cero (0).  Por favor rectifiquelo");
	if(error==false){
	error=true;}
	}
*/


if(n==1){
a=0;
if(document.operacion.Campo.value=="")
{
alert("El campo:\n"+desc[a]+"\nno tiene  valor.  Por favor introduzca un valor en el campo");
if(error==false){
	error=true;
	}
	if(prim_error<0){
	prim_error=a;
	}
}
else{
	
	if(tipos[a]=="Num"){
	
	
	if( isNaN(document.operacion.Campo.value ))
	{
		alert("El campo:\n"+desc[a]+"\nes de tipo númerico y no contiene un valor valido y no puede ser negativo.  Por favor rectifiquelo.");
		if(error==false)
		{
			error=true;
		}
		if(prim_error<0)
		{prim_error=a;}
	}
		
	
}




if(tipos[a]=="Fec")
{if(parse_date(document.operacion.Campo.value)==false)
{alert("El campo:\n"+desc[a]+"\nEs de tipo fecha y no contiene una fecha valida.\nPor favor rectifiquelo, el formato valido es dd/mm/aaaa.");
if(error==false)
{error=true;}
if(prim_error<0)
{prim_error=a;}}}
 if(tipos[a]=="Car")
{if(document.operacion.Campo.value.charAt(0)==" ")
{alert("El primer caracter del valor en el campo:\n"+desc[a]+"\nes un espacio.  Por favor eliminelo o rectifique el contenido del campo.");
if(error==false){error=true;}
if(prim_error<0){prim_error=a;}}
else{if(document.operacion.Campo.value.indexOf(",", 0)!=-1)
{alert("En la cadena no se pueden tener comas (\",\").  Por favor retire todas las comas e intentelo de nuevo");
if(error=false){error=true;}
if(prim_error<0){prim_error=a;}}}}}}
else{for(a=0; a<n; a++)
{if(document.operacion.Campo[a].value=="")
{alert("El campo:\n"+desc[a]+"\nno tiene valor.  Por favor introduzca un valor en el campo");
if(error==false)
{error=true;}
if(prim_error<0){prim_error=a;}}
else{if(tipos[a]=="Num")
{
	if(isNaN(document.operacion.Campo[a].value))
	{
		alert("El campo:\n"+desc[a]+"\nes de tipo númerico y no contiene un valor valido.  Por favor rectifiquelo.");
		if(error==false)
		{
			error=true;
		}
		if(prim_error<0)
		{
			prim_error=a;
		}
	}
	else
	{
		if(Number(document.operacion.Campo[a].value) < 0)
		{
			alert("El campo:\n"+desc[a]+"\nNo puede tener un valor menor a cero (0).  Por favor rectifiquelo.");
		if(error==false)
		{
			error=true;
		}
		if(prim_error<0)
		{
			prim_error=a;
		}
		}
	}
}
if(tipos[a]=="Fec"){if(parse_date(document.operacion.Campo[a].value)==false)
{alert("El campo:\n"+desc[a]+"\nEs de tipo fecha y no contiene una fecha valida.\nPor favor rectifiquelo, el formato valido es dd/mm/aaaa.");
if(error==false){error=true;}
if(prim_error<0){prim_error=a;}}}
if(tipos[a]=="Car"){if(document.operacion.Campo[a].value[0]==" ")
{alert("El primer caracter del valor en el campo:\n"+desc[a]+"\nes un espacio.  Por favor eliminelo o rectifique el contenido del campo.");if(error==false){error=true;}if(prim_error<0){prim_error=a;}}}}}}

if(error==true)
	return false;
i=insert();
if(i==-1){
	return false;
	}
return error==false;
}


function cargar_tipo_de_campo(tipo){campos.push(tipo);}
function es_bisiesto(anno){var bisiesto=false;if(anno%4==0){if(anno%100==0){if(anno%400==0){bisiesto=true;}else{bisiesto=false;}}else{bisiesto=true;}}else{bisiesto=false;}return bisiesto;}
function fecha_valida(dia, mes, anno){var valida=false;if(Number(anno) < 1990 || Number(anno) > 2500){alert("El año no esta en el rango 1990 - 2500");return false;}if ( dia <= 0){return false}if(mes==1 || mes==3 || mes==5 || mes==7 || mes==8 || mes==10 || mes==12){if(dia > 31){valida=false;}else{valida=true;}}if(mes==4 || mes==6 || mes==9 || mes==11){if(dia > 30){valida=false;}else{valida=true;}}if(mes==2){if(dia > 29){valida=false;}else if(dia==29 && es_bisiesto(anno)){valida=true;}else if(dia<=28){valida=true;}}if(valida==false){return false;}return true;}


function menorhoy ( dia,mes,anno)
{
	
		return true
	
}


function crga_lsta(arreglo,cnsctvo)
{
	var i=0;
	x=document.operacion.Campo[Number(cnsctvo)];
	x.length=0;
	var n=arreglo.length;
	while(i<n)
	{
		x[i]=new Option(arreglo[i][1]);
		x[i].value=arreglo[i][0];
		i++;
	}
	x[0].selected=true;
}

function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function send()
{
	
	b=on_submit()
	
	if(b==true)
	{
		document.operacion.submit();
	}
}

function aceptar(){
	ac=document.operacion.action;
	ac=ac + '&tpo=1';
	document.operacion.action=ac;
	
	document.operacion.submit();
}

function carpeta(nmro_crpta, imginx)
{
	var i=0
	var d=document;
	while(i<net)
	{
		if(i==ne)
		{
			x=d.getElementById('tda' + i )
			x2=d.getElementById('tdb' + i )
			x3=d.getElementById('tdc' + i )
			x.background='fotos/ti2.gif'
			x2.background='fotos/tc2.gif'
			x3.background='fotos/tf2.gif'
		}
		else
		{
			if(i==nmro_crpta)
			{
				x=d.getElementById('tda' + i )
				x2=d.getElementById('tdb' + i )
				x3=d.getElementById('tdc' + i )
				x.background='fotos/ti2.gif'
				x2.background='fotos/tc2.gif'
				x3.background='fotos/tf2.gif'
			}
			else
			{
				x=d.getElementById('tda' + i )
				x2=d.getElementById('tdb' + i )
				x3=d.getElementById('tdc' + i )
				x.background='fotos/ti.gif'
				x2.background='fotos/tc.gif'
				x3.background='fotos/tf.gif'
			}
		}	
	i++;
	}
	
	var str=new String(lista.location);
	
	if(str.indexOf('simple.html')==-1)
	{
	//	lista.procesar();
	}
}