<?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;
