PHP class_funciones_nomina::uf_formatonumerico方法代码示例

			         $i++;
			 	 $ls_cedper=$rs_data->fields["cedper"];
				 $ls_cedper=number_format($ls_cedper,0,",",".");
				 $ls_nomper=$rs_data->fields["apeper"].", ".$rs_data->fields["nomper"];
				
				 $ls_monto=$rs_data->fields["monto"];
				 $li_montot=$li_montot+$ls_monto;
				 $ls_nomaut=$ls_nomper;
				 $ls_cedaut=$ls_cedper;
				 $ls_cedaut=number_format($ls_cedaut,0,",",".");
				 $ls_data[$i]=array('cedper'=>$ls_cedaut,						
						    'nomper'=>$ls_nomper,
						    'cedaut'=>$ls_cedaut,
						    'nomaut'=>$ls_nomaut,
						    'pais'=>"",						  
						    'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto));				 
				$rs_data->MoveNext();
			}//fin del while	
			uf_print_detalle($ls_data,&$io_pdf);
			$li_montot=$io_fun_nomina->uf_formatonumerico($li_montot);	
			uf_print_piecabecera($i,$li_montot,$io_pdf);
			unset($ls_data);
	    }
		$io_report->io_sql->free_result($rs_data);
		if (($lb_valido)&&($rs_data->RecordCount()>0)) // Si no ocurrio ningún error
		{
			$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
			$io_pdf->ezStream(); // Mostramos el reporte
		}
		else  // Si hubo algún error
		{

		{
			$ls_codper=$io_report->DS->data["codper"][$li_i];
			$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
			$ls_nacper=$io_report->DS->data["nacper"][$li_i];
			$ls_cedper=$io_report->DS->data["cedper"][$li_i];
			$lb_valido=$io_report->uf_retencionarc_meses($ls_codper,$la_nominas,$li_total,$ls_ano); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
				$li_arcacum=0;
				$li_islracum=0;
				$lb_arc=false;
				for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
				{
					$ls_codisr=$io_report->DS_detalle->data["codisr"][$li_s];
					$li_porisr=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["porisr"][$li_s]);
					$li_arcacum=$li_arcacum+abs($io_report->DS_detalle->data["arc"][$li_s]);
					$li_islracum=$li_islracum+abs($io_report->DS_detalle->data["islr"][$li_s]);
					$li_arc=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["arc"][$li_s]));
					$li_islr=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["islr"][$li_s]));
					$li_arc_acumulado=$io_fun_nomina->uf_formatonumerico($li_arcacum);
					$li_isl_acumulado=$io_fun_nomina->uf_formatonumerico($li_islracum);
					$ls_mes=strtoupper(substr($io_fecha->uf_load_nombre_mes($ls_codisr),0,3));
					if($li_arc<>"0,00")
					{
						$lb_arc=true;
					}
					$la_data[$li_s]=array('mes'=>$ls_mes,'arc'=>$li_arc,'porcentaje'=>$li_porisr,'retencion'=>$li_islr,
										  'arcacum'=>$li_arc_acumulado,'retencionacum'=>$li_isl_acumulado,'datos'=>'');
				}
				$io_report->DS_detalle->resetds("codper");

	{
		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,2.5,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
		$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
		$li_totrow=$io_report->rs_data->RecordCount();
		$li_i=1;
		while((!$io_report->rs_data->EOF)&&($lb_valido))
		{
			$ls_codconc=$io_report->rs_data->fields["codconc"];
			$ls_nomcon=$io_report->rs_data->fields["nomcon"];
			$li_tottra=$io_report->rs_data->fields["total"];
			$li_montot=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data->fields["monto"]));
			$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
			uf_print_cabecera($ls_codconc,$ls_nomcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
			$lb_valido=$io_report->uf_listadoconcepto_personalconcepto($ls_codconc,$ls_codperdes,$ls_codperhas,$ls_conceptocero,$ls_coduniadm,
																	   $ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
				$li_s=1;
				while(!$io_report->rs_data_detalle->EOF)
				{
					$ls_cedper=$io_report->rs_data_detalle->fields["cedper"];
					$ls_apenomper=$io_report->rs_data_detalle->fields["apeper"].", ". $io_report->rs_data_detalle->fields["nomper"];
					$ls_descar=$io_report->rs_data_detalle->fields["descar"];
					$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valsal"]));
					$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'cargo'=>$ls_descar,'monto'=>$li_valsal);

		uf_print_cabecera($io_pdf);
		for($li_i=1;$li_i<=$li_totrow;$li_i++)
		{
			$ls_cedper=$io_report->DS->data["cedper"][$li_i];
			$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
			$ld_fecnacper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecnacper"][$li_i]);
			$ld_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecingper"][$li_i]);
			$li_sueldo=$io_report->DS->data["sueldo"][$li_i];
			$li_total=$io_report->DS->data["total"][$li_i];
			$li_sueldo_sem=0;
			if($li_total>0)
			{
				$li_sueldo_sem=($li_sueldo/$li_total);
				$li_sueldo_sem=(($li_sueldo_sem*12)/52);
			}
			$li_sueldo_sem=$io_fun_nomina->uf_formatonumerico($li_sueldo_sem);
			$la_data[$li_i]=array('nro'=>$li_i,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'fechanacimiento'=>$ld_fecnacper,'fechaingreso'=>$ld_fecingper,'sueldo'=>$li_sueldo_sem);
		}
		$io_report->DS->resetds("codper");
		uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
		unset($la_data);
		if($lb_valido) // Si no ocurrio ningún error
		{
			$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
			$io_pdf->ezStream(); // Mostramos el reporte
		}
		else // Si hubo algún error
		{
			print("<script language=JavaScript>");
			print(" alert('Ocurrio un error al generar el reporte. Intente de Nuevo');"); 
			print(" close();");

			$lb_valido=$io_report->uf_pagonomina_conceptopersonal($ls_codper,$ls_conceptocero,$ls_tituloconcepto,$ls_conceptoreporte,$ls_conceptop2); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				$li_totrow_res=$io_report->rs_data_detalle->RecordCount();
				$li_s=1;
				while (!$io_report->rs_data_detalle->EOF)
				{
					$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
					$ls_nomcon=$io_report->rs_data_detalle->fields["nomcon"];
					$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
					$li_valsal=abs($io_report->rs_data_detalle->fields["valsal"]);
					switch($ls_tipsal)
					{
						case "A":
							$li_totalasignacion=$li_totalasignacion + $li_valsal;
							$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
							$li_deduccion=""; 
							$li_aporte=""; 
							break;
							
						case "V1":
							$li_totalasignacion=$li_totalasignacion + $li_valsal;
							$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
							$li_deduccion=""; 
							$li_aporte=""; 
							break;
							
						case "W1":
							$li_totalasignacion=$li_totalasignacion + $li_valsal;
							$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
							$li_deduccion=""; 

			$ls_codconc=$io_report->DS->data["codconc"][$li_i];
			$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
			$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
			uf_print_cabecera($ls_codconc,$ls_nomcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
			$lb_valido=$io_report->uf_ipasme_aporte_personal($ls_codconc,$ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_conceptocero,$ls_orden); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
				$li_emp_total=0;
				$li_pat_total=0;
				$li_tot_total=0;
				for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
				{
					$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
					$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
					$li_empleado=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["personal"][$li_s]));
					$li_patron=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["patron"][$li_s]));
					$li_total= abs($io_report->DS_detalle->data["personal"][$li_s])+ abs($io_report->DS_detalle->data["patron"][$li_s]);
					$li_emp_total=$li_emp_total+abs($io_report->DS_detalle->data["personal"][$li_s]);
					$li_pat_total=$li_pat_total+abs($io_report->DS_detalle->data["patron"][$li_s]);
					$li_tot_total=$li_tot_total+$li_total;
					$li_total=$io_fun_nomina->uf_formatonumerico(abs($li_total));
					$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'empleado'=>$li_empleado,'patron'=>$li_patron,'total'=>$li_total);
				}
				$io_report->DS_detalle->resetds("cedper");
				uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
				$li_emp_total=$io_fun_nomina->uf_formatonumerico(abs($li_emp_total));
				$li_pat_total=$io_fun_nomina->uf_formatonumerico(abs($li_pat_total));
				$li_tot_total=$io_fun_nomina->uf_formatonumerico(abs($li_tot_total));
				uf_print_piecabecera($li_emp_total,$li_pat_total,$li_tot_total,$io_pdf); // Imprimimos el pie de la cabecera
				$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera

		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.60,2.5,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_rango,$ls_rango2,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
		$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
		uf_print_cabecera($ls_codconc,$ls_nomcon,$io_pdf); // Imprimimos la cabecera del registro
		$li_totrow=$io_report->DS->getRowCount("cedper");
		$li_totper=0;
		$li_totpat=0;
		for($li_i=1;$li_i<=$li_totrow;$li_i++)
		{
			$ls_cedper=$io_report->DS->data["cedper"][$li_i];
			$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
			$li_personal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["personal"][$li_i]));
			$li_patron=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["patron"][$li_i]));
			$li_total=abs($io_report->DS->data["personal"][$li_i]+$io_report->DS->data["patron"][$li_i]);
			$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
			$li_totper=$li_totper+abs($io_report->DS->data["personal"][$li_i]);
			$li_totpat=$li_totpat+abs($io_report->DS->data["patron"][$li_i]);
			$li_totalgeneral=$li_totper+$li_totpat;
			$la_data[$li_i]=array('nro'=>$li_i,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'personal'=>$li_personal,'patron'=>$li_patron,'total'=>$li_total);
		}
		$io_report->DS->resetds("cedper");
		uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
		$li_totper=$io_fun_nomina->uf_formatonumerico($li_totper);
		$li_totpat=$io_fun_nomina->uf_formatonumerico($li_totpat);
		$li_totalgeneral=$io_fun_nomina->uf_formatonumerico($li_totalgeneral);
		uf_print_piecabecera($li_totper,$li_totpat,$li_totalgeneral,$io_pdf); // Imprimimos el fin del reporte
		if($lb_valido) // Si no ocurrio ningún error

		$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
		$io_pdf->ezSetCmMargins(3.1,2.5,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
		$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
		$li_totrow=$io_report->DS->getRowCount("cedper");
		for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
		{
			$ls_codper=$io_report->DS->data["codper"][$li_i];
			$li_numpre=$io_report->DS->data["numpre"][$li_i];
			$ls_cedper=$io_report->DS->data["cedper"][$li_i];
			$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
			$ls_codtippre=$io_report->DS->data["codtippre"][$li_i];
			$ls_destippre=$io_report->DS->data["destippre"][$li_i];
			$ls_codconc=$io_report->DS->data["codconc"][$li_i];
			$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
			$li_monpre=$io_fun_nomina->uf_formatonumerico($io_report->DS->data["monpre"][$li_i]);
			$li_numcuopre=$io_report->DS->data["numcuopre"][$li_i];
			$li_monamopre=$io_fun_nomina->uf_formatonumerico($io_report->DS->data["monamopre"][$li_i]);
			$li_saldo=($io_report->DS->data["monpre"][$li_i]-$io_report->DS->data["monamopre"][$li_i]);
			$li_saldo=$io_fun_nomina->uf_formatonumerico($li_saldo);
			$ls_stapre=$io_report->DS->data["stapre"][$li_i];
			switch($ls_stapre)
			{
				case "1": 
					$ls_stapre="Activo";
					break;
				case "2": 
					$ls_stapre="Suspendido";
					break;
				case "3": 
					$ls_stapre="Cancelado";

					switch($ls_nacper)
					{
						case "V": // Venezolano
							$ls_nacper="Venezolano";
							break;
						case "E": // Extranjero
							$ls_nacper="Extranjero";
							break;
					}
					
					$ls_desuniadm=$row["desuniadm"];	
					
						
					
					
					$li_monto=$io_fun_nomina->uf_formatonumerico($row["monto"]);		
					$io_numero_letra->setNumero($row["monto"]);
					$ls_monto=$io_numero_letra->letra();
					$ls_monto=$ls_monto." (".$ls_prefijo." ".$li_monto.")";
				
					$ls_contenido=str_replace("\$ls_dia",$ls_dia_act,$ls_contenido);
					$ls_contenido=str_replace("\$ls_mes",$ls_mes_act,$ls_contenido);
					$ls_contenido=str_replace("\$ls_ano",$ls_ano_act,$ls_contenido);
					$ls_contenido=str_replace("\$ls_nombres",$ls_nomper,$ls_contenido);
					$ls_contenido=str_replace("\$ls_apellidos",$ls_apeper,$ls_contenido);
					$ls_contenido=str_replace("\$ls_cedula",$ls_cedper,$ls_contenido);
					$ls_contenido=str_replace("\$ls_cargo",$ls_descar,$ls_contenido);
					$ls_contenido=str_replace("\$ls_profesion",$ls_profesion,$ls_contenido);					
					$ls_contenido=str_replace("\$ld_fecha_inicio",$ls_fechainicio,$ls_contenido);
					$ls_contenido=str_replace("\$ld_fecha_culminacion",$ls_fechafinal,$ls_contenido);				
					$ls_contenido=str_replace("\$ls_nacionalidad",$ls_nacper,$ls_contenido);					

			$ls_coduniadm=$ls_minorguniadm."-".$ls_ofiuniadm."-".$ls_uniuniadm."-".$ls_depuniadm."-".$ls_prouniadm;
			$ls_desuniadm=$io_report->DS->data["desuniadm"][$li_i];
			uf_print_cabecera($ls_coduniadm,$ls_desuniadm,$io_pdf); // Imprimimos la cabecera del registro
			$lb_valido=$io_report->uf_resumenconceptounidad_concepto($ls_codconcdes,$ls_codconchas,$ls_coduniadm,$ls_conceptocero,$ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
			$li_totasi=0;
			$li_totded=0;
			$li_totapo=0;
			if($lb_valido)
			{
				$li_totrow_res=$io_report->DS_detalle->getRowCount("codconc");
				for($li_s=1;$li_s<=$li_totrow_res;$li_s++)
				{
					$ls_codconc=$io_report->DS_detalle->data["codconc"][$li_s];
					$ls_nomcon=$io_report->DS_detalle->data["nomcon"][$li_s];
					$ls_tipsal=rtrim($io_report->DS_detalle->data["tipsal"][$li_s]);
					$li_monto=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["monto"][$li_s]));
					$li_totalpersonal=number_format($io_report->DS_detalle->data["total"][$li_s],0,"",".");
					$ls_cueprecon=rtrim($io_report->DS_detalle->data["cueprecon"][$li_s]);
					$ls_cueprepatcon=rtrim($io_report->DS_detalle->data["cueprepatcon"][$li_s]);
					switch($ls_tipsal)
					{
						case "A": // Asignación
							$li_totasi=$li_totasi+abs($io_report->DS_detalle->data["monto"][$li_s]);
							$la_data[$li_s]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'partida'=>$ls_cueprecon,'personal'=>$li_totalpersonal,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
							break;
		
						case "V1": // Asignación
							$li_totasi=$li_totasi+abs($io_report->DS_detalle->data["monto"][$li_s]);
							$la_data[$li_s]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'partida'=>$ls_cueprecon,'personal'=>$li_totalpersonal,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
							break;
		

						case "15": // Incapacitados
							$ls_tipnom="Incapacitados";
							break;
					}
					if($ls_tiporeporte==1)
					{
						$ls_prefijo="Bs.F.";
					}
					else
					{
						$ls_prefijo="Bs.";
					}
					$ls_telhabper=$io_report->DS_detalle->data["telhabper"][$li_s];	
					$ls_telmovper=$io_report->DS_detalle->data["telmovper"][$li_s];	
					$ls_desuniadm=$io_report->DS_detalle->data["desuniadm"][$li_s];	
					$li_horper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["horper"][$li_s]);	
					$li_sueper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueper"][$li_s]);		
					$io_numero_letra->setNumero($io_report->DS_detalle->data["sueper"][$li_s]);
					$ls_sueper=$io_numero_letra->letra();
					$ls_sueper=$ls_sueper." (".$ls_prefijo." ".$li_sueper.")";
					$li_sueintper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueintper"][$li_s]);	
					$io_numero_letra->setNumero($io_report->DS_detalle->data["sueintper"][$li_s]);
					$ls_sueintper=$io_numero_letra->letra();
					$ls_sueintper=$ls_sueintper." (".$ls_prefijo." ".$li_sueintper.")";
					$li_sueproper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueproper"][$li_s]);	
					$io_numero_letra->setNumero($io_report->DS_detalle->data["sueproper"][$li_s]);
					$ls_sueproper=$io_numero_letra->letra();
					$ls_sueproper=$ls_sueproper." (".$ls_prefijo." ".$li_sueproper.")";
					$ls_desded=$io_report->DS_detalle->data["desded"][$li_s];	
					$ls_destipper=$io_report->DS_detalle->data["destipper"][$li_s];	
					$ls_fecjub=$io_report->DS_detalle->data["fecjubper"][$li_s];

					
					case "1":
						$ls_forma="Dpto. en Cuenta";
					break;
				 }
				 $ls_monto=$row["monpagben"];
				 $ls_banco=$row["nomban"];
				 $ls_cuenta=$row["ctaban"];
				 $ls_nomaut=$row["nomcheben"];
				 $ls_cedaut=$row["cedaut"];
				 $ls_cedaut=number_format($ls_cedaut,0,",",".");
				 $ls_data[$i]=array('cedper'=>$ls_cedper,						
									'cedben'=>$ls_cedbene,
									'cedaut'=>$ls_cedaut,
									'nomaut'=>$ls_nomaut,						  
									'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto),
									'banco'=>$ls_banco,
									'forma'=>$ls_forma,
									'cuenta'=>$ls_cuenta);				 
				
			}//fin del while	
			uf_print_detalle($ls_data,&$io_pdf);
			unset($ls_data);
	    }
		$io_report->io_sql->free_result($rs_data);
		if (($lb_valido)&&($li_numrowtot>0)) // Si no ocurrio ningún error
		{
			$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
			$io_pdf->ezStream(); // Mostramos el reporte
		}
		else  // Si hubo algún error

	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,2.5,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
		$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
		$li_totrow=$io_report->DS->getRowCount("codproy");
		for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
		{
			$ls_codproy=$io_report->DS->data["codproy"][$li_i];
			$ls_nomproy=$io_report->DS->data["nomproy"][$li_i];
			$li_tottra=$io_report->DS->data["total"][$li_i];
			$li_montot=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["monto"][$li_i]));
			$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
			uf_print_cabecera($ls_codproy,$ls_nomproy,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
			$lb_valido=$io_report->uf_listadoproyecto_proyectospersonal($ls_codproy,$ls_orden); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
				for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
				{
					$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
					$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
					$ls_descar=$io_report->DS_detalle->data["descar"][$li_s];
					$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["pordiames"][$li_s]));
					$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'cargo'=>$ls_descar,'monto'=>$li_valsal);
				}
				$io_report->DS_detalle->resetds("cedper");

							$ls_tipprenom="APORTE PATRONAL";
							break;

						case "R": // Reporte
							$ls_tipprenom="REPORTE";
							break;					

						case "B": // Reintegro de Deducción
							$ls_tipprenom="REINTEGRO DE DEDUCCIÓN";
							break;					

						case "E": // Reintegro de Asignación
							$ls_tipprenom="REINTEGRO DE ASIGNACIÓN";
							break;
					}
					$li_valprenom=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valprenom"]));
					$li_valhis=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valhis"]));
					$li_s++;
					$la_data[$li_s]=array('codigo'=>$ls_codconc,'concepto'=>$ls_nomcon,'signo'=>$ls_tipprenom,'prenomina'=>$li_valprenom,'anterior'=>$li_valhis);
					$io_report->rs_data_detalle->MoveNext();
				}
				$li_total_pre=$li_total_pre+$li_totprenom;
				$li_total_his=$li_total_his+$li_totant;
				$li_totprenom=$io_fun_nomina->uf_formatonumerico(abs($li_totprenom));
				$li_totant=$io_fun_nomina->uf_formatonumerico(abs($li_totant));
				if($li_s>0)
				{
					uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle 
					uf_print_pie_cabecera($li_totprenom,$li_totant,$io_pdf); // Imprimimos pie de la cabecera
				}
				if ($io_pdf->ezPageCount==$li_numpag)

		$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
		uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
		$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
		$li_totrow=$rs_data->RecordCount();
		$li_totasi=0;
		$li_totded=0;
		$li_totapo=0;
		uf_print_cabecera($io_pdf);
		//for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
		$li_i=1;
		$la_data="";
		while ((!$rs_data->EOF)&&($lb_valido))
		{
			$ls_codconc=$rs_data->fields["codconc"];
			$ls_nomcon=$rs_data->fields["nomcon"];
			$li_monto=$io_fun_nomina->uf_formatonumerico(abs($rs_data->fields["monto"]));
			$ls_tipsal=rtrim($rs_data->fields["tipsal"]);
			switch($ls_tipsal)
			{
				case "A": // Asignación
					$li_totasi=$li_totasi+abs($rs_data->fields["monto"]);
					$la_data[$li_i]=array('nro'=>$li_i,'codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
					break;

				case "V1": // Asignación
					$li_totasi=$li_totasi+abs($rs_data->fields["monto"]);
					$la_data[$li_i]=array('nro'=>$li_i,'codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
					break;

				case "W1": // Asignación
					$li_totasi=$li_totasi+abs($io_report->DS->data["monto"][$li_i]);