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

	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_insert_seguridad($as_titulo)
	{
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//       Function: uf_insert_seguridad
		//		   Access: private 
		//	    Arguments: as_titulo // Título del Reporte
		//    Description: función que guarda la seguridad de quien generó el reporte
		//	   Creado Por: Ing. Yesenia Moreno
		// Fecha Creación: 22/09/2006 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_fun_scg;
		
		$ls_descripcion="Generó el Reporte ".$as_titulo;
		$lb_valido=$io_fun_scg->uf_load_seguridad_reporte("SCG","sigesp_scg_r_balance_general.php",$ls_descripcion);
		return $lb_valido;
	}
	//-----------------------------------------------------------------------------------------------------------------------------------
	
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_init_niveles()
	{	///////////////////////////////////////////////////////////////////////////////////////////////////////
		//	   Function: uf_init_niveles
		//	     Access: public
		//	    Returns: vacio	 
		//	Description: Este método realiza una consulta a los formatos de las cuentas
		//               para conocer los niveles de la escalera de las cuentas contables  
		//////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_funciones,$ia_niveles_scg;
		
		$ls_formato=""; $li_posicion=0; $li_indice=0;
		$dat_emp=$_SESSION["la_empresa"];
		//contable
		$ls_formato = trim($dat_emp["formcont"])."-";
		$li_posicion = 1 ;
		$li_indice   = 1 ;
		$li_posicion = $io_funciones->uf_posocurrencia($ls_formato, "-" , $li_indice ) - $li_indice;
		do
		{
			$ia_niveles_scg[$li_indice] = $li_posicion;
			$li_indice   = $li_indice+1;
			$li_posicion = $io_funciones->uf_posocurrencia($ls_formato, "-" , $li_indice ) - $li_indice;
		} while ($li_posicion>=0);
	}// end function uf_init_niveles
	//-----------------------------------------------------------------------------------------------------------------------------------

	//---------------------------------------------------------------------------------------------------------------------------
	// 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", "balance_general.xls");
		$lo_libro = &new writeexcel_workbookbig($lo_archivo);
		$lo_hoja = &$lo_libro->addworksheet();
	//---------------------------------------------------------------------------------------------------------------------------
	// para crear la data necesaria del reporte
		require_once("../../shared/class_folder/class_funciones.php");
		$io_funciones=new class_funciones();
		require_once("../../shared/class_folder/class_fecha.php");
		require_once("../../shared/class_folder/class_sql.php");
		require_once("../../shared/class_folder/sigesp_include.php");
		require_once("../../shared/class_folder/class_sigesp_int.php");
		require_once("../../shared/class_folder/class_sigesp_int_scg.php");
		$ls_tiporeporte="0";
		$ls_bolivares="";
		if (array_key_exists("tiporeporte",$_GET))
		{
			$ls_tiporeporte=$_GET["tiporeporte"];
		}
		switch($ls_tiporeporte)
		{
			case "0":
				require_once("sigesp_scg_class_bal_general.php");
				$io_report  = new sigesp_scg_class_bal_general();
				$ls_bolivares ="Bs.";
				break;
		
			case "1":
				require_once("sigesp_scg_class_bal_generalbsf.php");
				$io_report  = new sigesp_scg_class_bal_generalbsf();
				$ls_bolivares ="Bs.F.";
				break;
		}	 
		require_once("../../shared/class_folder/class_fecha.php");
		$io_fecha=new class_fecha();
		require_once("../class_funciones_scg.php");
		$io_fun_scg=new class_funciones_scg();
		$ia_niveles_scg[0]="";			
		uf_init_niveles();
		$li_total=count($ia_niveles_scg)-1;
	//---------------------------------------------------------------------------------------------------------------------------
	//Parámetros para Filtar el Reporte
	   $ls_cmbmes=$_GET["cmbmes"];
	   $ls_cmbagno=$_GET["cmbagno"];
	   $ls_last_day=$io_fecha->uf_last_day($ls_cmbmes,$ls_cmbagno);
	   $fechas=$ls_last_day;
	   $ldt_fechas=$io_funciones->uf_convertirdatetobd($ls_last_day)." 00:00:00";
  	   $li_nivel=$_GET["cmbnivel"];
	//---------------------------------------------------------------------------------------------------------------------------
	//Parámetros del encabezado
		$ldt_periodo=$_SESSION["la_empresa"]["periodo"];
		$ls_nombre=$_SESSION["la_empresa"]["nombre"];
		$li_ano=substr($ldt_periodo,0,4);
        
        $ls_pasivo=$_SESSION["la_empresa"]["pasivo"];
        $ls_resultado=$_SESSION["la_empresa"]["resultado"];
        $ls_capital=$_SESSION["la_empresa"]["capital"];
        
		$ld_fechas=$io_funciones->uf_convertirfecmostrar($fechas);
		$ls_titulo="BALANCE GENERAL";
		$ls_titulo1=" ".$ls_nombre." "; 
		$ls_titulo2=" al ".$ld_fechas."";
		$ls_titulo3="(Expresado en ".$ls_bolivares.")";  
	//---------------------------------------------------------------------------------------------------------------------------
	//Busqueda de la data 
	$lb_valido=uf_insert_seguridad("<b>Balance General en Excel</b>"); // Seguridad de Reporte
	if($lb_valido)
	{
		$lb_valido=$io_report->uf_balance_general($ldt_fechas,$li_nivel); 
	}
	//---------------------------------------------------------------------------------------------------------------------------
	// Impresión de la información encontrada en caso de que exista
	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
	{
		$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_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,20);
		$lo_hoja->set_column(1,1,50);
		$lo_hoja->set_column(2,5,20);
		
		$lo_hoja->write(0, 2, $ls_titulo,$lo_encabezado);
		$lo_hoja->write(1, 2, $ls_titulo1,$lo_encabezado);
		$lo_hoja->write(2, 2, $ls_titulo2,$lo_encabezado);
		$lo_hoja->write(3, 2, $ls_titulo3,$lo_encabezado);
		$lo_hoja->write(4, 0, "Cuenta",$lo_titulo);
		$lo_hoja->write(4, 1, "Denominación",$lo_titulo);
		//$lo_hoja->write(4, 2, "Debe",$lo_titulo);
		//$lo_hoja->write(4, 3, "Haber",$lo_titulo);
		$lo_hoja->write(4, 4, "Saldo",$lo_titulo);

		$li_tot=$io_report->ds_reporte->getRowCount("sc_cuenta");
		$ld_saldo4="";
		$ld_saldo3="";  
		$ld_saldo2="";	
		$li_row=4;	
		for($li_i=1;$li_i<=$li_tot;$li_i++)
		{
			$ls_orden=$io_report->ds_reporte->data["orden"][$li_i];
			$li_nro_reg=$io_report->ds_reporte->data["num_reg"][$li_i];
			$ls_sc_cuenta=trim($io_report->ds_reporte->data["sc_cuenta"][$li_i]);
			$li_totfil=0;
			$as_cuenta="";
			for($li=$li_total;$li>1;$li--)
			{
				$li_ant=$ia_niveles_scg[$li-1];
				$li_act=$ia_niveles_scg[$li];
				$li_fila=$li_act-$li_ant;
				$li_len=strlen($ls_sc_cuenta);
				$li_totfil=$li_totfil+$li_fila;
				$li_inicio=$li_len-$li_totfil;
				if($li==$li_total)
				{
					$as_cuenta=substr($ls_sc_cuenta,$li_inicio,$li_fila);
				}
				else
				{
					$as_cuenta=substr($ls_sc_cuenta,$li_inicio,$li_fila)."-".$as_cuenta;
				}
			}
			$li_fila=$ia_niveles_scg[1]+1;
			$as_cuenta=substr($ls_sc_cuenta,0,$li_fila)."-".$as_cuenta;
			$ls_denominacion=$io_report->ds_reporte->data["denominacion"][$li_i];
			$ls_nivel=$io_report->ds_reporte->data["nivel"][$li_i];
			$ls_nivel=abs($ls_nivel);
			$ld_saldo=$io_report->ds_reporte->data["saldo"][$li_i];
			$ls_rnivel=$io_report->ds_reporte->data["rnivel"][$li_i];
			$ls_estatus=$io_report->ds_reporte->data["estatus"][$li_i];
			//$ld_total=$io_report->ds_reporte->data["total"][$li_i];
                if($ls_pasivo."000"==substr($ls_sc_cuenta,0,4))
                {
                    $ld_total=$ld_total+$ld_saldo;
                }
                if($ls_capital."000"==substr($ls_sc_cuenta,0,4))
                {
                    $ld_total=$ld_total+$ld_saldo;
                }            
			/*if($ls_nivel>=4)
			{
				 $ld_saldo4=$ld_saldo;
				 $ld_saldo3="";  
				 $ld_saldo2="";
				 $ld_saldo="";
			}
			if($ls_nivel==3)
			{
				 $ld_saldo4="";
				 $ld_saldo3=$ld_saldo;  
				 $ld_saldo2="";
				 $ld_saldo="";
			}
			if($ls_nivel==2)
			{
				 $ld_saldo4="";
				 $ld_saldo3="";  
				 $ld_saldo2=$ld_saldo;
				 $ld_saldo="";
			}
			if($ls_nivel==1)
			{
				 $ld_saldo4="";
				 $ld_saldo3="";  
				 $ld_saldo2="";
				 $ld_saldo=$ld_saldo;
			}*/
			$li_row=$li_row+1;
			$lo_hoja->write($li_row, 0, $as_cuenta, $lo_datacenter);
			$lo_hoja->write($li_row, 1, $ls_denominacion, $lo_dataleft);
			//$lo_hoja->write($li_row, 2, $ld_saldo4, $lo_dataright);
			//$lo_hoja->write($li_row, 3, $ld_saldo3, $lo_dataright);
			//$lo_hoja->write($li_row, 4, $ld_saldo2, $lo_dataright);
			if($ls_estatus == 'C')
			{
			 $lo_hoja->write($li_row, 3, $ld_saldo, $lo_dataright);
			}
			else
			{
			 $lo_hoja->write($li_row, 4, $ld_saldo, $lo_dataright);
			}
		}
		$li_row=$li_row+1;
		$lo_hoja->write($li_row, 2, "Total Pasivo + Capital  ".$ls_bolivares,$lo_libro->addformat(array('bold'=>1,'font'=>'Verdana','align'=>'right','size'=>'10')));
		$lo_hoja->write($li_row, 4, $ld_total, $lo_dataright);
		$lb_ctas_acreedoras = $io_report->uf_obtener_cuentas_acreedoras($ldt_fechas,$li_nivel);
		$la_data_acreedoras = NULL; 
		if($lb_ctas_acreedoras)
		{
			$li_tot_acree=$io_report->ds_cuentas_acreedoras->getRowCount("sc_cuenta");
			$pos=0;	
			$ld_total=0;
			for($li_i=1;$li_i<=$li_tot_acree;$li_i++)
			{
			 $ls_sc_cuenta=trim($io_report->ds_cuentas_acreedoras->data["sc_cuenta"][$li_i]);
			 $li_totfil=0;
			 $as_cuenta="";
			 for($li=$li_total;$li>1;$li--)
			 {
				$li_ant=$ia_niveles_scg[$li-1];
				$li_act=$ia_niveles_scg[$li];
				$li_fila=$li_act-$li_ant;
				$li_len=strlen($ls_sc_cuenta);
				$li_totfil=$li_totfil+$li_fila;
				$li_inicio=$li_len-$li_totfil;
				if($li==$li_total)
				{
					$as_cuenta=substr($ls_sc_cuenta,$li_inicio,$li_fila);
				}
				else
				{
					$as_cuenta=substr($ls_sc_cuenta,$li_inicio,$li_fila)."-".$as_cuenta;
				}
			 }
			 $li_fila=$ia_niveles_scg[1]+1;
			 $as_cuenta=substr($ls_sc_cuenta,0,$li_fila)."-".$as_cuenta;
			 $ls_denominacion=$io_report->ds_cuentas_acreedoras->data["denominacion"][$li_i];
			 $ls_nivel=$io_report->ds_cuentas_acreedoras->data["nivel"][$li_i];
			 $ls_nivel=abs($ls_nivel);
			 $ld_saldo=$io_report->ds_cuentas_acreedoras->data["saldo"][$li_i];
			 $ls_rnivel=$io_report->ds_cuentas_acreedoras->data["rnivel"][$li_i];
			 $ls_estatus=$io_report->ds_cuentas_acreedoras->data["estatus"][$li_i];
			 $li_row=$li_row+1;
			 $lo_hoja->write($li_row, 0, $as_cuenta, $lo_datacenter);
			 $lo_hoja->write($li_row, 1, $ls_denominacion, $lo_dataleft);
			 if($ls_estatus == 'C')
			 {
				 $lo_hoja->write($li_row, 3, $ld_saldo, $lo_dataright);
			 }
			 else
			 {
				 $lo_hoja->write($li_row, 4, $ld_saldo, $lo_dataright);
			 }
			}
		}
		$lo_libro->close();
		header("Content-Type: application/x-msexcel; name=\"balance_general.xls\"");
		header("Content-Disposition: inline; filename=\"balance_general.xls\"");
		$fh=fopen($lo_archivo, "rb");
		fpassthru($fh);
		unlink($lo_archivo);
		print("<script language=JavaScript>");
		print(" close();");
		print("</script>");
	}
?>