";
print "close();";
print "";
}
//------------------------------------------------------------------------------------------------------------------------------
require_once("../class_folder/tcpdf/tcpdf.php");
require_once ("sigesp_spg_class_tcpdf.php");
require_once("sigesp_spg_funciones_reportes.php");
$io_function_report = new sigesp_spg_funciones_reportes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha = new class_fecha();
$ls_nombrearchivo="acumulado_por_cuentas.txt";
$lo_archivo=@fopen("$ls_nombrearchivo","a+");
require_once("../../shared/graficos/pChart/pData.class");
require_once("../../shared/graficos/pChart/pChart.class");
//-------------------------------------------------- Parámetros para Filtar el Reporte --------------------------------------
$ldt_periodo = $_SESSION["la_empresa"]["periodo"];
$li_ano = substr($ldt_periodo,0,4);
$li_estmodest = $_SESSION["la_empresa"]["estmodest"];
$ls_codestpro1_min = $_GET["codestpro1"];
$ls_codestpro2_min = $_GET["codestpro2"];
$ls_codestpro3_min = $_GET["codestpro3"];
$ls_codestpro1h_max = $_GET["codestpro1h"];
$ls_codestpro2h_max = $_GET["codestpro2h"];
$ls_codestpro3h_max = $_GET["codestpro3h"];
$ls_estclades = $_GET["estclades"];
$ls_estclahas = $_GET["estclahas"];
$ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
//-----------------------------------------------------------------------------------------------------------------------------
global $ls_tipoformato;
global $la_data_tot_bsf;
global $la_data_tot;
require_once("sigesp_spg_reporte.php");
$io_report = new sigesp_spg_reporte();
$li_candeccon = $_SESSION["la_empresa"]["candeccon"];
$li_tipconmon = $_SESSION["la_empresa"]["tipconmon"];
$li_redconmon = $_SESSION["la_empresa"]["redconmon"];
//------------------------------------------------------------------------------------------------------------------------------
if($li_estmodest==1)
{
$ls_codestpro4_min = "0000000000000000000000000";
$ls_codestpro5_min = "0000000000000000000000000";
$ls_codestpro4h_max = "0000000000000000000000000";
$ls_codestpro5h_max = "0000000000000000000000000";
if(($ls_codestpro1_min=="")&&($ls_codestpro2_min=="")&&($ls_codestpro3_min==""))
{
if($io_function_report->uf_spg_reporte_select_min_programatica($ls_codestpro1_min,$ls_codestpro2_min,
$ls_codestpro3_min,$ls_codestpro4_min,
$ls_codestpro5_min,$ls_estclades))
{
$ls_codestpro1 = $ls_codestpro1_min;
$ls_codestpro2 = $ls_codestpro2_min;
$ls_codestpro3 = $ls_codestpro3_min;
$ls_codestpro4 = $ls_codestpro4_min;
$ls_codestpro5 = $ls_codestpro5_min;
}
}
else
{
$ls_codestpro1 = $ls_codestpro1_min;
$ls_codestpro2 = $ls_codestpro2_min;
$ls_codestpro3 = $ls_codestpro3_min;
$ls_codestpro4 = $ls_codestpro4_min;
$ls_codestpro5 = $ls_codestpro5_min;
}
if(($ls_codestpro1h_max=="")&&($ls_codestpro2h_max=="")&&($ls_codestpro3h_max==""))
{
if($io_function_report->uf_spg_reporte_select_max_programatica($ls_codestpro1h_max,$ls_codestpro2h_max,
$ls_codestpro3h_max,$ls_codestpro4h_max,
$ls_codestpro5h_max,$ls_estclahas))
{
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
else
{
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
elseif($li_estmodest==2)
{
$ls_codestpro4_min = $_GET["codestpro4"];
$ls_codestpro5_min = $_GET["codestpro5"];
$ls_codestpro4h_max = $_GET["codestpro4h"];
$ls_codestpro5h_max = $_GET["codestpro5h"];
if(($ls_codestpro1_min=='**') ||($ls_codestpro1_min==''))
{
$ls_codestpro1_min='';
}
else
{
$ls_codestpro1_min = $io_funciones->uf_cerosizquierda($ls_codestpro1_min,25);
}
if(($ls_codestpro2_min=='**') ||($ls_codestpro2_min==''))
{
$ls_codestpro2_min='';
}
else
{
$ls_codestpro2_min = $io_funciones->uf_cerosizquierda($ls_codestpro2_min,25);
}
if(($ls_codestpro3_min=='**')||($ls_codestpro3_min==''))
{
$ls_codestpro3_min='';
}
else
{
$ls_codestpro3_min = $io_funciones->uf_cerosizquierda($ls_codestpro3_min,25);
}
if(($ls_codestpro4_min=='**') ||($ls_codestpro4_min==''))
{
$ls_codestpro4_min='';
}
else
{
$ls_codestpro4_min = $io_funciones->uf_cerosizquierda($ls_codestpro4_min,25);
}
if(($ls_codestpro5_min=='**') ||($ls_codestpro5_min==''))
{
$ls_codestpro5_min='';
}
else
{
$ls_codestpro5_min = $io_funciones->uf_cerosizquierda($ls_codestpro5_min,25);
}
if(($ls_codestpro1h_max=='**')||($ls_codestpro1h_max==''))
{
$ls_codestpro1h_max='';
}
else
{
$ls_codestpro1h_max = $io_funciones->uf_cerosizquierda($ls_codestpro1h_max,25);
}
if(($ls_codestpro2h_max=='**') ||($ls_codestpro2h_max==''))
{
$ls_codestpro2h_max='';
}else
{
$ls_codestpro2h_max = $io_funciones->uf_cerosizquierda($ls_codestpro2h_max,25);
}
if(($ls_codestpro3h_max=='**') ||($ls_codestpro3h_max==''))
{
$ls_codestpro3h_max='';
}else
{
$ls_codestpro3h_max = $io_funciones->uf_cerosizquierda($ls_codestpro3h_max,25);
}
if(($ls_codestpro4h_max=='**') ||($ls_codestpro4h_max==''))
{
$ls_codestpro4h_max='';
}else
{
$ls_codestpro4h_max = $io_funciones->uf_cerosizquierda($ls_codestpro4h_max,25);
}
if(($ls_codestpro5h_max=='**') || ($ls_codestpro5h_max==''))
{
$ls_codestpro5h_max='';
}else
{
$ls_codestpro5h_max = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25);
}
if(($ls_codestpro1_min=="")||($ls_codestpro2_min=="")||($ls_codestpro3_min=="")||($ls_codestpro4_min=="")||($ls_codestpro5_min==""))
{
if($io_function_report->uf_spg_reporte_select_min_programatica($ls_codestpro1_min,$ls_codestpro2_min,
$ls_codestpro3_min,$ls_codestpro4_min,
$ls_codestpro5_min,$ls_estclades))
{
$ls_codestpro1 = $ls_codestpro1_min;
$ls_codestpro2 = $ls_codestpro2_min;
$ls_codestpro3 = $ls_codestpro3_min;
$ls_codestpro4 = $ls_codestpro4_min;
$ls_codestpro5 = $ls_codestpro5_min;
}
}
else
{
$ls_codestpro1 = $ls_codestpro1_min;
$ls_codestpro2 = $ls_codestpro2_min;
$ls_codestpro3 = $ls_codestpro3_min;
$ls_codestpro4 = $ls_codestpro4_min;
$ls_codestpro5 = $ls_codestpro5_min;
}
if(($ls_codestpro1h_max=="")||($ls_codestpro2h_max=="")||($ls_codestpro3h_max=="")||($ls_codestpro4h_max=="")||($ls_codestpro5h_max==""))
{
if($io_function_report->uf_spg_reporte_select_max_programatica($ls_codestpro1h_max,$ls_codestpro2h_max,
$ls_codestpro3h_max,$ls_codestpro4h_max,
$ls_codestpro5h_max,$ls_estclahas))
{
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
else
{
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
$ls_cmbmesdes = $_GET["cmbmesdes"];
$ldt_fecini=$li_ano."-".$ls_cmbmesdes."-01";
$ldt_fecini_rep="01/".$ls_cmbmesdes."/".$li_ano;
$ls_cmbmeshas = $_GET["cmbmeshas"];
$ls_mes=$ls_cmbmeshas;
$ls_ano=$li_ano;
$fecfin=$io_fecha->uf_last_day($ls_mes,$ls_ano);
$ldt_fecfin=$io_funciones->uf_convertirdatetobd($fecfin);
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$ls_cmbnivel="1";
}
else
{
$ls_cmbnivel=$cmbnivel;
}
$ls_subniv=$_GET["checksubniv"];
if($ls_subniv==1)
{
$lb_subniv=true;
}
else
{
$lb_subniv=false;
}
$ls_programatica_desde=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_programatica_hasta=$ls_codestpro1h.$ls_codestpro2h.$ls_codestpro3h.$ls_codestpro4h.$ls_codestpro5h;
if($li_estmodest==1)
{
if (($ls_codestpro1<>"")&&($ls_codestpro2=="")&&($ls_codestpro3==""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1);
}
elseif(($ls_codestpro1<>"")&&($ls_codestpro2<>"")&&($ls_codestpro3==""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2);
}
elseif(($ls_codestpro1<>"")&&($ls_codestpro2<>"")&&($ls_codestpro3<>""))
{
$ls_programatica_desde1=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2)."-".substr($ls_codestpro3h,-$ls_loncodestpro3);
}
else
{
$ls_programatica_desde1="";
$ls_programatica_hasta1="";
}
}
else
{
$ls_programatica_desde1=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)."-".$ls_estclades;
$ls_programatica_hasta1=substr($ls_codestpro1h,-$ls_loncodestpro1)."-".substr($ls_codestpro2h,-$ls_loncodestpro2)."-".substr($ls_codestpro3h,-$ls_loncodestpro3)."-".substr($ls_codestpro4h,-$ls_loncodestpro4)."-".substr($ls_codestpro5h,-$ls_loncodestpro5)."-".$ls_estclahas;
}
$ls_cuentades_min=$_GET["txtcuentades"];
$ls_cuentahas_max=$_GET["txtcuentahas"];
if($ls_cuentades_min=="")
{
if($io_function_report->uf_spg_reporte_select_min_cuenta($ls_cuentades_min))
{
$ls_cuentades=$ls_cuentades_min;
}
else
{
print("");
}
}
else
{
$ls_cuentades=$ls_cuentades_min;
}
if($ls_cuentahas_max=="")
{
if($io_function_report->uf_spg_reporte_select_max_cuenta($ls_cuentahas_max))
{
$ls_cuentahas=$ls_cuentahas_max;
}
else
{
print("");
}
}
else
{
$ls_cuentahas=$ls_cuentahas_max;
}
$ls_codfuefindes=$_GET["txtcodfuefindes"];
$ls_codfuefinhas=$_GET["txtcodfuefinhas"];
if (($ls_codfuefindes=='')&&($ls_codfuefindes==''))
{
if($io_function_report->uf_spg_select_fuentefinanciamiento($ls_minfuefin,$ls_maxfuefin))
{
$ls_codfuefindes=$ls_minfuefin;
$ls_codfuefinhas=$ls_maxfuefin;
}
}
///////////////////////////////// SEGURIDAD ///////////////////////////////////
$ls_desc_event="Solicitud de Reporte Acumulado por Cuentas desde la fecha ".$ldt_fecini_rep." hasta ".$fecfin." ,Desde la programatica ".$ls_programatica_desde." hasta ".$ls_programatica_hasta;
$io_function_report->uf_load_seguridad_reporte("SPG","sigesp_spg_r_acum_x_cuentas.php",$ls_desc_event);
//////////////////////////////// SEGURIDAD ///////////////////////////////////
//---------------------------------------------------- Parámetros del encabezado ---------------------------------------------
$ls_titulo=" ACUMULADO POR CUENTAS DESDE FECHA ".$ldt_fecini_rep." HASTA ".$fecfin;
$ls_titulo1=" DESDE LA PROGRAMATICA ".$ls_programatica_desde1." HASTA ".$ls_programatica_hasta1;
//------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$ls_codestpro1 = $io_funciones->uf_cerosizquierda($ls_codestpro1_min,25);
$ls_codestpro2 = $io_funciones->uf_cerosizquierda($ls_codestpro2_min,25);
$ls_codestpro3 = $io_funciones->uf_cerosizquierda($ls_codestpro3_min,25);
$ls_codestpro4 = $io_funciones->uf_cerosizquierda($ls_codestpro4_min,25);
$ls_codestpro5 = $io_funciones->uf_cerosizquierda($ls_codestpro5_min,25);
$ls_codestpro1h = $io_funciones->uf_cerosizquierda($ls_codestpro1h_max,25);
$ls_codestpro2h = $io_funciones->uf_cerosizquierda($ls_codestpro2h_max,25);
$ls_codestpro3h = $io_funciones->uf_cerosizquierda($ls_codestpro3h_max,25);
$ls_codestpro4h = $io_funciones->uf_cerosizquierda($ls_codestpro4h_max,25);
$ls_codestpro5h = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25);
$lb_valido=$io_report->uf_spg_reporte_acumulado_cuentas2($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h,$ldt_fecini,$ldt_fecfin,$ls_cmbnivel,
$lb_subniv,$ai_MenorNivel,$ls_cuentades,$ls_cuentahas,
$ls_codfuefindes,$ls_codfuefinhas,$ls_estclades,$ls_estclahas,$rs_data);
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("");
}
else // Imprimimos el reporte
{
//error_reporting(E_ALL);
set_time_limit(3600);
$ld_total_asignado=0;
$ld_total_aumento=0;
$ld_total_disminucion=0;
$ld_total_monto_actualizado=0;
$ld_total_compromiso=0;
$ld_total_precompromiso=0;
$ld_total_compromiso=0;
$ld_total_saldo_comprometer=0;
$ld_total_causado=0;
$ld_total_pagado=0;
$ld_total_por_paga=0;
$ld_aumento=0;
$ld_disminucion=0;
$ld_precompromiso=0;
$ld_compromiso=0;
$ld_causado=0;
$ld_pagado=0;
$ld_monto_actualizado=0;
$ld_saldo_comprometer=0;
$ld_por_paga=0;
$lb_valido2=false;
$li_tot=$rs_data->RecordCount();
$z=0;
while(!$rs_data->EOF)
{
//var_dump($rs_data->fields);
//die();
$ls_spg_cuenta=$rs_data->fields["spg_cuenta"];
$ls_status=$rs_data->fields["status"];
$ls_denominacion=utf8_encode(trim($rs_data->fields["denominacion"]));
$ls_nivel=$rs_data->fields["nivel"];
$ld_asignado=$rs_data->fields["asignado"];
$lb_valido2=$io_report->uf_spg_reporte_detalle_acumulado_cuentas($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,
$ls_codestpro4,$ls_codestpro5,
$ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,
$ls_codestpro4h,$ls_codestpro5h,
$ls_estclades,$ls_estclahas,$ls_spg_cuenta,
$ldt_fecfin,$rs_data2);
while((!$rs_data2->EOF)&&($lb_valido2))
{
$ld_aumento=$ld_aumento+$rs_data2->fields["aumento"];
$ld_disminucion=$ld_disminucion+$rs_data2->fields["disminucion"];
$ld_precompromiso=$ld_precompromiso+$rs_data2->fields["precompromiso"];
$ld_compromiso=$ld_compromiso+$rs_data2->fields["compromiso"];
$ld_causado=$ld_causado+$rs_data2->fields["causado"];
$ld_pagado=$ld_pagado+$rs_data2->fields["pagado"];
$ld_monto_actualizado=$ld_asignado+$ld_aumento-$ld_disminucion;
$ld_saldo_comprometer=$ld_asignado+$ld_aumento-$ld_disminucion-$ld_precompromiso-$ld_compromiso;
$ld_por_paga=$ld_causado-$ld_pagado;
$rs_data2->MoveNext();
}
if($ls_nivel==1)
{
$ld_total_asignado=$ld_total_asignado+$ld_asignado;
$ld_total_aumento=$ld_total_aumento+$ld_aumento;
$ld_total_disminucion=$ld_total_disminucion+$ld_disminucion;
$ld_total_monto_actualizado=$ld_total_monto_actualizado+$ld_monto_actualizado;
$ld_total_precompromiso=$ld_total_precompromiso+$ld_precompromiso;
$ld_total_compromiso=$ld_total_compromiso+$ld_compromiso;
$ld_total_saldo_comprometer=$ld_total_saldo_comprometer+$ld_saldo_comprometer;
$ld_total_causado=$ld_total_causado+$ld_causado;
$ld_total_pagado=$ld_total_pagado+$ld_pagado;
$ld_total_por_paga=$ld_total_por_paga+$ld_por_paga;
}
$ld_aumento=0;
$ld_disminucion=0;
$ld_precompromiso=0;
$ld_compromiso=0;
$ld_causado=0;
$ld_pagado=0;
$ld_monto_actualizado=0;
$ld_saldo_comprometer=0;
$ld_por_paga=0;
if($z==($li_tot-1))
{
// Dataset definition
$DataSet = new pData;
$DataSet->AddPoint(array($ld_total_precompromiso,$ld_total_compromiso,$ld_total_causado,$ld_total_pagado,$ld_total_por_paga),"Serie1");
$DataSet->AddPoint(array("Precompromiso","Compromiso","Causado","Pagado","Por Pagar"),"titulos");
$DataSet->AddAllSeries();
$DataSet->SetAbsciseLabelSerie("titulos");
// Initialise the graph
$Test = new pChart(500,400);
$Test->drawFilledRoundedRectangle(7,7,493,393,5,240,240,240);
$Test->drawRoundedRectangle(5,5,495,395,5,230,230,230);
// This will draw a shadow under the pie chart
$Test->drawFilledCircle(225,205,170,200,200,200);
// Draw the pie chart
$Test->setFontProperties("../../shared/graficos/Fonts/tahoma.ttf",8);
$Test->AntialiasQuality = 0;
$Test->drawBasicPieGraph($DataSet->GetData(),$DataSet->GetDataDescription(),220,200,170,PIE_PERCENTAGE,255,255,218);
$Test->drawPieLegend(380,15,$DataSet->GetData(),$DataSet->GetDataDescription(),150,150,150);
$Test->Render("acumuladoxcuentastorta1.png");
}//if
$rs_data->MoveNext();
$z=$z+1;
}//fin del while
if(!$lb_valido2)
{
print("");
}
}
unset($io_report);
unset($io_funciones);
unset($io_function_report);
?>
Acumulado por Cuentas
Acumulado por Cuentas |
 |
| |
|
|
|
