uf_conectar();
$io_msg = new class_mensajes();
$ds = new class_datastore();
$io_sql = new class_sql($con);
$io_funcion = new class_funciones();
$ls_codemp = $arr["codemp"];
$li_estmodest = $arr["estmodest"];
if (array_key_exists("operacion",$_POST))
{
$ls_operacion = $_POST["operacion"];
$ls_codestpro1 = $_POST["codigo"];
$ls_denestpro1 = $_POST["denominacion"];
}
else
{
$ls_codestpro1 = "";
$ls_denestpro1 = "";
$ls_operacion = "BUSCAR";
}
$ls_destino=$io_fun_cfg->uf_obtenervalor_get("destino","");
if (array_key_exists("opener",$_GET))
{
$ls_opener = $_GET["opener"];
if ($ls_opener=='sigesp_spg_d_codestpro_codfuefin.php')
{
$ls_operacion = "CODESTPRO1";
}
}
elseif ($ls_operacion=="BUSCAR")
{
echo "
";
echo "";
echo "| Código | ";
echo "Denominación | ";
if ($li_estmodest=='1')
{
echo "Tipo | ";
}
echo "
";
$ls_sql = "SELECT denestpro1,estint,sc_cuenta, substr(codestpro1,".$li_longcodestpro1.",25) as codestpro1,estcla,estcencos,
(SELECT denominacion
FROM scg_cuentas
WHERE scg_cuentas.codemp=spg_ep1.codemp
AND scg_cuentas.sc_cuenta=spg_ep1.sc_cuenta) as denominacion
FROM spg_ep1
WHERE codemp='".$ls_codemp."'
AND codestpro1 like '%".$ls_codestpro1."%'
AND denestpro1 like '%".$ls_denestpro1."%'
AND codestpro1 <> '-------------------------'
ORDER BY estcla,codestpro1";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while ($row=$io_sql->fetch_row($rs_data))
{
print "";
$ls_estcla = $row["estcla"];
$ls_estint = $row["estint"];
$ls_scgcta = trim($row["sc_cuenta"]);
$ls_denscgcta = $row["denominacion"];
$ls_codestpro1 = substr($row["codestpro1"],-$li_loncodestpro1);
$ls_denestpro1 = $row["denestpro1"];
$ls_estcencos = $row["estcencos"];
if ($ls_estcla=='P')
{
$ls_denestcla = 'Proyecto';
}
else
{
$ls_denestcla = 'Acción';
}
switch ($ls_destino)
{
case "":
print "| ".$ls_codestpro1." | ";
break;
case "destino":
print "".$ls_codestpro1." | ";
break;
case "inter":
print "".$ls_codestpro1." | ";
break;
}
print "".$ls_denestpro1." | ";
if ($li_estmodest=='1')
{
print "".$ls_denestcla." | ";
}
print "
";
}
}
else
{
$io_msg->message("No se han definido cuentas en ".$arr["nomestpro1"]." para este criterio !!!");
}
}
print "
";
}
?>