".trim($vlObjrst[$vtDes])."");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_where($vtTabla, $vtCod, $vtDes, $vtDes2, $vtWhere)
{
if ($vtDes2 != "" )
{
$vlResult = fm_query_gen("SELECT " .$vtCod. ", " .$vtDes. "," . $vtDes2 . " FROM " .$vtTabla. " WHERE " .$vtWhere. " ORDER BY " .$vtCod);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
printf("");
}
mysql_free_result($vlResult );
}
}else{
$vlResult = fm_query_gen("SELECT " .$vtCod. ", " .$vtDes. " FROM " .$vtTabla. " WHERE " .$vtWhere. " ORDER BY " .$vtCod);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
printf("");
}
mysql_free_result($vlResult );
}
}
}
/****************************************************************/
function fm_llena_combo_where_div()
{
$vlResult = fm_query_gen("SELECT div_cod, div_desc, div_monto FROM tbl_divisa WHERE div_stat=1 ORDER BY div_cod");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_where_div_sel($vtValor)
{
$vlString = "SELECT div_cod, div_desc, div_monto FROM tbl_divisa WHERE div_stat=1 ORDER BY div_cod" ;
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(fm_compara_val($vtValor, $vlObjrst["div_cod"]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_sel($vtTabla, $vtCod, $vtDes, $vtValor)
{
$vlResult = fm_query_gen("SELECT " . $vtCod . ", " .$vtDes. " FROM " .$vtTabla. " ORDER BY " .$vtCod);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(fm_compara_val($vtValor, $vlObjrst[$vtCod]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_where_sel($vtTabla, $vtCod, $vtDes, $vtWhere, $vtValor)
{
//$vlResult = fm_query_gen("SELECT " . $vtCod . ", " .$vtDes. " FROM " .$vtTabla. " ORDER BY " .$vtCod);
$vlResult = fm_query_gen("SELECT " . $vtCod . ", " .$vtDes. " FROM " .$vtTabla. " WHERE " .$vtWhere. " ORDER BY " .$vtCod);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(fm_compara_val($vtValor, $vlObjrst[$vtCod]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_sel_ciud($vtValor)
{
$vlResult = fm_query_gen("SELECT cdad_cod, cdad_desc FROM tbl_ciudad WHERE cdad_stat = 1 ORDER BY cdad_cod");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(intval($vlObjrst["cdad_cod"]) != 1)
{
if(fm_compara_val($vtValor, $vlObjrst["cdad_cod"]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
printf("");
}
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_sel_mun($vtValor, $vtValor2)
{
$vlResult = fm_query_gen("SELECT mncp_cod, mncp_desc, mncp_cdad_cod FROM tbl_municipio ORDER BY mncp_cod");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(intval($vlObjrst["mncp_cod"]) != 1)
{
if(fm_compara_val($vtValor, $vlObjrst["mncp_cod"]))
{
if(fm_compara_val($vtValor2, $vlObjrst["mncp_cdad_cod"]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
}else{
$vlSelec = "";
}
printf("");
}
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_llena_combo_sel_urb($vtValor, $vtValor2, $vtValor3, $vtValor4)
{
$vlString = "";
$vlString = $vlString . " SELECT zmun_cod, zmun_desc, zmun_zona_cod, zmun_ciudad, zmun_mncp_cod " ;
$vlString = $vlString . " FROM tbl_zona_municipio";
$vlString = $vlString . " WHERE zmun_mncp_cod =" . $vtValor2 ;
$vlString = $vlString . " AND zmun_ciudad =" . $vtValor3 ;
$vlString = $vlString . " AND zmun_zona_cod =" . $vtValor4 ;
$vlString = $vlString . " ORDER BY zmun_cod ";
//echo $vlString;
//exit();
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if(fm_compara_val($vtValor, $vlObjrst["zmun_cod"]))
{
if(fm_compara_val($vtValor2, $vlObjrst["zmun_mncp_cod"]))
{
if(fm_compara_val($vtValor3, $vlObjrst["zmun_ciudad"]))
{
if(fm_compara_val($vtValor4, $vlObjrst["zmun_zona_cod"]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
}else{
$vlSelec = "";
}
}else{
$vlSelec = "";
}
}else{
$vlSelec = "";
}
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fm_cod_max($vtTabla, $vtCod)
{
$vlString = "SELECT MAX(" . $vtCod . ") as MaxCod FROM " . $vtTabla ;
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult) ;
$vtCod = trim($vlObjrst["MaxCod"]) ;
if(trim($vtCod) == ""){$vtCod = "0" ;}
if(is_null($vlObjrst["MaxCod"])){$vtCod = "0" ;}
$vtCod = intval($vtCod) + 1 ;
$vtCod = strval($vtCod) ;
}else{
$vtCod = "999" ;
}
return $vtCod;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_cod_user_max($vtTipo)
{
$vlString = "SELECT MAX(substring(user_cod_as,5,4)) as MaxCod FROM tbl_user WHERE substring(user_cod_as,1,2) ='". $vtTipo . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult) ;
$vtCod = trim($vlObjrst["MaxCod"]) ;
if(trim($vtCod) == ""){$vtCod = "0" ;}
if(is_null($vlObjrst["MaxCod"])){$vtCod = "0" ;}
$vtCod = intval($vtCod) + 1 ;
$vtCod = strval($vtCod) ;
$vtCod = fm_rellen_izq($vtCod, "0", "4") ;
}else{
$vtCod = "9999" ;
}
return $vtCod;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_cod_inmb_max()
{
$vlString = "SELECT MAX(substring(inmb_codigo_as,5,4)) as MaxCod FROM tbl_inmueble WHERE substring(inmb_codigo_as,1,4) ='". date('Y'). "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult) ;
$vtCod = trim($vlObjrst["MaxCod"]) ;
if(trim($vtCod) == ""){$vtCod = "0" ;}
if(is_null($vlObjrst["MaxCod"])){$vtCod = "0" ;}
$vtCod = intval($vtCod) + 1 ;
$vtCod = strval($vtCod) ;
$vtCod = fm_rellen_izq($vtCod, "0", "3") ;
$vtCod = strval(date('Y')) . strval($vtCod);
}else{
$vtCod = "9999" ;
}
return $vtCod;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_cod_foto_max($vtCod)
{
$vlString = "SELECT MAX(fot_nomb) AS MaxCod FROM tbl_foto WHERE fot_inmb_cod = '". $vtCod. "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
$vlObjrst = mysql_fetch_array($vlResult) ;
if(!empty($vlReturn))
{
if(is_null($vlObjrst["MaxCod"]))
{
$vlString2 = "SELECT inmb_codigo_as FROM tbl_inmueble WHERE inmb_cod = '". $vtCod. "'";
$vlResult2 = fm_query_gen($vlString2);
$vlObjrst2 = mysql_fetch_array($vlResult2) ;
$vlInmueble = trim($vlObjrst2["inmb_codigo_as"]) ;
$vlInmueble = $vlInmueble . "F" ;
$vlCod = "" ;
}else{
$vlCod = trim($vlObjrst["MaxCod"]) ;
$vlCodigo = explode(".", $vlCod);
$vlInmueble = substr($vlCodigo[0],"0", "8");
$vlCod = substr($vlCodigo[0],"8", "2");
}
if(trim($vlCod) == ""){$vlCod = "0" ;}
$vlCod = intval($vlCod) + 1 ;
$vlCod = strval($vlCod) ;
$vlCod = fm_rellen_izq($vlCod, "0", "2") ;
$vlCod = strval($vlInmueble) . strval($vlCod) . ".jpg";
}
//echo $vlCod;
//exit();
return $vlCod;
mysql_free_result($vlResult2);
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_carga_user()
{
$vlResult = fm_query_gen("select * from tbl_user");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$VecUser=array();
while($vlObjrst = mysql_fetch_array($vlResult))
{
array_push ($VecUser, "'" . trim($vlObjrst["user_cod"]) . " - " . trim($vlObjrst["user_cod_as"]) . " - " . trim($vlObjrst["user_nomb"]) . "'");
}
$_SESSION["vgVecUser"] = join(",", $VecUser);
}
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_busc_carga_user($vtCod)
{
$vlRetval="";
$vlResult = fm_query_gen("select * from tbl_user where user_cod ='" . $vtCod . "'");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["user_cod"]) . " - " . trim($vlObjrst["user_cod_as"]) . " - " . trim($vlObjrst["user_nomb"]);
}
mysql_free_result($vlResult);
return $vlRetval;
}
/****************************************************************/
function fm_busc_desc_nivel($vtCod)
{
$vlRetval="";
if ($vtCod <> "")
{
$vlResult = fm_query_gen(" SELECT niv_desc FROM tbl_nivel WHERE niv_cod = '" . $vtCod . "'");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["niv_desc"]);
}
mysql_free_result($vlResult);
}
return $vlRetval;
}
/****************************************************************/
function fm_rellen_izq($vtPalabra, $vtSimbolo, $vtOcurrencia)
{
$vlPalbra = "";
$vlTamPalabra = strlen($vtPalabra);
if(intval($vlTamPalabra) < intval($vtOcurrencia))
{
$tamResto = intval($vtOcurrencia) - intval($vlTamPalabra);
$vlResto = str_repeat($vtSimbolo, $tamResto);
$vlPalbra = strval($vlResto) . strval($vtPalabra);
}else{
$vlPalbra = $vtPalabra;
}
return $vlPalbra;
}
/****************************************************************/
function fm_mont_div($vtCod)
{
$vlRetval = "";
$vlResult = fm_query_gen(" SELECT * FROM tbl_divisa WHERE div_cod = '" . $vtCod . "'");
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = $vlObjrst["div_monto"];
}
mysql_free_result($vlResult);
return $vlRetval;
}
/****************************************************************/
function fm_compara_val($vtValor1, $vtValor2)
{
$Retval= false;
if($vtValor1 != "" && is_numeric($vtValor1))
{
if($vtValor2 != "" && is_numeric($vtValor2))
{
if (intval($vtValor1) == intval($vtValor2))
{
$Retval= true;
}
}
}
return $Retval;
}
/****************************************************************/
function fm_buscar_descripcion($vtDes, $vtTabla, $vtCod, $vtValor)
{
$vlRetval = "";
$vlString = " SELECT " . $vtDes . " FROM " . $vtTabla . " WHERE " . $vtCod . " ='". $vtValor. "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst[$vtDes]) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_mostrar_foto($vtCod, $vtCodInmb, $vtStat)
{
$vlRetval = "";
$vlResult = fm_bus_foto($vtCod, $vtCodInmb, $vtStat);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["fot_nomb"]) ;
}else{
$vlRetval = "foto-no-disponible.gif" ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_get_cod_Imb($vtCodAnnie)
{
$vlRetval = "";
$vlString = " SELECT inmb_cod FROM tbl_inmueble WHERE inmb_codigo_as ='". trim($vtCodAnnie) . "'";
$vlString = $vlString . " AND inmb_stat = '2' ";
$vlString = $vlString . " AND inmb_stat_pub = '1' ";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["inmb_cod"]) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_get_Nomb_Imb($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT inubic_nomb FROM tbl_inmb_ubicacion WHERE inubic_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["inubic_nomb"]) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_cocina($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT inarea_estad_cocina FROM tbl_inmb_area WHERE inarea_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = fm_area_cocina(trim($vlObjrst["inarea_estad_cocina"])) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_vista($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT inep_tipo_vista FROM tbl_inmb_estado_propied WHERE inep_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = fm_tip_vista(trim($vlObjrst["inep_tipo_vista"])) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_hab_serv($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT inarea_hab_serv FROM tbl_inmb_area WHERE inarea_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = fm_hab_serv(trim($vlObjrst["inarea_hab_serv"])) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_vig($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT invar_tip_vigilancia FROM tbl_inmb_varios WHERE invar_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = fm_tip_vig(trim($vlObjrst["invar_tip_vigilancia"])) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_estudio($vtCodInm)
{
$vlRetval = "";
$vlString = " SELECT inarea_estudio FROM tbl_inmb_area WHERE inarea_inmb_cod ='". trim($vtCodInm) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = fm_tipo_gen(trim($vlObjrst["inarea_estudio"])) ;
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
function fm_bus_rela($vtCodInm, $vtRel)
{
$vlRetval = "";
$vlString = " SELECT inrel_nombre, inrel_tel_hab, inrel_tel_ofic, inrel_tel_cel FROM tbl_inmb_relacionado WHERE inrel_inmb_cod ='". trim($vtCodInm) . "' AND inrel_tipo_rela ='" . trim($vtRel) . "'";
$vlResult = fm_query_gen($vlString);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
$vlObjrst = mysql_fetch_array($vlResult);
$vlRetval = trim($vlObjrst["inrel_nombre"]);
if (trim($vlObjrst["inrel_tel_hab"]) != "")
{
$vlRetval = $vlRetval . " - " . trim($vlObjrst["inrel_tel_hab"]);
}else if(trim($vlObjrst["inrel_tel_ofic"]) != ""){
$vlRetval = $vlRetval . " - " . trim($vlObjrst["inrel_tel_ofic"]);
}else if(trim($vlObjrst["inrel_tel_cel"]) != ""){
$vlRetval = $vlRetval . " - " . trim($vlObjrst["inrel_tel_cel"]);
}
}
return $vlRetval;
mysql_free_result($vlResult);
}
/****************************************************************/
// Este procedimiento llena una Lista y evalua que valor quedar� seleccionado
function fm_llena_lista_sel($vtTabla, $vtCod, $vtDes, $vtValor)
{
$vlResult = fm_query_gen("SELECT " . $vtCod . ", " .$vtDes. " FROM " .$vtTabla. " ORDER BY " .$vtCod);
$vlReturn = mysql_num_rows($vlResult);
if(!empty($vlReturn))
{
while($vlObjrst = mysql_fetch_array($vlResult))
{
if (is_Array($vtValor))
{
if(fl_Verif_Val($vtValor, $vlObjrst[$vtCod]))
{
$vlSelec = "selected";
}else{
$vlSelec = "";
}
}else{
$vlSelec = "";
}
printf("");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
function fl_Verif_Val($vtValor, $vtVector)
{
$Retval=false;
$iY="";
if (is_Array($vtVecto))
{
for ($iY= 0; $iY < count($vtVector); $iY++ )
{
if(trim($vtVector[$iY]) == trim($vtValor))
{
$Retval = true ;
break;
}
}
}
return $Retval;
}
/****************************************************************/
function fm_select2($vtValor, $vtVector)
{
$Retval="";
$iY="";
if (is_Array($vtVector))
{
for ($iY= 0; $iY < count($vtVector); $iY++ )
{
if(trim($vtVector[$iY]) == trim($vtValor))
{
$Retval = "selected" ;
break;
}
}
}
return $Retval;
}
/******************************************************/
function fm_estad_estruct($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Nuevo";
break;
case 2 :
$Retval= "Bueno" ;
break;
case 3 :
$Retval= "Original";
break;
}
return $Retval;
}
/******************************************************/
function fm_talla_estruct($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Peque�a";
break;
case 2 :
$Retval= "Mediana" ;
break;
case 3 :
$Retval= "Grande";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_vig($vtValor)
{
$Retval = "No especificada";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Permanente" ;
break;
case 3 :
$Retval= "Parcial";
break;
}
return $Retval;
}
/******************************************************/
function fm_est_propiedad($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Nuevo";
break;
case 2 :
$Retval= "Bien Conservado" ;
break;
case 3 :
$Retval= "Original";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_piso($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Parquet";
break;
case 2 :
$Retval= "Ceramica" ;
break;
case 3 :
$Retval= "Marmol";
break;
case 4 :
$Retval= "Granito";
break;
case 5 :
$Retval= "Alfombra" ;
break;
case 6 :
$Retval= "Terracota";
break;
case 7 :
$Retval= "Otro";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_amoblado($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Full" ;
break;
case 3 :
$Retval= "Parcial";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_aire($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Habitacion principal" ;
break;
case 3 :
$Retval= "Habitaciones";
break;
case 4 :
$Retval= "Central";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_cable($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Parabolica" ;
break;
case 3 :
$Retval= "Supercable";
break;
case 4 :
$Retval= "Net Uno";
break;
case 5 :
$Retval= "Intercable" ;
break;
case 6 :
$Retval= "Direct TV";
break;
case 7 :
$Retval= "Cabletel";
break;
case 8 :
$Retval= "Cablevisión";
break;
case 9 :
$Retval= "Otro";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_luminosidad($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Muy Luminosa";
break;
case 2 :
$Retval= "Luminosa" ;
break;
case 3 :
$Retval= "Normal";
break;
}
return $Retval;
}
/******************************************************/
function fm_tip_vista($vtValor)
{
$Retval = "No especificada";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Poca" ;
break;
case 3 :
$Retval= "Panor�mica";
break;
}
return $Retval;
}
/******************************************************/
function fm_cant_hab($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "1 Ambiente";
break;
case 2 :
$Retval= "1 habitacion" ;
break;
case 3 :
$Retval= "2 habitaciones";
break;
case 4 :
$Retval= "3 habitaciones";
break;
case 5 :
$Retval= "4 habitaciones" ;
break;
case 6 :
$Retval= "5 habitaciones";
break;
case 7 :
$Retval= "+ 5 habitaciones";
break;
}
return $Retval;
}
/******************************************************/
function fm_hab_principal($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Normal";
break;
case 2 :
$Retval= "Amplia" ;
break;
case 3 :
$Retval= "Vestier";
break;
case 4 :
$Retval= "Ba�o";
break;
case 5 :
$Retval= "Jacuzzi" ;
break;
case 6 :
$Retval= "Terraza";
break;
}
return $Retval;
}
/******************************************************/
function fm_area_cocina($vtValor)
{
$Retval = "No Especificada";
switch (intval($vtValor))
{
case 1 :
$Retval= "Grande";
break;
case 2 :
$Retval= "Mediana" ;
break;
case 3 :
$Retval= "Peque�a";
break;
case 4 :
$Retval= "Kitchenette";
break;
}
return $Retval;
}
/******************************************************/
function fm_estado_cocina($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Moderna";
break;
case 2 :
$Retval= "Buena" ;
break;
case 3 :
$Retval= "Original";
break;
}
return $Retval;
}
/******************************************************/
function fm_cocina($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Instalada";
break;
case 2 :
$Retval= "Por Montar" ;
break;
case 3 :
$Retval= "L�nea Blanca";
break;
}
return $Retval;
}
/******************************************************/
function fm_estufa_horno($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Gas";
break;
case 2 :
$Retval= "Electrica" ;
break;
case 3 :
$Retval= "Ambos";
break;
}
return $Retval;
}
/******************************************************/
function fm_salon_comedor($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Juntos";
break;
case 2 :
$Retval= "Separados" ;
break;
case 3 :
$Retval= "Semi separados";
break;
}
return $Retval;
}
/******************************************************/
function fm_terraza($vtValor)
{
$Retval = "No especificada";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Techada" ;
break;
case 3 :
$Retval= "Semi - Techada";
break;
}
return $Retval;
}
/******************************************************/
function fm_tipo_estac($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "No";
break;
case 2 :
$Retval= "Individuales" ;
break;
case 3 :
$Retval= "Dobles";
break;
}
return $Retval;
}
/******************************************************/
function fm_numb_habit($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "1";
break;
case 2 :
$Retval= "1" ;
break;
case 3 :
$Retval= "3";
break;
case 4 :
$Retval= "4";
break;
case 5 :
$Retval= "5";
break;
case 6 :
$Retval= "+ 4";
break;
}
return $Retval;
}
/******************************************************/
function fm_tipo_transac($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval= "Alquiler";
break;
case 2 :
$Retval= "Venta" ;
break;
case 3 :
$Retval= "Alquiler/Venta";
break;
case 4 :
$Retval= "Administración";
break;
}
return $Retval;
}
/******************************************************/
function fm_tipo_gen($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 0 :
$Retval= "No";
break;
case 1 :
$Retval= "Si" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_year_const($vtValor)
{
$Retval = "No Especificado";
switch (intval($vtValor))
{
case 1 :
$Retval= "A estrenar";
break;
case 2 :
$Retval= "1 a 5 a�os" ;
break;
case 3 :
$Retval= "6 a 15 a�os" ;
break;
case 4 :
$Retval= "M�s de 15 a�os" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_tipo_status($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval = "Guardado por Promotor" ;
break;
case 2 :
$Retval = "Activo" ;
break;
case 3 :
$Retval = "Alquilado" ;
break;
case 4 :
$Retval = "Vendido" ;
break;
case 5 :
$Retval = "En guardia del dueño" ;
break;
case 6 :
$Retval = "Comprometido" ;
break;
case 7 :
$Retval = "En Cronos" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_lineas_tel($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval = "No" ;
break;
case 2 :
$Retval = "1 Linea Fija" ;
break;
case 3 :
$Retval = "2 Lineas Fijas" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_jardin($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 1 :
$Retval = "No" ;
break;
case 2 :
$Retval = "Peque�o" ;
break;
case 3 :
$Retval = "Mediano" ;
break;
case 4 :
$Retval = "Grande" ;
break;
case 5 :
$Retval = "Parque Infantil" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_hab_serv($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 0 :
$Retval = "No" ;
break;
case 1 :
$Retval = "1 Hab" ;
break;
case 2 :
$Retval = "2 Hab" ;
break;
}
return $Retval;
}
/******************************************************/
function fm_firma($vtValor)
{
$Retval = "";
switch (intval($vtValor))
{
case 0 :
$Retval = "NO" ;
break;
case 1 :
$Retval = "SI" ;
break;
case 2 :
$Retval = "N/Q" ;
break;
}
return $Retval;
}
/******************************************************/
////////////////////////////////////////////////////
//Convierte fecha de mysql a normal
////////////////////////////////////////////////////
function fech_nor($fecha){
$lafecha = "";
if($fecha != "")
{
ereg( "([0-9]{2,4})-([0-9]{1,2})-([0-9]{1,2})", $fecha, $mifecha);
$lafecha=$mifecha[3]."/".$mifecha[2]."/".$mifecha[1];
}
return $lafecha;
}
////////////////////////////////////////////////////
//Convierte fecha de normal a mysql
////////////////////////////////////////////////////
function fech_mysql($fecha){
$lafecha = "";
if($fecha != "")
{
ereg( "([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})", $fecha, $mifecha);
$lafecha=$mifecha[3]."-".$mifecha[2]."-".$mifecha[1];
}
return $lafecha;
}
//sendmail("Asunto del mensaje",$mensaje,'"Tu Nombre"','destinario@dominio.com',$cc,$cco,$replyto,$formato,$adjunto);
/*$archivo1['name']='imagen.jpg'; //nombre del archivo$archivo1
['tmp_name']='../imagen.jpg'; // peso del archivo. (por defecto es el peso calculado de tmp_name
$archivo1['type']='Tipo mime del archivo'; // ejemplo: image/jpeg, text/html
$archivo1['data']='contenido del archivo'; // este solo es necesario# si el archivo es creado desde codigo, pero si se define este no# sara el valor de tmp_name.*/
/*$adjunto['Archivo1']=$archivo1;
$adjunto['Archivo2']=$archivo2;
$adjunto['...']=...; // este es un nombre cualquiera*/
function sendmail($asunto, $mensaje, $destinatario, $destinario, $cc ,$cco , $reply, $formato, $attach)
{
$docsnames=NULL;//Definimos Variables
$fcuerpo=NULL;//Definimos Variables
if(!$formato) $formato='html'; //En caso de no estar definido el formato tomar html por defecto
if(!$attach) $attach=Array(); //En caso de que no tenga archivos adjuntos, mostrar array vacio
/* Adjuntando los Archivos al Mensaje */
while(list($campo,$valor)=each($attach))
{
if($attach[$campo]['size']!=0)
{
if(!$attach[$campo]['data']) $attach[$campo]['data']=fread(fopen($attach[$campo]['tmp_name'], "r"),$attach[$campo]['size']);
$docsnames.= "X-attachments: ".$attach[$campo]['name']."\n";
$fcuerpo .="\n--Neftali-Yaguas\n"
."Content-type: ".$attach[$campo]['type']."; name=\"".$attach[$campo]['name']."\"\n"
."Content-Transfer-Encoding: BASE64\n"
."Content-disposition: attachment; filename=\"".$attach[$campo]['name']."\"\n\n"
.chunk_split(base64_encode($attach[$campo]['data']))."\n";
}
}
/* Aplicando Cabezeras al Mensaje*/
$cabeceras = "From: ".$destinatario."\n";
if($cc)$cabeceras .= "CC: ".$cc."\n";
if($cco)$cabeceras .= "BCC: ".$cco."\n";
if($reply)$cabeceras .= "Reply-To: ".$reply."\n";
$cabeceras .= "X-Priority: 1\n"
. "X-MSMail-Priority: High\n"
. "X-Mailer: Neftali Yaguas -\"Sendmail Attach files 1.2\"- jhony192@coderic.og\n"
. "Return-Path: ".$destinatario."\n"
. "MIME-version: 1.0\n"
. "Content-type: multipart/mixed; boundary=\"Neftali-Yaguas\"\n"
. "Content-transfer-encoding: 7BIT\n".$docsnames;
/* Comienzo del Cuerpo del Mensaje*/
$cuerpo= "--Neftali-Yaguas\n"
. "Content-type: text/".$formato."; charset=US-ASCII\n"
. "Content-transfer-encoding: 7BIT\n"
. "Content-description:Cuerpo de Mensaje\n\n"
. $mensaje."\n\n".$fcuerpo."--Neftali-Yaguas--\n";
/* Enviando el Mensaje*/
return mail($destinario,$asunto,$cuerpo,$cabeceras);
}
/******************************************************/
?>
