";
print "
";
print "| Partida | ";
print "Denominación | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_sql_filtro = "";
$ls_valrectif = "";
if($ls_tipo == "C")
{
$ls_valrectif = "";
}
elseif($ls_tipo == "R")
{
$ls_valrectif = " AND substr(sig_cuenta,1,3) <> '498' ";
}
if(!empty($ls_ctascedrec))
{
$ls_ctascedrec = str_replace(",","",$ls_ctascedrec);
$arr_ctas = str_split($ls_ctascedrec,3);
$ls_sql_filtro = "AND sig_cuenta not in ";
$li_total = count($arr_ctas);
for($i=0;$i<$li_total;$i++)
{
if ($i ==0)
{
$ls_sql_filtro = $ls_sql_filtro."('".$arr_ctas[$i]."000000'";
}
else
{
$ls_sql_filtro = $ls_sql_filtro.",'".$arr_ctas[$i]."000000'";
}
}
$ls_sql_filtro = $ls_sql_filtro.")";
}
$ls_cadena =" SELECT substr(sig_cuenta,1,3) as cuenta, denominacion ".
" FROM sigesp_plan_unico_re ".
" WHERE sig_cuenta in ('401000000','402000000','403000000','404000000',".
" '405000000','406000000','407000000','408000000',".
" '409000000','410000000','411000000','412000000','498000000') ".
$ls_sql_filtro.$ls_valrectif.
" GROUP BY sig_cuenta,denominacion ".
" ORDER BY sig_cuenta";
$rs_cta=$SQL->select($ls_cadena);
if($rs_cta === false)
{
$msg->message("Error en Carga de Partidas ERROR->".$fun->uf_convertirmsg($SQL->message));
}
else
{
while(!$rs_cta->EOF)
{
$cuenta=$rs_cta->fields["cuenta"];
$denominacion=$rs_cta->fields["denominacion"];
print "
";
print "| ".$cuenta." | ";
print "".$denominacion." | ";
print "
";
$rs_cta->MoveNext();
}
$SQL->free_result($rs_cta);
}
}
print "";
?>