<?
/*
-- File Name   : tbl_inmueble.php
-- Description : libreria para tabla tbl_inmueble 
-- Programmer  : Christian Díaz
-- Date        : 01/May/2006 

tbl_inmueble
tbl_inmb_admin
tbl_inmb_ubicacion
tbl_inmb_relacionado
tbl_inmb_varios
tbl_inmb_estado_propied
tbl_inmb_area
tbl_inmb_obser
tbl_foto

*/

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

function fm_bus_inmueble(	$vtCod, $vtTipTran, $vtTipInmb, $vtCodAnnie, $vtMonto, $vtMonto2, $vtZona, $vtArea, $vtAnoConst, $vtHabit,
													$vtBanos, $vtTerraz, $vtPisc, $vtEstac, $vtAmobla, $vtStatus, $vtStatPub, $vtIni, $vtTamPag)
{
	$vlString = "";
	/*tbl_inmueble*/
	$vlString = $vlString . " SELECT	a.inmb_cod, a.inmb_transac, a.inmb_codigo_as ,a.inmb_monto, a.inmb_monto2, a.inmb_div_cod, ";
	$vlString = $vlString . "					a.inmb_stat_pub, a.inmb_stat_ofer, a.inmb_fech_venc_ofer, a.inmb_fech_ing, " ;
	$vlString = $vlString . "					a.inmb_fech_ult_act, a.inmb_fech_firma, a.inmb_fech_anive, a.inmb_fech_dispon, a.inmb_fuen_cod,  " ;
	$vlString = $vlString . "					a.inmb_user_cod, a.inmb_firma, a.inmb_publ_fot, a.inmb_stat, a.inmb_area, " ;
	$vlString = $vlString . "					a.inmb_ano_const, a.inmb_habit, a.inmb_banos, a.inmb_terraza, a.inmb_piscina, " ;
	$vlString = $vlString . "					a.inmb_cant_estacio, a.inmb_amoblado, " ;
	/*tbl_inmb_ubicacion*/
	$vlString = $vlString . "					b.inubic_cod, b.inubic_zon_cod, b.inubic_cdad_cod, b.inubic_mncp_cod, " ;
	$vlString = $vlString . "					b.inubic_zmun_cod, b.inubic_nomb, b.inubic_dir, b.inubic_tel, b.inubic_tel2," ;
	$vlString = $vlString . "					b.inubic_tinm_cod, b.inubic_tinm_plan, b.inubic_estad_estruc," ;
	$vlString = $vlString . "					b.inubic_tipo_estruc, " ;
	/*tbl_zona*/
	$vlString = $vlString . "					c.zon_cod, c.zon_desc, " ;	
	/*tbl_zona_municipio*/
	$vlString = $vlString . "					d.zmun_cod, d.zmun_desc, d.zmun_zona_cod, " ;
	/*tbl_tip_inmu*/
	$vlString = $vlString . "					e.tinm_cod, e.tinm_desc," ;
	/*tbl_inmb_relacionado*/
	$vlString = $vlString . "					f.inrel_cod, f.inrel_nombre " ;

	$vlString = $vlString . " FROM		tbl_inmueble a, tbl_inmb_ubicacion b, tbl_zona c, tbl_zona_municipio d, tbl_tip_inmu e, tbl_inmb_relacionado f" ;

	$vlString = $vlString . " WHERE a.inmb_cod >= 1 " ;
	
	$vlString = $vlString . " AND a.inmb_cod = b.inubic_inmb_cod " ;
	$vlString = $vlString . " AND b.inubic_zon_cod = c.zon_cod " ;
	$vlString = $vlString . " AND b.inubic_zmun_cod = d.zmun_cod " ;
	$vlString = $vlString . " AND b.inubic_tinm_cod = e.tinm_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = f.inrel_inmb_cod " ;
	$vlString = $vlString . " AND c.zon_cod = d.zmun_zona_cod " ;
	$vlString = $vlString . " AND f.inrel_tipo_rela = 1" ; 
		
	//------------
	if (!empty($vtStatus)){ $vlString = $vlString . " AND a.inmb_stat = '" . trim($vtStatus) . "'" ; }
	//------------
	if (!empty($vtStatPub)){ $vlString = $vlString . " AND a.inmb_stat_pub = '" . trim($vtStatPub) . "'" ; }
	//------------
	if (!empty($vtCod)){ $vlString = $vlString . " AND a.inmb_cod = '" . trim($vtCod) . "'" ; }
	//------------
	if (!empty($vtTipTran)){ $vlString = $vlString . " AND a.inmb_transac  in ('" . trim($vtTipTran) . "', '3')"; }
	//------------
	if (!empty($vtCodAnnie)){ $vlString = $vlString . " AND a.inmb_codigo_as = '" . trim($vtCodAnnie) . "'" ; }
	//------------
	if (!empty($vtTipInmb)){ $vlString = $vlString . " AND b.inubic_tinm_cod= '" . trim($vtTipInmb) . "'" ; }
	//------------
	if (!empty($vtMonto))
		{
			switch (intval($vtMonto))
			{
				case 1: 
				$vlString = $vlString . " AND a.inmb_monto <= 700 " ;
				break;
				case 2: 
				$vlString = $vlString . " AND a.inmb_monto between 701 and 1400" ;
				break;
				case 3: 
				$vlString = $vlString . " AND a.inmb_monto between 1401 and 3700" ;
				break;
				case 4: 
				$vlString = $vlString . " AND a.inmb_monto > 3700 " ;
				break;
			}
		}	
	//------------
	if (!empty($vtMonto2))
		{
			switch (intval($vtMonto2))
			{
				case 1: 
				$vlString = $vlString . " AND a.inmb_monto2 < 140000 " ;
				break;
				case 2: 
				$vlString = $vlString . " AND a.inmb_monto2 between 140000 and 302000" ;
				break;
				case 3: 
				$vlString = $vlString . " AND a.inmb_monto2 between 302001 and 419000" ;
				break;
				case 4: 
				$vlString = $vlString . " AND a.inmb_monto2 > 419000 " ;
				break;
			}
		}	
	//------------
	if (!empty($vtZona)){ $vlString = $vlString . " AND b.inubic_zon_cod = '" . trim($vtZona) . "'" ; }
	//------------
	if (!empty($vtArea))
		{
			switch (intval($vtArea))
			{
				case 1: 
				$vlString = $vlString . " AND a.inmb_area <= 100 " ;
				break;
				case 2: 
				$vlString = $vlString . " AND a.inmb_area between 101 and 150" ;
				break;
				case 3: 
				$vlString = $vlString . " AND a.inmb_area between 151 and 200" ;
				break;
				case 4: 
				$vlString = $vlString . " AND a.inmb_area between 201 and 300" ;
				break;
				case 5: 
				$vlString = $vlString . " AND a.inmb_area > 300 " ;
				break;
			}
		}	
	//------------
	if (!empty($vtAnoConst)){ $vlString = $vlString . " AND a.inmb_ano_const = '" . trim($vtAnoConst) . "'" ; }
	//------------
	if (!empty($vtHabit)){ $vlString = $vlString . " AND a.inmb_habit = '" . trim($vtHabit) . "'" ; }
	//------------
	if (!empty($vtBanos))
	{ 
		if (intval($vtBanos) != 5)
		{
			$vlString = $vlString . " AND a.inmb_banos = '" . trim($vtBanos) . "'" ; 
		}else{
			$vlString = $vlString . " AND a.inmb_banos >= '" . trim($vtBanos) . "'" ; 
		}
	}
	//------------
	if (intval($vtTerraz) == 1){ $vlString = $vlString . " AND a.inmb_terraza > 1 " ; }
	//------------
	if (intval($vtPisc) == 1){ $vlString = $vlString . " AND a.inmb_piscina = 1 " ; }
	//------------
	if (!empty($vtEstac))
		{
			switch (intval($vtEstac))
			{
				case 1: 
				$vlString = $vlString . " AND a.inmb_cant_estacio >= 1 " ;
				break;
				case 2: 
				$vlString = $vlString . " AND a.inmb_cant_estacio >= 2 " ;
				break;
				case 3: 
				$vlString = $vlString . " AND a.inmb_cant_estacio >= 3 " ;
				break;
				case 4: 
				$vlString = $vlString . " AND a.inmb_cant_estacio >= 4 " ;
				break;
			}
		}	
	//------------
	if (intval($vtAmobla) == 1){ $vlString = $vlString . " AND a.inmb_amoblado > 1 " ; }
	//------------
	$vlString = $vlString . " ORDER BY a.inmb_cod " ;
	//------------
	if (!empty($vtIni) && !empty($vtTamPag))
	{
		if(intval($vtIni) == 1 ){ $vtIni = 0 ;}
		$vlString = $vlString . " LIMIT ". $vtIni . "," . $vtTamPag ;
	}
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

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

function fm_bus_inmueble_like($vtTipo, $vtCampo, $vtIni, $vtTamPag)
{
	$vlString = "";
	/*tbl_inmueble*/
	$vlString = $vlString . " SELECT	a.inmb_cod, a.inmb_transac, a.inmb_codigo_as ,a.inmb_monto, a.inmb_monto2, a.inmb_div_cod, ";
	$vlString = $vlString . "					a.inmb_stat_pub, a.inmb_stat_ofer, a.inmb_fech_venc_ofer, a.inmb_fech_ing, " ;
	$vlString = $vlString . "					a.inmb_fech_ult_act, a.inmb_fech_firma, a.inmb_fech_anive, a.inmb_fech_dispon, a.inmb_fuen_cod,  " ;
	$vlString = $vlString . "					a.inmb_user_cod, a.inmb_firma, a.inmb_publ_fot, a.inmb_stat, a.inmb_area, " ;
	$vlString = $vlString . "					a.inmb_ano_const, a.inmb_habit, a.inmb_banos, a.inmb_terraza, a.inmb_piscina, " ;
	$vlString = $vlString . "					a.inmb_cant_estacio, a.inmb_amoblado, " ;
	/*tbl_inmb_ubicacion*/
	$vlString = $vlString . "					b.inubic_cod, b.inubic_zon_cod, b.inubic_cdad_cod, b.inubic_mncp_cod, " ;
	$vlString = $vlString . "					b.inubic_zmun_cod, b.inubic_nomb, b.inubic_dir, b.inubic_tel, b.inubic_tel2," ;
	$vlString = $vlString . "					b.inubic_tinm_cod, b.inubic_tinm_plan, b.inubic_estad_estruc," ;
	$vlString = $vlString . "					b.inubic_tipo_estruc, " ;
	/*tbl_zona*/
	$vlString = $vlString . "					c.zon_cod, c.zon_desc, " ;
	/*tbl_zona_municipio*/
	$vlString = $vlString . "					d.zmun_cod, d.zmun_desc, d.zmun_zona_cod, " ;
	/*tbl_tip_inmu*/
	$vlString = $vlString . "					e.tinm_cod, e.tinm_desc," ;
	/*tbl_inmb_relacionado*/
	$vlString = $vlString . "					f.inrel_cod, f.inrel_nombre, " ;
	/*tbl_municipio*/
	$vlString = $vlString . "					g.mncp_desc, " ;
	/*tbl_user*/
	$vlString = $vlString . "					h.user_nomb " ;

	$vlString = $vlString . " FROM		tbl_inmueble a, tbl_inmb_ubicacion b, tbl_zona c, tbl_zona_municipio d, tbl_tip_inmu e, tbl_inmb_relacionado f, tbl_municipio g, tbl_user h " ;

	$vlString = $vlString . " WHERE a.inmb_cod >= 1 " ;
	
	$vlString = $vlString . " AND a.inmb_cod = b.inubic_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_user_cod = h.user_cod " ;
	$vlString = $vlString . " AND b.inubic_zon_cod = c.zon_cod " ;
	$vlString = $vlString . " AND b.inubic_zmun_cod = d.zmun_cod " ;
	$vlString = $vlString . " AND b.inubic_tinm_cod = e.tinm_cod " ;
	$vlString = $vlString . " AND b.inubic_mncp_cod = g.mncp_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = f.inrel_inmb_cod " ;
	$vlString = $vlString . " AND c.zon_cod = d.zmun_zona_cod " ;
	$vlString = $vlString . " AND f.inrel_tipo_rela = 1" ;
		
	//------------
	switch (intval($vtTipo))
		{
			case 1:
				$vlString = $vlString . " AND a.inmb_transac = '" . trim($vtCampo) . "'" ;
				$vlString = $vlString . " AND a.inmb_stat = '2' " ;
				break;
			case 5:
				$vlString = $vlString . " AND f.inrel_nombre like '%" . trim($vtCampo) . "%'" ;
				break;
			case 6:
				$vlString = $vlString . " AND b.inubic_nomb like '%" . trim($vtCampo) . "%'" ;
				break;
			case 7:
				$vlString = $vlString . " AND a.inmb_stat_ofer = 1 " ;
				break;
			case 8:
				$vlString = $vlString . " AND a.inmb_stat_pub = 0 " ;
				break;
			case 9:
				$vlString = $vlString . " AND a.inmb_firma = 0 " ;
				break;
			case 10:
				$vlString = $vlString . " AND c.zon_desc like '%" . trim($vtCampo) . "%'" ;
				break;				
			case 11:
				$vlString = $vlString . " AND g.mncp_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 12:
				$vlString = $vlString . " AND d.zmun_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 13:
				$vlString = $vlString . " AND h.user_nomb like '%" . trim($vtCampo) . "%'" ;
				break;
			case 14:
				$vlString = $vlString . " AND e.tinm_desc like '%" . trim($vtCampo) . "%'" ;
				break;
		}	
	//------------
	$vlString = $vlString . " ORDER BY a.inmb_cod " ;
	//------------
	if (!empty($vtIni) && !empty($vtTamPag))
	{
		if(intval($vtIni) == 1 ){ $vtIni = 0 ;}
		$vlString = $vlString . " LIMIT ". $vtIni . "," . $vtTamPag ;
	}
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

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

function fm_reg_inmueble($vtTransac, $vtCodigo, $vtMonto, $vtMonto2, $vtDivisa, $vtPublic, $vtOferta, $vtFchVencOfer,
												 $vtFchIng, $vtFchActuali, $vtFchFirma, $vtFchAnive, $vtFchDisp, $vtFuente, $vtUserCod, $vtFirma, 
												 $vtPublicFot, $vtStatus, $vtArea, $vtAnoConst, $vtHabit, $vtBanos, $vtTerraza,
												 $vtPiscina, $vtCantEstac, $vtAmoblado)
{
	$vlStatus = "";
/*****************************/
	$vecinmueble[0]="tbl_inmueble";
  $vecinmueble[1]="inmb_cod" ;
  $vecinmueble[2]="inmb_transac" ;
  $vecinmueble[3]="inmb_codigo_as" ;
  $vecinmueble[4]="inmb_monto" ;
  $vecinmueble[5]="inmb_div_cod" ;
  $vecinmueble[6]="inmb_stat_pub" ;
  $vecinmueble[7]="inmb_stat_ofer" ;
  $vecinmueble[8]="inmb_fech_venc_ofer" ;
  $vecinmueble[9]="inmb_fech_ing" ;
  $vecinmueble[10]="inmb_fech_ult_act" ;
  $vecinmueble[11]="inmb_fech_firma" ;
  $vecinmueble[12]="inmb_fech_dispon" ;
  $vecinmueble[13]="inmb_fuen_cod" ;
  $vecinmueble[14]="inmb_user_cod" ;
  $vecinmueble[15]="inmb_firma" ;
  $vecinmueble[16]="inmb_publ_fot" ;
  $vecinmueble[17]="inmb_stat" ;
  $vecinmueble[18]="inmb_area" ;
  $vecinmueble[19]="inmb_ano_const" ;
  $vecinmueble[20]="inmb_habit" ;
  $vecinmueble[21]="inmb_banos" ;
  $vecinmueble[22]="inmb_terraza" ;
  $vecinmueble[23]="inmb_piscina" ;
  $vecinmueble[24]="inmb_cant_estacio" ;
  $vecinmueble[25]="inmb_amoblado" ;
  $vecinmueble[26]="inmb_monto2" ;
  $vecinmueble[27]="inmb_fech_anive" ;
/*****************************/
	if($vtStatus == ""){$vlStatus = 1;}else{$vlStatus = $vtStatus ;}
	$vlString = "" ;
	$vlString = $vlString . " INSERT INTO  " . $vecinmueble[0] . "( " . $vecinmueble[2] . ", " . $vecinmueble[3] . ", " ;
	$vlString = $vlString .  $vecinmueble[4] . ", " . $vecinmueble[26] . ", " . $vecinmueble[5] . ", " . $vecinmueble[6] . ", " . $vecinmueble[7] . ", " ;
	$vlString = $vlString .  $vecinmueble[8] . ", " . $vecinmueble[9] . ", " . $vecinmueble[10] . ", " . $vecinmueble[11] . ", " . $vecinmueble[27] . ", " ;
	$vlString = $vlString .  $vecinmueble[12] . ", " . $vecinmueble[13] . ", " . $vecinmueble[14] . ", " . $vecinmueble[15] . ", " ;
	$vlString = $vlString .  $vecinmueble[16] . ", " . $vecinmueble[17] .  ", " . $vecinmueble[18] . ", " . $vecinmueble[19] . ", " ;
	$vlString = $vlString .  $vecinmueble[20] . ", " . $vecinmueble[21] .  ", " . $vecinmueble[22] . ", " . $vecinmueble[23] . ", " ;
	$vlString = $vlString .  $vecinmueble[24] . ", " . $vecinmueble[25] .  ") " ;
	$vlString = $vlString . " VALUES ( " ;
	$vlString = $vlString . "'" . $vtTransac . "', " ;
	$vlString = $vlString . "'" . $vtCodigo . "', " ;
	$vlString = $vlString . "'" . fm_format_number($vtMonto) . "', " ;
	$vlString = $vlString . "'" . fm_format_number($vtMonto2) . "', " ;
	$vlString = $vlString . "'" . $vtDivisa . "', " ;
	$vlString = $vlString . "'" . $vtPublic . "', " ;
	$vlString = $vlString . "'" . $vtOferta . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchVencOfer) . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchIng) . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchActuali) . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchFirma) . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchAnive) . "', " ;
	$vlString = $vlString . "'" . fech_mysql($vtFchDisp) . "', " ;
	$vlString = $vlString . "'" . $vtFuente . "', " ;
	$vlString = $vlString . "'" . $vtUserCod . "', " ;
	$vlString = $vlString . "'" . $vtFirma . "', " ;
	$vlString = $vlString . "'" . $vtPublicFot . "', " ;
	$vlString = $vlString . "'" . $vlStatus . "', " ;
	$vlString = $vlString . "'" . fm_format_number($vtArea) . "', " ;
	$vlString = $vlString . "'" . $vtAnoConst . "', " ;
	$vlString = $vlString . "'" . $vtHabit . "', " ;
	$vlString = $vlString . "'" . $vtBanos . "', " ;
	$vlString = $vlString . "'" . $vtTerraza . "', " ;
	$vlString = $vlString . "'" . $vtPiscina . "', " ;
	$vlString = $vlString . "'" . $vtCantEstac . "', " ;
	$vlString = $vlString . "'" . $vtAmoblado . "') " ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
	//------------
	$vlCodigo = mysql_insert_id();
	//echo $vlCodigo ;
	//exit();
	return $vlCodigo;
	fm_desconect();
}

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

function fm_mod_inmueble($vtCod, $vtTransac, $vtCodigo, $vtMonto, $vtMonto2, $vtDivisa, $vtPublic, $vtOferta, $vtFchVencOfer,
												 $vtFchIng, $vtFchActuali, $vtFchFirma, $vtFchAnive, $vtFchDisp, $vtFuente, $vtUserCod, $vtFirma,
                         $vtPublicFot, $vtStatus, $vtArea, $vtAnoConst, $vtHabit, $vtBanos, $vtTerraza,
                         $vtPiscina, $vtCantEstac, $vtAmoblado)
{                       
/*****************************/
	$vecinmueble[0]="tbl_inmueble";
  $vecinmueble[1]="inmb_cod" ;
  $vecinmueble[2]="inmb_transac" ;
  $vecinmueble[3]="inmb_codigo_as" ;
  $vecinmueble[4]="inmb_monto" ;
  $vecinmueble[5]="inmb_div_cod" ;
  $vecinmueble[6]="inmb_stat_pub" ;
  $vecinmueble[7]="inmb_stat_ofer" ;
  $vecinmueble[8]="inmb_fech_venc_ofer" ;
  $vecinmueble[9]="inmb_fech_ing" ;
  $vecinmueble[10]="inmb_fech_ult_act" ;
  $vecinmueble[11]="inmb_fech_firma" ;
  $vecinmueble[12]="inmb_fech_dispon" ;
  $vecinmueble[13]="inmb_fuen_cod" ;
  $vecinmueble[14]="inmb_user_cod" ;
  $vecinmueble[15]="inmb_firma" ;
  $vecinmueble[16]="inmb_publ_fot" ;
  $vecinmueble[17]="inmb_stat" ;
  $vecinmueble[18]="inmb_area" ;
  $vecinmueble[19]="inmb_ano_const" ;
  $vecinmueble[20]="inmb_habit" ;
  $vecinmueble[21]="inmb_banos" ;
  $vecinmueble[22]="inmb_terraza" ;
  $vecinmueble[23]="inmb_piscina" ;
  $vecinmueble[24]="inmb_cant_estacio" ;
  $vecinmueble[25]="inmb_amoblado" ;
  $vecinmueble[26]="inmb_monto2" ;
  $vecinmueble[27]="inmb_fech_anive" ;
/*****************************/
	$vlString = "";
	$vlString = $vlString . " UPDATE " . $vecinmueble[0] ;
	$vlString = $vlString . " SET    " . $vecinmueble[2] . " = '" . $vtTransac . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[3] . " = '" . $vtCodigo . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[4] . " = '" . fm_format_number($vtMonto) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[26] . " = '" . fm_format_number($vtMonto2) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[5] . " = '" . $vtDivisa . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[6] . " = '" . $vtPublic . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[7] . " = '" . $vtOferta . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[8] . " = '" . fech_mysql(trim($vtFchVencOfer)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[9] . " = '" . fech_mysql(trim($vtFchIng)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[10] . " = '" . fech_mysql(trim($vtFchActuali)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[11] . " = '" . fech_mysql(trim($vtFchFirma)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[27] . " = '" . fech_mysql(trim($vtFchAnive)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[12] . " = '" . fech_mysql(trim($vtFchDisp)) . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[13] . " = '" . $vtFuente . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[14] . " = '" . $vtUserCod . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[15] . " = '" . $vtFirma . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[16] . " = '" . $vtPublicFot . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[17] . " = '" . $vtStatus . "'," ;
	$vlString = $vlString . "        " . $vecinmueble[18] . " = '" . fm_format_number($vtArea) . "', " ;     
	$vlString = $vlString . "        " . $vecinmueble[19] . " = '" . $vtAnoConst . "', " ; 
	$vlString = $vlString . "        " . $vecinmueble[20] . " = '" . $vtHabit . "', " ;    
	$vlString = $vlString . "        " . $vecinmueble[21] . " = '" . $vtBanos . "', " ;    
	$vlString = $vlString . "        " . $vecinmueble[22] . " = '" . $vtTerraza . "', " ;  
	$vlString = $vlString . "        " . $vecinmueble[23] . " = '" . $vtPiscina . "', " ;  
	$vlString = $vlString . "        " . $vecinmueble[24] . " = '" . $vtCantEstac . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[25] . " = '" . $vtAmoblado . "' " ; 
	$vlString = $vlString . " WHERE  " . $vecinmueble[1] . " = '" . trim($vtCod) . "'" ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
	fm_desconect();
}

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

function fm_elim_inmueble($vtCod)
{
/*****************************/
	$vecinmueble[0]="tbl_inmueble";
  $vecinmueble[1]="inmb_cod";
/*****************************/
	$vlString = "";
	$vlString = $vlString . " DELETE FROM " . $vecinmueble[0] ;
	$vlString = $vlString . " WHERE  " . $vecinmueble[1] . " = " . trim($vtCod) ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

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

function fm_mod_stat_inmueble($vtCod, $vtActiv)
{
/*****************************/
	$vecinmueble[0]="tbl_inmueble";
  $vecinmueble[1]="inmueble_cod";
  $vecinmueble[2]="inmueble_stat";
/*****************************/	
	$vlString = "";
	$vlString = $vlString . " UPDATE " . $vecinmueble[0] ;
	$vlString = $vlString . " SET    " . $vecinmueble[2] . " = " . $vtActiv . " " ;
	$vlString = $vlString . " WHERE  " . $vecinmueble[1] . " = " . trim($vtCod) ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

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

function fm_busc_inmb_unico($vtCod)
{
/*****************************/
	$vecinmueble[0]="tbl_inmueble";
  $vecinmueble[1]="inmb_codigo_as";
  $vecinmueble[2]="inmueble_stat";
/*****************************/	
	$vlString = "";
	$vlString = $vlString . " SELECT * FROM " . $vecinmueble[0] ;
	$vlString = $vlString . " WHERE " . $vecinmueble[1] . " = " . trim($vtCod) ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;

}

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

?>