= 1 " ;
//------------
if (!empty($vtCod))
{
$vlString = $vlString . " AND " . $vecDivisa[1] . " = " . "'" . trim($vtCod) . "'" ;
}
//------------
if (!empty($vtTipo))
{
$vlString = $vlString . " AND " . $vecDivisa[4] . " = " . "'" . trim($vtTipo) . "'" ;
}
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
$vlQuery = fm_query_gen($vlString);
return $vlQuery;
}
//*****************************************************
function fm_reg_divisa($vtDesc, $vtMonto, $vtTipo, $vtStat)
{
/*---------------*/
$vecDivisa[0] = "tbl_divisa" ;
$vecDivisa[1] = "div_cod" ;
$vecDivisa[2] = "div_desc" ;
$vecDivisa[3] = "div_monto" ;
$vecDivisa[4] = "div_tipo" ;
$vecDivisa[5] = "div_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " INSERT INTO " . $vecDivisa[0] . "( " . $vecDivisa[2] . ", " . $vecDivisa[3] . ", " . $vecDivisa[4] . ", " . $vecDivisa[5] . ") " ;
$vlString = $vlString . " VALUES ( " ;
$vlString = $vlString . "'" . $vtDesc . "', " ;
$vlString = $vlString . "'" . fm_format_number($vtMonto) . "', " ;
$vlString = $vlString . $vtTipo . ", " ;
$vlString = $vlString . $vtStat . ") " ;
//------------
//echo fm_format_number($vtMonto) . "
" ;
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_divisa($vtCod, $vtDesc, $vtMonto, $vtTipo, $vtStat)
{
/*---------------*/
$vecDivisa[0] = "tbl_divisa" ;
$vecDivisa[1] = "div_cod" ;
$vecDivisa[2] = "div_desc" ;
$vecDivisa[3] = "div_monto" ;
$vecDivisa[4] = "div_tipo" ;
$vecDivisa[5] = "div_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecDivisa[0] ;
$vlString = $vlString . " SET " . $vecDivisa[2] . " = '" . fm_ecs($vtDesc) . "', " ;
$vlString = $vlString . " " . $vecDivisa[3] . " = '" . fm_format_number($vtMonto) . "', " ;
$vlString = $vlString . " " . $vecDivisa[4] . " = " . $vtTipo . ", " ;
$vlString = $vlString . " " . $vecDivisa[5] . " = " . $vtStat . " " ;
$vlString = $vlString . " WHERE " . $vecDivisa[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_elim_divisa($vtCod)
{
/*---------------*/
$vecDivisa[0] = "tbl_divisa" ;
$vecDivisa[1] = "div_cod" ;
$vecDivisa[2] = "div_desc" ;
$vecDivisa[3] = "div_monto" ;
$vecDivisa[4] = "div_tipo" ;
$vecDivisa[5] = "div_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " DELETE FROM " . $vecDivisa[0] ;
$vlString = $vlString . " WHERE " . $vecDivisa[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
function fm_mod_stat_divisa($vtCod, $vtActiv)
{
/*---------------*/
$vecDivisa[0] = "tbl_divisa" ;
$vecDivisa[1] = "div_cod" ;
$vecDivisa[2] = "div_desc" ;
$vecDivisa[3] = "div_monto" ;
$vecDivisa[4] = "div_tipo" ;
$vecDivisa[5] = "div_stat" ;
/*---------------*/
$vlString = "";
$vlString = $vlString . " UPDATE " . $vecDivisa[0] ;
$vlString = $vlString . " SET " . $vecDivisa[5] . " = " . $vtActiv . " " ;
$vlString = $vlString . " WHERE " . $vecDivisa[1] . " = " . trim($vtCod) ;
//------------
//echo " vlString : " . $vlString . "
" ;
//exit();
//------------
fm_query_gen($vlString);
}
//*****************************************************
?>