" ;
//exit();
//------------
fm_query_gen($vlString);
//------------
fm_desconect();
}
/********************************************************************************/
function fm_mod_ubicacion($vtCod, $vtInmb_cod, $vtZona, $vtCiudad, $vtMunicipio, $vtZona_Munic, $vtNomb, $vtDir, $vtTel,
$vtTel2, $vtTinm_cod, $vtTinm_plan, $vtEstad_estruc, $vtTipo_estruc )
{
/*****************************/
$vecubicacion[0]="tbl_inmb_ubicacion" ;
$vecubicacion[1]="inubic_cod" ;
$vecubicacion[2]="inubic_inmb_cod" ;
$vecubicacion[3]="inubic_zon_cod" ;
$vecubicacion[4]="inubic_cdad_cod" ;
$vecubicacion[5]="inubic_mncp_cod" ;
$vecubicacion[6]="inubic_zmun_cod" ;
$vecubicacion[7]="inubic_nomb" ;
$vecubicacion[8]="inubic_dir" ;
$vecubicacion[9]="inubic_tel" ;
$vecubicacion[10]="inubic_tel2" ;
$vecubicacion[11]="inubic_tinm_cod" ;
$vecubicacion[12]="inubic_tinm_plan" ;
$vecubicacion[14]="inubic_estad_estruc" ;
$vecubicacion[15]="inubic_tipo_estruc" ;
/*****************************/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecubicacion[0] ;
$vlString = $vlString . " SET " . $vecubicacion[2] . " = '" . $vtInmb_cod . "', " ;
$vlString = $vlString . " " . $vecubicacion[3] . " = '" . $vtZona . "', " ;
$vlString = $vlString . " " . $vecubicacion[4] . " = '" . $vtCiudad . "', " ;
$vlString = $vlString . " " . $vecubicacion[5] . " = '" . $vtMunicipio . "', " ;
$vlString = $vlString . " " . $vecubicacion[6] . " = '" . $vtZona_Munic . "', " ;
$vlString = $vlString . " " . $vecubicacion[7] . " = '" . $vtNomb . "', " ;
$vlString = $vlString . " " . $vecubicacion[8] . " = '" . $vtDir . "', " ;
$vlString = $vlString . " " . $vecubicacion[9] . " = '" . $vtTel . "', " ;
$vlString = $vlString . " " . $vecubicacion[10] . " = '" . $vtTel2 . "', " ;
$vlString = $vlString . " " . $vecubicacion[11] . " = '" . $vtTinm_cod . "', " ;
$vlString = $vlString . " " . $vecubicacion[12] . " = '" . $vtTinm_plan . "', " ;
$vlString = $vlString . " " . $vecubicacion[14] . " = '" . $vtEstad_estruc . "', " ;
$vlString = $vlString . " " . $vecubicacion[15] . " = '" . $vtTipo_estruc . "' " ;
$vlString = $vlString . " WHERE " . $vecubicacion[1] . " = '" . trim($vtCod) . "'" ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
fm_desconect();
}
/********************************************************************************/
function fm_elim_ubicacion($vtCod)
{
/*****************************/
$vecubicacion[0]="tbl_inmb_ubicacion" ;
$vecubicacion[1]="inubic_cod" ;
$vecubicacion[2]="inubic_inmb_cod" ;
/*****************************/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecubicacion[0] ;
$vlString = $vlString . " WHERE " . $vecubicacion[2] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
/********************************************************************************/
?>