$ls_operacion=$row["operacion"]; 
				   $ls_descripcion=$row["descripcion"];
				   $ld_monto=$row["monto"]; 
				   $ls_orden=$row["orden"]; 
				   $ls_denominacion=$row["denominacion"];
				   $ls_estcla=$row["estcla"];
					
					  $ld_totalprogramatica=$ld_totalprogramatica+$ld_monto;
					  $ld_total=$ld_total+$ld_monto;
					  $ld_monto=number_format($ld_monto,2,",",".");
					  $la_data[$i]=array('cuenta'=>$ls_spg_cuenta,'denominacion'=>$ls_denominacion,'descripcion'=>$ls_descripcion,'documento'=>$ls_documento,'monto'=>$ld_monto);
					  $ld_monto=str_replace('.','',$ld_monto);
					  $ld_monto=str_replace(',','.',$ld_monto);		
				}
		        $io_encabezado=$io_pdf->openObject();
                uf_print_cabecera_detalle($io_encabezado,$io_pdf);
				//uf_print_cabecera_detalle($io_pdf);
				uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle	
				if($ls_tipoformato==1)//BsF.
				{
					$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
					uf_print_total_programatica($ld_totalprogramatica,'Bs.',$io_pdf); // Imprimimos el total programatica
				}
				else //Bs.
				{	
				//	$ld_totalprogramatica_bsf   = $io_rcbsf->uf_convertir_monedabsf($ld_totalprogramatica, $li_candeccon,$li_tipconmon,1000,$li_redconmon);	
					
					$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
					uf_print_total_programatica($ld_totalprogramatica,'Bs.',$io_pdf); // Imprimimos el total programatica
	
				//	$ld_totalprogramatica_bsf=number_format($ld_totalprogramatica_bsf,2,",",".");
 for ($z = 1; $z <= $li_total; $z++) {
     //1
     $ls_codpro = $data["cod_pro"][$z];
     $ls_nompro = $data["nompro"][$z];
     $ls_rifpro = $data["rifpro"][$z];
     $ls_dirpro = $data["dirpro"][$z];
     $ls_telpro = $data["telpro"][$z];
     $ls_especialidad = $io_report->uf_load_especialidadproveedor2($ls_codpro, &$lb_valido);
     $ls_nivel = $io_report->uf_load_niveldecontratacionporproveedor($ls_codpro, &$lb_valido);
     $ls_clas = $io_report->uf_load_niveldeclasificacionporproveedor($ls_codpro, &$lb_valido);
     $ld_moncapfin = number_format($data["monfincon"][$z], 2, ",", ".");
     //Capacidad Financiera.
     $la_data[$z] = array('codigo' => $ls_codpro, 'nombre' => $ls_nompro, 'rif' => $ls_rifpro, 'direccion' => $ls_dirpro, 'telefono' => $ls_telpro, 'especialidad' => $ls_especialidad, 'nivel' => $ls_nivel, 'calificacion' => $ls_clas, 'capacidad' => $ld_moncapfin);
 }
 //1
 uf_print_cabecera_detalle($io_pdf);
 uf_print_detalle($la_data, $io_pdf);
 // Imprimimos el detalle
 //-----------------------------------------------MOSTRAR TOTAL---------------------------------------------------------------------------------//
 $la_data = array(array('titulo' => '', 'total' => ''));
 $la_data = array(array('titulo' => '', 'total' => ''));
 $la_data = array(array('titulo' => '<b>Total de Proveedores</b>', 'total' => $li_total . '   '));
 $la_columna = array('titulo' => '', 'total' => '');
 $la_config = array('showHeadings' => 0, 'fontSize' => 9, 'titleFontSize' => 10, 'showLines' => 0, 'shaded' => 0, 'shadeCol2' => array(0.86, 0.86, 0.86), 'colGap' => 1, 'width' => 900, 'maxWidth' => 900, 'xOrientation' => 'center', 'cols' => array('titulo' => array('justification' => 'right', 'width' => 830), 'total' => array('justification' => 'right', 'width' => 70)));
 // Justificación y ancho de la columna
 $io_pdf->ezTable($la_data, $la_columna, '', $la_config);
 //--------------------------------------------------------------------------------------------------------------------------------//
 if ($lb_valido) {
     $io_pdf->ezStopPageNumbers(1, 1);
     // Detenemos la impresión de los números de página
     $io_pdf->ezStream();
			{
				$li_aux++;
				$ls_nroreg=$io_report->DS->data["nroreg"][$li_i];
				$ls_codigo=$io_report->DS->data["codper"][$li_i];
				$ls_fechaini=$io_report->DS->data["fecini"][$li_i];
				$ls_fechafin=$io_report->DS->data["fecfin"][$li_i];
				$ls_nombreper=$io_report->DS->data["nomper"][$li_i];
				$ls_apellidoper=$io_report->DS->data["apeper"][$li_i];
				$ls_fechaini=$io_funciones->uf_formatovalidofecha($ls_fechaini);
				$ls_fechaini=$io_funciones->uf_convertirfecmostrar($ls_fechaini);
				$ls_fechafin=$io_funciones->uf_formatovalidofecha($ls_fechafin);
				$ls_fechafin=$io_funciones->uf_convertirfecmostrar($ls_fechafin);
				$ls_cadena=$ls_nombreper."  ".$ls_apellidoper;
				$la_dataper[$li_i]=array('codigo'=>$ls_codigo,'nombre'=>$ls_cadena,
									  'fechaini'=>$ls_fechaini,'fechafin'=>$ls_fechafin);
				uf_print_cabecera_detalle($la_dataper,$li_totrow,$io_pdf);
                unset($la_dataper);
				$io_report->uf_print_detalle_metas_x_personal($ls_nroreg,$ld_fechades,$ld_fechahas,$ls_codperdes,$ls_codperhas);// Cargar el DS con los datos del reporte
				$li_totrow1=$io_report->ds_detalle->getRowCount("codmeta");
				for($li_p=1;$li_p<=$li_totrow1;$li_p++)
				{
					$ls_codigo=$io_report->ds_detalle->data["codmeta"][$li_p];
					$ls_meta=$io_report->ds_detalle->data["meta"][$li_p];
					$ls_valor=$io_report->ds_detalle->data["valor"][$li_p];
					$ls_fechaeje=$io_report->ds_detalle->data["feceje"][$li_p];
					$ls_obse=$io_report->ds_detalle->data["obsmet"][$li_p];
					$ls_fechaeje=$io_funciones->uf_formatovalidofecha($ls_fechaeje);
					$ls_fechaeje=$io_funciones->uf_convertirfecmostrar($ls_fechaeje);
					$la_detalle[$li_p]=array('codigo'=>$ls_codigo,'meta'=>$ls_meta,
										  'valor'=>$ls_valor,'fechaeje'=>$ls_fechaeje,'obse'=>$ls_obse);
				} //fin del for
     $ls_dir = $la_provben["dirpro"];
     $ls_nombre = $la_provben["nompro"];
 } else {
     $la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT rifben,ced_bene,dirbene,nombene,apebene FROM rpc_beneficiario WHERE codemp='" . $ls_codemp . "' AND  ced_bene='" . $ls_codproben . "'");
     $ls_rif = $la_provben["rifben"];
     $ls_nit = $la_provben["ced_bene"];
     $ls_dir = $la_provben["dirbene"];
     $ls_nombre = $la_provben["nombene"] . " " . $la_provben["apebene"];
 }
 $ls_titulo = $ls_titulo . $ls_tipo;
 uf_print_encabezado_pagina($ls_titulo, $ls_numnota, $ls_fecha, $ls_tipo, $io_pdf);
 // Imprimimos el encabezado de la página
 uf_print_cabecera($ls_nombre, $ls_nit, $ls_dir, $ls_tipo, $ls_estatusnota, $ls_tipproben, $io_pdf);
 // Imprimimos la cabecera del registro
 $ls_tipoencabenzadosol = "";
 uf_print_cabecera_detalle($ls_tipoencabenzadosol, $io_pdf);
 $ldec_monto = number_format($ldec_monto, 2, ",", ".");
 $la_data[1] = array('denominacion' => $ls_descripcion, 'monto' => $ldec_monto);
 uf_print_concepto_nc($la_data, &$io_pdf);
 //**************************************************************************************************************************
 $lb_valido = $io_report->uf_select_dt_spg_nota($ls_numnota, $ls_numord, $ls_numrecdoc, $ls_codtipdoc, $ls_tipproben, $ls_codproben, &$rs_data);
 if ($lb_valido) {
     $b = 0;
     while ($row = $io_report->io_sql->fetch_row($rs_data)) {
         $b++;
         $ls_cuentaspg = trim($row["spg_cuenta"]);
         $ls_codestpro = $row["codestpro"];
         $ls_modalidad = $_SESSION['la_empresa']['estmodest'];
         switch ($ls_modalidad) {
             case "1":
                 // Modalidad por Proyecto
											'disminución'=>number_format($ld_disminucion,2,',','.'),'montoactualizado'=>number_format($ld_monto_actualizado,2,',','.'),
											'devengado'=>number_format($ld_devengado,2,',','.'),'cobrado'=>number_format($ld_cobrado,2,',','.'),
											'cobrado_anticipado'=>number_format($ld_cobrado_anticipado,2,',','.'),'porcobrar'=>number_format($ld_por_cobrar,2,',','.'));
					 $ld_por_devengar=$ld_sub_total_previsto+$ld_sub_total_aumento+$ld_sub_total_disminucion;
					 $ld_saldo_por_devengar=$ld_por_devengar-$ld_sub_total_devengado;
					 $ld_subtotal_previsto=$ld_sub_total_previsto;
					 $ld_subtotal_aumento=$ld_sub_total_aumento;
					 $ld_subtotal_disminucion=$ld_sub_total_disminucion;
					 $ld_subtotal_devengado=$ld_sub_total_devengado;
					 $ld_subtotal_cobrado=$ld_sub_total_cobrado;
					 $ld_subtotal_cobrado_anticipado=$ld_sub_total_cobrado_anticipado;
					 $ld_subtotal_monto_actualizado=$ld_sub_total_monto_actualizado;
					 $ld_subtotal_por_cobrar=$ld_sub_total_por_cobrar;
				}
			} // end for($li_s)
          	 uf_print_cabecera_detalle($ls_cuentaimprimir,$ls_denominacion,$io_pdf);
			 uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
			 uf_print_pie_cabecera(number_format($ld_saldo_por_devengar,2,',','.'),
			                       number_format($ld_sub_total_previsto,2,',','.'),
								   number_format($ld_sub_total_aumento,2,',','.'),
			                       number_format($ld_sub_total_disminucion,2,',','.'),
								   number_format($ld_sub_total_monto_actualizado,2,',','.'),
								   number_format($ld_sub_total_devengado,2,',','.'),
								   number_format($ld_sub_total_cobrado,2,',','.'),
								   number_format($ld_sub_total_cobrado_anticipado,2,',','.'),
								   number_format($ld_sub_total_por_cobrar,2,',','.'),$io_pdf);
			
		}// end for($li_z)
		/*for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
		{
		  $li_tmp=($li_s+1);
			          {
						$la_data[$z]=array('estructura'=>$ls_codestpro,
										   'especifica'=>$ls_especifica,
										   'denominacion'=>$ls_denominacion,
										   'cedente'=>number_format($ld_disminucion,2,',','.'),
										   'receptora'=>number_format($ld_aumento,2,',','.'));
					  }
		 	       if (!empty($ls_procomp_next))
			          {
						 $la_data[$z]=array('estructura'=>$ls_codestpro,
										    'especifica'=>$ls_especifica,
										    'denominacion'=>$ls_denominacion,
										    'cedente'=>number_format($ld_disminucion,2,',','.'),
										    'receptora'=>number_format($ld_aumento,2,',','.'));
						 $io_encabezado=$io_pdf->openObject();
						 uf_print_cabecera_detalle($io_encabezado,$ls_descripcion,$ls_comprobante,$ldt_fecha,$ldt_fecaprmod,$ls_proc,$io_pdf);
						 uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
						
						 
						 if($ls_tipoformato==1)
						 {
							 $ld_totalaumento=number_format($ld_totalaumento,2,",",".");
						     $ld_totaldismi=number_format($ld_totaldismi,2,",",".");
							 //uf_print_pie_cabecera($ld_totalaumento,$ld_totaldismi,'BsF.',$io_pdf);	
						 }
						 else
						 {		
						 	 //$ld_totaldismi_bsf   = $io_rcbsf->uf_convertir_monedabsf($ld_totaldismi, $li_candeccon,$li_tipconmon,1000,$li_redconmon);	
						     //$ld_totalaumento_bsf   = $io_rcbsf->uf_convertir_monedabsf($ld_totalaumento, $li_candeccon,$li_tipconmon,1000,$li_redconmon);	
							 $ld_totalaumento=number_format($ld_totalaumento,2,",",".");
						     $ld_totaldismi=number_format($ld_totaldismi,2,",",".");
         $io_pdf->transaction('start');
         // Iniciamos la transacción
         $li_numpag = $io_pdf->ezPageCount;
         // Número de página
         $ls_numero = $num;
         $ls_denunidadm = $io_report->ds->data["denuniadm"][$li_i];
         $ls_codact = $io_report->ds->data["codact"][$li_i];
         $ls_codgru = $io_report->ds->data["codgru"][$li_i];
         $ls_codsubgru = $io_report->ds->data["codsubgru"][$li_i];
         $ls_codsec = $io_report->ds->data["codsec"][$li_i];
         $ls_descripcion = $io_report->ds->data["denact"][$li_i];
         $ls_cantidad = 1;
         $li_costo = $io_report->ds->data["costo"][$li_i];
         $li_costo = $io_fun_activos->uf_formatonumerico($li_costo);
         $la_data[$num] = array('numero' => $ls_numero, 'grupo' => $ls_codgru, 'subgrupo' => $ls_codsubgru, 'seccion' => $ls_codsec, 'cantidad' => $ls_cantidad, 'codigo' => $ls_codact, 'descripcion' => $ls_descripcion, 'precio' => $li_costo);
         uf_print_cabecera_detalle($ls_denunidadm, $io_pdf);
         uf_print_detalle($la_data, $io_pdf);
         // Imprimimos el detalle
         uf_print_pie_cabecera($io_pdf);
         if ($li_i < $li_totrow) {
             $io_pdf->ezNewPage();
         }
         unset($la_data);
         $num = 1;
     }
 }
 if ($lb_valido) {
     $io_pdf->ezStopPageNumbers(1, 1);
     $io_pdf->ezStream();
 } else {
     print "<script language=JavaScript>";
									    'modpres'=>$ld_modpres,
									    'precom'=>$ld_precomprometido,
									    'libprecom'=>$ld_libprecomprometido,
									    'disponible'=>$ld_disponible);
			         break;		 		 
			 
			 }	// switch	
		        						 
				$io_cabecera=$io_pdf->openObject();
			    uf_print_cabecera($io_cabecera,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
				                  $ls_codestpro5,$ls_denestpro1,$ls_denestpro2,$ls_denestpro3,$io_pdf);
				$io_encabezado=$io_pdf->openObject();
				$io_function_report->uf_get_nom_mes($ld_per01,$as_nomper01);
				$io_function_report->uf_get_nom_mes($ld_per02,$as_nomper02);
				$io_function_report->uf_get_nom_mes($ld_per03,$as_nomper03);
				uf_print_cabecera_detalle($io_encabezado,$ld_tipper,$as_nomper01,$as_nomper02,$as_nomper03,$ld_fecfinrep,$io_pdf);
 				uf_print_detalle($la_data,$ld_tipper,$as_nomper01,$as_nomper02,$as_nomper03,$io_pdf); // Imprimimos el detalle 
				$io_pie_pagina=$io_pdf->openObject();
				//uf_print_pie_cabecera($la_data_tot,$io_pie_pagina,$io_pdf);	
				$io_pdf->stopObject($io_pie_pagina);
				$io_pie_pagina=$io_pdf->openObject();
				$io_pdf->stopObject($io_cabecera);
				$io_pdf->stopObject($io_encabezado);
				$io_pdf->stopObject($io_pie_pagina);
			    if ((!empty($ls_programatica_next))&&($z<$li_tot))
				{
				 $io_pdf->ezNewPage(); // Insertar una nueva página
				} 
                $ld_total_general_cuenta=0;
			    unset($la_data);
			    unset($la_data_tot);
		{
			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('LETTER','portrait'); // Instancia de la clase PDF
			$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
			$io_pdf->ezSetCmMargins(3.6,5,3,3); // Configuración de los margenes en centímetros
			$io_pdf->ezStartPageNumbers(570,47,8,'','',1); // Insertar el número de página	
		  	uf_print_encabezado_pagina($ls_titulo,$io_pdf);
			uf_print_cabecera_detalle($la_data,$ls_codigoper,$ls_nombreper,$ls_codigocon,$ls_descricon,$ls_fecha,&$io_pdf);
			$li_totrow=$io_report->ds_detalle->getRowCount("codite");
			$li_aux=0;
			$li_i=1;
			
			 while ($row=$io_report->io_sql->fetch_row($rs_data2))
		   { 
		  	   $li_aux++;
			  
			    $ls_codigoitem=$row["codite"];
				$ls_descripcion=trim ($row["denite"]);
				$ls_valormax=$row["valormax"];
				$ls_puntositem=$row["puntos"];
				$ls_resultado=$row["punevapsi"];
				$la_data[$li_i]=array('codigoitem'=>$ls_codigoitem,'descripcion'=>$ls_descripcion,'valormax'=>$ls_valormax,
				                     'puntositem'=>$ls_puntositem,'resultado'=>$ls_resultado);