<?php session_start(); if(!array_key_exists("la_logusr",$_SESSION)) { print "<script language=JavaScript>"; print "close();"; print "opener.document.formulario.submit();"; print "</script>"; } require_once("class_folder/sigesp_sep_c_solicitud.php"); $io_sep=new sigesp_sep_c_solicitud("../"); require_once("class_folder/class_funciones_sep.php"); $io_fun_sep=new class_funciones_sep(); $ls_tipo=$io_fun_sep->uf_obtenertipo(); $ld_fecdes="01/".date("m")."/".date("Y"); $ld_fechas=date("d/m/Y"); $ls_coduniadm = $io_fun_sep->uf_obtenervalor("txtcoduniadm",""); $ls_denuniadm = $io_fun_sep->uf_obtenervalor("txtdenuniadm",""); $ls_tipodestino = $io_fun_sep->uf_obtenervalor("cmbtipdes","-"); $ls_codprovben = $io_fun_sep->uf_obtenervalor("txtcodigo",""); $ls_nomprovben = $io_fun_sep->uf_obtenervalor("txtnombre",""); unset($io_fun_sep); ?> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Catálogo de Solicitudes de Ejecución Presupuestaria</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!--
} require_once("class_folder/class_funciones_sep.php"); $io_funciones_sep=new class_funciones_sep(); $ls_denart=$io_funciones_sep->uf_obtenervalor_get("denart",""); $ls_codgas=$io_funciones_sep->uf_obtenervalor_get("codgas",""); $ls_codspg=$io_funciones_sep->uf_obtenervalor_get("codspg",""); $ls_codart=$io_funciones_sep->uf_obtenervalor_get("codart",""); $ls_status=$io_funciones_sep->uf_obtenervalor_get("estatus",""); $ls_lugar=$io_funciones_sep->uf_obtenervalor_get("lugar",""); $ls_codgascre=$io_funciones_sep->uf_obtenervalor_get("codgascre",""); $ls_codspgcre=$io_funciones_sep->uf_obtenervalor_get("codspgcre",""); $ls_statuscre=$io_funciones_sep->uf_obtenervalor_get("estatuscre",""); $ls_fila=$io_funciones_sep->uf_obtenervalor_get("fila","0"); $ls_unidad=$io_funciones_sep->uf_obtenervalor_get("unidad","0"); require_once("class_folder/sigesp_sep_c_solicitud.php"); $ls_solicitud=new sigesp_sep_c_solicitud("../"); if ($ls_codgascre=="") { $ls_valor=$ls_solicitud->uf_buscar_cuenta_unidad($ls_unidad, $ls_codspg); } else { $ls_valor=$ls_solicitud->uf_buscar_cuenta_unidad($ls_unidad, $ls_codspgcre); $ls_codspg=$ls_codspgcre; print $ls_codspg; } if (($ls_valor==0)&&($ls_codgascre=="")) { print("<script language=JavaScript>"); print(" alert('No puede realizar la Modificación Presuestaria ya que la cuenta de Gasto no esta asociada en la Unidad Ejecutora seleccionada.');");
function uf_load_cuentas_cargo($as_numsol,$as_tipo) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_load_cuentas_cargo // Access: private // Arguments: as_numsol // Número de Solicitud // as_tipo // Tipo de SEP si es de bienes ó de servicios // Description: Método que busca las cuentas asociadas a los cargos de una solicitud // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 17/03/2007 Fecha Última Modificación : ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// global $io_grid, $io_funciones_sep, $la_cuentacargo; global $li_longestpro1,$li_longestpro2,$li_longestpro3,$li_longestpro4,$li_longestpro5; global $li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,$li_loncodestpro4,$li_loncodestpro5; // Titulos el Grid $lo_title[1]="Cargo"; $lo_title[2]="Estructura Programatica"; $lo_title[3]="Cuenta"; $lo_title[4]="Monto"; $lo_title[5]=""; $ls_modalidad=$_SESSION["la_empresa"]["estmodest"]; switch($ls_modalidad) { case "1": // Modalidad por Proyecto $li_len1=20; $li_len2=6; $li_len3=3; $li_len4=2; $li_len5=2; break; case "2": // Modalidad por Presupuesto $li_len1=2; $li_len2=2; $li_len3=2; $li_len4=2; $li_len5=2; break; } require_once("sigesp_sep_c_solicitud.php"); $io_solicitud=new sigesp_sep_c_solicitud("../../"); $rs_data = $io_solicitud->uf_load_cuentas_cargo($as_numsol); $li_fila=0; while($row=$io_solicitud->io_sql->fetch_row($rs_data)) { $li_fila=$li_fila+1; $ls_codcargo=$row["codcar"]; $ls_codpro=$row["codestpro1"].$row["codestpro2"].$row["codestpro3"].$row["codestpro4"].$row["codestpro5"]; $ls_cuenta=$row["spg_cuenta"]; $ls_estcla=$row["estcla"]; $li_moncue=number_format($row["total"],2,",","."); $ls_codest1=substr($ls_codpro,0,25); $ls_codest1=substr($ls_codest1,$li_longestpro1-1,$li_loncodestpro1); $ls_codest2=substr($ls_codpro,25,25); $ls_codest2=substr($ls_codest2,$li_longestpro2-1,$li_loncodestpro2); $ls_codest3=substr($ls_codpro,50,25); $ls_codest3=substr($ls_codest3,$li_longestpro3-1,$li_loncodestpro3); $ls_codest4=substr($ls_codpro,75,25); $ls_codest4=substr($ls_codest4,$li_longestpro4-1,$li_loncodestpro4); $ls_codest5=substr($ls_codpro,100,25); $ls_codest5=substr($ls_codest5,$li_longestpro5-1,$li_loncodestpro5); $ls_programatica=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5; $lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=10 value='".$ls_codcargo."' readonly>"; $lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=45 value='".$ls_programatica."' readonly>". "<input name=txtestclacar".$li_fila." type=hidden size='2' id=txtestclacar".$li_fila." value='".$ls_estcla."'>"; $lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='".$ls_cuenta."' readonly>"; $lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_moncue."' >"; $lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>". "<input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value='".$ls_estcla."'>". "<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_programatica."'>"; } $li_fila=$li_fila+1; $lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=10 value='' readonly>"; $lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=45 value='' readonly>"."<input name=txtestclacar".$li_fila." type=hidden size='2' id=txtestclacar".$li_fila." value=''>"; $lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='' readonly>"; $lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 value='' readonly>"; $lo_object[$li_fila][5]="<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value=''>"; $io_grid->makegrid($li_fila,$lo_title,$lo_object,840,"Cuentas Cargos","gridcuentascargos"); unset($io_solicitud); }// end function uf_load_cuentas_cargo
<!-- #Layer1 { position:absolute; left:9px; top:151px; width:214px; height:28px; z-index:1; } --> </style> </head> <body> <?php require_once("class_folder/sigesp_sep_c_solicitud.php"); $io_sep=new sigesp_sep_c_solicitud("../"); uf_limpiarvariables(); switch ($ls_operacion) { case "NUEVO": require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php"); $io_keygen= new sigesp_c_generar_consecutivo(); $ls_numsol= $io_keygen->uf_generar_numero_nuevo("SEP","sep_solicitud","numsol","SEPSPC",15,"","",""); if($ls_numsol==false) { print "<script language=JavaScript>"; print "location.href='sigespwindow_blank.php'"; print "</script>"; } unset($io_keygen); break;