";
print "close();";
print "opener.document.form1.submit();";
print "";
}
$ls_modalidad=$_SESSION["la_empresa"]["estmodest"];
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
$li_len1=20;
$li_len2=6;
$li_len3=3;
$li_len4=2;
$li_len5=2;
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
$li_len1=2;
$li_len2=2;
$li_len3=2;
$li_len4=2;
$li_len5=2;
break;
}
//--------------------------------------------------------------
function uf_print($as_spg_cuenta, $as_tipo)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_print
// Access: public
// Arguments: as_spg_cuenta // Código de cuenta
// as_tipo // Tipo de Llamada del catálogo
// Description: Función que obtiene e imprime los resultados de la busqueda
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 01/01/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $ls_titulo, $li_len1, $li_len2, $li_len3, $li_len4, $li_len5;
require_once("../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("class_folder/class_funciones_viaticos.php");
$io_fun_viaticos=new class_funciones_viaticos();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
print "";
print "";
print "| Código | ";
print "Denominación | ";
print "".$ls_titulo." | ";
print "
";
$ls_sql="SELECT spg_cuenta, denominacion, codestpro1, codestpro2, codestpro3, codestpro4, codestpro5 ".
" FROM spg_cuentas ".
" WHERE codemp='".$ls_codemp."'".
" AND status='C'";
$la_spg_cuenta=split(",",$as_spg_cuenta);
$li_total=count($la_spg_cuenta);
for($li_i=0;$li_i<$li_total;$li_i++)
{
if($li_i==0)
{
$ls_sql=$ls_sql." AND spg_cuenta like '".$la_spg_cuenta[$li_i]."%'";
}
else
{
$ls_sql=$ls_sql." OR spg_cuenta like '".$la_spg_cuenta[$li_i]."%'";
}
}
$ls_sql=$ls_sql." ORDER BY spg_cuenta";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_spg_cuenta=trim($row["spg_cuenta"]);
$ls_denominacion=$row["denominacion"];
$ls_codest1=$row["codestpro1"];
//$ls_codest1=substr($ls_codest1,(strlen($ls_codest1)-$li_len1),$li_len1);
$ls_codest2=$row["codestpro2"];
//$ls_codest2=substr($ls_codest2,(strlen($ls_codest2)-$li_len2),$li_len2);
$ls_codest3=$row["codestpro3"];
//$ls_codest3=substr($ls_codest3,(strlen($ls_codest3)-$li_len3),$li_len3);
$ls_codest4=$row["codestpro4"];
//$ls_codest4=substr($ls_codest4,(strlen($ls_codest4)-$li_len4),$li_len4);
$ls_codest5=$row["codestpro5"];
//$ls_codest5=substr($ls_codest5,(strlen($ls_codest5)-$li_len5),$li_len5);
$ls_codpro=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5;
$io_fun_viaticos->uf_formatoprogramatica($ls_codpro,$ls_programatica);
switch ($as_tipo)
{
case "NACIONALES":
print "";
print "| ".$ls_spg_cuenta." | ";
print "".$ls_denominacion." | ";
print "".$ls_programatica." | ";
print "
";
break;
case "INTERNACIONALES":
print "";
print "| ".$ls_spg_cuenta." | ";
print "".$ls_denominacion." | ";
print "".$ls_programatica." | ";
print "
";
break;
case "DISTANCIA":
print "";
print "| ".$ls_spg_cuenta." | ";
print "".$ls_denominacion." | ";
print "".$ls_programatica." | ";
print "
";
break;
}
}
$io_sql->free_result($rs_data);
}
print "
";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}
//--------------------------------------------------------------
?>
Catálogo de Cuentas