Catálogo de Solicitudes de Ejecución Presupuestaria
			Fecha de Solicitud Desde Hasta
Código
Departamento
			Buscar

uf_conectar(); $io_msg =new class_mensajes(); $ds =new class_datastore(); $io_sql =new class_sql($con); $io_fun= new class_funciones(); $arre=$_SESSION["la_empresa"]; $ls_codemp=$arre["codemp"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $ls_numsol="%".$_POST["txtnumsol"]."%"; $ls_coddep="%".$_POST["txtcoddep"]."%"; } else { $ls_operacion=""; } print ""; print ""; print ""; print ""; print ""; print ""; print ""; if($ls_operacion=="BUSCAR") { if (array_key_exists("txtdesde",$_POST)) { $ls_desde=$_POST["txtdesde"]; if (array_key_exists("txthasta",$_POST)) { $ls_hasta=$_POST["txthasta"]; $lb_fechavalida = uf_validar_fecha($ls_desde,$ls_hasta);//Funcion que valida que los periodos no esten solapados. if($lb_fechavalida) { $ls_desde=$io_fun->uf_convertirdatetobd($ls_desde); $ls_hasta=$io_fun->uf_convertirdatetobd($ls_hasta); $ls_sql=" SELECT sep_solicitud.numsol,sep_solicitud.coduniadm,sep_solicitud.fecregsol,sep_solicitud.estsol, sep_solicitud.monto,spg_ep1.estint,trim(spg_ep1.sc_cuenta) as ctascgint,sep_solicitud.codtipsol, (SELECT denuniadm FROM spg_unidadadministrativa WHERE sep_solicitud.coduniadm=spg_unidadadministrativa.coduniadm) AS denuniadm FROM sep_solicitud, spg_ep1,sep_tiposolicitud WHERE sep_solicitud.codemp = '".$ls_codemp."' AND sep_solicitud.numsol like '".$ls_numsol."' AND sep_solicitud.fecregsol>='".$ls_desde."' AND sep_solicitud.fecregsol<='".$ls_hasta."' AND sep_solicitud.coduniadm like '".$ls_coddep."' AND (((sep_solicitud.estsol = 'E') AND (sep_solicitud.estapro = '1')) OR (sep_solicitud.estsol = 'P') OR (sep_solicitud.estsol = 'L')) AND sep_solicitud.numsol IN (SELECT numsol FROM sep_dt_articulos WHERE sep_solicitud.numsol=sep_dt_articulos.numsol) AND sep_solicitud.codemp=spg_ep1.codemp AND sep_solicitud.codestpro1=spg_ep1.codestpro1 AND sep_solicitud.estcla=spg_ep1.estcla AND sep_solicitud.codtipsol=sep_tiposolicitud.codtipsol AND (sep_tiposolicitud.estope='O' OR sep_tiposolicitud.estope='S' OR sep_tiposolicitud.estope='R') AND sep_tiposolicitud.modsep='B' ORDER BY sep_solicitud.numsol"; }// $lb_fechavalida else { $ls_sql=" SELECT sep_solicitud.numsol,sep_solicitud.coduniadm,sep_solicitud.fecregsol,sep_solicitud.estsol, sep_solicitud.monto,spg_ep1.estint,trim(spg_ep1.sc_cuenta) as ctascgint, sep_solicitud.codtipsol, (SELECT denuniadm FROM spg_unidadadministrativa WHERE sep_solicitud.coduniadm=spg_unidadadministrativa.coduniadm) AS denuniadm FROM sep_solicitud, spg_ep1,sep_tiposolicitud WHERE sep_solicitud.codemp='".$ls_codemp."' AND sep_solicitud.numsol like '".$ls_numsol."' AND sep_solicitud.coduniadm like '".$ls_coddep."' AND (((sep_solicitud.estsol = 'E') AND (sep_solicitud.estapro = '1')) OR (sep_solicitud.estsol = 'P') OR (sep_solicitud.estsol = 'L')) AND sep_solicitud.numsol IN (SELECT numsol FROM sep_dt_articulos WHERE sep_solicitud.numsol=sep_dt_articulos.numsol) AND sep_solicitud.codemp=spg_ep1.codemp AND sep_solicitud.codestpro1=spg_ep1.codestpro1 AND sep_solicitud.estcla=spg_ep1.estcla AND sep_solicitud.codtipsol=sep_tiposolicitud.codtipsol AND (sep_tiposolicitud.estope='O' OR sep_tiposolicitud.estope='S' OR sep_tiposolicitud.estope='R') AND sep_tiposolicitud.modsep='B' ORDER BY sep_solicitud.numsol";//print $ls_sql; } } } //echo $ls_sql; $rs_data = $io_sql->select($ls_sql); if ($rs_data===false) { $io_msg->message("Error-> ".$this->io_sql->message); } else { $li_numrows = $io_sql->num_rows($rs_data); if ($li_numrows>0) { while ($row=$io_sql->fetch_row($rs_data)) { print ""; $ls_numsol = $row["numsol"]; $ls_fecsol = $io_fun->uf_convertirfecmostrar($row["fecregsol"]); $ls_monto = number_format($row["monto"],2,",","."); $ls_coduniadm = $row["coduniadm"]; $ls_denuniadm = $row["denuniadm"]; $ls_estsol = $row["estsol"]; $li_estint = $row["estint"];//Entero que Indica si la Estructura de Nivel 1 es Inter Compañia. $ls_ctascgint = $row["ctascgint"];//Cuenta Contable Inter Compañias. print ""; print ""; print ""; print ""; print ""; } } else { $io_msg->message("No hay registros !!!"); } } } print "

Número de Solicitud	Fecha	Monto	Unidad
".$ls_numsol."	".$ls_fecsol."	".$ls_monto."	".ltrim($ls_denuniadm)."

"; ?>