"; $title[2]="Cuenta Presupuestaria"; $title[3]="Denominación";
$grid1="grid";
if($ls_operacion=="BUSCAR")
{
$arr_cuentas=split("-",$ls_cuentas_existe);
$li_totcuentas=count($arr_cuentas);
$ls_sql2="";
for($li_i=0;$li_i<$li_totcuentas;$li_i++)
{
$ls_cuenta=substr($arr_cuentas[$li_i],0,$li_size);
$ls_sql2=" AND pu.sig_cuenta<> '".$ls_cuenta."' ".$ls_sql2;
}
$li_sizeingreso=strlen($ls_codigo_ingreso);
if(substr($ls_codigo,0,$li_sizeingreso)==$ls_codigo_ingreso)
{
$ls_codigo_busqueda=$ls_codigo;
}
else
{
$ls_codigo_busqueda=$ls_codigo_ingreso;
}
$ls_cadena=" SELECT DISTINCT pu.sig_cuenta,pu.denominacion,cp.sc_cuenta ".
" FROM sigesp_plan_unico_re pu ".
" LEFT OUTER JOIN scg_casa_presu cp ON pu.sig_cuenta=cp.sig_cuenta".
" WHERE pu.status='C' AND not exists (select * from spi_cuentas where spi_cuentas.spi_cuenta ";
if($_SESSION["ls_gestor"]=="MYSQLT")
{
$ls_cadena=$ls_cadena." like concat(pu.sig_cuenta,'%') ";
}
if($_SESSION["ls_gestor"]=="POSTGRES")
{
$ls_cadena=$ls_cadena." like pu.sig_cuenta||'%' ";
}
if($_SESSION["ls_gestor"]=="INFORMIX")
{
$ls_cadena=$ls_cadena." like pu.sig_cuenta||'%' ";
}
$ls_cadena=$ls_cadena.$ls_sql2." ) AND pu.sig_cuenta like '".$ls_codigo_busqueda."%' AND pu.denominacion like '%".$ls_nombre."%' ORDER BY pu.sig_cuenta";
$rs_cta=$SQL->select($ls_cadena);
if($rs_cta===false)
{
$io_msg->message($fun->uf_convertirmsg($SQL->message));
}
else
{
$data=$rs_cta;
if($row=$SQL->fetch_row($rs_cta))
{
$data=$SQL->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("sig_cuenta");
if($totrow>0)
{
for($z=1;$z<=$totrow;$z++)
{
$cuenta=$data["sig_cuenta"][$z];
$denominacion=$data["denominacion"][$z];
$sc_cuenta=$data["sc_cuenta"][$z];
$object[$z][1]="";
$object[$z][2]="";
$object[$z][3]="";
}
}
else
{
$object[1][1]="";
$object[1][2]="";
$object[1][3]="";
$totrow=1;
}
$grid->makegrid($totrow,$title,$object,650,'Cuentas Recursos y Egresos',$grid1);
}
else
{
$io_msg->message("No existen cuentas asociadas");
}
}
}
print "";
?>