= 1 " ; //------------ if (!empty($vtCod)) { $vlString = $vlString . " AND " . $vecrelacionado[1] . " = '" . trim($vtCod) . "'" ; } //------------ if (!empty($vtCodInmb)) { $vlString = $vlString . " AND " . $vecrelacionado[2] . " = '" . trim($vtCodInmb) . "'" ; } //------------ //echo " vlString : " . $vlString . "
" ; //exit(); //------------ $vlQuery = fm_query_gen($vlString); return $vlQuery; fm_desconect(); } //***************************************************** function fm_reg_relacionado($vtInmb_cod, $vtNombre,$vtCed, $vtTel_hab, $vtTel_ofic, $vtTel_cel, $vtFax, $vtMail, $vtObserv, $vtTipo_rela) { /*********************************************/ $vecrelacionado[0]="tbl_inmb_relacionado" ; $vecrelacionado[1]="inrel_cod" ; $vecrelacionado[2]="inrel_inmb_cod" ; $vecrelacionado[3]="inrel_nombre" ; $vecrelacionado[4]="inrel_ced" ; $vecrelacionado[5]="inrel_tel_hab" ; $vecrelacionado[6]="inrel_tel_ofic" ; $vecrelacionado[7]="inrel_tel_cel" ; $vecrelacionado[8]="inrel_fax" ; $vecrelacionado[9]="inrel_mail" ; $vecrelacionado[10]="inrel_observ" ; $vecrelacionado[11]="inrel_tipo_rela" ; /*********************************************/ $vlString = "" ; $vlString = $vlString . " INSERT INTO " . $vecrelacionado[0] . "( " . $vecrelacionado[2] . ", " . $vecrelacionado[3] . ", " . $vecrelacionado[4] . ", " ; $vlString = $vlString . $vecrelacionado[5] . ", " . $vecrelacionado[6] . ", " . $vecrelacionado[7] . ", " . $vecrelacionado[8] . ", " . $vecrelacionado[9] . ", " ; $vlString = $vlString . $vecrelacionado[10] . ", " . $vecrelacionado[11] . ") " ; $vlString = $vlString . " VALUES ( " ; $vlString = $vlString . "'" . $vtInmb_cod . "', " ; $vlString = $vlString . "'" . $vtNombre . "', " ; $vlString = $vlString . "'" . $vtCed . "', " ; $vlString = $vlString . "'" . $vtTel_hab . "', " ; $vlString = $vlString . "'" . $vtTel_ofic . "', " ; $vlString = $vlString . "'" . $vtTel_cel . "', " ; $vlString = $vlString . "'" . $vtFax . "', " ; $vlString = $vlString . "'" . $vtMail . "', " ; $vlString = $vlString . "'" . $vtObserv . "', " ; $vlString = $vlString . $vtTipo_rela . ") " ; //------------ //echo " vlString : " . $vlString . "
" ; //exit(); //------------ fm_query_gen($vlString); fm_desconect(); } /********************************************************************************/ function fm_mod_relacionado($vtCod, $vtInmb_cod, $vtNombre, $vtCed, $vtTel_hab, $vtTel_ofic, $vtTel_cel, $vtFax, $vtMail, $vtObserv, $vtTipo_rela) { /*********************************************/ $vecrelacionado[0]="tbl_inmb_relacionado" ; $vecrelacionado[1]="inrel_cod" ; $vecrelacionado[2]="inrel_inmb_cod" ; $vecrelacionado[3]="inrel_nombre" ; $vecrelacionado[4]="inrel_ced" ; $vecrelacionado[5]="inrel_tel_hab" ; $vecrelacionado[6]="inrel_tel_ofic" ; $vecrelacionado[7]="inrel_tel_cel" ; $vecrelacionado[8]="inrel_fax" ; $vecrelacionado[9]="inrel_mail" ; $vecrelacionado[10]="inrel_observ" ; $vecrelacionado[11]="inrel_tipo_rela" ; /*********************************************/ $vlString = ""; $vlString = $vlString . " UPDATE " . $vecrelacionado[0] ; $vlString = $vlString . " SET " . $vecrelacionado[2] . " = '" . $vtInmb_cod . "', " ; $vlString = $vlString . " " . $vecrelacionado[3] . " = '" . fm_ecs($vtNombre) . "', " ; $vlString = $vlString . " " . $vecrelacionado[4] . " = '" . $vtCed . "', " ; $vlString = $vlString . " " . $vecrelacionado[5] . " = '" . $vtTel_hab . "', " ; $vlString = $vlString . " " . $vecrelacionado[6] . " = '" . $vtTel_ofic . "', " ; $vlString = $vlString . " " . $vecrelacionado[7] . " = '" . $vtTel_cel . "', " ; $vlString = $vlString . " " . $vecrelacionado[8] . " = '" . $vtFax . "', " ; $vlString = $vlString . " " . $vecrelacionado[9] . " = '" . fm_ecs($vtMail) . "', " ; $vlString = $vlString . " " . $vecrelacionado[10] . " = '" . fm_ecs($vtObserv) . "', " ; $vlString = $vlString . " " . $vecrelacionado[11] . " = " . $vtTipo_rela . " " ; $vlString = $vlString . " WHERE " . $vecrelacionado[1] . " = '" . trim($vtCod) . "'" ; //------------ //echo " vlString : " . $vlString . "
" ; //exit(); //------------ fm_query_gen($vlString); fm_desconect(); } /********************************************************************************/ function fm_elim_relacionado($vtCod) { /*****************************/ $vecrelacionado[0]="tbl_inmb_relacionado" ; $vecrelacionado[1]="inrel_cod" ; $vecrelacionado[2]="inrel_inmb_cod" ; /*****************************/ $vlString = ""; $vlString = $vlString . " DELETE FROM " . $vecrelacionado[0] ; $vlString = $vlString . " WHERE " . $vecrelacionado[2] . " = " . trim($vtCod) ; //------------ //echo " vlString : " . $vlString . "
" ; //exit(); //------------ fm_query_gen($vlString); fm_desconect(); } /********************************************************************************/ ?>