<?
/*
-- 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

*/

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

function fm_bus_inmueble(	$vtCod, $vtTipTran, $vtTipInmb, $vtMonto, $vtZona, $vtArea, $vtAnoConst, $vtHabit,
													$vtBanos, $vtTerraz, $vtPisc, $vtEstac, $vtAmobla, $vtIni, $vtTamPag)
{
	$vlString = "";
	/*tbl_inmueble*/
	$vlString = $vlString . " SELECT	a.inmb_cod, a.inmb_transac, a.inmb_codigo_as ,a.inmb_monto, 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_camb_stat, a.inmb_fech_dispon, a.inmb_fuen_cod, " ;
	$vlString = $vlString . "					a.inmb_user_cod, a.inmb_firma, a.inmb_publ_fot, a.inmb_stat, " ;
	/*tbl_inmb_ubicacion*/
	$vlString = $vlString . "					c.inubic_cod, c.inubic_inmb_cod, c.inubic_zon_cod, c.inubic_cdad_cod, " ;
	$vlString = $vlString . "					c.inubic_mncp_cod, c.inubic_zmun_cod, c.inubic_nomb, c.inubic_dir," ;
	$vlString = $vlString . "					c.inubic_tel, c.inubic_tel2, c.inubic_tinm_cod, c.inubic_tinm_plan,  " ;
	$vlString = $vlString . "					c.inubic_ano_const, c.inubic_estad_estruc, c.inubic_tipo_estruc, " ;
	/*tbl_inmb_relacionado*/
	$vlString = $vlString . "					d.inrel_cod, d.inrel_inmb_cod, d.inrel_nombre, d.inrel_ced,  " ;
	$vlString = $vlString . "					d.inrel_tel_hab, d.inrel_tel_ofic, d.inrel_tel_cel, d.inrel_fax, d.inrel_mail, " ;
	$vlString = $vlString . "					d.inrel_observ, d.inrel_tipo_rela, " ;
	/*tbl_inmb_varios*/
	$vlString = $vlString . "					e.invar_cod, e.invar_inmb_cod, e.invar_tennis, e.invar_gimnasio, e.invar_squash, " ;
	$vlString = $vlString . "					e.invar_Sala_Fies, e.invar_sauna,  e.invar_jardin, e.invar_tip_vigilancia, " ;
	/*tbl_inmb_estado_propied*/
	$vlString = $vlString . "					f.inep_cod, f.inep_inmb_cod, f.inep_estad_propied, f.inep_area, f.inep_piso, " ;
	$vlString = $vlString . "					f.inep_tipo_amob, f.inep_aire_acond, f.inep_tip_cable, f.inep_lineas_tel, " ;
	$vlString = $vlString . "					f.inep_aba, f.inep_mascota, f.inep_luminosidad, f.inep_tipo_vista, " ;
	/*tbl_inmb_area*/
	$vlString = $vlString . "					g.inarea_cod, g.inarea_inmb_cod, g.inarea_num_hab, g.inarea_hab_ppal, " ;
	$vlString = $vlString . "					g.inarea_bano_comp, g.inarea_bano_visit, g.inarea_bano_med, " ;
	$vlString = $vlString . "					g.inarea_tipo_cocina, g.inarea_estad_cocina, g.inarea_tipo_estufa, " ;
	$vlString = $vlString . "					g.inarea_tipo_horno, g.inarea_nevera, g.inarea_congelador, g.inarea_lavaplato, " ;
	$vlString = $vlString . "					g.inarea_micro, g.inarea_pantry, g.inarea_lavadora, g.inarea_secadora,  g.inarea_utensilio, " ;
	$vlString = $vlString . "					g.inarea_tipo_salon_comedor, g.inarea_terraza, g.inarea_estudio, " ;
	$vlString = $vlString . "					g.inarea_family_room, g.inarea_hab_serv, g.inarea_bano_serv,  g.inarea_hab_chofer, " ;
	$vlString = $vlString . "					g.inarea_piscina, g.inarea_tipo_estaciona, g.inarea_maletero, " ;
	/*tbl_inmb_obser*/
	$vlString = $vlString . "					h.inobs_cod, h.inobs_inmb_cod, h.inobs_hist_propied, h.inobs_otros_datos, " ;
	/*tbl_divisa*/
	$vlString = $vlString . "					i.div_cod, i.div_desc, i.div_monto, i.div_tipo, " ;
	/*tbl_fuente*/
	$vlString = $vlString . "					j.fuen_cod, j.fuen_desc, " ;
	/*tbl_zona*/
	$vlString = $vlString . "					k.zon_cod, k.zon_desc, " ;
	/*tbl_ciudad*/
	$vlString = $vlString . "					l.cdad_cod, l.cdad_desc, " ;
	/*tbl_municipio*/
	$vlString = $vlString . "					m.mncp_cod, m.mncp_desc, " ;
	/*tbl_zona_municipio*/
	$vlString = $vlString . "					n.zmun_cod, n.zmun_desc, " ;
	/*tbl_tip_inmu*/
	$vlString = $vlString . "					o.tinm_cod, o.tinm_desc " ;
	
	$vlString = $vlString . " FROM	tbl_inmueble a, tbl_inmb_ubicacion c, tbl_inmb_relacionado d, tbl_inmb_varios e, " ;
	$vlString = $vlString . "				tbl_inmb_estado_propied f, tbl_inmb_area g, tbl_inmb_obser h, tbl_divisa i, tbl_fuente j, " ;
	$vlString = $vlString . "				tbl_zona k, tbl_ciudad l, tbl_municipio m, tbl_zona_municipio n, tbl_tip_inmu o " ;

	$vlString = $vlString . " WHERE a.inmb_cod >= 1 " ;
	
	$vlString = $vlString . " AND a.inmb_cod = c.inubic_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = d.inrel_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = e.invar_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = f.inep_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = g.inarea_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = g.inarea_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = h.inobs_inmb_cod " ;	
	$vlString = $vlString . " AND a.inmb_div_cod = i.div_cod " ;
	$vlString = $vlString . " AND a.inmb_fuen_cod = j.fuen_cod " ;
	$vlString = $vlString . " AND c.inubic_zon_cod = k.zon_cod " ;
	$vlString = $vlString . " AND c.inubic_cdad_cod = l.cdad_cod " ;
	$vlString = $vlString . " AND c.inubic_mncp_cod = m.mncp_cod" ;
	$vlString = $vlString . " AND c.inubic_zmun_cod = n.zmun_cod " ;	
	$vlString = $vlString . " AND c.inubic_tinm_cod = o.tinm_cod " ;

	//------------
	if (!empty($vtCod)){ $vlString = $vlString . " AND a.inmueble_cod = '" . trim($vtCod) . "'" ; }
	//------------
	if (!empty($vtTipTran)){ $vlString = $vlString . " AND a.inmb_transac = '" . trim($vtTipTran) . "'" ; }
	//------------
	if (!empty($vtTipInmb)){ $vlString = $vlString . " AND c.inubic_tinm_cod= '" . trim($vtTipInmb) . "'" ; }
	//------------
	if (!empty($vtMonto))
		{
			switch (intval($vtMonto))
			{
				case 1: 
				$vlString = $vlString . " AND a.inmb_monto_transac_bs <= 1500000 " ;
				break;
				case 2: 
				$vlString = $vlString . " AND a.inmb_monto_transac_bs between 1500001 and 3000000" ;
				break;
				case 3: 
				$vlString = $vlString . " AND a.inmb_monto_transac_bs between 3000001 and 8000000" ;
				break;
				case 4: 
				$vlString = $vlString . " AND a.inmb_monto_transac_bs > 8000000 " ;
				break;
			}
		}	
	//------------
	if (!empty($vtZona)){ $vlString = $vlString . " AND l.zon_cod = '" . trim($vtZona) . "'" ; }
	//------------
	if (!empty($vtArea)){ $vlString = $vlString . " AND f.inep_area = '" . trim($vtArea) . "'" ; }
	//------------
	if (!empty($vtAnoConst)){ $vlString = $vlString . " AND c.inubic_ano_const = '" . trim($vtAnoConst) . "'" ; }
	//------------
	if (!empty($vtHabit)){ $vlString = $vlString . " AND g.inarea_num_hab = '" . trim($vtHabit) . "'" ; }
	//------------
	if (!empty($vtBanos)){ $vlString = $vlString . " AND g.inarea_bano_comp = '" . trim($vtBanos) . "'" ; }
	//------------
	if (!empty($vtTerraz)){ $vlString = $vlString . " AND g.inarea_terraza = 1 " ; }
	//------------
	if (!empty($vtPisc)){ $vlString = $vlString . " AND g.inarea_piscina = 1 " ; }
	//------------
	if (!empty($vtEstac)){ $vlString = $vlString . " AND g.inarea_estaciona = 1 " ; }
	//------------
	if (!empty($vtAmobla)){ $vlString = $vlString . " AND f.inep_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_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_camb_stat, a.inmb_fech_dispon, a.inmb_fuen_cod, " ;
	$vlString = $vlString . "					a.inmb_user_cod, a.inmb_firma, a.inmb_publ_fot, a.inmb_stat, " ;
	/*tbl_inmb_ubicacion*/
	$vlString = $vlString . "					c.inubic_cod, c.inubic_inmb_cod, c.inubic_zon_cod, c.inubic_cdad_cod, " ;
	$vlString = $vlString . "					c.inubic_mncp_cod, c.inubic_zmun_cod, c.inubic_nomb, c.inubic_dir," ;
	$vlString = $vlString . "					c.inubic_tel, c.inubic_tel2, c.inubic_tinm_cod, c.inubic_tinm_plan,  " ;
	$vlString = $vlString . "					c.inubic_ano_const, c.inubic_estad_estruc, c.inubic_tipo_estruc, " ;
	/*tbl_inmb_relacionado*/
	$vlString = $vlString . "					d.inrel_cod, d.inrel_inmb_cod, d.inrel_nombre, d.inrel_ced,  " ;
	$vlString = $vlString . "					d.inrel_tel_hab, d.inrel_tel_ofic, d.inrel_tel_cel, d.inrel_fax, d.inrel_mail, " ;
	$vlString = $vlString . "					d.inrel_observ, d.inrel_tipo_rela, " ;
	/*tbl_inmb_varios*/
	$vlString = $vlString . "					e.invar_cod, e.invar_inmb_cod, e.invar_tennis, e.invar_gimnasio, e.invar_squash, " ;
	$vlString = $vlString . "					e.invar_Sala_Fies, e.invar_sauna,  e.invar_jardin, e.invar_tip_vigilancia, " ;
	/*tbl_inmb_estado_propied*/
	$vlString = $vlString . "					f.inep_cod, f.inep_inmb_cod, f.inep_estad_propied, f.inep_area, f.inep_piso, " ;
	$vlString = $vlString . "					f.inep_tipo_amob, f.inep_aire_acond, f.inep_tip_cable, f.inep_lineas_tel, " ;
	$vlString = $vlString . "					f.inep_aba, f.inep_mascota, f.inep_luminosidad, f.inep_tipo_vista, " ;
	/*tbl_inmb_area*/
	$vlString = $vlString . "					g.inarea_cod, g.inarea_inmb_cod, g.inarea_num_hab, g.inarea_hab_ppal, " ;
	$vlString = $vlString . "					g.inarea_bano_comp, g.inarea_bano_visit, g.inarea_bano_med, " ;
	$vlString = $vlString . "					g.inarea_tipo_cocina, g.inarea_estad_cocina, g.inarea_tipo_estufa, " ;
	$vlString = $vlString . "					g.inarea_tipo_horno, g.inarea_nevera, g.inarea_congelador, g.inarea_lavaplato, " ;
	$vlString = $vlString . "					g.inarea_micro, g.inarea_pantry, g.inarea_lavadora, g.inarea_secadora,  g.inarea_utensilio, " ;
	$vlString = $vlString . "					g.inarea_tipo_salon_comedor, g.inarea_terraza, g.inarea_estudio, " ;
	$vlString = $vlString . "					g.inarea_family_room, g.inarea_hab_serv, g.inarea_bano_serv,  g.inarea_hab_chofer, " ;
	$vlString = $vlString . "					g.inarea_piscina, g.inarea_tipo_estaciona, g.inarea_maletero, " ;
	/*tbl_inmb_obser*/
	$vlString = $vlString . "					h.inobs_cod, h.inobs_inmb_cod, h.inobs_hist_propied, h.inobs_otros_datos, " ;
	/*tbl_divisa*/
	$vlString = $vlString . "					i.div_cod, i.div_desc, i.div_monto, i.div_tipo, " ;
	/*tbl_fuente*/
	$vlString = $vlString . "					j.fuen_cod, j.fuen_desc, " ;
	/*tbl_zona*/
	$vlString = $vlString . "					k.zon_cod, k.zon_desc, " ;
	/*tbl_ciudad*/
	$vlString = $vlString . "					l.cdad_cod, l.cdad_desc, " ;
	/*tbl_municipio*/
	$vlString = $vlString . "					m.mncp_cod, m.mncp_desc, " ;
	/*tbl_zona_municipio*/
	$vlString = $vlString . "					n.zmun_cod, n.zmun_desc, " ;
	/*tbl_tip_inmu*/
	$vlString = $vlString . "					o.tinm_cod, o.tinm_desc " ;
	
	$vlString = $vlString . " FROM	tbl_inmueble a, tbl_inmb_ubicacion c, tbl_inmb_relacionado d, tbl_inmb_varios e, " ;
	$vlString = $vlString . "				tbl_inmb_estado_propied f, tbl_inmb_area g, tbl_inmb_obser h, tbl_divisa i, tbl_fuente j, " ;
	$vlString = $vlString . "				tbl_zona k, tbl_ciudad l, tbl_municipio m, tbl_zona_municipio n, tbl_tip_inmu o " ;

	$vlString = $vlString . " WHERE a.inmb_cod >= 1 " ;
	
	$vlString = $vlString . " AND a.inmb_cod = c.inubic_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = d.inrel_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = e.invar_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = f.inep_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = g.inarea_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = g.inarea_inmb_cod " ;
	$vlString = $vlString . " AND a.inmb_cod = h.inobs_inmb_cod " ;	
	$vlString = $vlString . " AND a.inmb_div_cod = i.div_cod " ;
	$vlString = $vlString . " AND a.inmb_fuen_cod = j.fuen_cod " ;
	$vlString = $vlString . " AND c.inubic_zon_cod = k.zon_cod " ;
	$vlString = $vlString . " AND c.inubic_cdad_cod = l.cdad_cod " ;
	$vlString = $vlString . " AND c.inubic_mncp_cod = m.mncp_cod" ;
	$vlString = $vlString . " AND c.inubic_zmun_cod = n.zmun_cod " ;	
	$vlString = $vlString . " AND c.inubic_tinm_cod = o.tinm_cod " ;
	
	
	//------------
	switch (intval($vtTipo))
		{
			case 1:
				$vlString = $vlString . " AND a.inmb_transac like '%" . trim($vtCampo) . "%'" ;
				break;
			case 2:
				$vlString = $vlString . " AND a.inmb_user_cod like '%" . trim($vtCampo) . "%'" ;
				break;
			case 3:
				$vlString = $vlString . " AND a.inmb_stat_pub = 1 " ;
				break;
			case 4:
				$vlString = $vlString . " AND a.inmb_stat_ofer = 1 " ;
				break;
			case 5:
				$vlString = $vlString . " AND a.inmb_firma = 1 " ;
				break;
			case 6:
				$vlString = $vlString . " AND l.zon_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 7:
				$vlString = $vlString . " AND d.inrel_nombre like '%" . trim($vtCampo) . "%'" ;
				$vlString = $vlString . " AND d.inrel_tipo_rela = 1 " ;
				break;
			case 8:
				$vlString = $vlString . " AND c.inubic_nomb like '%" . trim($vtCampo) . "%'" ;
				break;
			case 9:
				$vlString = $vlString . " AND b.inadm_codigo like '%" . trim($vtCampo) . "%'" ;
				break;
		}	
	//------------
	$vlString = $vlString . " ORDER BY a.inmueble_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, $vtDivisa, $vtPublic, $vtOferta, $vtFchVencOfer,
												 $vtFchIng, $vtFchActuali, $vtFchCmbStat, $vtFchDisp, $vtFuente, $vtUserCod, $vtFirma, 
												 $vtPublicFot, $vtStatus)
{
/*****************************/
	$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_camb_stat" ;
  $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" ;
/*****************************/
	if(empty($vtStatus)){$vlStatus == 1;}else{$vtStatus == $vlStatus;}
	$vlString = "" ;
	$vlString = $vlString . " INSERT INTO  " . $vecinmueble[0] . "( " . $vecinmueble[2] . ", " . $vecinmueble[3] . ", " ;
	$vlString = $vlString .  $vecinmueble[4] . ", " . $vecinmueble[5] . ", " . $vecinmueble[6] . ", " . $vecinmueble[7] . ", " ;
	$vlString = $vlString .  $vecinmueble[8] . ", " . $vecinmueble[9] . ", " . $vecinmueble[10] . ", " . $vecinmueble[11] . ", " ;
	$vlString = $vlString .  $vecinmueble[12] . ", " . $vecinmueble[13] . ", " . $vecinmueble[14] . ", " . $vecinmueble[15] . ", " ;
	$vlString = $vlString .  $vecinmueble[16] . ", " . $vecinmueble[17] . ") " ;
	$vlString = $vlString . " VALUES ( " ;
	$vlString = $vlString . "'" . $vtTransac . "', " ;
	$vlString = $vlString . "'" . $vtCodigo . "', " ;
	$vlString = $vlString . "'" . fm_format_number($vtMonto) . "', " ;
	$vlString = $vlString . "'" . $vtDivisa . "', " ;
	$vlString = $vlString . "'" . $vtPublic . "', " ;
	$vlString = $vlString . "'" . $vtOferta . "', " ;
	$vlString = $vlString . "'" . $vtFchVencOfer . "', " ;
	$vlString = $vlString . "'" . $vtFchIng . "', " ;
	$vlString = $vlString . "'" . $vtFchActuali . "', " ;
	$vlString = $vlString . "'" . $vtFchCmbStat . "', " ;
	$vlString = $vlString . "'" . $vtFchDisp . "', " ;
	$vlString = $vlString . "'" . $vtFuente . "', " ;
	$vlString = $vlString . "'" . $vtUserCod . "', " ;
	$vlString = $vlString . "'" . $vtFirma . "', " ;
	$vlString = $vlString . "'" . $vtPublicFot . "', " ;
	$vlString = $vlString . "'" . $vlStatus . "') " ;
	//------------
	//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, $vtDivisa, $vtPublic, $vtOferta, $vtFchVencOfer,    
												 $vtFchIng, $vtFchActuali, $vtFchCmbStat, $vtFchDisp, $vtFuente, $vtUserCod, $vtFirma,
                         $vtPublicFot, $vtStatus )                                                            
{                       
/*****************************/
	$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_camb_stat" ;
  $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" ;
/*****************************/
	$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[5] . " = '" . $vtDivisa . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[6] . " = '" . $vtPublic . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[7] . " = '" . $vtOferta . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[8] . " = '" . $vtFchVencOfer . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[9] . " = '" . $vtFchIng . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[10] . " = '" . $vtFchActuali . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[11] . " = '" . $vtFchCmbStat . "', " ;
	$vlString = $vlString . "        " . $vecinmueble[12] . " = '" . $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 . " WHERE  " . $vecinmueble[1] . " = '" . trim($vtCod) . "'" ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

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

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);
}

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

?>