";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_loncodestpro1=$_SESSION["la_empresa"]["loncodestpro1"];
$ls_loncodestpro2=$_SESSION["la_empresa"]["loncodestpro2"];
$ls_loncodestpro3=$_SESSION["la_empresa"]["loncodestpro3"];
$ls_loncodestpro4=$_SESSION["la_empresa"]["loncodestpro4"];
$ls_loncodestpro5=$_SESSION["la_empresa"]["loncodestpro5"];
$la_data = $_SESSION["la_empresa"];
$li_estmodest = $la_data["estmodest"];
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_sep.php");
$io_fun_sep=new class_funciones_sep();
$io_fun_sep->uf_load_seguridad("SEP","sigesp_sep_p_solicitud.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte=$io_fun_sep->uf_select_config("SEP","REPORTE","FORMATO_SEP","sigesp_sep_rfs_solicitudes.php","C");
require_once("class_folder/class_funciones_sep.php");
$fun_sep=new class_funciones_sep();
$lb_cierrescg = $io_fun_sep->uf_chkciespg();
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
$ruta = '../';
require_once($ruta."cfg/class_folder/covensol_cfg_c_configuracion.php");
$ObjCfg = new covensol_cfg_c_configuracion();
$param['codsis'] = 'SEP';
$param['seccion'] = 'CONFIG';
$param['entry'] = 'MODIFICAR_UNIEJE_SEP';
$ObjCfg->ModUniEjeSEP = $ObjCfg->select_config($param);
if(!$ObjCfg->ModUniEjeSEP){$ObjCfg->ModUniEjeSEP='0';}
$param['codsis'] = 'SEP';
$param['seccion'] = 'CONFIG';
$param['entry'] = 'MODIFICAR_PROV_SEP';
$ObjCfg->ModProvSEP = $ObjCfg->select_config($param);
if(!$ObjCfg->ModProvSEP){$ObjCfg->ModProvSEP='0';}
//--------------------------------------------------------------
function uf_limpiarvariables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $ls_estatus,$ld_fecregsol,$ls_numsol,$ls_coduniadm,$ls_denuniadm,$ls_codfuefin,$ls_denfuefin,$ls_tipoformato;
global $ls_codprovben,$ls_nomprovben, $ls_proben,$ls_consol,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5;
global $ls_estcla,$ls_estcla1,$ls_estcla2,$ls_estcla3,$ls_estcla4,$ls_estcla5;
global $ls_operacion,$ls_existe,$io_fun_sep,$li_totrowbienes,$li_totrowservicios,$li_totrowcargos,$ls_codtipsol,$li_totrowcuentas;
global $ls_mes, $ls_parametros,$ls_tipodestino,$ls_estsol,$ls_estapro,$ls_codtipsol,$li_totrowconceptos,$li_totrowcuentascargo,$ls_nombenalt;
global $ls_nombenalt,$ls_distipmat,$ls_distipact,$ls_tipsepbie,$ls_chkmat,$ls_chkact, $ls_tipafeiva,$ls_tipconpro,$ls_numdocori,$ls_consolanu;
$ls_estatus="REGISTRO";
$ls_estsol="R";
$ld_fecregsol=date("d/m/Y");
$ls_numsol="";
$ls_coduniadm="";
$ls_denuniadm="";
$ls_codfuefin="";
$ls_denfuefin="";
$ls_codprovben="";
$ls_nomprovben="";
$ls_proben="";
$ls_consol="";
$ls_consolanu="";
$ls_codestpro1="";
$ls_codestpro2="";
$ls_codestpro3="";
$ls_codestpro4="";
$ls_codestpro5="";
$ls_estcla="";
$ls_tipconpro="";
$ls_estcla1="";
$ls_estcla2="";
$ls_estcla3="";
$ls_estcla4="";
$ls_estcla5="";
$ls_codtipsol="";
$ls_parametros="";
$ls_tipodestino="";
$ls_operacion=$io_fun_sep->uf_obteneroperacion();
$ls_existe=$io_fun_sep->uf_obtenerexiste();
$li_totrowbienes=0;
$li_totrowservicios=0;
$li_totrowconceptos=0;
$li_totrowcargos=0;
$li_totrowcuentas=0;
$li_totrowcuentascargo=0;
$ls_estapro="";
$ls_codtipsol="";
$ls_tipoformato="";
$ls_nombenalt = "";
$ls_distipmat = "disabled";
$ls_distipact = "disabled";
$ls_tipsepbie = "-";
$ls_numdocori="";
$ls_tipafeiva=$_SESSION["la_empresa"]["confiva"];
if (!array_key_exists("radiotipbie",$_POST))
{
$ls_chkmat = $ls_chkact = "";
}
}
//--------------------------------------------------------------
//--------------------------------------------------------------
function uf_load_variables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_load_variables
// Access: private
// Description: Función que carga todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $ld_fecregsol,$ls_numsol,$ls_coduniadm,$ls_denuniadm,$ls_codfuefin,$ls_denfuefin,$ls_tipodestino,$ls_codprovben;
global $ls_nomprovben,$ls_proben,$ls_consol,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5;
global $ls_estcla,$ls_estcla1,$ls_estcla2,$ls_estcla3,$ls_estcla4,$ls_estcla5,$ls_tipsepbie;
global $ls_chkmat,$ls_chkact,$ls_consolanu,$ls_codmon,$ls_denmon,$ls_tascam;
global $ls_codtipsol,$li_subtotal,$li_cargos,$li_total,$li_totrowbienes,$li_totrowservicios,$li_totrowcargos,$li_totrowcuentas;
global $ls_estsol,$io_fun_sep,$li_totrowconceptos,$li_totrowcuentascargo,$ls_modalidad,$ls_nombenalt, $ls_tipafeiva,$ls_tipconpro,$ls_numdocori;
$ls_estsol=$_POST["txtestsol"];
$ld_fecregsol=$io_fun_sep->uf_obtenervalor("txtfecregsol",$_POST["txtfecha"]);
$ls_numsol=$_POST["txtnumsol"];
$ls_codtipsol=$io_fun_sep->uf_obtenervalor("cmbcodtipsol",$_POST["txttipsol"]);
$ls_coduniadm=$_POST["txtcoduniadm"];
$ls_denuniadm=$_POST["txtdenuniadm"];
$ls_codfuefin=$_POST["txtcodfuefin"];
if($ls_codfuefin=="")
{
$ls_codfuefin="--";
}
$ls_denfuefin=$_POST["txtdenfuefin"];
$ls_tipodestino=$_POST["cmbtipdes"];
$ls_codprovben=$_POST["txtcodigo"];
$ls_nomprovben=$_POST["txtnombre"];
if (array_key_exists("radiotipbie",$_POST))
{
$ls_proben=$_POST["txtproben"];
}
else
{
$ls_proben="";
}
$ls_consol = $_POST["txtconsol"];
$ls_consolanu = $_POST["txtconsolanu"];
$ls_codestpro1 = $_POST["txtcodestpro1"];
$ls_codestpro2 = $_POST["txtcodestpro2"];
$ls_codestpro3 = $_POST["txtcodestpro3"];
$ls_codestpro4 = $_POST["txtcodestpro4"];
$ls_codestpro5 = $_POST["txtcodestpro5"];
$ls_modalidad = $_SESSION["la_empresa"]["estmodest"];
$ls_estcla = $_POST["txtestcla"];
$ls_tipconpro = $_POST["txttipconpro"];
$li_totrowbienes=$_POST["totrowbienes"];
$li_totrowservicios=$_POST["totrowservicios"];
$li_totrowconceptos=$_POST["totrowconceptos"];
$li_totrowcargos=$_POST["totrowcargos"];
$li_totrowcuentas=$_POST["totrowcuentas"];
$li_totrowcuentascargo=$_POST["totrowcuentascargo"];
$li_subtotal=$_POST["txtsubtotal"];
$li_cargos=$_POST["txtcargos"];
$li_total=$_POST["txttotal"];
$ls_tipafeiva=$_POST["hidtipafeiva"];
$ls_numdocori=$_POST["txtnumdocori"];
$ls_codmon=$_POST["txtcodmon"];
$ls_denmon=$_POST["txtdenmon"];
$ls_tascam=$_POST["txttascamordcom"];
if(array_key_exists("txtnombenalt",$_POST))
{
$ls_nombenalt=$_POST["txtnombenalt"];
}
else
{
$ls_nombenalt="";
}
$li_catalgo=$_POST["catalogo"];
if (array_key_exists("radiotipbie",$_POST))
{
$ls_tipsepbie = $_POST["radiotipbie"];
$ls_chkmat = $ls_chkact = "";
if ($ls_tipsepbie=='M')
{
$ls_chkmat = 'checked';
}
elseif($ls_tipsepbie=='A')
{
$ls_chkact = 'checked';
}
}
else
{
if ($li_catalgo==1) {
$ls_tipsepbie = $_POST["hidtipbie"];
if ($ls_tipsepbie=='M')
{
$ls_chkmat = 'checked';
}
elseif($ls_tipsepbie=='A')
{
$ls_chkact = 'checked';
}
}
else {
$ls_tipsepbie = "-";
}
}
}
//--------------------------------------------------------------
//--------------------------------------------------------------
function uf_load_data(&$as_parametros)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_load_data
// Access: private
// Description: Función que carga todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $li_subtotal,$li_cargos,$li_total,$li_totrowbienes,$li_totrowservicios,$li_totrowcargos,$li_totrowcuentas;
global $li_totrowservicios,$li_totrowconceptos,$li_totrowcuentascargo;
for ($li_i=1;($li_i<$li_totrowbienes);$li_i++)
{
$ls_codart = $_POST["txtcodart".$li_i];
$ls_denart = $_POST["txtdenart".$li_i];
$li_canart = $_POST["txtcanart".$li_i];
$ls_unidad = $_POST["cmbunidad".$li_i];
$li_preart = $_POST["txtpreart".$li_i];
$li_subtotart = $_POST["txtsubtotart".$li_i];
$li_carart = $_POST["txtcarart".$li_i];
$li_totart = $_POST["txttotart".$li_i];
$ls_spgcuenta = $_POST["txtspgcuenta".$li_i];
$ls_unidadfisica = $_POST["txtunidad".$li_i];
$ls_codgas = $_POST["txtcodgas".$li_i];
$ls_codspg = $_POST["txtcodspg".$li_i];
$ls_estatus = $_POST["txtstatus".$li_i];
$ls_medida = $_POST["txtmedida".$li_i];
$as_parametros = $as_parametros."&txtcodart".$li_i."=".$ls_codart."&txtdenart".$li_i."=".$ls_denart."".
"&txtcanart".$li_i."=".$li_canart."&cmbunidad".$li_i."=".$ls_unidad."&txtmedida".$li_i."=".$ls_medida."".
"&txtpreart".$li_i."=".$li_preart."&txtsubtotart".$li_i."=".$li_subtotart."".
"&txtcarart".$li_i."=".$li_carart."&txttotart".$li_i."=".$li_totart."".
"&txtspgcuenta".$li_i."=".$ls_spgcuenta."&txtunidad".$li_i."=".$ls_unidadfisica."".
"&txtcodgas".$li_i."=".$ls_codgas."&txtcodspg".$li_i."=".$ls_codspg."".
"&txtstatus".$li_i."=".$ls_estatus;
}
$as_parametros=$as_parametros."&totalbienes=".$li_totrowbienes."";
for($li_i=1;($li_i<$li_totrowservicios);$li_i++)
{
$ls_codser=$_POST["txtcodser".$li_i];
$ls_denser=$_POST["txtdenser".$li_i];
$li_canser=$_POST["txtcanser".$li_i];
$li_preser=$_POST["txtpreser".$li_i];
$li_subtotser=$_POST["txtsubtotser".$li_i];
$li_carser=$_POST["txtcarser".$li_i];
$li_totser=$_POST["txttotser".$li_i];
$ls_spgcuenta=$_POST["txtspgcuenta".$li_i];
$ls_codgas= $_POST["txtcodgas".$li_i];
$ls_codspg= $_POST["txtcodspg".$li_i];
$ls_estatus= $_POST["txtstatus".$li_i];
$as_parametros=$as_parametros."&txtcodser".$li_i."=".$ls_codser."&txtdenser".$li_i."=".$ls_denser."".
"&txtcanser".$li_i."=".$li_canser."&txtpreser".$li_i."=".$li_preser."".
"&txtsubtotser".$li_i."=".$li_subtotser."&txtcarser".$li_i."=".$li_carser."".
"&txttotser".$li_i."=".$li_totser."&txtspgcuenta".$li_i."=".$ls_spgcuenta."".
"&txtcodgas".$li_i."=".$ls_codgas."&txtcodspg".$li_i."=".$ls_codspg."".
"&txtstatus".$li_i."=".$ls_estatus;
}
$as_parametros=$as_parametros."&totalservicios=".$li_totrowservicios."";
for($li_i=1;($li_i<$li_totrowconceptos);$li_i++)
{
$ls_codcon=$_POST["txtcodcon".$li_i];
$ls_dencon=$_POST["txtdencon".$li_i];
$li_cancon=$_POST["txtcancon".$li_i];
$li_precon=$_POST["txtprecon".$li_i];
$li_subtotcon=$_POST["txtsubtotcon".$li_i];
$li_carcon=$_POST["txtcarcon".$li_i];
$li_totcon=$_POST["txttotcon".$li_i];
$ls_spgcuenta=$_POST["txtspgcuenta".$li_i];
$ls_codgas= $_POST["txtcodgas".$li_i];
$ls_codspg= $_POST["txtcodspg".$li_i];
$ls_estatus= $_POST["txtstatus".$li_i];
$as_parametros=$as_parametros."&txtcodcon".$li_i."=".$ls_codcon."&txtdencon".$li_i."=".$ls_dencon."".
"&txtcancon".$li_i."=".$li_cancon."&txtprecon".$li_i."=".$li_precon."".
"&txtsubtotcon".$li_i."=".$li_subtotcon."&txtcarcon".$li_i."=".$li_carcon."".
"&txttotcon".$li_i."=".$li_totcon."&txtspgcuenta".$li_i."=".$ls_spgcuenta."".
"&txtcodgas".$li_i."=".$ls_codgas."&txtcodspg".$li_i."=".$ls_codspg."".
"&txtstatus".$li_i."=".$ls_estatus;
}
$as_parametros=$as_parametros."&totalconceptos=".$li_totrowconceptos."";
for($li_i=1;($li_i<=$li_totrowcargos);$li_i++)
{
$ls_codart=$_POST["txtcodservic".$li_i];
$ls_codcar=$_POST["txtcodcar".$li_i];
$ls_dencar=$_POST["txtdencar".$li_i];
$li_bascar=$_POST["txtbascar".$li_i];
$li_moncar=$_POST["txtmoncar".$li_i];
$li_subcargo=$_POST["txtsubcargo".$li_i];
$ls_formulacargo=$_POST["formulacargo".$li_i];
$ls_cuentacargo=$_POST["cuentacargo".$li_i];
$ls_codpro= $_POST["txtcodgascre".$li_i];
$ls_cuenta= $_POST["txtcodspgcre".$li_i];
$ls_estcla= $_POST["txtstatuscre".$li_i];
$as_parametros=$as_parametros."&txtcodservic".$li_i."=".$ls_codart."&txtcodcar".$li_i."=".$ls_codcar.
"&txtdencar".$li_i."=".$ls_dencar."&txtbascar".$li_i."=".$li_bascar.
"&txtmoncar".$li_i."=".$li_moncar."&txtsubcargo".$li_i."=".$li_subcargo.
"&cuentacargo".$li_i."=".$ls_cuentacargo."&formulacargo".$li_i."=".$ls_formulacargo.
"&txtcodgascre".$li_i."=".$ls_codpro."&txtcodspgcre".$li_i."=".$ls_cuenta."&txtstatuscre".$li_i."=".$ls_estcla;
}
$as_parametros=$as_parametros."&totalcargos=".$li_totrowcargos;
for($li_i=1;($li_i<$li_totrowcuentas);$li_i++)
{
$ls_codpro=$_POST["txtcodprogas".$li_i];
$ls_estclag=$_POST["txtestclagas".$li_i];
$ls_cuenta=$_POST["txtcuentagas".$li_i];
$li_moncue=$_POST["txtmoncuegas".$li_i];
$as_parametros=$as_parametros."&txtcodprogas".$li_i."=".$ls_codpro."&txtcuentagas".$li_i."=".$ls_cuenta.
"&txtmoncuegas".$li_i."=".$li_moncue."&txtestclagas".$li_i."=".$ls_estclag;
}
$as_parametros=$as_parametros."&totalcuentas=".$li_totrowcuentas;
for($li_i=1;($li_i<$li_totrowcuentascargo);$li_i++)
{
$ls_codcargo=$_POST["txtcodcargo".$li_i];
$ls_codpro=$_POST["txtcodprocar".$li_i];
$ls_estclac=$_POST["estclacar".$li_i];
$ls_cuenta=$_POST["txtcuentacar".$li_i];
$li_moncue=$_POST["txtmoncuecar".$li_i];
$as_parametros=$as_parametros."&txtcodcargo".$li_i."=".$ls_codcargo."&txtcodprocar".$li_i."=".$ls_codpro.
"&txtcuentacar".$li_i."=".$ls_cuenta."&txtmoncuecar".$li_i."=".$li_moncue."&txtestclacar".$li_i."=".$ls_estclac;
}
$as_parametros=$as_parametros."&totalcuentascargo=".$li_totrowcuentascargo;
$as_parametros=$as_parametros."&subtotal=".$li_subtotal."&cargos=".$li_cargos."&total=".$li_total;
}
//--------------------------------------------------------------
?>
Registro de Solicitud de ejecución Presupuestaria
uf_generar_numero_nuevo("SEP","sep_solicitud","numsol","SEPSPC",15,"","","");
if($ls_numsol==false)
{
print "";
}
unset($io_keygen);
break;
case "GUARDAR":
uf_load_variables();
$io_sep->codmon = $_POST['txtcodmon'];
$io_sep->tascam = $io_conexiones->formato_numerico_us($_POST['txttascamordcom']);
$lb_valido=$io_sep->uf_guardar($ls_existe,$ld_fecregsol,$ls_numsol,$ls_coduniadm,$ls_codfuefin,$ls_tipodestino,
$ls_codprovben,$ls_consol,$ls_codtipsol,$li_subtotal,$li_cargos,$li_total,
$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,
$li_totrowbienes,$li_totrowcargos,$li_totrowcuentas,$li_totrowcuentascargo,
$li_totrowservicios,$li_totrowconceptos,$ls_nombenalt,$la_seguridad,$ls_estsol,$ls_tipsepbie,$la_permisos["administrador"],$ls_numdocori);
uf_load_data($ls_parametros);
switch($ls_estsol)
{
case "R":
$ls_estatus="REGISTRO";
break;
case "E":
$ls_estatus="EMITIDA";
break;
}
if($lb_valido)
{
$ls_existe="TRUE";
}
break;
case "ELIMINAR":
uf_load_variables();
$lb_valido=$io_sep->uf_delete_solicitud($ls_numsol,$la_seguridad,$la_permisos["administrador"]);
if(!$lb_valido)
{
uf_load_data($ls_parametros);
switch($ls_estsol)
{
case "R":
$ls_estatus="REGISTRO";
break;
case "E":
$ls_estatus="EMITIDA";
break;
}
$ls_existe="TRUE";
}
else
{
uf_limpiarvariables();
$ls_chkmat = $ls_chkact = "";
$ls_existe="FALSE";
}
break;
}
?>
 |
| Solicitud
de Ejecución Presupuestaria |
|
| |
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
uf_destructor();
unset($io_sep);
?>
