function uf_calcular_cargo()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_calcular_cargo
// Access: private
// Arguments:
// Description: Funcin que obtiene e imprime los resultados de la busqueda del detalle de los cargos de la recepcion y calcula en base a los nuevos montos
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 02/06/2007 Fecha ltima Modificacin : 03/06/2007
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sob;
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/grid_param.php");
$io_grid=new grid_param();
require_once("../../shared/class_folder/evaluate_formula.php");
$io_formula = new evaluate_formula();
$li_total=$io_funciones_sob->uf_obtenervalor("total",0);
for($li=1;$li<=$li_total;$li++)
{
$lb_chk=$io_funciones_sob->uf_obtenervalor("chk".$li,0);
$ls_codestpro=$io_funciones_sob->uf_obtenervalor("txtcodestpro".$li,"");
$ls_formula=$io_funciones_sob->uf_obtenervalor("txtformula".$li,"");
$ls_spgcuenta=$io_funciones_sob->uf_obtenervalor("txtspgcuenta".$li,"");
$ls_scgcuenta=$io_funciones_sob->uf_obtenervalor("txtscgcuenta".$li,"");
$ls_denscg=$io_funciones_sob->uf_obtenervalor("txtdenscgcuenta".$li,"");
$ldec_baseimp=$io_funciones_sob->uf_obtenervalor("txtbaseimp".$li,"");
$ls_dencuenta=$io_funciones_sob->uf_obtenervalor("txtdencuenta".$li,"");
$ldec_baseaux=str_replace(".","",$ldec_baseimp);
$ldec_baseaux=str_replace(",",".",$ldec_baseaux);
if($lb_chk==1)
{
if ($ldec_baseaux>0)
{
$ldec_monto = $io_formula->uf_evaluar_formula($ls_formula,$ldec_baseaux);
}
else
{
$ldec_monto = 0;
}
$ldec_monto=round($ldec_monto,2);
$lo_object[$li][1]="<input type=checkbox name=chk".$li." id=chk".$li." class=sin-borde onClick='javascript:ue_calcular($li);' checked>";
}
else
{
$lo_object[$li][1]="<input type=checkbox name=chk".$li." id=chk".$li." class=sin-borde onClick='javascript:ue_calcular($li);' >";
$ldec_monto = 0;
}
$lo_object[$li][2]="<input type=text name=txtcodestpro".$li." class=sin-borde style=text-align:center size=37 value='".$ls_codestpro."' readonly><input type=hidden name=txtformula".$li." value='".$ls_formula."'>";
$lo_object[$li][3]="<input type=text name=txtspgcuenta".$li." class=sin-borde style=text-align:center size=16 value='".$ls_spgcuenta."' readonly><input type=hidden name=txtscgcuenta".$li." value='".$ls_scgcuenta."'><input type=hidden name=txtdenscgcuenta".$li." value='".$ls_denscg."'>";
$lo_object[$li][4]="<input type=text name=txtbaseimp".$li." class=sin-borde style=text-align:right size=20 value='".number_format($ldec_baseaux,2,",",".")."' onBlur='javascript:uf_format(this,true,$li);' onKeyPress=return(ue_formatonumero(this,'.',',',event));>";
$lo_object[$li][5]="<input type=text name=txtmonto".$li." class=sin-borde style=text-align:right size=20 value='".number_format($ldec_monto,2,",",".")."' readonly>";
$lo_object[$li][6]="<input type=text name=txtdencuenta".$li." class=sin-borde style=text-align:left size=50 value='".$ls_dencuenta."' readonly>";
}
if($li==0)
{
$io_mensajes->uf_mensajes_ajax("Informacion","No hay datos para mostrar",true,"javascript: ue_close();");
}
// Titulos del Grid de Bienes
$lo_title[1]=" ";
$lo_title[2]="Codigo Programatico";
$lo_title[3]="Codigo Estadistico";
$lo_title[4]="Base Imponible";
$lo_title[5]="Monto";
$lo_title[6]="Denominación";
print "<input name=totalrows type=hidden id=totalrows value=".($li-1).">";
print "<input name=selected type=hidden id=selected value=0>";
$io_grid->makegrid(($li-1),$lo_title,$lo_object,758,"Catalogo de Cargos","grid");
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}
}
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////// Fin Operacion Nuevo ///////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////// Operaciones de Insercion y Actualización //////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if ($ls_operacion == "ue_guardar") {
$lb_existe = $io_otroscreditos->uf_select_otroscreditos($ls_codemp, $ls_codigo);
if ($lb_existe) {
if ($ls_estatus == "NUEVO") {
$io_msg->message("El Código del Crédito ya existe !!!");
$lb_valido = false;
} elseif ($ls_estatus == "GRABADO") {
$lb_valfor = $io_formula->uf_evaluar_formula($ls_formula, 10000);
if ($lb_valfor) {
if (array_key_exists("chklibcompras", $_POST)) {
$li_estlibcompras = $_POST["chklibcompras"];
$lr_datos["estlibcompras"] = $li_estlibcompras;
$ls_estlibcompras = "checked";
} else {
$li_estlibcompras = 0;
$lr_datos["estlibcompras"] = $li_estlibcompras;
$ls_estlibcompras = "";
}
$lb_valido = $io_otroscreditos->uf_update_otroscreditos($ls_codemp, $lr_datos, $li_estmodest, $la_seguridad, $ls_estcla);
if ($lb_valido) {
$io_sql->commit();
$io_msg->message("Registro Actualizado !!!");
$ls_codigo = $io_funciondb->uf_generar_codigo($lb_empresa, $ls_codemp, 'sigesp_cargos', 'codcar');
