<?
include("../../inc/i_conect.php");
include("../../inc/i_comunes.php");
include("../inc/i_tabla.php");
include("../inc/tbl_inmueble.php");
include("../inc/tbl_inmb_ubicacion.php");
include("../inc/tbl_inmb_relacionado.php");
include("../inc/tbl_inmb_varios.php");
include("../inc/tbl_area_aux.php");
include("../inc/tbl_inmb_estado_propied.php");
include("../inc/tbl_inmb_area.php");
include("../inc/tbl_inmb_obser.php");
include("../inc/tbl_foto.php");
include("../inc/tbl_user.php");
include("../inc/i_verifica_sesion.php");
/*
-- File Name   : list_inmueble.php
-- Description : página para el listado de usuarios
-- Programmer  : Christian Díaz
-- Date        : 08/Jun/2006 
*/
/****************************************************************/
$vlLabel = "Inmueble " ;
$vlLabels = "Inmuebles " ;
$vlFlag = true;
$vlCriterio = "";
$vlAccion = "";
$vlBusca = "";
$VLTamPag = "";
$vlTotalPag = "";
$vlClassName = "";
$vlCodigoInmb = "";
$vlStatus = "";
$vlPlanta= "";
$vlMonto2= "0";
$vlCodUserAS="";
$vlPiso = "";
$vlHabPpal = "";

/****************************************************************/
if (isset($_GET["qStatus"])) {$vlStatus = $_GET["qStatus"];}
if (isset($_POST["hddCodStatus"])) {$vlStatus = $_POST["hddCodStatus"];}
/****************************************************************/
$vecCampos[0]="tbl_inmb_ubicacion";    
$vecCampos[1]="inubic_nomb";
$vecCampos[2]="inrel_nombre";
$vecCampos[3]="tinm_desc";
$vecCampos[4]="inmb_transac";
$vecCampos[5]="zon_desc"; 
$vecCampos[6]="zmun_desc"; 
$vecCampos[7]="inmb_stat";
$vecCampos[8]="inmb_firma";  
$vecCampos[9]="inmb_stat_pub";
$vecCampos[10]="inmb_cod";
$vecCampos[11]="inmb_user_cod";
$vecCampos[12]="inmb_codigo_as";
$vecCampos[15]="list_inmueble.php";
$vecCampos[16]="mod_inmueble.php";
$vecCampos[17]="list_foto.php";
$vecCampos[18]="list_ficha_inmb.php";
/****************************************************************/
if(isset($_SESSION["vgCodUser"]) != "")
{
	$vlCodUserAS = $_SESSION["vgCodUser"] . " - " . $_SESSION["vgCodAS"] . " - " . $_SESSION["vgNombre"] ;
	if(isset($_SESSION["vgVecUser"]) == ""){fm_carga_user();};
}else{
	fm_redirect("../../inc/i_desconect.php");
}
/****************************************************************/
if(isset($_POST["hddAccion"])!=""){$vlAccion=$_POST["hddAccion"];}
if($vlAccion != "")
{
	/*fm_bus_desc2($vtCol, $vtCol2, $vtTabla, $vtValor, $vtValor2)*/
	if(!(fm_bus_desc($vecCampos[1], $vecCampos[0], $_POST["txtNomInmb"])))
	{
    $vlDivisa = explode("-", trim($_POST["cmbDivisa"]));
    $vlUsuario = explode("-", trim($_POST["txtPromotor"]));
		
    if(isset($_POST["cmbPlanInmb"])!=""){$vlPlanta=$_POST["cmbPlanInmb"];}
		if(isset($_POST["txtMonto2"])!=""){$vlMonto2=$_POST["txtMonto2"];}

		$vlCodigo = fm_reg_inmueble($_POST["rdTransac"], $_POST["hddCodAnnie"], $_POST["txtMonto"], $vlMonto2, trim($vlDivisa[0]), 
										$_POST["rdPublicPag"], $_POST["rdPublicOfer"], $_POST["txtFechVencOfer"], $_POST["txtFechIng"], 
										$_POST["txtFechActual"], $_POST["txtFechFirma"],  $_POST["txtFechAnive"], $_POST["txtFechDispo"], $_POST["cmbFuente"],
										trim($vlUsuario[0]) , $_POST["rdFichFirm"], $_POST["rdPermPubFot"], $_POST["cmbStatus"], $_POST["txtAreaInmb"],
										$_POST["cmbAnoConst"], $_POST["cmbHabit"], $_POST["txtBanoCmpt"], $_POST["cmbTerraza"], 
										$_POST["rdPiscina"], $_POST["cmbCantEstacio"], $_POST["cmbTipAmob"]);

		fm_reg_ubicacion($vlCodigo, $_POST["cmbZona"], $_POST["cmbCiudad"], $_POST["cmbMunicipio"], $_POST["cmbUrban"], 
										 $_POST["txtNomInmb"], $_POST["txtDirInmb"], 	$_POST["txtTelInmb"],$_POST["txtTelInmb2"], 
										 $_POST["cmbTipInmb"], $vlPlanta, $_POST["cmbEstaEstruc"], $_POST["cmbTallaEstru"]);
			 
		fm_reg_relacionado($vlCodigo, $_POST["txtNomProp"], $_POST["txtCedProp"], $_POST["txtTelDomProp"], 
											 $_POST["txtTelOficProp"],$_POST["txtTelCelProp"], $_POST["txtFaxProp"], $_POST["txtEmailProp"],
										 	 $_POST["txtObserProp"], "1");
		fm_reg_relacionado($vlCodigo, $_POST["txtNomCony"], $_POST["txtCedCony"], $_POST["txtTelDomCony"], 
											 $_POST["txtTelOficCony"],$_POST["txtTelCelCony"], $_POST["txtFaxCony"], $_POST["txtEmailCony"],
										 	 $_POST["txtObserCony"], "2");		 	 
		fm_reg_relacionado($vlCodigo, $_POST["txtNomApode"], $_POST["txtCedApode"], $_POST["txtTelDomApode"], 
											 $_POST["txtTelOficApode"],$_POST["txtTelCelApode"], $_POST["txtFaxApode"], $_POST["txtEmailApode"],
										 	 $_POST["txtObserApode"], "3");							 	 
		fm_reg_relacionado($vlCodigo, $_POST["txtNomAdmin"], $_POST["txtCedAdmin"], $_POST["txtTelDomAdmin"], 
											 $_POST["txtTelOficAdmin"],$_POST["txtTelCelAdmin"], $_POST["txtFaxAdmin"], $_POST["txtEmailAdmin"],
										 	 $_POST["txtObserAdmin"], "4");								 	 
		fm_reg_relacionado($vlCodigo, $_POST["txtNomConser"], $_POST["txtNomConyConser"], "", $_POST["txtTelConser"],
											 $_POST["txtCelConser"], "", "",$_POST["txtObserConser"], "5");
		fm_reg_relacionado($vlCodigo, $_POST["txtNomVig"], $_POST["txtEmpVig"], "", $_POST["txtTelEmpVig"],
											 $_POST["txtCelVig"], "", "",$_POST["txtObserVig"], "6");
		fm_reg_relacionado($vlCodigo, $_POST["txtNomVig2"], $_POST["txtEmpVig2"], "", $_POST["txtTelEmpVig2"],
											 $_POST["txtCelVig2"], "", "",$_POST["txtObserVig2"], "7");							 
		
		fm_reg_varios($vlCodigo, $_POST["rdCanchTen"], $_POST["rdGym"], $_POST["rdSquash"], $_POST["rdSalaFies"],
									$_POST["rdSauna"], $_POST["cmbJardin"], $_POST["cmbTipVig"]);							
		
		fm_reg_area_aux($vlCodigo, $_POST["txtAreaConst"], $_POST["txtAreaJardin"], $_POST["txtAreaTerra"]);
			
		if (isset($_POST["cmbTipoPiso"][0])){$vlPiso  = join("|", $_POST["cmbTipoPiso"]);}

		fm_reg_est_prop($vlCodigo, $_POST["cmbEstProp"], $vlPiso,$_POST["cmbAireAcond"], 
									  $_POST["cmbTV"], $_POST["cmbTelefon"],$_POST["rdABA"], $_POST["rdMascota"], 
									  $_POST["cmbLumin"], $_POST["cmbTipVista"]);
		
		if (isset($_POST["cmbHabitPpal"][0])){$vlHabPpal  = join("|", $_POST["cmbHabitPpal"]);}
		
		fm_reg_Area($vlCodigo, $vlHabPpal, $_POST["txtBanoVisit"], $_POST["txtBanoMedi"], $_POST["cmbAreaCocina"],  
										 $_POST["cmbEstCocina"],$_POST["cmbEstufa"], $_POST["cmbHorno"], $_POST["rdNevera"],
										 $_POST["rdCongelador"],$_POST["rdLavaPlat"], $_POST["rdMicro"], $_POST["rdPantry"],
										 $_POST["rdLavadora"],$_POST["rdSecadora"], $_POST["rdUtensi"], $_POST["cmbSalonComed"], 
										 $_POST["rdEstudio"], $_POST["rdFamRoom"], $_POST["rdHabServ"], $_POST["rdBanoServ"],
										 $_POST["rdHabChof"], $_POST["cmbEstacio"], $_POST["rdMaletero"]);

		fm_reg_Observ($vlCodigo, $_POST["txtHistPropiedad"], $_POST["txtOtrosdatos"]); 
	
	}else{
		fm_alerta_admin(" Ya fue ingresado un inmueble con este nombre");
		$vlFlag= false;
	}	
}

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

$vlCodigoInmb = fm_cod_inmb_max();

/***************** Antes de la busqueda *****************/ 

if(isset($_POST["txtBusca"])){$vlBusca = $_POST["txtBusca"];}
if(isset($_POST["cmbCriterio"])){$vlCriterio = $_POST["cmbCriterio"];}
if( $vlBusca != "" || $vlCriterio != "" )
	{
		switch (intval($vlCriterio))
		{
			case 1 :
				$vlBusca2 = 1 ;
				$vlCriterio2 = 1 ;
				break ;
			case 2 :
				$vlBusca2 = 2 ;
				$vlCriterio2 = 1 ;
				break ;
			case 3 :
				$vlBusca2 = 3 ;
				$vlCriterio2 = 1 ;
				break;
			case 4 :
				$vlBusca2 = 4 ;
				$vlCriterio2 = 1 ;
				break;
			default :
				$vlBusca2 = $vlBusca ;
				$vlCriterio2 = $vlCriterio ;
				break;
		}
				
		$vlResult = fm_bus_inmueble_like($vlCriterio2, $vlBusca2, "", "");
		$vlReturn = mysql_num_rows($vlResult);
		$vlTotalReg = $vlReturn;
		mysql_free_result($vlResult);
		if(isset($_POST["CmbCantReg"])){$VLTamPag = $_POST["CmbCantReg"];}
		if (trim($VLTamPag) == "")
		{
			if(isset($_POST["hddCantReg"])){$VLTamPag = $_POST["hddCantReg"];}
		}
		if (trim($VLTamPag) == ""){$VLTamPag = "5";}
		$vlTotalPag = ceil($vlTotalReg/$VLTamPag);
	 
		if (trim(isset($_POST["hddPagina"])) == "")	
		{
			$VLPagActual = "1";
			$VLInicio = "1" ;
		}else{
			$VLPagActual = $_POST["hddPagina"];
			$VLInicio = ($VLPagActual-1)* $VLTamPag;
		}

		if ($vlTotalPag == 1 && $vlTotalReg <= $VLTamPag)
			{
					$VLInicio = "1";
			}else{
				if($VLPagActual == $vlTotalPag && $VLTamPag == $vlTotalReg)
					{
						$VLInicio = "1";
					}else if ($VLInicio == $VLTamPag && $vlTotalReg < $VLInicio){
						$VLInicio = "1";
					}else if ($VLInicio == 0 ){
						$VLInicio = "1";
					}
			}
	 /*******************************************************/

		$vlResultado = fm_bus_inmueble_like($vlCriterio2, $vlBusca2, $VLInicio, $VLTamPag);

	 /*******************************************************/
	}else{
			
		$vlResult = fm_bus_inmueble("", "", "", "", "", "", "", "", "", "",
																"", "", "", "", "", $vlStatus, "", "", "");
		
		$vlReturn = mysql_num_rows($vlResult);
		$vlTotalReg = $vlReturn;
		mysql_free_result($vlResult);
		
		if(isset($_POST["CmbCantReg"])){$VLTamPag = $_POST["CmbCantReg"];}
		if (trim($VLTamPag) == "")
		{
			if(isset($_POST["hddCantReg"])){$VLTamPag = $_POST["hddCantReg"];}
		}
		if (trim($VLTamPag) == ""){$VLTamPag = "5";}

		$vlTotalPag = ceil($vlTotalReg/$VLTamPag);
	 
		if (trim(isset($_POST["hddPagina"])) == "")
		{
			$VLPagActual = "1";
			$VLInicio = "1" ;
		}else{
			$VLPagActual = $_POST["hddPagina"];
			$VLInicio = ($VLPagActual-1)* $VLTamPag;
		}

		if ($vlTotalPag == 1 && $vlTotalReg <= $VLTamPag)
			{
					$VLInicio = "1";
			}else{
				if($VLPagActual == $vlTotalPag && $VLTamPag == $vlTotalReg)
					{
						$VLInicio = "1";
					}else if ($VLInicio == $VLTamPag && $vlTotalReg < $VLInicio){
						$VLInicio = "1";
					}else if ($VLInicio == 0 ){
						$VLInicio = "1";
					}
			}
	 /*******************************************************/

		$vlResultado = fm_bus_inmueble("", "", "", "", "", "", "", "", "", "", "", "",
																	 "", "", "", $vlStatus, "", $VLInicio, $VLTamPag);

	 /*******************************************************/
	}

?>
<html>
<head>
<script language="javascript" src="../../js/Calendar.js"></script>
<title>..::  ::..</title>

<? include("meta_scripts.html"); ?>

<script language="JavaScript">
<!--


var customarray=new Array();

	function fm_validar()
	{
		
    if (document.form1.txtFechIng.value == "")
		{
			alert("Debe ingresar una fecha de ingreso");
			document.form1.txtFechIng.focus();
			return false;
		}
		
    if (document.form1.txtPromotor.value == "")
		{
			alert("Debe ingresar un promotor");
			document.form1.txtPromotor.focus();
			return false;
		}
    
    if (document.form1.cmbZona.value == "")
		{
			alert("Debe ingresar la zona a la que pertenece la propiedad");
			document.form1.cmbZona.focus();
			return false;
		}
			
		if (document.form1.cmbUrban.value == "")
		{
			alert("Debe ingresar la urbanizaci&oacute;n a la que pertenece la propiedad");
			document.form1.cmbUrban.focus();
			return false;
		}		
		
		if (document.form1.txtNomInmb.value == "")
		{
			alert("Debe ingresar un nombre de la propiedad");
			document.form1.txtNomInmb.focus();
			return false;
		}
		
		if (document.form1.txtDirInmb.value == "")
		{
			alert("Debe ingresar una direcci&oacute;n para la propiedad");
			document.form1.txtDirInmb.focus();
			return false;
		}
			
		if (document.form1.txtNomProp.value == "")
		{
			alert("Debe ingresar el nombre del propietario");
			document.form1.txtNomProp.focus();
			return false;
		}
		
		if ((document.form1.txtTelDomProp.value == "") && (document.form1.txtTelOficProp.value == "") && (document.form1.txtTelCelProp.value == ""))
		{
			alert("Debe ingresar al menos un telďż˝fono del propietario");
			document.form1.txtTelDomProp.focus();
			return false;
		}
				
		if (document.form1.txtEmailProp.value != "")
		{
			if (!fm_val_email(document.form1.txtEmailProp.value))
				{
				alert("Debe ingresar una direcci&oacute;n de correo valida para el propietario");
				document.form1.txtEmailProp.focus();
				return false;
				}
		}
		
		if (document.form1.txtEmailCony.value != "")
		{
			if (!fm_val_email(document.form1.txtEmailCony.value))
				{
				alert("Debe ingresar una direcci&oacute;n de correo valida para el conyugue del propietario");
				document.form1.txtEmailCony.focus();
				return false;
				}
		}
	
		if (document.form1.txtEmailApode.value != "")
		{
			if (!fm_val_email(document.form1.txtEmailApode.value))
				{
				alert("Debe ingresar una direcci&oacute;n de correo valida para el apoderado");
				document.form1.txtEmailApode.focus();
				return false;
				}
		}
	
		if (document.form1.txtEmailAdmin.value != "")
		{
			if (!fm_val_email(document.form1.txtEmailAdmin.value))
				{
				alert("Debe ingresar una direcci&oacute;n de correo valida para el administrador");
				document.form1.txtEmailAdmin.focus();
				return false;
				}
		}	
			
		if (document.form1.cmbTipInmb.value == "")
		{
			alert("Debe ingresar el tipo de propiedad");
			document.form1.cmbTipInmb.focus();
			return false;
		}
		
		if (document.form1.txtAreaInmb.value == "")
		{
			alert("Debe ingresar el area aproximada de la propiedad");
			document.form1.txtAreaInmb.focus();
			return false;
		}
	
			return true;
	}

	
	function fl_submit(vPage, vtAccion, vtCod, vtStat, vl_pagina, vl_canreg)
	{
	var vtPase=0;

		if (vtCod=='')
		{
			if (fm_validar())
				{
					vtPase=1
				}
		}else{
			vtPase=1
		}
		
		if (vtPase==1)
			{
				document.form1.action=vPage;
				document.form1.hddAccion.value=vtAccion;
				document.form1.hddCod.value=vtCod;
				document.form1.hddStat.value=vtStat;
				document.form1.hddPagina.value=vl_pagina;
				document.form1.hddCantReg.value=vl_canreg;
				document.form1.submit(); 
			}
	}

	function PreloadImages()
  {
   img1 = new Image();
   img1.src = "../../img/flecha_arriba.gif";
   img2 = new Image();
   img2.src = "../../img/flecha_abajo.gif"; 
  }

	function toggleDisplay(objRef,imgRef)
  {
		objRef.style.display = (objRef.style.display=="none") ? "" : "none";
		if (objRef.style.display == "none") {
			imgRef.src=img2.src;
		}
		else {
			imgRef.src=img1.src;
		}
	}

  function fm_cantreg(vl_pagina, vl_canreg)
  {
		document.form1.action = "list_inmueble.php";
		document.form1.hddPagina.value=vl_pagina;
		document.form1.hddCantReg.value=vl_canreg;
		document.form1.submit();
  }

function fl_tip_inmb()
{
var tipo = arguments[0];
if(parseInt(tipo) == 1)
	{
		document.getElementById("divTipInmb").innerHTML = "<select name='cmbPlanInmb'><option value=''>:::seleccione:::</option><option value='1'>P.B</option><option value='2'>P.H</option></select>";	
	}else if (parseInt(tipo) == 2){
		document.getElementById("divTipInmb").innerHTML = "<select name='cmbPlanInmb'><option value=''>:::seleccione:::</option><option value='1'>Anexo</option><option value='2'>P.A</option><option value='3'>P.B</option><option value='4'>Una Planta</option><option value='5'>Dos Planta</option><option value='6'>Tres Planta</option><option value='7'> + Tres Planta</option></select>";	
	}else{
		document.getElementById("divTipInmb").innerHTML = "";	
	}
}


function handleHttpResponse() { 
    if (http.readyState == 4) { 
       if (http.status == 200) { 
          if (http.responseText.indexOf('invalid') == -1) {
             // Armamos un array, usando la coma para separar elementos
             results = http.responseText.split("|"); 
						 document.getElementById("Ciudad").innerHTML = results[0];
						 document.getElementById("Municipio").innerHTML = results[1];
						 document.getElementById("Urbanizacion").innerHTML = results[2];
						 enProceso = false;
          }
       }
    }
}

function handleHttpResponse2() { 
    if (http.readyState == 4) { 
       if (http.status == 200) { 
          if (http.responseText.indexOf('invalid') == -1) {
             // Armamos un array, usando la coma para separar elementos
             results = http.responseText.split("|"); 
						 document.getElementById("campoMonto").innerHTML = results[0];
						 enProceso = false;
          }
       }
    }
}

function fl_verifica_zona(vtValor) {
	var vlTipo = 1;
	if(vtValor != "")
	{
		if(vtValor == 1){ vlTipo = 2;}
		if (!enProceso && http){
       var url = "consulta_ajax_zona_inmb.php?cmbZona=" + vtValor + "&qValue=" + vlTipo;
       http.open("GET", url, true);
       http.onreadystatechange = handleHttpResponse;
       enProceso = true;
       http.send(null);
			}	
	}else{
		document.getElementById("Ciudad").innerHTML = "<select name='cmbCiudad' disabled><option value='1'>:::seleccione:::</option></select>" ;
		document.getElementById("Municipio").innerHTML = "<select name='cmbMunicipio' disabled><option value='1'>:::seleccione:::</option></select>" ;
		document.getElementById("Urbanizacion").innerHTML = "<select name='cmbUrban' disabled><option value=''>:::seleccione:::</option></select>" ;
	}
}

function fl_verifica_ciudad(vtValor) {
	if(vtValor != "")
	{
		if (!enProceso && http){
       var url = "consulta_ajax_zona_inmb.php?cmbCiudad=" + vtValor + "&qValue=3";
       http.open("GET", url, true);
       http.onreadystatechange = handleHttpResponse;
       enProceso = true;
       http.send(null);
			}
	}else{
		document.getElementById("Municipio").innerHTML = "<select name='cmbMunicipio' disabled><option value='1'>:::seleccione:::</option></select>" ;
		document.getElementById("Urbanizacion").innerHTML = "<select name='cmbUrban' disabled><option value=''>:::seleccione:::</option></select>" ;
	}
}

function fl_verifica_municipio(vtValor) {
	if(vtValor != "")
	{
		var vlValor2= document.form1.cmbCiudad.value;
		if (!enProceso && http){
       var url = "consulta_ajax_zona_inmb.php?cmbMunicipio=" + vtValor + "&cmbCiudad=" + vlValor2 + "&qValue=4";
       http.open("GET", url, true);
       http.onreadystatechange = handleHttpResponse;
       enProceso = true;
       http.send(null);
			}
	}else{
		document.getElementById("Urbanizacion").innerHTML = "<select name='cmbUrban' disabled><option value=''>:::seleccione:::</option></select>" ;
	}
}

function fl_monto()
 {	
	var vlMonto = document.form1.txtMonto.value;
	var vlMonto2 = document.form1.txtMonto2.value;
	var vlDiv 	= document.form1.cmbDivisa.value;
	var vlTotal = 0;
	var vlTotal2 = 0;
	if (vlMonto != "" && vlDiv != "")
	{
		vecDiv = vlDiv.split("-");
		vlTotal = fm_flotante(vlMonto) * parseFloat(vecDiv[1]);
		document.getElementById("MontoBolivar").innerHTML = formatCurrency(vlTotal);
	}else{
		document.getElementById("MontoBolivar").innerHTML = "";
	}
	if (vlMonto2 != "" && vlDiv != "")
	{
		vecDiv = vlDiv.split("-");
		vlTotal2 = fm_flotante(vlMonto2) * parseFloat(vecDiv[1]);
		document.getElementById("MontoBolivar2").innerHTML = formatCurrency(vlTotal2);
	}else{
		document.getElementById("MontoBolivar2").innerHTML = "";
	}
}

function fl_expand(vtObjeto)
{
	if (vtObjeto==3)
	{
		document.getElementById("Monto2").style.display = 'block';
		document.getElementById("MontoBol2").style.display = 'block';
		document.getElementById("Etiqueta1").innerHTML = "Monto de Alquiler (Divisa Extranjera) :&nbsp;";
		document.getElementById("MontoBol1").innerHTML = "Monto de Alquiler en Bolivares :&nbsp;";
	}else{
		document.getElementById("Monto2").style.display = 'none';
		document.getElementById("MontoBol2").style.display = 'none';
		document.getElementById("Etiqueta1").innerHTML = "Monto de Transacci&oacute;n (Divisa Extranjera) :&nbsp;";
		document.getElementById("MontoBol1").innerHTML = "Monto en Bolivares :&nbsp;";
		document.form1.txtMonto2.value = "";	
		document.getElementById("MontoBolivar2").innerHTML = "";
	}
}

function fl_expand2(vtObjeto)
{
	if (vtObjeto==1)
	{
		document.getElementById("FilaMunicipio").style.display = 'block';
		document.getElementById("FilaCiudad").style.display = 'block';
	}else{
		document.getElementById("FilaMunicipio").style.display = 'none';
		document.getElementById("FilaCiudad").style.display = 'none';
	}
}

function fl_cronos(vtfecha)
{
	if(vtfecha != "" )
	{
		var vecfech = vtfecha.split("/")
		var vlfecha;
		var vldia;
		var vlmes;
		var vlyear;
		var vlfechAct = vecfech[2]+"/"+vecfech[1] +"/"+vecfech[0];
		var vlfecha = new Date(vlfechAct);
		var vldia = vlfecha.getDate();
		var vlmes = vlfecha.getMonth()+1;
		var vlyear = vlfecha.getFullYear();
		vlmes -= 3
		if (vlmes < 1 )
		{
			vlmes = 12 + vlmes;
			vlyear = vlyear - 1
		}
		vldia = vldia.toString();
		vlmes = vlmes.toString();
		if(vldia.length == 1)
		{
			vldia = "0" + vldia
		}

		if(vlmes.length == 1)
		{
			vlmes = "0" + vlmes
		}
		document.getElementById("FechCronos").innerHTML = vldia + "/" + vlmes + "/" + vlyear;
	}
}

function fl_aniver(vtfecha)
{
	if(vtfecha != "" )
	{
		var vecfech = vtfecha.split("/")
		var vlfecha;
		var vldia;
		var vlmes;
		var vlyear;
		var vlfechAct = vecfech[2]+"/"+vecfech[1] +"/"+vecfech[0];
		var vlfecha = new Date(vlfechAct);
		var vldia = vlfecha.getDate();
		var vlmes = vlfecha.getMonth()+1;
		var vlyear = vlfecha.getFullYear();
		vlyear = vlyear + 1
		vldia = vldia.toString();
		vlmes = vlmes.toString();
		if(vldia.length == 1)
		{
			vldia = "0" + vldia
		}

		if(vlmes.length == 1)
		{
			vlmes = "0" + vlmes
		}
		document.form1.txtFechAnive.value = vldia + "/" + vlmes + "/" + vlyear;	
	}
}
//-->
</script>

<? 
	/*if($vlFlag)
	{ */
		WriteMenuHider(); 
		$vlScript="hideAllLayers();" ;
/*	}*/
?>

</head>
<body onLoad="; PreloadImages();" >
<table width="100%" align="center">
<!-- Inicio Encabezado -->
	<tr>
		<td>
		
    <table align="center"  cellspacing=0 cellpadding=0 width=720 border=0>
		<tr>
			<td>
			
      <table cellspacing="0" cellpadding="3" width="100%" border="0">
			<tr>
				<td>
				<table width="100%" border="0">
				
				<tr>
					<td>
						<form name="form1" action="" method="post">
						<input type="hidden" name="hddStat" value="">
						<input type="hidden" name="hddAccion"	value="">
						<input type="hidden" name="hddCod" value="">
						<input type="hidden" name="hddCantReg" value="">
						<input type="hidden" name="hddPagina" value="">
						<input type="hidden" name="hddCodAnnie" value="">
						<input type="hidden" name="hddCodStatus" value="">
						
						<!-- Inicio Lista -->
						<? fm_table_ini_admin( $vlLabels ); ?>
						
						<table cellspacing="0" cellpadding="3" width="100%" border="0" >
						
						<tr>
							<td height="20" colspan="2" class="titulo2">&nbsp;&nbsp;&nbsp;
								<a href="javascript:void(0);" onClick="toggleDisplay(menu1,menu1img);">Presione para registrar un  &nbsp;<img name="menu1img" src="../../img/flecha_abajo.gif" border="0" alt=""></a>
							</td>
						</tr>

						<tr>
								<td height="20" colspan="2" class="titulo2">
								<table width="100%">
									<tr>
										<td width="51%" align="right">&nbsp;Seleccione un Criterio de Busqueda:&nbsp;&nbsp;</td>
										<td width="17%">
											<select name="cmbCriterio">
												<option value="">::::::::seleccione::::::::</option>
												<option value="1"