function uf_load_servicios($as_numordcom,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_servicios
// Access: private
// Arguments: as_numordcom ---> numero de la orden de compra
// as_tipsol ---> tipo de la solicitud si es sep o soc
// Description: Método que busca los servicios de la orden de compra y los 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;
// Titulos del Grid de Servicios
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="Precio";
$lo_title[5]="Sub-Total";
$lo_title[6]="Créditos";
$lo_title[7]="Total";
$lo_title[8]="";
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_servicios($as_numordcom,$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[9]="";
}
}
while($row=$io_registro_orden->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_codser = trim($row["codser"]);
$ls_denser = $row["denser"];
$li_canser = $row["canser"];
$li_preser = $row["monuniser"];
$li_subtotser = $li_preser*$li_canser;
$li_totser = $row["montotser"];
$li_carser = $li_totser-$li_subtotser;
$ls_spgcuenta = trim($row["spg_cuenta"]);
$ls_codestpro = trim($row["codestpro1"]).trim($row["codestpro2"]).trim($row["codestpro3"]).trim($row["codestpro4"]).trim($row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
$ls_numsolord = trim($row["numsol"]);
$ls_coduniadmsep = trim($row["coduniadm"]);
$ls_denuniadmsep = $row["denuniadm"];
$li_canser=number_format($li_canser,2,",",".");
$li_preser=number_format($li_preser,2,",",".");
$li_subtotser=number_format($li_subtotser,2,",",".");
$li_carser=number_format($li_carser,2,",",".");
$li_totser=number_format($li_totser,2,",",".");
$ls_codproser=$ls_codestpro;
$ls_cuentaser=$ls_spgcuenta;
$ls_estclaser=$ls_estcla;
$lo_object[$li_fila][1]="<input type=text name=txtcodser".$li_fila." id=txtcodser".$li_fila." class=sin-borde style=text-align:center size=15 value='".$ls_codser."' readonly>".
"<input type=hidden name=txtnumsolord".$li_fila." id=txtnumsolord".$li_fila." value='".$ls_numsolord."'>".
"<input type=hidden name=txtcoduniadmsep".$li_fila." id=txtcoduniadmsep".$li_fila." value='".$ls_coduniadmsep."'>".
"<input type=hidden name=txtcodgas".$li_fila." id=txtcodgas".$li_fila." value='".$ls_codestpro."' readonly>".
"<input type=hidden name=txtcodspg".$li_fila." id=txtcodspg".$li_fila." value='".$ls_spgcuenta."' readonly>".
"<input type=hidden name=txtstatus".$li_fila." id=txtstatus".$li_fila." value='".$ls_estcla."' readonly>";
$lo_object[$li_fila][2]="<input type=text name=txtdenser".$li_fila." class=sin-borde style=text-align:left size=30 value='".$ls_denser."' readonly>".
"<input type=hidden name=txtdenuniadmsep".$li_fila." id=txtdenuniadmsep".$li_fila." value='".$ls_denuniadmsep."'>".
"<input type=hidden name=hidcodestpro".$li_fila." id=hidcodestpro".$li_fila." value='".$ls_codestpro."'>".
"<input type=hidden name=estcla".$li_fila." id=estcla".$li_fila." value='".$ls_estcla."'>";
$lo_object[$li_fila][3]="<input type=text name=txtcanser".$li_fila." class=sin-borde style=text-align:right size=9 value='".$li_canser."' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
$lo_object[$li_fila][4]="<input type=text name=txtpreser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_preser."' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
$lo_object[$li_fila][5]="<input type=text name=txtsubtotser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_subtotser."' readonly>";
$lo_object[$li_fila][6]="<input type=text name=txtcarser".$li_fila." class=sin-borde style=text-align:right size=10 value='".$li_carser."' readonly>";
$lo_object[$li_fila][7]="<input type=text name=txttotser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_totser."' readonly>".
"<input type=hidden name=txtspgcuenta".$li_fila." value='".$ls_spgcuenta."'>";
// $lo_object[$li_fila][1]="<input type=text name=txtcodser".$li_fila." id=txtcodser".$li_fila." class=sin-borde style=text-align:center size=15 value='".$ls_codser."' readonly><input type=hidden name=txtnumsolord".$li_fila." id=txtnumsolord".$li_fila." value='".$ls_numsolord."'><input type=hidden name=txtcoduniadmsep".$li_fila." id=txtcoduniadmsep".$li_fila." value='".$ls_coduniadmsep."'>";
// $lo_object[$li_fila][2]="<input type=text name=txtdenser".$li_fila." class=sin-borde style=text-align:left size=30 value='".$ls_denser."' readonly><input type=hidden name=txtdenuniadmsep".$li_fila." id=txtdenuniadmsep".$li_fila." value='".$ls_denuniadmsep."'>".
// "<input type=hidden name=hidcodestpro".$li_fila." id=hidcodestpro".$li_fila." value='".$ls_codestpro."'>".
// "<input type=hidden name=txtcodgas".$li_fila." id=txtcodgas".$li_fila." value='".$ls_codproser."' readonly>".
// "<input type=text name=txtcodspg".$li_fila." id=txtcodspg".$li_fila." value='".$ls_cuentaser."' readonly>".
// "<input type=hidden name=txtstatus".$li_fila." id=txtstatus".$li_fila." value='".$ls_estclaser."' readonly>".
// "<input type=hidden name=estcla".$li_fila." id=estcla".$li_fila." value='".$ls_estcla."'>";
// $lo_object[$li_fila][3]="<input type=text name=txtcanser".$li_fila." class=sin-borde style=text-align:right size=9 value='".$li_canser."' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
// $lo_object[$li_fila][4]="<input type=text name=txtpreser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_preser."' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
// $lo_object[$li_fila][5]="<input type=text name=txtsubtotser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_subtotser."' readonly>";
// $lo_object[$li_fila][6]="<input type=text name=txtcarser".$li_fila." class=sin-borde style=text-align:right size=10 value='".$li_carser."' readonly>";
// $lo_object[$li_fila][7]="<input type=text name=txttotser".$li_fila." class=sin-borde style=text-align:right size=15 value='".$li_totser."' readonly>".
// "<input type=hidden name=txtspgcuenta".$li_fila." value='".$ls_spgcuenta."'> ";
$lo_object[$li_fila][8] ="<a href=javascript:ue_delete_servicios('".$li_fila."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0><input type=hidden name=hidspgcuentas".$li_fila." value=''></a>";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][9]="<a href=javascript:ue_cambiar_partida_servicio('".$li_fila."','".$ls_codproser."','".$ls_cuentaser."','".$ls_estclaser."','3');><img src=../shared/imagebank/mas.gif title=Cambiar width=14 height=14 border=0></a>";
}
}
}
$li_fila++;
$lo_object[$li_fila][1]="<input type=text name=txtcodser".$li_fila." id=txtcodser".$li_fila." class=sin-borde style=text-align:center size=15 value='' readonly><input type=hidden name=txtnumsolord".$li_fila." id=txtnumsolord".$li_fila." value=''><input type=hidden name=txtcoduniadmsep".$li_fila." id=txtcoduniadmsep".$li_fila." value=''>";
$lo_object[$li_fila][2]="<input type=text name=txtdenser".$li_fila." class=sin-borde style=text-align:left size=30 value='' readonly><input type=hidden name=txtdenuniadmsep".$li_fila." id=txtdenuniadmsep".$li_fila." value=''><input type=hidden name=hidcodestpro".$li_fila." id=hidcodestpro".$li_fila." value=''><input type=hidden name=estcla".$li_fila." id=estcla".$li_fila." value=''>";
$lo_object[$li_fila][3]="<input type=text name=txtcanser".$li_fila." class=sin-borde style=text-align:right size=9 value='' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
$lo_object[$li_fila][4]="<input type=text name=txtpreser".$li_fila." class=sin-borde style=text-align:right size=15 value='' onKeyPress=return(ue_formatonumero(this,'.',',',event)); onBlur=ue_procesar_monto('S','".$li_fila."');>";
$lo_object[$li_fila][5]="<input type=text name=txtsubtotser".$li_fila." class=sin-borde style=text-align:right size=15 value='' readonly>";
$lo_object[$li_fila][6]="<input type=text name=txtcarser".$li_fila." class=sin-borde style=text-align:right size=10 value='' readonly>";
$lo_object[$li_fila][7]="<input type=text name=txttotser".$li_fila." class=sin-borde style=text-align:right size=15 value='' readonly>".
"<input type=hidden name=txtspgcuenta".$li_fila." value=''> ";
$lo_object[$li_fila][8] ="";
if ($ls_estmodpart==1)
{
if($as_tipsol=="SOC")
{
$lo_object[$li_fila][9]=" ";
}
}
print "<p> </p>";
print " <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'";
print " <tr>";
print " <td height='22' colspan='3' align='left'><a href='javascript:ue_catalogo_servicios();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Detalle Servicios'>Agregar Detalle Servicios</a></td>";
print " </tr>";
print " </table>";
unset($io_registro_orden);
$io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Detalle de Servicios","gridservicios");
}// end function uf_load_servicios
