<?
/*
-- File Name   : tbl_reporte.php
-- Description : libreria para tabla tbl_inmueble 
-- Programmer  : Christian Díaz
-- Date        : 24/Mar/2007 

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_reporte($vtTipo, $vtOrden, $vlFechDesde, $vlFechHasta)
{
	$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, f.inrel_tel_hab, f.inrel_tel_ofic, f.inrel_tel_cel, " ;
	/*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_stat <> '2'" ;
				$vlString = $vlString . " AND a.inmb_fech_ult_act BETWEEN '" . fech_mysql(trim($vlFechDesde)) . "' AND '" . fech_mysql(trim($vlFechHasta)) . "'" ;
				break;
			case 2:
				$vlString = $vlString . " AND a.inmb_stat = '2'" ;
				$vlString = $vlString . " AND a.inmb_fech_ing BETWEEN '" . fech_mysql(trim($vlFechDesde)) . "' AND '" . fech_mysql(trim($vlFechHasta)) . "'" ;
				break;
			case 3:
				$vlString = $vlString . " AND a.inmb_stat = '2'" ;
				$vlString = $vlString . " AND a.inmb_fech_ult_act BETWEEN '" . fech_mysql(trim($vlFechDesde)) . "' AND '" . fech_mysql(trim($vlFechHasta)) . "'" ;
				break;
			case 4:
				$vlString = $vlString . " AND a.inmb_stat = '2'" ;
				$vlString = $vlString . " AND a.inmb_transac = '1'" ;
				break;
			case 5:
				$vlString = $vlString . " AND a.inmb_stat = '2'" ;
				$vlString = $vlString . " AND a.inmb_transac = '2'" ;
				break;
			case 6:
				$vlString = $vlString . " AND a.inmb_stat <> '2'" ;
				$vlString = $vlString . " AND a.inmb_transac = '1'" ;
				break;
			case 7:
				$vlString = $vlString . " AND a.inmb_stat <> '2'" ;
				$vlString = $vlString . " AND a.inmb_transac = '2'" ;
				break;
			case 8:
				$vlString = $vlString . " AND a.inmb_stat = '8'" ;
				break;
		}	
	//------------
	if (!empty($vtOrden))
	{
		$vlString = $vlString . " ORDER BY " . trim($vtOrden);
	}else{
		$vlString = $vlString . " ORDER BY a.inmb_cod ";
	}
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

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

?>