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