".trim($vlObjrst[$vtDes])."");
}
mysql_free_result($vlResult );
}
}
/****************************************************************/
?>
= 1 " ;
//------------
if (!empty($vtCod))
{
$vlString = $vlString . " AND " . $vecNivel[1] . " = " . "'" . trim($vtCod) . "'" ;
}
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
$vlQuery = fm_query_gen($vlString);
return $vlQuery;
}
//*****************************************************
function fm_reg_nivel($vtDesc, $vtActiv)
{
/*---------------*/
$vecNivel[0] = "tbl_nivel" ;
$vecNivel[1] = "niv_cod" ;
$vecNivel[2] = "niv_desc" ;
$vecNivel[3] = "niv_activ" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " INSERT INTO " . $vecNivel[0] . "( " . $vecNivel[2] . ", " . $vecNivel[3] . ") " ;
$vlString = $vlString . " VALUES ( " ;
$vlString = $vlString . "'" . $vtDesc . "', " ;
$vlString = $vlString . $vtActiv . ") " ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_nivel($vtCod, $vtDesc, $vtActiv)
{
/*---------------*/
$vecNivel[0] = "tbl_nivel" ;
$vecNivel[1] = "niv_cod" ;
$vecNivel[2] = "niv_desc" ;
$vecNivel[3] = "niv_activ" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecNivel[0] ;
$vlString = $vlString . " SET " . $vecNivel[2] . " = " . "'" . fm_ecs($vtDesc) . "', " ;
$vlString = $vlString . " " . $vecNivel[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecNivel[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_elim_nivel($vtCod)
{
/*---------------*/
$vecNivel[0] = "tbl_nivel" ;
$vecNivel[1] = "niv_cod" ;
$vecNivel[2] = "niv_desc" ;
$vecNivel[3] = "niv_activ" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecNivel[0] ;
$vlString = $vlString . " WHERE " . $vecNivel[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_stat_Nivel($vtCod, $vtActiv)
{
/*---------------*/
$vecNivel[0] = "tbl_nivel" ;
$vecNivel[1] = "niv_cod" ;
$vecNivel[2] = "niv_desc" ;
$vecNivel[3] = "niv_activ" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecNivel[0] ;
$vlString = $vlString . " SET " . $vecNivel[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecNivel[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
?>
