EVOLUTION-MANAGER

Edit File: eauxiliares.php

<?php
//=====================================================================================================
	include_once("../core/go.login.inc.php");
	include_once("../core/core.error.inc.php");
	include_once("../core/core.html.inc.php");
	include_once("../core/core.init.inc.php");
	include_once("../core/core.db.inc.php");
	$theFile			= __FILE__;
	$permiso			= getSIPAKALPermissions($theFile);
	if($permiso === false){	header ("location:../404.php?i=999");	}
	$_SESSION["current_file"]	= addslashes( $theFile );
//=====================================================================================================
$xHP		= new cHPage("TR.REPORTE DE MOVIMIENTOS DE AUXILIARES", HP_REPORT);
$xL			= new cSQLListas();
$xF			= new cFecha();
$ql			= new MQL();

$fecha_inicial			= parametro("on", $xF->getDiaInicial(), MQL_DATE);
$fecha_final			= parametro("off", $xF->getDiaFinal(), MQL_DATE);
$cuenta_inicial			= parametro("for", 0, MQL_INT);
$cuenta_final			= parametro("to", 0, MQL_INT);
$out 					= parametro("out", SYS_DEFAULT, MQL_RAW);

//---------------- Valuar Tipo de Cuenta ----------------
$tipo_cuentas			= parametro("tipo", SYS_TODAS, MQL_RAW);
$nivel_cuentas			= parametro("nivel", SYS_TODAS, MQL_RAW);
$incluir_cuentas		= parametro("estado", SYS_TODAS, MQL_RAW);
$netoCargoRpt			= 0;
$netoAbonoRpt			= 0;

$ByCuentas				= "";

$xRPT					= new cReportes( $xHP->getTitle() );
$xRPT->addContent( $xRPT->getEncabezado($xHP->getTitle(), $fecha_inicial, $fecha_final) );
$InitRecords			= parametro("init", 0, MQL_INT);

$xRPT->setOut($out);
//=================================================================================================================
//$xRPT->setToPagination($InitRecords);

/**
 * Paginacion
 * I.- Parte
 */
$rowLimit				= 900; //4Paginas aprox

//marca el Final de los Registros
$EndRecords				= $InitRecords + $rowLimit;
//=================================================================================================================
/**
 * Obtiene Parametros a traves de un GET
 * este parametro determinara como filtrado por un registro en particular
 */

$ByTipo			= "";
$nivel_cuentas	= setNoMenorQueCero($nivel_cuentas);
$ByNivel		= ($nivel_cuentas > 0) ? " AND	`contable_catalogo`.`ctamayor`='$nivel_cuentas' " : "";
switch ($tipo_cuentas){
	case SYS_TODAS:
		$ByCuentas			= "";
		$ByCuentasSaldos	= "";
		break;
	case "cuadre":
		$ByCuentas 			= " AND	`contable_catalogo`.`numero`=" . CUENTA_DE_CUADRE;
		$ByCuentasSaldos	= " AND (`contable_saldos`.`cuenta` = " . CUENTA_DE_CUADRE . ") ";
		break;
	case "algunas":
		//solo cuentas
		break;
	default:
		$ByTipo 	= " AND	`contable_catalogo`.`tipo`='$tipo_cuentas' ";

break;
}

//ini_set("display_errors", "on");
$sqlCta = "SELECT
			`contable_catalogo`.`numero`,
			`contable_catalogo`.`nombre`,
			`contable_catalogotipos`.`naturaleza`,
			`contable_catalogotipos`.`naturaleza_del_sector`,
			`contable_catalogotipos`.`operador_del_sector`,
			/* -  TEMPORAL  - */
			`contable_catalogotipos`.`naturaleza_real`,
			`contable_catalogo`.`tipo`,
			/* - MOVIMIENTOS - */
			`contable_movimientos`.`fecha`,
			`contable_polizasdiarios`.`nombre_del_diario` AS `tipo`,
			`contable_movimientos`.`numeropoliza`         AS `poliza`,
			`contable_movimientos`.`concepto`,
			`contable_movimientos`.`referencia`,
			`contable_movimientos`.`cargo`,
			`contable_movimientos`.`abono`
			
			FROM
				`contable_catalogo` `contable_catalogo`
				INNER JOIN `contable_movimientos` `contable_movimientos`
				ON `contable_catalogo`.`numero` = `contable_movimientos`.`numerocuenta`
				INNER JOIN `contable_catalogotipos` `contable_catalogotipos`
				ON `contable_catalogo`.`tipo` = `contable_catalogotipos`.
				`idcontable_catalogotipos`
				INNER JOIN `contable_polizasdiarios` `contable_polizasdiarios`
				ON `contable_movimientos`.`tipopoliza` =
				`contable_polizasdiarios`.`idcontable_polizadiarios`
			WHERE
				`contable_catalogo`.`afectable` = 1
				$ByCuentas
				AND (`contable_movimientos`.`fecha`>='$fecha_inicial')
				AND (`contable_movimientos`.`fecha`<='$fecha_final')
			ORDER BY
				`contable_catalogo`.`numero`,
				`contable_movimientos`.`fecha`,
				`contable_movimientos`.`tipopoliza`,
				`contable_movimientos`.`numeropoliza`,
				`contable_movimientos`.`numeromovimiento`
			LIMIT $InitRecords, $rowLimit
		";

//setLog($sqlCta);

$movimientos		= 0;
	$cuenta_anterior	= "_INIT_";
	$exoTR				= "";
	$exoTD				= "";
	$SCargos			= 0;		//Suma de Cargos
	$SAbonos			= 0;		//SUma de Abonos
	$SFinal				= 0;
	$exoCuenta 			= "";
	$MActuales			= 0;
	$tcuenta			= "";
//echo $sqlCta;
	//Imprime la Cuenta
$xRPT->addContent( "<table>
<thead>
	<tr>
		<th width=\"10%\" >Fecha</th>
		<th width=\"10%\" >Poliza</th>
		<th width=\"10%\" >Numero</th>
		<th width=\"25%\" >Concepto</th>
		<th width=\"15%\" >Referencia</th>
		<th width=\"10%\" >Cargo</th>
		<th width=\"10%\" >Abono</th>
		<th width=\"10%\" >Saldo</th>
	</tr>
	</thead>
	<tbody>");

$rs 	= $ql->getDataRecord($sqlCta);
	$rows	= $ql->getNumberOfRows();
	$crows	= 1;
	foreach ($rs as $rw){
		//if(!isset($tcuenta)){$tcuenta 	= ""; }
		if($crows == $rows){
			$cuenta_anterior	= "_FIN_";
			//======================================================================
			$MFecha			= $rw["fecha"];
			$MTPoliza		= $rw["tipo"];
			$MNumero		= $rw["poliza"];
			$MConcepto  	= $rw["concepto"];
			$MReferencia 	= $rw["referencia"];
			$MCargo			= $rw["cargo"];
			$MAbono			= $rw["abono"];

if($naturaleza == NC_DEUDORA){	//Deudor
				$saldo = ($saldo + $MCargo) - $MAbono;
			} else {				//Acreedor
				$saldo = ($saldo + $MAbono) - $MCargo;
			}
			$SAbonos += $MAbono;	//suma el abono
			$SCargos += $MCargo;	//suma de cargo
			$MActuales++;			//Suma el Movimiento

$disCargo	= getFMoney($MCargo);
			$disAbono	= getFMoney($MAbono);
			if($MCargo == 0){ $disCargo = ""; } 
			if($MAbono == 0){ $disAbono = ""; }
			$exoTD  .= "<tr>
						<td width=\"10%\" >" . getFechaCorta($MFecha) . "</td>
						<td width=\"10%\" >$MTPoliza</td>
						<td width=\"10%\" >$MNumero</td>
						<td width=\"25%\" >$MConcepto</td>
						<td width=\"15%\" >$MReferencia</td>
						<td width=\"10%\" class=\"mny\" >" .  $disCargo . "</td>
						<td width=\"10%\" class=\"mny\" >" .  $disAbono . "</td>
						<td width=\"10%\"  class=\"mny\" >" .  getFMoney($saldo) . "</td>
				</tr>";
			//=============================================================================
			$tcuenta = "<tr>
					<td colspan=\"8\" width=\"100%\">
					<table align=\"center\" width=\"100%\" border=\"0\">
  					<tbody>
    					<tr>
      					<th width=\"20%\" class='izq'>$ctafmt</th>
      					<th width=\"40%\" class='izq'>$nombre</th>
      					<td width=\"20%\">Saldo Inicial</td>
      					<th class=\"mny\" width=\"20%\" >" . getFMoney($sdoinicial) . "</th>
    					</tr>
  					</tbody></table></td></tr>";
		}
		$cta			= $rw["numero"];
		$naturaleza		= $rw["naturaleza_real"];
		//================================== NUEVA CUENTA?
		if($cuenta_anterior != $cta ){

/* Corregir BUG */
			//if($cuenta_anterior == "_FIN_")	{		}
			$nombre			= $rw["nombre"];
			//$naturaleza		= $rw["naturaleza"] * $rw["naturaleza_del_sector"];

$datosI			= getDatosInicialSFecha($cta, $naturaleza, $fecha_inicial );
			$sdoinicial		= $datosI["saldo"];
			$movimientos	= $datosI["movimientos"];
			//echo $datosI["sql"];
			$saldo 			= $sdoinicial;
			$ctafmt 		= getCuentaFormateada($cta);
			$exoCuenta = "$tcuenta	$exoTD
					<tr><td colspan=\"8\" >
					<table>
					  <tbody>
					    <tr>
					      <td class=\"mny\" colspan=\"4\" ><hr /></td>
					    </tr>
					    <tr>
					      <td class=\"mny\" width=\"70%\" >SUMAS: </td>
					      <th class=\"mny\" width=\"10%\" >" .  getFMoney($SCargos) . "</th>
					      <th class=\"mny\" width=\"10%\" >" .  getFMoney($SAbonos) . "</th>
					      <th class=\"mny\" width=\"10%\" ></th>
    					</tr>

</tbody>
					</table>
					</td>
					</tr>";
				/**
			 * @see Re refiere a la decision de imprimir o no ciertas cuentas
			 */
			switch($incluir_cuentas){
				case "con_movimientos":
					if($MActuales == false){ $exoCuenta = ""; }
					break;
				case "saldo_no_cero":
					if($saldo==0){ $exoCuenta = ""; }
					break;
				case "saldo_no_cero_con_mvtos":		//XXX: DUDAAAAAAA
					if(($saldo==0) and ($MActuales == false)){ $exoCuenta = ""; }
					break;
				case "saldo_no_cero_o_mvtos":
					if(($saldo!=0) or ($MActuales>0)){
			
					} else {
						$exoCuenta = "";
					}
					break;
				default:
					break;
			}
			if($crows == 1){ $exoCuenta = "";}
			$xRPT->addContent($exoCuenta);
			//Resetea Datos propio de la Cuenta
			$exoTD			= "";
			$SCargos		= 0;		//Suma de Cargos
			$SAbonos		= 0;		//SUma de Abonos
			$SFinal			= 0;
			$exoCuenta		= "";
			$MActuales		= 0;
		}
		//================================================================================
		$MFecha			= $rw["fecha"];
		$MTPoliza		= $rw["tipo"];
		$MNumero		= $rw["poliza"];
		$MConcepto  	= $rw["concepto"];
		$MReferencia 	= $rw["referencia"];
		$MCargo			= $rw["cargo"];
		$MAbono			= $rw["abono"];

if($naturaleza == NC_DEUDORA){	//Deudor
				$saldo = ($saldo + $MCargo) - $MAbono;
		} else {				//Acreedor
				$saldo = ($saldo + $MAbono) - $MCargo;
		}
		$SAbonos += $MAbono;	//suma el abono
		$SCargos += $MCargo;	//suma de cargo
		$MActuales++;			//Suma el Movimiento

$disCargo	= getFMoney($MCargo);
		$disAbono	= getFMoney($MAbono);
		if($MCargo == 0){ $disCargo = ""; }
		if($MAbono == 0){	$disAbono = "";	}
		$exoTD  .= "
							<tr>
								<td width=\"10%\" >" . getFechaCorta($MFecha) . "</td>
								<td width=\"10%\" >$MTPoliza</td>
								<td width=\"10%\" >$MNumero</td>
								<td width=\"25%\" >$MConcepto</td>
								<td width=\"15%\" >$MReferencia</td>
								<td width=\"10%\" class=\"mny\" >" .  $disCargo . "</td>
								<td width=\"10%\" class=\"mny\" >" .  $disAbono . "</td>
								<td width=\"10%\"  class=\"mny\" >" .  getFMoney($saldo) . "</td>
							</tr>
							";
		if($cta != "_FIN_")	{
			$netoAbonoRpt	+= $SAbonos; 
			$netoCargoRpt	+= $SCargos;
		}
//====================================================================================================
		$tcuenta = "
					<tr>
					<td colspan=\"8\" width=\"100%\">
					<table align=\"center\" width=\"100%\" border=\"0\">
  					<tbody>
    					<tr>
      					<th width=\"20%\" class='izq'>$ctafmt</th>
      					<th width=\"40%\" class='izq'>$nombre</th>
      					<td width=\"20%\">Saldo Inicial</td>
      					<th class=\"mny\" width=\"20%\" >" . getFMoney($sdoinicial) . "</th>
    					</tr>
  					</tbody>
					</table>
					</td>
					</tr>";

$cuenta_anterior	= $cta;
		$crows++;

}

//PIE DEL REPORTE
$xRPT->addContent( "
	<tr>
		<th colspan='5'>TOTAL REPORTE</th>
		<th>" .  getFMoney($netoCargoRpt) . "</th>
		<th>" .  getFMoney($netoAbonoRpt) . "</th>
		<th></th>
	</tr>
</tbody>
</table>");

echo $xRPT->render(true);
?>