uf_conectar();
$io_sql = new class_sql($ls_conect);
$io_msg = new class_mensajes();
if (array_key_exists("operacion",$_POST))
{
$ls_operacion = $_POST["operacion"];
$ls_codestpro1 = $_POST["codigo"];
$ls_denestpro1 = $_POST["denominacion"];
}
else
{
$ls_operacion = "BUSCAR";
$ls_codestpro1 = "";
$ls_denestpro1 = "";
}
if(array_key_exists("tipo",$_GET))
{
$ls_tipo=$_GET["tipo"];
}
else
{
$ls_tipo="";
}
print "
";
print "";
print "| Código | ";
print "Denominación | ";
print "Tipo | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
if (!empty($ls_codestpro1))
{
$ls_codestpro1 = str_pad($ls_codestpro1,25,0,0);
}
if ($li_estpreing==1)
{
$ls_sql=" SELECT DISTINCT(spg_ep1.codestpro1), spg_ep1.denestpro1, spg_ep1.estcla ".
" FROM spg_ep1 LEFT OUTER JOIN spi_cuentas_estructuras ".
" ON spi_cuentas_estructuras.codemp=spg_ep1.codemp ".
" AND spi_cuentas_estructuras.codestpro1 =spg_ep1.codestpro1 ".
" AND spi_cuentas_estructuras.estcla =spg_ep1.estcla ".
" WHERE spg_ep1.codemp='".$la_empresa["codemp"]."' ".
" AND spg_ep1.codestpro1 like '%".$ls_codestpro1."%' ".
" AND spg_ep1.denestpro1 like '%".$ls_denestpro1."%' ".
" AND spg_ep1.codestpro1 <> '-------------------------' ".
" ORDER BY spg_ep1.codestpro1";
}
else
{
$ls_sql=" SELECT DISTINCT(spg_ep1.codestpro1), spg_ep1.denestpro1, spg_ep1.estcla ".
" FROM spg_ep1, spi_cuentas_estructuras ".
" WHERE spg_ep1.codemp='".$la_empresa["codemp"]."' ".
" AND spg_ep1.codestpro1 like '%".$ls_codestpro1."%' ".
" AND spg_ep1.denestpro1 like '%".$ls_denestpro1."%' ".
" AND spg_ep1.codestpro1 <> '-------------------------' ".
" AND spi_cuentas_estructuras.codemp=spg_ep1.codemp ".
" AND spi_cuentas_estructuras.codestpro1 =spg_ep1.codestpro1 ".
" AND spi_cuentas_estructuras.estcla =spg_ep1.estcla ".
" ORDER BY spg_ep1.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_codestpro1 = trim(substr($row["codestpro1"],-$li_loncodestpro1));
$ls_denestpro1 = $row["denestpro1"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla='Acción';
}
if($ls_tipo=="")
{
print "| ".$ls_codestpro1." | ";
print "".$ls_denestpro1." | ";
print "".$ls_denestcla." | ";
print "
";
}
if($ls_tipo=="reporteacumdes")
{
print "".$ls_codestpro1." | ";
print "".$ls_denestpro1." | ";
print "".$ls_denestcla." | ";
print "";
}
if($ls_tipo=="reporteacumhas")
{
print "".$ls_codestpro1." | ";
print "".$ls_denestpro1." | ";
print "".$ls_denestcla." | ";
print "";
}
}
}
else
{
$io_msg->message("No posee relación con cuentas de Ingreso !!!");
}
}
}
print "
";
?>