<?php
    session_start();   
	ini_set('memory_limit','512M');
	ini_set('max_execution_time','0');

	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_insert_seguridad($as_titulo,$as_desnom,$as_periodo,$ai_tipo)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function: uf_insert_seguridad
		//		   Access: private 
		//	    Arguments: as_titulo // Título del Reporte
		//	    		   as_desnom // Descripción de la nómina
		//	    		   as_periodo // Descripción del período
		//    Description: función que guarda la seguridad de quien generó el reporte
		//	   Creado Por: Ing. Yesenia Moreno
		// Fecha Creación: 30/08/2007
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_fun_nomina;
		
		$ls_codnom=$_SESSION["la_nomina"]["codnom"];
		$ls_descripcion="Generó el Reporte ".$as_titulo." en Excel. Para ".$as_desnom.". ".$as_periodo;
		if($ai_tipo==1)
		{
			$lb_valido=$io_fun_nomina->uf_load_seguridad_reporte_nomina("SNO","sigesp_sno_r_pagonomina.php",$ls_descripcion,$ls_codnom);
		}
		else
		{
			$lb_valido=$io_fun_nomina->uf_load_seguridad_reporte_nomina("SNO","sigesp_sno_r_hpagonomina.php",$ls_descripcion,$ls_codnom);
		}
		return $lb_valido;
	}
	//-----------------------------------------------------------------------------------------------------------------------------------

	//---------------------------------------------------------------------------------------------------------------------------
	// para crear el libro excel
	require_once ("../../shared/writeexcel/class.writeexcel_workbookbig.inc.php");
	require_once ("../../shared/writeexcel/class.writeexcel_worksheet.inc.php");
	$lo_archivo = tempnam("/tmp", "pagonomina.xls");
	$lo_libro = &new writeexcel_workbookbig($lo_archivo);
	$lo_hoja = &$lo_libro->addworksheet();
	//---------------------------------------------------------------------------------------------------------------------------
	// para crear la data necesaria del reporte
	require_once("../../shared/ezpdf/class.ezpdf.php");
	if($_SESSION["la_nomina"]["tiponomina"]=="NORMAL")
	{
		require_once("sigesp_sno_class_report.php");
		$io_report=new sigesp_sno_class_report();
		$li_tipo=1;
		$ls_tabla="sno_salida";
	}
	if($_SESSION["la_nomina"]["tiponomina"]=="HISTORICA")
	{
		require_once("sigesp_sno_class_report_historico.php");
		$io_report=new sigesp_sno_class_report_historico();
		$li_tipo=2;
		$ls_tabla="sno_thsalida";
	}	
	$ls_bolivares ="Bs.";
	require_once("../../shared/class_folder/class_funciones.php");
	$io_funciones=new class_funciones();				
	require_once("../class_folder/class_funciones_nomina.php");
	$io_fun_nomina=new class_funciones_nomina();
	//----------------------------------------------------  Parámetros del encabezado  -----------------------------------------------
	$ls_desnom=$_SESSION["la_nomina"]["desnom"];
	$ls_peractnom=$_SESSION["la_nomina"]["peractnom"];
	$ld_fecdesper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fecdesper"]);
	$ld_fechasper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fechasper"]);
	$ls_titulo="Reporte General de Pago";
	$ls_periodo="Período Nro ".$ls_peractnom.", ".$ld_fecdesper." - ".$ld_fechasper."";
	//--------------------------------------------------  Parámetros para Filtar el Reporte  -----------------------------------------
	$ls_codperdes=$io_fun_nomina->uf_obtenervalor_get("codperdes","");
	$ls_codperhas=$io_fun_nomina->uf_obtenervalor_get("codperhas","");
	$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
	$ls_conceptocero=$io_fun_nomina->uf_obtenervalor_get("conceptocero","");
	$ls_tituloconcepto=$io_fun_nomina->uf_obtenervalor_get("tituloconcepto","");
	$ls_conceptoreporte=$io_fun_nomina->uf_obtenervalor_get("conceptoreporte","");
	$ls_conceptop2=$io_fun_nomina->uf_obtenervalor_get("conceptop2","");
	$ls_codubifis=$io_fun_nomina->uf_obtenervalor_get("codubifis","");
	$ls_codpai=$io_fun_nomina->uf_obtenervalor_get("codpai","");
	$ls_codest=$io_fun_nomina->uf_obtenervalor_get("codest","");
	$ls_codmun=$io_fun_nomina->uf_obtenervalor_get("codmun","");
	$ls_codpar=$io_fun_nomina->uf_obtenervalor_get("codpar","");
	$ls_subnomdes=$io_fun_nomina->uf_obtenervalor_get("subnomdes","");
	$ls_subnomhas=$io_fun_nomina->uf_obtenervalor_get("subnomhas","");
	//--------------------------------------------------------------------------------------------------------------------------------
	$lb_valido=uf_insert_seguridad($ls_titulo,$ls_desnom,$ls_periodo,$li_tipo); // Seguridad de Reporte
	if($lb_valido)
	{
		$lb_valido=$io_report->uf_pagonomina_personal($ls_codperdes,$ls_codperhas,$ls_conceptocero,$ls_conceptoreporte,$ls_conceptop2,
													  $ls_codubifis,$ls_codpai,$ls_codest,$ls_codmun,$ls_codpar,$ls_subnomdes,$ls_subnomhas,$ls_orden); // Cargar el DS con los datos de la cabecera del reporte
	}
	if(($lb_valido==false)||($io_report->rs_data->RecordCount()==0)) // 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
	{
		$io_fun_nomina->uf_loadmodalidad(&$li_len1,&$li_len2,&$li_len3,&$li_len4,&$li_len5,&$ls_titulo);
		$lo_encabezado= &$lo_libro->addformat();
		$lo_encabezado->set_bold();
		$lo_encabezado->set_font("Verdana");
		$lo_encabezado->set_align('center');
		$lo_encabezado->set_size('11');
		$lo_titulo= &$lo_libro->addformat();
		$lo_titulo->set_text_wrap();
		$lo_titulo->set_bold();
		$lo_titulo->set_font("Verdana");
		$lo_titulo->set_align('center');
		$lo_titulo->set_size('9');		
		$lo_datacenter= &$lo_libro->addformat();
		$lo_datacenter->set_font("Verdana");
		$lo_datacenter->set_align('center');
		$lo_datacenter->set_size('9');
		$lo_dataleft= &$lo_libro->addformat();
		$lo_dataleft->set_text_wrap();
		$lo_dataleft->set_font("Verdana");
		$lo_dataleft->set_align('left');
		$lo_dataleft->set_size('9');
		$lo_dataright= &$lo_libro->addformat(array("num_format"=> "#,##0.00"));
		$lo_dataright->set_font("Verdana");
		$lo_dataright->set_align('right');
		$lo_dataright->set_size('9');
		$lo_hoja->set_column(0,0,10);
		$lo_hoja->set_column(1,1,50);
		$lo_hoja->set_column(2,2,12);
		$lo_hoja->set_column(3,3,50);
		$lo_hoja->set_column(4,4,20);
		$lo_hoja->write(0,3,"Republica Bolivariana de Venezuela",$lo_encabezado);
		$lo_hoja->write(1,3,"Gobierno Bolivariano de Venezuela",$lo_encabezado);
		$lo_hoja->write(2,3,"Servicio Desconcentrado Oncológico del Estado Lara",$lo_encabezado);
		$lo_hoja->write(3,3,"Nómina de Pago Correspondiente a ".$ls_periodo,$lo_encabezado);
		$lo_hoja->write(4,3,$ls_desnom,$lo_encabezado);
		$lo_hoja->write(7, 0, "Item",$lo_titulo);
		$lo_hoja->write(7, 1, "Apellidos y Nombres",$lo_titulo);
		$lo_hoja->write(7, 2, "Cédula de Identidad",$lo_titulo);
		$lo_hoja->write(7, 3, "Cargo",$lo_titulo);
		$lo_hoja->write(7, 4, "Fecha Ingreso",$lo_titulo);
		$li_col=4;
		// Buscamos los conceptos de asignación
		$lb_valido=$io_report->uf_pagonomina_concepto_excel($ls_tituloconcepto," AND (sigcon='A' OR sigcon='B' OR sigcon='X' OR sigcon='I')"); // Obtenemos el detalle del reporte
		if($lb_valido)
		{
			$lo_hoja->write(6, $li_col+1, "ASIGNACIONES",$lo_titulo);
			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"];
				$li_col++;
				$lo_hoja->set_column($li_col,$li_col,20);
				$lo_hoja->write(7, $li_col, $ls_nomcon,$lo_titulo);
				$io_report->DS_detalle2->insertRow("codconc",$ls_codconc);
				$io_report->DS_detalle2->insertRow("columna",$li_col);
				$io_report->DS_detalle2->insertRow("acumulado",0);
				$io_report->rs_data_detalle->MoveNext();
			}
			$li_col++;
			$lo_hoja->set_column($li_col,$li_col,20);
			$lo_hoja->write(7, $li_col, "SUELDO INTEGRAL",$lo_titulo);
			$io_report->DS_detalle2->insertRow("codconc",'**********');
			$io_report->DS_detalle2->insertRow("columna",$li_col);
			$io_report->DS_detalle2->insertRow("acumulado",0);
	}
		// Buscamos los conceptos de Deducción
		$lb_valido=$io_report->uf_pagonomina_concepto_excel($ls_tituloconcepto," AND (sigcon='D' OR sigcon='E')"); // Obtenemos el detalle del reporte
		if($lb_valido)
		{
			$lo_hoja->write(6, $li_col+1, "DEDUCCIONES",$lo_titulo);
			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"];
				$li_col++;
				$lo_hoja->set_column($li_col,$li_col,20);
				$lo_hoja->write(7, $li_col, $ls_nomcon,$lo_titulo);
				$io_report->DS_detalle2->insertRow("codconc",$ls_codconc);
				$io_report->DS_detalle2->insertRow("columna",$li_col);
				$io_report->DS_detalle2->insertRow("acumulado",0);
				$io_report->rs_data_detalle->MoveNext();
			}
		}
		// Buscamos los conceptos de Aporte Patronal
		$lb_valido=$io_report->uf_pagonomina_concepto_excel($ls_tituloconcepto," AND sigcon='P'"); // Obtenemos el detalle del reporte
		if($lb_valido)
		{
			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"];
				$li_col++;
				$lo_hoja->set_column($li_col,$li_col,20);
				$lo_hoja->write(7, $li_col, $ls_nomcon,$lo_titulo);
				$io_report->DS_detalle2->insertRow("codconc",$ls_codconc."P1");
				$io_report->DS_detalle2->insertRow("columna",$li_col);
				$io_report->DS_detalle2->insertRow("acumulado",0);
				$io_report->rs_data_detalle->MoveNext();
			}
			$li_col++;
			$lo_hoja->set_column($li_col,$li_col,20);
			$lo_hoja->write(7, $li_col, "TOTAL DEDUCCIONES",$lo_titulo);
			$io_report->DS_detalle2->insertRow("codconc",'----------');
			$io_report->DS_detalle2->insertRow("columna",$li_col);
			$io_report->DS_detalle2->insertRow("acumulado",0);
			$li_col++;
			$lo_hoja->set_column($li_col,$li_col,20);
			$lo_hoja->write(7, $li_col, "NETO",$lo_titulo);
			$io_report->DS_detalle2->insertRow("codconc",'__________');
			$io_report->DS_detalle2->insertRow("columna",$li_col);
			$io_report->DS_detalle2->insertRow("acumulado",0);
			$li_col++;
			$lo_hoja->set_column($li_col,$li_col,20);
			$lo_hoja->write(7, $li_col, "PRIMERA QUINCENA",$lo_titulo);
			$io_report->DS_detalle2->insertRow("codconc",'..........');
			$io_report->DS_detalle2->insertRow("columna",$li_col);
			$io_report->DS_detalle2->insertRow("acumulado",0);
			$li_col++;
			$lo_hoja->set_column($li_col,$li_col,20);
			$lo_hoja->write(7, $li_col, "SEGUNDA QUINCENA",$lo_titulo);
			$io_report->DS_detalle2->insertRow("codconc",'++++++++++');
			$io_report->DS_detalle2->insertRow("columna",$li_col);
			$io_report->DS_detalle2->insertRow("acumulado",0);
		}
		$li_final=$li_col;
		$li_row=7;
		$li_totasi=0;
		$li_totded=0;
		$li_totapo=0;
		$li_totgeneral=0;
		$li_item=0;
		while(!$io_report->rs_data->EOF)
		{
			$li_totalasignacion=0;
			$li_totaldeduccion=0;
			$li_totalaporte=0;
			$li_total_neto=0;
			$li_item++;
			$ls_codper=$io_report->rs_data->fields["codper"];
			$ls_cedper=$io_report->rs_data->fields["cedper"];
			$ls_apenomper=$io_report->rs_data->fields["apeper"].", ". $io_report->rs_data->fields["nomper"];
			$ls_descar=$io_report->rs_data->fields["descar"];
			$ld_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->rs_data->fields["fecingper"]);
			$ld_sueper=number_format($io_report->rs_data->fields["sueper"],2,",",".");
			$ld_priquires=$io_report->rs_data->fields["priquires"];
			$ld_segquires=$io_report->rs_data->fields["segquires"];
			$li_row=$li_row+1;
			$lo_hoja->write($li_row, 0, $li_item, $lo_datacenter);
			$lo_hoja->write($li_row, 1, $ls_apenomper, $lo_dataleft);
			$lo_hoja->write($li_row, 2, $ls_cedper, $lo_datacenter);
			$lo_hoja->write($li_row, 3, $ls_descar, $lo_dataleft);
			$lo_hoja->write($li_row, 4, $ld_fecingper, $lo_datacenter);
			$li_col=4;
			// Buscamos las Asignaciones
			$lb_valido=$io_report->uf_pagonomina_conceptopersonal_excel($ls_codper,$ls_tituloconcepto," AND (".$ls_tabla.".tipsal='A' OR ".$ls_tabla.".tipsal='V1' OR ".$ls_tabla.".tipsal='W1')"); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				while(!$io_report->rs_data_detalle->EOF)
				{
					$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
					$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
					$li_valsal=abs($io_report->rs_data_detalle->fields["valsal"]);
					$li_totalasignacion=$li_totalasignacion + $li_valsal;
					$li_find=$io_report->DS_detalle2->find("codconc",$ls_codconc);
					$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
					$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
					$li_acumulado= $li_acumulado+$li_valsal;
					$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
					$lo_hoja->write($li_row, $li_col, $li_valsal, $lo_dataright);
					$io_report->rs_data_detalle->MoveNext();
				}
				$li_find=$io_report->DS_detalle2->find("codconc","**********");
				$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
				$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
				$li_acumulado= $li_acumulado+$li_totalasignacion;
				$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
				$lo_hoja->write($li_row, $li_col, number_format($li_totalasignacion,2,",","."), $lo_dataright);
			}
			// Buscamos las Deducciones
			$lb_valido=$io_report->uf_pagonomina_conceptopersonal_excel($ls_codper,$ls_tituloconcepto,"AND (".$ls_tabla.".tipsal='D' OR ".$ls_tabla.".tipsal='V2' OR ".$ls_tabla.".tipsal='W2')"); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				while(!$io_report->rs_data_detalle->EOF)
				{
					$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
					$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
					$li_valsal=abs($io_report->rs_data_detalle->fields["valsal"]);
					$li_totaldeduccion=$li_totaldeduccion + $li_valsal;
					$li_find=$io_report->DS_detalle2->find("codconc",$ls_codconc);
					$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
					$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
					$li_acumulado= $li_acumulado+$li_valsal;
					$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
					$lo_hoja->write($li_row, $li_col, $li_valsal, $lo_dataright);
					$io_report->rs_data_detalle->MoveNext();
				}
			}
			// Buscamos los Aportes Empleado
			$lb_valido=$io_report->uf_pagonomina_conceptopersonal_excel($ls_codper,$ls_tituloconcepto,"AND (".$ls_tabla.".tipsal='P1' OR ".$ls_tabla.".tipsal='V3' OR ".$ls_tabla.".tipsal='W3')"); // Obtenemos el detalle del reporte
			if($lb_valido)
			{
				while(!$io_report->rs_data_detalle->EOF)
				{
					$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
					$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
					$li_valsal=abs($io_report->rs_data_detalle->fields["valsal"]);
					$li_totaldeduccion=$li_totaldeduccion + $li_valsal;
					$li_find=$io_report->DS_detalle2->find("codconc",$ls_codconc."P1");
					$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
					$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
					$li_acumulado= $li_acumulado+$li_valsal;
					$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
					$lo_hoja->write($li_row, $li_col, $li_valsal, $lo_dataright);
					$io_report->rs_data_detalle->MoveNext();
				}
			}
			$li_col=$li_final;
			$li_find=$io_report->DS_detalle2->find("codconc",'----------');
			$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
			$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
			$li_acumulado= $li_acumulado+$li_totaldeduccion;
			$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
			$lo_hoja->write(6, $li_col, "TOTALES",$lo_titulo);
			$lo_hoja->write($li_row, $li_col, $li_totaldeduccion, $lo_dataright);
			$li_find=$io_report->DS_detalle2->find("codconc",'__________');
			$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
			$li_total_neto=$li_totalasignacion-$li_totaldeduccion;
			$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
			$li_acumulado= $li_acumulado+$li_total_neto;
			$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
			$lo_hoja->write($li_row, $li_col, $li_total_neto, $lo_dataright);
			$li_find=$io_report->DS_detalle2->find("codconc",'..........');
			$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
			$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
			$li_acumulado= $li_acumulado+$ld_priquires;
			$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
			$ld_priquires=number_format($ld_priquires,2,",",".");
			$lo_hoja->write($li_row, $li_col, $ld_priquires, $lo_dataright);
			$li_find=$io_report->DS_detalle2->find("codconc",'++++++++++');
			$li_col=$io_report->DS_detalle2->getValue("columna",$li_find);
			$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$li_find);
			$li_acumulado= $li_acumulado+$ld_segquires;
			$io_report->DS_detalle2->updateRow("acumulado",$li_acumulado,$li_find);	
			$ld_segquires=number_format($ld_segquires,2,",",".");
			$lo_hoja->write($li_row, $li_col, $ld_segquires, $lo_dataright);
			$io_report->rs_data->MoveNext();
		}
		$li_fila=$li_row+1;	  
		$lo_hoja->write($li_fila, 4, "TOTALES",$lo_titulo);
		$li_i=$io_report->DS_detalle2->getRowCount("codconc");
		for($ll_row=1;($ll_row<=$li_i);$ll_row++)
		{
			$ls_codconc=$io_report->DS_detalle2->getValue("codconc",$ll_row);
			$li_col=$io_report->DS_detalle2->getValue("columna",$ll_row);
			$li_acumulado=$io_report->DS_detalle2->getValue("acumulado",$ll_row);
			$li_find=$io_report->DS->find("codconc",$ls_codconc);
			$li_acumulado=number_format($li_acumulado,2,",",".");
			$lo_hoja->write($li_fila, $li_col, $li_acumulado, $lo_dataright);
		}
		$lo_libro->close();
		header("Content-Type: application/x-msexcel; name=\"pagonomina.xls\"");
		header("Content-Disposition: inline; filename=\"pagonomina.xls\"");
		$fh=fopen($lo_archivo, "rb");
		fpassthru($fh);
		unlink($lo_archivo);
		print("<script language=JavaScript>");
		//print(" close();");
		print("</script>");
		unset($io_pdf);
	}
	unset($io_report);
	unset($io_funciones);
	unset($io_fun_nomina);
?>