<?php
    session_start();   
	header("Pragma: public");
	header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
	header("Cache-Control: private",false);
	if(!array_key_exists("la_logusr",$_SESSION))
	{
		print "<script language=JavaScript>";
		print "close();";
		print "</script>";		
	}
	ini_set('memory_limit','1024M');
	ini_set('max_execution_time ','0');

	//--------------------------------------------------------------------------------------------------------------------------------
	function uf_print_encabezado_pagina($as_titulo,$as_fecha,&$io_pdf)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function: uf_print_encabezadopagina
		//		    Acess: private
		//	    Arguments: as_titulo // Título del Reporte
		//	    		   as_periodo_comp // Descripción del periodo del comprobante
		//	    		   as_fecha_comp // Descripción del período de la fecha del comprobante
		//	    		   io_pdf // Instancia de objeto pdf
		//    Description: función que imprime los encabezados por página
		//	   Creado Por: Ing.Yozelin Barragán
		// Fecha Creación: 25/09/2006
		////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		$io_encabezado=$io_pdf->openObject();
		$io_pdf->saveState();
		$io_pdf->line(10,30,1000,30);
		$io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],10,550,$_SESSION["ls_width"],$_SESSION["ls_height"]); // Agregar Logo
		$li_tm=$io_pdf->getTextWidth(14,$as_titulo);
		$tm=505-($li_tm/2);
		$io_pdf->addText($tm,550,14,$as_titulo); // Agregar el título

		$li_tm=$io_pdf->getTextWidth(14,$as_fecha);
		$tm=505-($li_tm/2);
		$io_pdf->addText($tm,520,14,$as_fecha); // Agregar el título
		$io_pdf->addText(900,560,10,$_SESSION["ls_database"]);// Agrerar el nombre de la base de datos actual
		$io_pdf->addText(900,550,10,date("d/m/Y")); // Agregar la Fecha
		$io_pdf->addText(900,540,10,date("h:i a")); // Agregar la hora
		$io_pdf->restoreState();
		$io_pdf->closeObject();
		$io_pdf->addObject($io_encabezado,'all');
	}// end function uf_print_encabezadopagina
	//--------------------------------------------------------------------------------------------------------------------------------

	//--------------------------------------------------------------------------------------------------------------------------------
	function uf_print_cabecera($as_spg_cuenta,$as_denominacion,&$io_pdf)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function: uf_print_cabecera
		//		   Access: privates
		//	    Arguments: as_programatica // programatica del comprobante
		//	    		   as_denestpro5 // denominacion de la programatica del comprobante
		//	    		   io_pdf // Objeto PDF
		//    Description: función que imprime la cabecera de cada página
		//	   Creado Por: Ing.Yozelin Barragán
		// Fecha Creación: 25/09/2006
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		$la_data=array(array('name'=>'<b>Cuenta</b> '.$as_spg_cuenta.''),
		               array('name'=>'<b>Denominacion</b> '.$as_denominacion.'' ));
		$la_columna=array('name'=>'');
		$la_config=array('showHeadings'=>0, // Mostrar encabezados
						 'showLines'=>0, // Mostrar Líneas
						 'fontSize' => 9, // Tamaño de Letras
						 'shaded'=>2, // Sombra entre líneas
						 'shadeCol'=>array(0.9,0.9,0.9),
						 'shadeCol2'=>array(0.9,0.9,0.9), // Color de la sombra
						 'xOrientation'=>'center', // Orientación de la tabla
						// 'xPos'=>305, // Orientación de la tabla
						 'width'=>990, // Ancho de la tabla
						 'maxWidth'=>990); // Ancho Máximo de la tabla
		$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
	}// end function uf_print_cabecera
	//--------------------------------------------------------------------------------------------------------------------------------

	//--------------------------------------------------------------------------------------------------------------------------------
	function uf_print_detalle($la_data,&$io_pdf)
	{
		//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function: uf_print_detalle
		//		    Acess: private
		//	    Arguments: la_data // arreglo de información
		//	   			   io_pdf // Objeto PDF
		//    Description: función que imprime el detalle
		//	   Creado Por: Ing.Yozelin Barragán
		// Fecha Creación: 25/09/2006
		////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

		$la_config=array('showHeadings'=>1, // Mostrar encabezados
						 'fontSize' => 8, // Tamaño de Letras
						 'titleFontSize' => 8,  // Tamaño de Letras de los títulos
						 'showLines'=>0, // Mostrar Líneas
						 'shaded'=>0, // Sombra entre líneas
						 'colGap'=>0.5, // separacion entre tablas
						 'width'=>990, // Ancho de la tabla
						 'maxWidth'=>990, // Ancho Máximo de la tabla
						 'xOrientation'=>'center', // Orientación de la tabla
						 'xPos'=>500, // Orientación de la tabla
						 'cols'=>array('programatica'=>array('justification'=>'left','width'=>120), // Justificación y ancho de la 
						               'descripcion'=>array('justification'=>'left','width'=>130), // Justificación y ancho de la 
						 			   'asignado'=>array('justification'=>'right','width'=>100), // Justificación y ancho de la 
						 			   'precomprometido'=>array('justification'=>'right','width'=>100), // Justificación 
						 			   'comprometido'=>array('justification'=>'right','width'=>100), // Justificación y ancho 
						 			   'porcomprometido'=>array('justification'=>'right','width'=>80), // Justificación y ancho  
						 			   'causado'=>array('justification'=>'right','width'=>100), // Justificación y ancho  
						 			   'porcausado'=>array('justification'=>'right','width'=>80), // Justificación y ancho  
						 			   'pagado'=>array('justification'=>'right','width'=>100), // Justificación y ancho  
									   'porpagado'=>array('justification'=>'right','width'=>80))); // Justificación y ancho de la 
		$la_columnas=array('programatica'=>'<b>Programatica</b>',
		                   'descripcion'=>'<b>Descripcion</b>',
						   'asignado'=>'<b>Asignado</b>',
						   'precomprometido'=>'<b>Precomprometido</b>',
						   'comprometido'=>'<b>Comprometido</b>',
						   'porcomprometido'=>'<b>% Comprometido</b>',
						   'causado'=>'<b>Causado</b>',
						   'porcausado'=>'<b>% Causado</b>',
						   'pagado'=>'<b>Pagado</b>',
						   'porpagado'=>'<b>% Pagado</b>');
		$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
	}// end function uf_print_detalle
	//--------------------------------------------------------------------------------------------------------------------------------

	//--------------------------------------------------------------------------------------------------------------------------------
	function uf_print_pie_cabecera($ad_total_asignado,$ad_total_precompromiso,$ad_total_compromiso,$ad_total_causado,
	                               $ad_total_pagado,&$io_pdf)
	{
		////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function : uf_print_pie_cabecera
		//		    Acess : private
		//	    Arguments : ad_total // Total General
		//    Description : función que imprime el fin de la cabecera de cada página
		//	   Creado Por: Ing.Yozelin Barragán
		// Fecha Creación: 25/09/2006
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		$la_datat=array(array('name'=>'___________________________________________________________________________________________________________________________________________________________________________________________________'));
		$la_columna=array('name'=>'');
		$la_config=array('showHeadings'=>0, // Mostrar encabezados
						 'fontSize' => 9, // Tamaño de Letras
						 'showLines'=>0, // Mostrar Líneas
						 'shaded'=>0, // Sombra entre líneas
						 'xOrientation'=>'center', // Orientación de la tabla
						 'xPos'=>500, // Orientación de la tabla
						 'width'=>990); // Ancho Máximo de la tabla
		$io_pdf->ezTable($la_datat,$la_columna,'',$la_config);
		
		$la_data[]=array('programatica'=>'','descripcion'=>'<b> Total</b>','asignado'=>$ad_total_asignado,
		                 'precomprometido'=>$ad_total_precompromiso,'comprometido'=>$ad_total_compromiso,
		                 'porcomprometido'=>'','causado'=>$ad_total_causado,'porcausado'=>'','pagado'=>$ad_total_pagado,
						 'porpagado'=>'');
		$la_columnas=array('programatica'=>' ','descripcion'=>'','asignado'=>'','precomprometido'=>'','comprometido'=>'',                           'porcomprometido'=>'','causado'=>'','porcausado'=>'','pagado'=>'','porpagado'=>'');
		$la_config=array('showHeadings'=>0, // Mostrar encabezados
						 'fontSize' => 8, // Tamaño de Letras
						 'titleFontSize' => 8,  // Tamaño de Letras de los títulos
						 'showLines'=>0, // Mostrar Líneas
						 'shaded'=>0, // Sombra entre líneas
						 'colGap'=>0.5, // separacion entre tablas
						 'width'=>990, // Ancho de la tabla
						 'maxWidth'=>990, // Ancho Máximo de la tabla
						 'xOrientation'=>'center', // Orientación de la tabla
						 'xPos'=>500, // Orientación de la tabla
						 'cols'=>array('programatica'=>array('justification'=>'left','width'=>120), // Justificación y ancho de la 
						               'descripcion'=>array('justification'=>'left','width'=>130), // Justificación y ancho de la 
						 			   'asignado'=>array('justification'=>'right','width'=>100), // Justificación y ancho de la 
						 			   'precomprometido'=>array('justification'=>'right','width'=>100), // Justificación 
						 			   'comprometido'=>array('justification'=>'right','width'=>100), // Justificación y ancho 
						 			   'porcomprometido'=>array('justification'=>'right','width'=>80), // Justificación y ancho  
						 			   'causado'=>array('justification'=>'right','width'=>100), // Justificación y ancho  
						 			   'porcausado'=>array('justification'=>'right','width'=>80), // Justificación y ancho  
						 			   'pagado'=>array('justification'=>'right','width'=>100), // Justificación y ancho  
									   'porpagado'=>array('justification'=>'right','width'=>80))); // Justificación y ancho de la 
		$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
		$la_data=array(array('name'=>''));
		$la_columna=array('name'=>'');
		$la_config=array('showHeadings'=>0, // Mostrar encabezados
						 'showLines'=>0, // Mostrar Líneas
						 'shaded'=>0, // Sombra entre líneas
						 'width'=>990, // Ancho Máximo de la tabla
						 'xOrientation'=>'center'); // Orientación de la tabla
		$io_pdf->ezTable($la_data,$la_columna,'',$la_config);
	}// end function uf_print_pie_cabecera
//--------------------------------------------------------------------------------------------------------------------------------
		require_once("../../shared/ezpdf/class.ezpdf.php");
		require_once("sigesp_spg_reportes_class.php");
		$io_report = new sigesp_spg_reportes_class();
		require_once("sigesp_spg_funciones_reportes.php");
		$io_function_report = new sigesp_spg_funciones_reportes();
        require_once("../../shared/class_folder/class_funciones.php");
		$io_function=new class_funciones() ;
		require_once("../../shared/class_folder/class_fecha.php");
		$io_fecha = new class_fecha();
//--------------------------------------------------  Parámetros para Filtar el Reporte  --------------------------------------
		$li_estmodest=$_SESSION["la_empresa"]["estmodest"];
		$ldt_fecdes = $_GET["txtfecdes"];
		$ldt_fechas = $_GET["txtfechas"];	
	    $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("<script language=JavaScript>");
				print(" alert('No hay cuentas presupuestraias');"); 
				print(" close();");
				print("</script>");
		   }
		}
		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("<script language=JavaScript>");
				print(" alert('No hay cuentas presupuestraias');"); 
				print(" close();");
				print("</script>");
		   }
		}
		else
		{
		    $ls_cuentahas=$ls_cuentahas_max;
		}

	    $ls_fechades=$io_function->uf_convertirfecmostrar($ldt_fecdes);
	    $ls_fechahas=$io_function->uf_convertirfecmostrar($ldt_fechas);
		
	 /////////////////////////////////         SEGURIDAD               //////////////////////////////////////////////////////////////////////////////////////////////////////////////
	 $ls_desc_event="Solicitud de Reporte Ejecutado por Partida desde la  Fecha ".$ls_fechades."  hasta ".$ls_fechahas." Desde la Cuenta ".$ls_cuentades."  hasta ".$ls_cuentahas;
	 $io_function_report->uf_load_seguridad_reporte("SPG","sigesp_spg_r_ejecutado_por_partida.php",$ls_desc_event);
	////////////////////////////////         SEGURIDAD               ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//----------------------------------------------------  Parámetros del encabezado  ----------------------------------------------
		$ls_titulo="<b>EJECUTADO POR PARTIDA</b> "; 
		$ls_fecha="<b> DESDE  ".$ls_fechades."   HASTA LA FECHA  ".$ls_fechahas." </b>";      
//--------------------------------------------------------------------------------------------------------------------------------
    // Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )	
     $lb_valido=$io_report->uf_spg_reportes_ejecutado_por_partida($ldt_fecdes,$ldt_fechas,$ls_cuentades,$ls_cuentahas);
     /*
	 $rs_data    = $io_report->uf_spg_reportes_ejecutado_por_partida($ldt_fecdes,$ldt_fechas,$ls_cuentades,$ls_cuentahas);
	 $li_numrows = $io_sql->num_rows($rs_data);
	 if ($li_numrows>0)
	    {
		  while($row=$io_sql->fetch_row($rs_data))
		       {
			     $ls_spgcuenta   = $row["spg_cuenta"];
			     $ls_codestpro1  = $row["codestpro1"];
				 $ls_codestpro2  = $row["codestpro2"];
				 $ls_codestpro3  = $row["codestpro3"];
				 $ls_codestpro4  = $row["codestpro4"];
				 $ls_codestpro5  = $row["codestpro5"];
				 $ls_operacion   = $row["operacion"];
				 $ld_monto       = $row["monto"];
				 $ls_descripcion = $row["descripcion"];
			   
			   
			   }
		}
	 else
	    {
		  print("<script language=JavaScript>");
		  print(" alert('No hay nada que Reportar');"); 
		  print(" close();");
		  print("</script>");
	    }
	 
	 
	 */
	 if($lb_valido==false) // Existe algún error ó no hay registros
	 {
		print("<script language=JavaScript>");
		print(" alert('No hay nada que Reportar');"); 
		print(" close();");
		print("</script>");
	 }
	 else // Imprimimos el reporte
	 {
	    //error_reporting(E_ALL);
		//set_time_limit(1800);
		$io_pdf=new Cezpdf('LEGAL','landscape'); // Instancia de la clase PDF
		$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
		$io_pdf->ezSetCmMargins(3.8,3,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_fecha,$io_pdf); // Imprimimos el encabezado de la página
        $io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página
		$io_report->dts_reporte_final->group_noorder("spg_cuenta");
		$li_tot=$io_report->dts_reporte_final->getRowCount("spg_cuenta");
		$ld_total_asignado=0;		        $ld_total_precompromiso=0;
		$ld_total_compromiso=0;		        $ld_total_causado=0;
		$ld_total_pagado=0;		
		$ld_total_asignado_general=0;		$ld_total_precompromiso_general=0;
		$ld_total_compromiso_general=0;		$ld_total_causado_general=0;
		$ld_total_pagado_general=0;
		$ld_asignado_apertura=0;
		$ls_spg_cuenta_ant="";
		for($z=1;$z<=$li_tot;$z++)
		{
			$li_tmp=($z+1);
			$io_pdf->transaction('start'); // Iniciamos la transacción
			$thisPageNum=$io_pdf->ezPageCount;
			$ls_spg_cuenta=$io_report->dts_reporte_final->data["spg_cuenta"][$z];
			$ls_denominacion=$io_report->dts_reporte_final->data["denominacion"][$z];  
			$ls_programatica=$io_report->dts_reporte_final->data["programatica"][$z];
			$ls_descripcion=$io_report->dts_reporte_final->data["descripcion"][$z];
			$ld_asignado=$io_report->dts_reporte_final->data["asignado"][$z];  	  
			$ld_aumento=$io_report->dts_reporte_final->data["aumento"][$z];
			$ld_disminucion=$io_report->dts_reporte_final->data["disminucion"][$z];
		    $ld_precompromiso=$io_report->dts_reporte_final->data["precompromiso"][$z];
		    $ld_compromiso=$io_report->dts_reporte_final->data["compromiso"][$z];
		    $ld_causado=$io_report->dts_reporte_final->data["causado"][$z];
		    $ld_pagado=$io_report->dts_reporte_final->data["pagado"][$z];
		    /*$ld_porc_comprometido=$io_report->dts_reporte_final->data["porc_compromiso"][$z];
		    $ld_porc_causado=$io_report->dts_reporte_final->data["porc_causado"][$z];
		    $ld_porc_pagado=$io_report->dts_reporte_final->data["porc_pagado"][$z];*/
			
		    if ($z<$li_tot)
		    {
				$ls_spg_cuenta_next=$io_report->dts_reporte_final->data["spg_cuenta"][$li_tmp]; 
		    }
		    elseif($z=$li_tot)
		    {
				$ls_spg_cuenta_next='no_next';
		    }
			if(empty($ls_spg_cuenta_next)&&(!empty($ls_spg_cuenta)))
			{
			   $ls_spg_cuenta_ant=$io_report->dts_reporte_final->data["spg_cuenta"][$z];
			}
			if($li_tot==1)
			{
			   $ls_spg_cuenta_ant=$io_report->dts_reporte_final->data["spg_cuenta"][$z];
			}
			if($ld_asignado<>0)
			{
			  $ld_asignado_apertura=$ld_asignado;
			}
			
			$ld_suma=$ld_asignado_apertura+$ld_aumento+$ld_disminucion;
			if($ld_suma>0)
			{
			   $ld_porc_comprometido=($ld_compromiso*100)/$ld_suma;
   			  /* $ld_porc_causado=($ld_causado*100)/$ld_suma;
			   $ld_porc_pagado=($ld_pagado*100)/$ld_suma;*/
			   
		    }
            else
			{
			   $ld_porc_comprometido=0;
			  /* $ld_porc_causado=0;
			   $ld_porc_pagado=0;*/
			}
			if($ld_compromiso>0)
			{
			   $ld_porc_causado=($ld_causado*100)/$ld_compromiso;
		    }
            else
			{
			   $ld_porc_causado=0;
			}
			if($ld_causado>0)
			{
			   $ld_porc_pagado=($ld_pagado*100)/$ld_causado;
		    }
            else
			{
			   $ld_porc_pagado=0;
			}
			
		    $ld_total_asignado=$ld_asignado;
		    $ld_total_precompromiso=$ld_total_precompromiso+$ld_precompromiso;
		    $ld_total_compromiso=$ld_total_compromiso+$ld_compromiso;
		    $ld_total_causado=$ld_total_causado+$ld_causado;
		    $ld_total_pagado=$ld_total_pagado+$ld_pagado;
			
		   
		    $ld_total_precompromiso_general=$ld_total_precompromiso_general+$ld_precompromiso;
		    $ld_total_compromiso_general=$ld_total_compromiso_general+$ld_compromiso;
		    $ld_total_causado_general=$ld_total_causado_general+$ld_causado;
		    $ld_total_pagado_general=$ld_total_pagado_general+$ld_pagado;
			
			if (!empty($ls_spg_cuenta))
		    {
				   $ld_total_asignado_general=$ld_total_asignado_general+$ld_total_asignado;
				  $ld_asignado=number_format($ld_asignado,2,",",".");
				  $ld_precompromiso=number_format($ld_precompromiso,2,",",".");
				  $ld_compromiso=number_format($ld_compromiso,2,",",".");
				  $ld_causado=number_format($ld_causado,2,",",".");
				  $ld_pagado=number_format($ld_pagado,2,",",".");
				  $ld_porc_comprometido=number_format($ld_porc_comprometido,2,",",".");
				  $ld_porc_causado=number_format($ld_porc_causado,2,",",".");
				  $ld_porc_pagado=number_format($ld_porc_pagado,2,",",".");
				  
				  $la_data[$z]=array('programatica'=>$ls_programatica,'descripcion'=>$ls_descripcion,'asignado'=>$ld_asignado,
									 'precomprometido'=>$ld_precompromiso,'comprometido'=>$ld_compromiso,
									 'porcomprometido'=>$ld_porc_comprometido,'causado'=>$ld_causado,'porcausado'=>$ld_porc_causado,
									 'pagado'=>$ld_pagado,'porpagado'=>$ld_porc_pagado);
				  
				 $ld_asignado=str_replace('.','',$ld_asignado);
				 $ld_asignado=str_replace(',','.',$ld_asignado);		
				 $ld_precompromiso=str_replace('.','',$ld_precompromiso);
				 $ld_precompromiso=str_replace(',','.',$ld_precompromiso);		
				 $ld_compromiso=str_replace('.','',$ld_compromiso);
				 $ld_compromiso=str_replace(',','.',$ld_compromiso);		
				 $ld_causado=str_replace('.','',$ld_causado);
				 $ld_causado=str_replace(',','.',$ld_causado);
				 $ld_pagado=str_replace('.','',$ld_pagado);
				 $ld_pagado=str_replace(',','.',$ld_pagado);
				 $ld_porc_comprometido=str_replace('.','',$ld_porc_comprometido);
				 $ld_porc_comprometido=str_replace(',','.',$ld_porc_comprometido);
				 $ld_porc_causado=str_replace('.','',$ld_porc_causado);
				 $ld_porc_causado=str_replace(',','.',$ld_porc_causado);
				 $ld_porc_pagado=str_replace('.','',$ld_porc_pagado);
				 $ld_porc_pagado=str_replace(',','.',$ld_porc_pagado);
			}
			else
			{
				  $ld_asignado=number_format($ld_asignado,2,",",".");
				  $ld_precompromiso=number_format($ld_precompromiso,2,",",".");
				  $ld_compromiso=number_format($ld_compromiso,2,",",".");
				  $ld_causado=number_format($ld_causado,2,",",".");
				  $ld_pagado=number_format($ld_pagado,2,",",".");
				  $ld_porc_comprometido=number_format($ld_porc_comprometido,2,",",".");
				  $ld_porc_causado=number_format($ld_porc_causado,2,",",".");
				  $ld_porc_pagado=number_format($ld_porc_pagado,2,",",".");
				  
				  $la_data[$z]=array('programatica'=>$ls_programatica,'descripcion'=>$ls_descripcion,'asignado'=>$ld_asignado,
									 'precomprometido'=>$ld_precompromiso,'comprometido'=>$ld_compromiso,
									 'porcomprometido'=>$ld_porc_comprometido,'causado'=>$ld_causado,'porcausado'=>$ld_porc_causado,
									 'pagado'=>$ld_pagado,'porpagado'=>$ld_porc_pagado);
				  
				 $ld_asignado=str_replace('.','',$ld_asignado);
				 $ld_asignado=str_replace(',','.',$ld_asignado);		
				 $ld_precompromiso=str_replace('.','',$ld_precompromiso);
				 $ld_precompromiso=str_replace(',','.',$ld_precompromiso);		
				 $ld_compromiso=str_replace('.','',$ld_compromiso);
				 $ld_compromiso=str_replace(',','.',$ld_compromiso);		
				 $ld_causado=str_replace('.','',$ld_causado);
				 $ld_causado=str_replace(',','.',$ld_causado);
				 $ld_pagado=str_replace('.','',$ld_pagado);
				 $ld_pagado=str_replace(',','.',$ld_pagado);
				 $ld_porc_comprometido=str_replace('.','',$ld_porc_comprometido);
				 $ld_porc_comprometido=str_replace(',','.',$ld_porc_comprometido);
				 $ld_porc_causado=str_replace('.','',$ld_porc_causado);
				 $ld_porc_causado=str_replace(',','.',$ld_porc_causado);
				 $ld_porc_pagado=str_replace('.','',$ld_porc_pagado);
				 $ld_porc_pagado=str_replace(',','.',$ld_porc_pagado);
			}
			if (!empty($ls_spg_cuenta_next))
			{
				  $ld_asignado=number_format($ld_asignado,2,",",".");
				  $ld_precompromiso=number_format($ld_precompromiso,2,",",".");
				  $ld_compromiso=number_format($ld_compromiso,2,",",".");
				  $ld_causado=number_format($ld_causado,2,",",".");
				  $ld_pagado=number_format($ld_pagado,2,",",".");
				  $ld_porc_comprometido=number_format($ld_porc_comprometido,2,",",".");
				  $ld_porc_causado=number_format($ld_porc_causado,2,",",".");
				  $ld_porc_pagado=number_format($ld_porc_pagado,2,",",".");
				  
				  $la_data[$z]=array('programatica'=>$ls_programatica,'descripcion'=>$ls_descripcion,'asignado'=>$ld_asignado,
									 'precomprometido'=>$ld_precompromiso,'comprometido'=>$ld_compromiso,
									 'porcomprometido'=>$ld_porc_comprometido,'causado'=>$ld_causado,'porcausado'=>$ld_porc_causado,
									 'pagado'=>$ld_pagado,'porpagado'=>$ld_porc_pagado);
		        
			     uf_print_cabecera($ls_spg_cuenta_ant,$ls_denominacion,$io_pdf);
 				 uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
				
				 $ld_totalasignado=$ld_total_asignado;
				 $ld_totalprecompromiso=$ld_total_precompromiso;
				 $ld_totalcompromiso=$ld_total_compromiso;
				 $ld_totalcausado=$ld_total_causado;
				 $ld_totalpagado=$ld_total_pagado;
				 
				 $ld_total_asignado=number_format($ld_total_asignado,2,",",".");
				 $ld_total_precompromiso=number_format($ld_total_precompromiso,2,",",".");
				 $ld_total_compromiso=number_format($ld_total_compromiso,2,",",".");
				 $ld_total_causado=number_format($ld_total_causado,2,",",".");
				 $ld_total_pagado=number_format($ld_total_pagado,2,",",".");
				 uf_print_pie_cabecera($ld_total_asignado,$ld_total_precompromiso,$ld_total_compromiso,$ld_total_causado,
	                                   $ld_total_pagado,$io_pdf);	
				 $ld_total_asignado=0;
				 $ld_total_precompromiso=0;
				 $ld_total_compromiso=0;
				 $ld_total_causado=0;
				 $ld_total_pagado=0;
				 if ($io_pdf->ezPageCount==$thisPageNum)
				 {// Hacemos el commit de los registros que se desean imprimir
					$io_pdf->transaction('commit');
				 }
				 elseif($thisPageNum>1)
				 {// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir
					$io_pdf->transaction('rewind');
					$io_pdf->ezNewPage(); // Insertar una nueva página
					uf_print_cabecera($ls_spg_cuenta_ant,$ls_denominacion,$io_pdf);
					uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
					$ld_totalasignado=number_format($ld_totalasignado,2,",",".");
					$ld_totalprecompromiso=number_format($ld_totalprecompromiso,2,",",".");
					$ld_totalcompromiso=number_format($ld_totalcompromiso,2,",",".");
					$ld_totalcausado=number_format($ld_totalcausado,2,",",".");
					$ld_totalpagado=number_format($ld_totalpagado,2,",",".");
					uf_print_pie_cabecera($ld_totalasignado,$ld_totalprecompromiso,$ld_totalcompromiso,$ld_totalcausado,
					    				  $ld_totalpagado,$io_pdf);	
				    $ld_totalasignado=0;
				    $ld_totalprecompromiso=0;
				    $ld_totalcompromiso=0;
				    $ld_totalcausado=0;
				    $ld_totalpagado=0;
				 }
				 if($z==$li_tot)
				 {
				     // Imprimimos pie de la cabecera
					 $ld_total_asignado_general=number_format($ld_total_asignado_general,2,",",".");
					 $ld_total_precompromiso_general=number_format($ld_total_precompromiso_general,2,",",".");
					 $ld_total_compromiso_general=number_format($ld_total_compromiso_general,2,",",".");
					 $ld_total_causado_general=number_format($ld_total_causado_general,2,",",".");
					 $ld_total_pagado_general=number_format($ld_total_pagado_general,2,",",".");
					 //uf_print_pie_cabecera($ld_total_asignado_general,$ld_total_precompromiso_general,$ld_total_compromiso_general,                                           $ld_total_causado_general,$ld_total_pagado_general,$io_pdf);	
			 	 }
			     unset($la_data);		
			}//if
	    }//for
			
		$io_pdf->ezStopPageNumbers(1,1);
		if (isset($d) && $d)
		{
			$ls_pdfcode = $io_pdf->ezOutput(1);
		  	$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
		  	echo '<html><body>';
		  	echo trim($ls_pdfcode);
		  	echo '</body></html>';
		}
		else
		{
			$io_pdf->ezStream();
		}
		unset($io_pdf);
	}
	unset($io_report);
	unset($io_funciones);
	unset($io_function_report);
	unset($io_fecha);
?> 