= 1 " ;
//------------
if (!empty($vtCod))
{
$vlString = $vlString . " AND " . $vecfuente[1] . " = " . "'" . trim($vtCod) . "'" ;
}
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
$vlQuery = fm_query_gen($vlString);
return $vlQuery;
}
//*****************************************************
function fm_reg_fuente($vtDesc, $vtActiv)
{
/*---------------*/
$vecfuente[0] = "tbl_fuente" ;
$vecfuente[1] = "fuen_cod" ;
$vecfuente[2] = "fuen_desc" ;
$vecfuente[3] = "fuen_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " INSERT INTO " . $vecfuente[0] . "( " . $vecfuente[2] . ", " . $vecfuente[3] . ") " ;
$vlString = $vlString . " VALUES ( " ;
$vlString = $vlString . "'" . $vtDesc . "', " ;
$vlString = $vlString . $vtActiv . ") " ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_fuente($vtCod, $vtDesc, $vtActiv)
{
/*---------------*/
$vecfuente[0] = "tbl_fuente" ;
$vecfuente[1] = "fuen_cod" ;
$vecfuente[2] = "fuen_desc" ;
$vecfuente[3] = "fuen_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecfuente[0] ;
$vlString = $vlString . " SET " . $vecfuente[2] . " = " . "'" . fm_ecs($vtDesc) . "', " ;
$vlString = $vlString . " " . $vecfuente[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecfuente[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_elim_fuente($vtCod)
{
/*---------------*/
$vecfuente[0] = "tbl_fuente" ;
$vecfuente[1] = "fuen_cod" ;
$vecfuente[2] = "fuen_desc" ;
$vecfuente[3] = "fuen_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecfuente[0] ;
$vlString = $vlString . " WHERE " . $vecfuente[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_stat_fuente($vtCod, $vtActiv)
{
/*---------------*/
$vecfuente[0] = "tbl_fuente" ;
$vecfuente[1] = "fuen_cod" ;
$vecfuente[2] = "fuen_desc" ;
$vecfuente[3] = "fuen_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecfuente[0] ;
$vlString = $vlString . " SET " . $vecfuente[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecfuente[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
?>