function uf_print_otroscreditos()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_otroscreditos
// Access: private
// Arguments:
// Description: Método que inprime el resultado de la busqueda de los creditos a aplicar en un compromiso en particular
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 15/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_funciones_sob, $io_grid, $io_ds_cargos;
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
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/class_datastore.php");
$io_ds_cargos=new class_datastore(); // Datastored de cuentas contables
require_once("sigesp_sob_c_recepcion.php");
$io_recepcion=new sigesp_sob_c_recepcion("../../");
$ls_compromiso=$_POST['compromiso'];
$li_baseimponible=$_POST['baseimponible'];
$ls_procededoc=$_POST['procededoc'];
$ls_codemp=$_SESSION['la_empresa']['codemp'];
$ls_orden=$_POST['orden'];
$ls_campoorden=$_POST['campoorden'];
$ls_tipo=$_POST['tipo'];
$ls_parcial=$_POST['parcial'];
$li_fila=0;
$ls_sql="SELECT sigesp_cargos.codcar, sigesp_cargos.dencar, sigesp_cargos.codestpro, sigesp_cargos.spg_cuenta,".
" sigesp_cargos.formula, spg_cuentas.sc_cuenta, spg_cuentas.estcla, sigesp_cargos.porcar ".
" FROM sigesp_cargos, spg_cuentas".
" WHERE sigesp_cargos.codemp='".$ls_codemp."'".
" AND sigesp_cargos.codemp=spg_cuentas.codemp".
" AND substr(sigesp_cargos.codestpro,1,25) = spg_cuentas.codestpro1 ".
" AND substr(sigesp_cargos.codestpro,26,25) = spg_cuentas.codestpro2 ".
" AND substr(sigesp_cargos.codestpro,51,25) = spg_cuentas.codestpro3 ".
" AND substr(sigesp_cargos.codestpro,76,25) = spg_cuentas.codestpro4 ".
" AND substr(sigesp_cargos.codestpro,101,25) = spg_cuentas.codestpro5 ".
" AND sigesp_cargos.spg_cuenta=spg_cuentas.spg_cuenta ".
" ORDER BY sigesp_cargos.codcar";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Otros Créditos ","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
$lo_title[1]=" ";
$lo_title[2]=utf8_encode("Código");
$lo_title[3]=utf8_encode("Denominación");
$lo_object[1][1]="";
$lo_object[1][2]="";
$lo_object[1][3]="";
$lo_object[1][4]="";
$lo_object[1][5]="";
if ($ls_tipo=='CMPRET')
{
$lo_title[4]="Porcentaje";
$lo_title[5]=utf8_encode("Fórmula");
}
else
{
$lo_title[4]="Base Imponible";
$lo_title[5]="Monto Impuesto";
$lo_title[6]="Monto Ajuste";
$lo_object[1][6]="";
}
if(array_key_exists("cargos",$_SESSION))
{
$io_ds_cargos->data=$_SESSION["cargos"];
}
else
{
$lb_valido=$io_recepcion->uf_load_cargos_compromiso($ls_compromiso,$ls_procededoc,&$io_ds_cargos);
}
while($row=$io_sql->fetch_row($rs_data))
{
$lb_existe=true;
$ls_codcar=$row["codcar"];
$ls_dencar=$row["dencar"];
$ls_formula=$row["formula"];
$ls_codestpro=$row["codestpro"];
$ls_estcla=$row["estcla"];
$ls_spgcuenta=trim($row["spg_cuenta"]);
$ls_scgcuenta=trim($row["sc_cuenta"]);
$li_porcar=$row["porcar"];
$ls_activo="";
$li_basimp=number_format($li_baseimponible,2,",",".");
$li_monimp="0,00";
$ls_codfuefin="--";
$li_row=$io_ds_cargos->findValues(array('codcar'=>$ls_codcar,'nrocomp'=>$ls_compromiso,'procededoc'=>$ls_procededoc),"codcar");
if($li_row>0)
{
$ls_activo="checked";
$li_basimp=number_format($io_ds_cargos->getValue("baseimp",$li_row),2,",",".");
$li_monimp=number_format($io_ds_cargos->getValue("monimp",$li_row),2,",",".");
$ls_codfuefin=$io_ds_cargos->getValue("codfuefin",$li_row);
}
else
{
$li_row=$io_ds_cargos->findValues(array('codpro'=>$ls_codestpro,'cuenta'=>$ls_spgcuenta),"codpro");
if($li_row>0)
{
$ls_codfuefin=$io_ds_cargos->getValue("codfuefin",$li_row);
}
}
if($ls_parcial=="1")
{
$li_row=$io_ds_cargos->findValues(array('codpro'=>$ls_codestpro,'cuenta'=>$ls_spgcuenta),"codpro");
if($li_row==-1)
{
$lb_existe=false;
}
else
{
$ls_codfuefin=$io_ds_cargos->getValue("codfuefin",$li_row);
}
}
if($lb_existe && empty($ls_tipo))
{
$li_fila=$li_fila+1;
$lo_object[$li_fila][1]="<input name=chkcargos".$li_fila." type=checkbox id=chkcargos".$li_fila." class=sin-borde value='1' onClick=ue_calcular('".$li_fila."') ".$ls_activo.">";
$lo_object[$li_fila][2]="<input name=txtcodcar".$li_fila." type=text id=txtcodcar".$li_fila." class=sin-borde style=text-align:center size=8 value='".$ls_codcar."' readonly>";
$lo_object[$li_fila][3]="<input name=txtdencar".$li_fila." type=text id=txtdencar".$li_fila." class=sin-borde style=text-align:center size=30 value='".$ls_dencar."' readonly>";
$lo_object[$li_fila][4]="<input name=txtbaseimp".$li_fila." type=text id=txtbaseimp".$li_fila." class=sin-borde style=text-align:right size=23 onBlur=ue_calcular('".$li_fila."'); onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_basimp."' >";
$lo_object[$li_fila][5]="<input name=txtmonimp".$li_fila." type=text id=txtmonimp".$li_fila." class=sin-borde style=text-align:right size=23 value='".$li_monimp."' readonly>";
$lo_object[$li_fila][6]="<input name=txtmonaju".$li_fila." type=text id=txtmonaju".$li_fila." class=sin-borde style=text-align:right size=6 onKeyPress=return(ue_formatonumero_negativo(this,'.',',',event)); value='0,00'>".
"<input name=formula".$li_fila." type=hidden id=formula".$li_fila." value='".$ls_formula."'>".
"<input name=codestpro".$li_fila." type=hidden id=codestpro".$li_fila." value='".$ls_codestpro."'>".
"<input name=spgcuenta".$li_fila." type=hidden id=spgcuenta".$li_fila." value='".$ls_spgcuenta."'>".
"<input name=sccuenta".$li_fila." type=hidden id=sccuenta".$li_fila." value='".$ls_scgcuenta."'>".
"<input name=estcla".$li_fila." type=hidden id=estcla".$li_fila." value='".$ls_estcla."'>".
"<input name=porcar".$li_fila." type=hidden id=porcar".$li_fila." value='".$li_porcar."'>".
"<input name=procededoc".$li_fila." type=hidden id=procededoc".$li_fila." value='".$ls_procededoc."'>".
"<input name=codfuefin".$li_fila." type=hidden id=codfuefin".$li_fila." value='".$ls_codfuefin."'>";
}
elseif($ls_tipo=='CMPRET')
{
$li_fila++;
$lo_object[$li_fila][1]="<input name=radiocargos type=radio id=radiocargos".$li_fila." class=sin-borde value='1'>";
$lo_object[$li_fila][2]="<input name=txtcodcar".$li_fila." type=text id=txtcodcar".$li_fila." class=sin-borde style=text-align:center size=7 value='".trim($ls_codcar)."' readonly>";
$lo_object[$li_fila][3]="<input name=txtdencar".$li_fila." type=text id=txtdencar".$li_fila." class=sin-borde style=text-align:left size=60 value='".$ls_dencar."' readonly>";
$lo_object[$li_fila][4]="<input name=porcar".$li_fila." type=text id=porcar".$li_fila." class=sin-borde style=text-align:right size=7 value='".number_format($li_porcar,2,',','.')."' readonly>";
$lo_object[$li_fila][5]="<input name=formula".$li_fila." type=text id=formula".$li_fila." class=sin-borde style=text-align:left size=20 value='".$ls_formula."' readonly>";
}
}
$io_sql->free_result($rs_data);
if ($ls_tipo=='CMPRET')
{
echo"<table width=534 border=0 align=center cellpadding=0 cellspacing=0>";
echo "<tr>";
echo "<td width=532 colspan=6 align=center bordercolor=#FFFFFF>";
echo "<div align=center class=Estilo2>";
echo "<p align=right> <a href='javascript: uf_aceptar_creditos($li_fila);'><img src='../shared/imagebank/tools20/aprobado.gif' alt='Aceptar' width=20 height=20 border=0>Agregar Otros Crédito</a></p>";
echo "</div></td>";
echo "</tr>";
echo "</table>";
}
$io_grid->makegrid($li_fila,$lo_title,$lo_object,580,"","gridcargos");
if ($ls_tipo!='CMPRET')
{
print " <table width='580' border='0' align='center' cellpadding='0' cellspacing='0'>";
print " <tr>";
print " <td align='right'> ";
print " <a href='javascript:ue_ajustar();'><img src='../shared/imagebank/tools20/actualizar.jpg' width='20' height='20' border='0' title='Ajustar'>Ajustar</a> ";
print " <a href='javascript:ue_aceptar();'><img src='../shared/imagebank/tools20/ejecutar.gif' width='20' height='20' border='0' title='Procesar'>Procesar</a> ";
print " <a href='javascript:ue_cerrar();'><img src='../shared/imagebank/tools/eliminar.gif' width='20' height='20' border='0' title='Canccelar'>Cancelar</a> ";
print " </td>";
print " </tr>";
print " </table>";
}
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_otroscreditos
