function uf_load_creditos($as_titulo,$as_numordcom,$as_tipo,$as_tipsol,$as_estcondat)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numordcom ---> numero de la orden de compra
// as_titulo ---> titulo de bienes o servicios
// as_tipo ---> tipo de la orden de compra si es de bienes ó de servicios
// Description: Método que busca los creditos de una orden de compra y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $la_cuentacargo, $li_cuenta;
global $io_grid, $io_funciones_soc, $la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
// Titulos del Grid
$lo_title[1]=$as_titulo;
$lo_title[2]="Código";
$lo_title[3]="Denominación";
$lo_title[4]="Base Imponible";
$lo_title[5]="Monto Otros Créditos";
$lo_title[6]="Sub-Total";
$lo_object[0]="";
switch($as_tipo)
{
case "B": // Si es de Bienes de la orden de compra
$ls_tabla = "soc_dta_cargos";
$ls_campo = "codart";
break;
case "S": // Si es de Servicios de la orden de compra
$ls_tabla = "soc_dts_cargos";
$ls_campo = "codser";
break;
}
$ls_codigoartser="";
require_once("sigesp_soc_c_registro_orden_compra.php");
$io_registro_orden=new sigesp_soc_c_registro_orden_compra("../../");
$rs_data = $io_registro_orden->uf_load_cargos($as_numordcom,$ls_tabla,$ls_campo,"numordcom",$ls_codigoartser,$as_tipsol);
$li_fila=0;
$ls_estmodpart=$io_registro_orden->uf_validar_cambio_imputacion();//verifica si tiene permiso para modificar las partidas
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_title[7]="";
}
}
while($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_codservic = trim($row["codigo"]);
$ls_codcar = trim($row["codcar"]);
$ls_dencar = $row["dencar"];
$li_bascar = number_format($row["monbasimp"],2,",",".");
$li_moncar = number_format($row["monimp"],2,",",".");
$li_subcargo = number_format($row["monto"],2,",",".");
$ls_spg_cuenta = $row["spg_cuenta"];
$ls_formula = $row["formula"];
$ls_numsep = trim($row["numsol"]);
$ls_codestpro1 = trim($row["codestpro1"]);
$ls_codestpro2 = trim($row["codestpro2"]);
$ls_codestpro3 = trim($row["codestpro3"]);
$ls_codestpro4 = trim($row["codestpro4"]);
$ls_codestpro5 = trim($row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
$ls_codprog=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
if($as_tipsol=="SOC")
{
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
if ($li_estmodest=='2')
{
$ls_codestpro4 = substr($ls_codestpro4,-$li_loncodestpro4);
$ls_codestpro5 = substr($ls_codestpro5,-$li_loncodestpro5);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
$ls_cuenta=$ls_spg_cuenta;
$ls_codestpre=$ls_codprog;
$lo_object[$li_fila][1]="<input name=txtcodservic".$li_fila." type=text id=txtcodservic".$li_fila." class=sin-borde size=22 style=text-align:center value='".$ls_codservic."' readonly>".
"<input name=hidnumsepcar".$li_fila." type=hidden id=hidnumsepcar".$li_fila." value='".$ls_numsep."'>".
"<input type=hidden name=txtcodgascre".$li_fila." id=txtcodgascre".$li_fila." value='".$ls_codestpre."' readonly>".
"<input type=hidden name=txtcodspgcre".$li_fila." id=txtcodspgcre".$li_fila." value='".$ls_cuenta."' readonly>".
"<input type=hidden name=txtstatuscre".$li_fila." id=txtstatuscre".$li_fila." value='".$ls_estcla."' readonly>";
$lo_object[$li_fila][2]="<input name=txtcodcar".$li_fila." type=text id=txtcodcar".$li_fila." class=sin-borde size=10 style=text-align:center value='".$ls_codcar."' readonly>";
$lo_object[$li_fila][3]="<input name=txtdencar".$li_fila." type=text id=txtdencar".$li_fila." class=sin-borde size=36 style=text-align:left value='".$ls_dencar."' readonly>";
$lo_object[$li_fila][4]="<input name=txtbascar".$li_fila." type=text id=txtbascar".$li_fila." class=sin-borde size=17 style=text-align:right value='".$li_bascar."' readonly>";
$lo_object[$li_fila][5]="<input name=txtmoncar".$li_fila." type=text id=txtmoncar".$li_fila." class=sin-borde size=13 style=text-align:right value='".$li_moncar."' readonly>";
$lo_object[$li_fila][6]="<input name=txtsubcargo".$li_fila." type=text id=txtsubcargo".$li_fila." class=sin-borde size=17 style=text-align:right value='".$li_subcargo."' readonly>".
"<input name=cuentacargo".$li_fila." type=hidden id=cuentacargo".$li_fila." value='".$ls_spg_cuenta."'>".
"<input name=codprogcargo".$li_fila." type=hidden id=codprogcargo".$li_fila." value='".$ls_codprog."'>".
"<input type=hidden name=estclacargo".$li_fila." id=estclacargo".$li_fila." value='".$ls_estcla."'>".
"<input name=formulacargo".$li_fila." type=hidden id=formulacargo".$li_fila." value='".$ls_formula."'>";
// $lo_object[$li_fila][7]="<a href=javascript:ue_delete_cargos('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][7]="<a href=javascript:ue_cambiar_creditos('".$li_fila."','".$ls_codprog."','".$ls_cuenta."','".$ls_estcla."','2');><img src=../shared/imagebank/mas.gif title=Cambiar width=14 height=14 border=0></a>";
}
}
}
}
print "<p> </p>";
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Otros Créditos","gridcreditos");
unset($io_registro_orden);
print "<table width='840' height='22' border='0' align='center' cellpadding='0' cellspacing='0'>";
print " <tr>";
print " <td width='175' height='22' align='right'><div align='left'><input name='btncrear' type='button' class='boton' id='btncerrar' value='Crear Asiento' onClick='javascript: ue_crear_asiento();'></div></td>";
print " </tr>";
print "</table>";
}// end function uf_print_creditos
