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