$ls_denestpro3=$ls_denestpro3;
}
if($li_estmodest==2)
{
$ls_codestpro4=substr($ls_programatica,75,25);
if($lb_valido)
{
$ls_denestpro4="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_denestpro4,$ls_estcla);
$ls_denestpro4=$ls_denestpro4;
}
$ls_codestpro5=substr($ls_programatica,100,25);
if($lb_valido)
{
$ls_denestpro5="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denestpro5,$ls_estcla);
$ls_denestpro5=$ls_denestpro5;
}
$ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3." , ".$ls_denestpro4." , ".$ls_denestpro5;
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3)."-".substr($ls_codestpro4,-$ls_loncodestpro4)."-".substr($ls_codestpro5,-$ls_loncodestpro5);
}
else
{
$ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3;
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
}
$lb_valido=$io_report->uf_spg_reporte_acumulado_cuentas($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,
$ls_codestpro4,$ls_codestpro5,$ldt_fecini,$ldt_fecfin,$ls_cmbnivel,
$lb_subniv,$ai_MenorNivel,$ls_cuentades,$ls_cuentahas,
$ls_codfuefindes,$ls_codfuefinhas,$ls_estclades,$ls_estclahas);
if($ls_codestpro4!="")
{
$as_denestpro="";
$io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,&$as_denestpro,$ls_estclades);
$as_nombre["D"]["4"]=$as_denestpro;
}
if($ls_codestpro4h!="")
{
$as_denestpro="";
$io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h,&$as_denestpro,$ls_estclahas);
$as_nombre["H"]["4"]=$as_denestpro;
}
if($ls_codestpro5!="")
{
$as_denestpro="";
$io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,&$as_denestpro,$ls_estclades);
$as_nombre["D"]["5"]=$as_denestpro;
}
if($ls_codestpro5h!="")
{
$as_denestpro="";
$io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h,$ls_codestpro5h,&$as_denestpro,$ls_estclahas);
$as_nombre["H"]["5"]=$as_denestpro;
}
}
$ls_cmbmes=$_GET["cmbmes"];
switch($ls_cmbmes)
{
case '0103': $ls_trimestre = "01";
break;
