= 1 " ;
//------------
if (!empty($vtCod))
{
$vlString = $vlString . " AND " . $vecMonto[1] . " = " . "'" . trim($vtCod) . "'" ;
}
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
$vlQuery = fm_query_gen($vlString);
return $vlQuery;
}
//*****************************************************
function fm_reg_monto($vtDesc, $vtActiv)
{
/*---------------*/
$vecMonto[0] = "tbl_monto" ;
$vecMonto[1] = "mont_cod" ;
$vecMonto[2] = "mont_desc" ;
$vecMonto[3] = "mont_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " INSERT INTO " . $vecMonto[0] . "( " . $vecMonto[2] . ", " . $vecMonto[3] . ") " ;
$vlString = $vlString . " VALUES ( " ;
$vlString = $vlString . "'" . $vtDesc . "', " ;
$vlString = $vlString . $vtActiv . ") " ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_monto($vtCod, $vtDesc, $vtActiv)
{
/*---------------*/
$vecMonto[0] = "tbl_monto" ;
$vecMonto[1] = "mont_cod" ;
$vecMonto[2] = "mont_desc" ;
$vecMonto[3] = "mont_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecMonto[0] ;
$vlString = $vlString . " SET " . $vecMonto[2] . " = " . "'" . fm_ecs($vtDesc) . "', " ;
$vlString = $vlString . " " . $vecMonto[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecMonto[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_elim_monto($vtCod)
{
/*---------------*/
$vecMonto[0] = "tbl_monto" ;
$vecMonto[1] = "mont_cod" ;
$vecMonto[2] = "mont_desc" ;
$vecMonto[3] = "mont_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecMonto[0] ;
$vlString = $vlString . " WHERE " . $vecMonto[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_stat_monto($vtCod, $vtActiv)
{
/*---------------*/
$vecMonto[0] = "tbl_monto" ;
$vecMonto[1] = "mont_cod" ;
$vecMonto[2] = "mont_desc" ;
$vecMonto[3] = "mont_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecMonto[0] ;
$vlString = $vlString . " SET " . $vecMonto[3] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecMonto[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
?>