= 1 " ;
//------------
if (!empty($vtCod))
{
$vlString = $vlString . " AND " . $vecTip_Inmu[1] . " = " . "'" . trim($vtCod) . "'" ;
}
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
$vlQuery = fm_query_gen($vlString);
return $vlQuery;
}
//*****************************************************
function fm_reg_tip_inmu($vtDesc, $vtActiv)
{
/*---------------*/
$vecTip_Inmu[0] = "tbl_tip_inmu" ;
$vecTip_Inmu[1] = "tinm_cod" ;
$vecTip_Inmu[2] = "tinm_desc" ;
$vecTip_Inmu[3] = "tinm_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " INSERT INTO " . $vecTip_Inmu[0] . "( " . $vecTip_Inmu[2] . ", " . $vecTip_Inmu[3] . ") " ;
$vlString = $vlString . " VALUES ( " ;
$vlString = $vlString . "'" . $vtDesc . "', " ;
$vlString = $vlString . $vtActiv . ") " ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_tip_inmu($vtCod, $vtDesc, $vtActiv)
{
/*---------------*/
$vecTip_Inmu[0] = "tbl_tip_inmu" ;
$vecTip_Inmu[1] = "tinm_cod" ;
$vecTip_Inmu[2] = "tinm_desc" ;
$vecTip_Inmu[3] = "tinm_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecTip_Inmu[0] ;
$vlString = $vlString . " SET " . $vecTip_Inmu[2] . " = " . "'" . fm_ecs($vtDesc) . "', " ;
$vlString = $vlString . " " . $vecTip_Inmu[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecTip_Inmu[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_elim_tip_inmu($vtCod)
{
/*---------------*/
$vecTip_Inmu[0] = "tbl_tip_inmu" ;
$vecTip_Inmu[1] = "tinm_cod" ;
$vecTip_Inmu[2] = "tinm_desc" ;
$vecTip_Inmu[3] = "tinm_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecTip_Inmu[0] ;
$vlString = $vlString . " WHERE " . $vecTip_Inmu[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_stat_tip_inmu($vtCod, $vtActiv)
{
/*---------------*/
$vecTip_Inmu[0] = "tbl_tip_inmu" ;
$vecTip_Inmu[1] = "tinm_cod" ;
$vecTip_Inmu[2] = "tinm_desc" ;
$vecTip_Inmu[3] = "tinm_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecTip_Inmu[0] ;
$vlString = $vlString . " SET " . $vecTip_Inmu[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecTip_Inmu[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
?>