EVOLUTION-MANAGER

Edit File: cierre_de_colocacion.frm.php

<?php
//=====================================================================================================
//=====>	INICIO_H
	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");
	$theFile					= __FILE__;
	$permiso					= getSIPAKALPermissions($theFile);
	if($permiso === false){		header ("location:../404.php?i=999");	}
	$_SESSION["current_file"]	= addslashes( $theFile );
//<=====	FIN_H
  
//=====================================================================================================
include_once("../core/entidad.datos.php");
include_once("../core/core.deprecated.inc.php");
include_once("../core/core.fechas.inc.php");
include_once("../core/core.config.inc.php");
include_once("../core/core.captacion.inc.php");
include_once("../core/core.riesgo.inc.php");
include_once("../core/core.seguimiento.inc.php");
include_once("../core/core.creditos.inc.php");
include_once("../core/core.creditos.utils.inc.php");
include_once("../core/core.operaciones.inc.php");
include_once("../core/core.common.inc.php");
include_once("../core/core.html.inc.php");

ini_set("display_errors", "off");
ini_set("max_execution_time", 1600);
ini_set("memory_limit", SAFE_MEMORY_LIMIT);

$key		 	= (isset($_GET["k"]) ) ? true : false;
$parser			= parametro("s", false, MQL_BOOL);

$messages		= "";
$fechaop		= parametro("f", false, MQL_DATE);
$xF				= new cFecha(0, $fechaop);
$fechaop		= $xF->getFechaISO($fechaop);

$xCierre		= new cCierreDelDia($fechaop);
$EsCerrado		= $xCierre->checkCierre($fechaop, $xCierre->MARCA_COLOCACION);
$forzar			= parametro("forzar", false, MQL_BOOL);

$next			= "./cierre_de_captacion.frm.php?s=true&k=" . $key . "&f=$fechaop";

if($EsCerrado == true AND $forzar == false){
	setAgregarEvento_("Cierre De Colocacion Existente", 5);
	if ($parser == true){
		header("Location: $next");
	}
} else {
	
	getEnCierre(true);
	/**
	 * Generar el Archivo HTMl del LOG
	 * eventos-del-cierre + fecha_de_cierre + .html
	 *
	 */

$aliasFil	= $xCierre->getNombreUnico();

$xLog		= new cFileLog($aliasFil);
	$xQL		= new MQL();
	$xRec		= new cReciboDeOperacion(12);
	$xRuls		= new cReglaDeNegocio();
	$xCUtils	= new cUtileriasParaCreditos();
	$xPers		= new cPeriodoDeCredito();
	$xF2		= new cFecha();
	//$xPersUtils	= new cPersonasUtilerias();
	
	$PurgarSDPM	= $xRuls->getValorPorRegla($xRuls->reglas()->CREDITOS_PAG_PURGE_DSPM);
	
	
	
	$xRec->setGenerarPoliza();
	$xRec->setForceUpdateSaldos();
	$idrecibo	= $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO,$fechaop, 1, 12, $xCierre->getTextoUnico(), DEFAULT_CHEQUE, FALLBACK_TIPO_PAGO_CAJA, 
										DEFAULT_RECIBO_FISCAL, DEFAULT_GRUPO);

$xRec->setNumeroDeRecibo($idrecibo);

$messages 		.= "=======================================================================================\r\n";
	$messages 		.= "=========================\t" . EACP_NAME . " \r\n";
	$messages 		.= "=========================\t" . getSucursal() . " \r\n";
	$messages 		.= "=======================================================================================\r\n";
	$messages 		.= "=========================\tINICIANDO EL CIERRE DE COLOCACION\r\n";
	$messages 		.= "=========================\tRECIBO: $idrecibo\r\n";
	//procesos de correccion
	$xQL->setRawQuery("SET @fecha_de_corte='$fechaop';");
	$xQL->setRawQuery("CALL `sp_correcciones`()");
	$xDB			= new cSAFEData();
	$messages 		.= $xDB->setLowerSucursal();
	$xQL->setRawQuery("SET @fecha_de_corte='$fechaop';");
	//reconstruir db de pagos
	if(PERSONAS_CONTROLAR_POR_EMPRESA == true){
		$xQL->setRawQuery("CALL `proc_crear_id_opempresas` ");			//Crea ID unico de operacion con empresas
	}
	$xQL->setRawQuery("CALL `proc_historial_de_pagos` ");
	$xQL->setRawQuery("CALL `proc_creditos_a_final_de_plazo`()");
	$xQL->setRawQuery("CALL `proc_creditos_abonos_por_mes`()");		//una vez por mes
	$xQL->setRawQuery("CALL `proc_personas_extranjeras`()");		//personas extranjeras
	$xQL->setRawQuery("CALL `proc_creditos_abonos_totales`()");		//Abonos totales en tmp
	$xQL->setRawQuery("CALL `proc_creditos_abonos_parciales`()");	//Abonos mes y tipo columna
	$xQL->setRawQuery("CALL `proc_creds_prox_letras`()");			//Abonos mes y tipo columna
	
	$xQL->setRawQuery("UPDATE operaciones_mvtos SET afectacion_real=0 AND afectacion_estadistica=0 WHERE (tipo_operacion=410 OR tipo_operacion=411 OR tipo_operacion=412 OR tipo_operacion=413) AND (afectacion_real>0) AND getEsCreditoPagado(docto_afectado) = TRUE");
	
	if($PurgarSDPM == true){
		$xQL->setRawQuery("CALL `proc_purge_sdpm` ");
	}
	
	
	
	$messages		.=  $xCUtils->setCreditosCuadrarPlanes();
	
	$messages		.= $xCUtils->setEstatusDeCreditos($idrecibo, $fechaop, false, true, false, true );
	//setLog("pasa la memoria");
	if ( date("Y-m-t", strtotime($fechaop) ) == date("Y-m-d", strtotime($fechaop) )  ){
		$messages		.= $xCUtils->setGenerarMvtoFinDeMes( $xF->getDiaInicial(), $xF->getDiaFinal(), false, false, $idrecibo );
	}
	//$xLog->setWrite($messages);
	//$xLog->setClose();
	
	if(CREDITO_CIERRE_FORZAR_DEVENGADOS == true){
		
		$messages 		.= "=========================\tREESTRUCTURA SDPM DE PLANES\r\n";
		$messages		.= $xCUtils->setReestructurarSDPM_Planes(true, false, false, $fechaop, $xF->getDiaInicial(), true);
		$messages 		.= "=========================\tREESTRUCTURA SDPM\r\n";
		$messages		.= $xCUtils->setReestructurarSDPM(true, false, false, $fechaop, $xF->getDiaInicial(), true);
		$messages 		.= "=========================\tREGENERAR INTERES_DEVENGADO\r\n";
		$messages		.= $xCUtils->setRegenerarInteresDevengado(false, $xF->get(), $xF->get() );
		//Purgar error
		$xQL->setRawQuery("DELETE FROM operaciones_mvtos WHERE tipo_operacion=420 AND (SELECT COUNT(*) FROM creditos_solicitud WHERE numero_solicitud = operaciones_mvtos.docto_afectado AND estatus_actual >= 98) > 0 ");
		
		$messages 		.= "=========================\tACUMULAR INTERESES\r\n";
		$messages			.= $xCUtils->setAcumularIntereses(false); //var primero
		$messages 		.= "=========================\tACUMULAR MORA DE PARCIALIDADES\r\n";
		//===========  Acumular Mora de Planes
		$xQL->setRawQuery("CALL `proc_creditos_letras_del_dia`()");
		$messages		.= $xCUtils->setAcumularMoraDeParcialidades();
	}
	
	$xQL->setRawQuery("CALL `sp_tmp_personas_geografia`");
	
	//Cierre Anual
	if($xF->getInt($fechaop) == $xF->getInt($xF->getFechaFinAnnio() )){
		//Agregar Periodo general Anual
		
		$ejercicio		= $xF->anno() + 1;
		$xF2->set("$ejercicio-06-01" );
		
		$xPers->add("$ejercicio-01-01", $xF2->getFechaFinAnnio());
		$messages		.= $xPers->getMessages();
	}	
	if(MODULO_LEASING_ACTIVADO == true){
		$limDate		= $xF->setRestarDias(CREDITO_LEASING_DIAS_VIG_COT, $fechaop);
		$xQL->setRawQuery("UPDATE `originacion_leasing` SET `estatus`=0 WHERE `fecha_origen`<='$limDate' AND `paso_proceso`=1");
	}
	//Actualizar pagos de los planes de pago
	$xQL->setRawQuery("UPDATE `creditos_plan_de_pagos` a
INNER JOIN `tmp_creditos_abonos_parciales` b ON a.`clave_de_credito` = b.`docto_afectado`
SET a.`pag_cap`= b.`capital`,a.`pag_nums`= b.`numero_pagos`, a.`pag_fecha`=b.`fecha_de_pago`
WHERE a.`estatusactivo`=1 AND a.`numero_de_parcialidad` = b.`periodo_socio`");
	
	$xQL->setRawQuery("UPDATE `creditos_plan_de_pagos` a SET a.`pag_fecha`=a.`fecha_de_pago` WHERE ISNULL(a.`pag_fecha`) OR a.`pag_fecha`='0000-00-00'");
	
	$xRec->setFinalizarRecibo(true);

$xLog->setWrite($messages);
	$xLog->setClose();

if(ENVIAR_MAIL_LOGS == true){ $xLog->setSendToMail("TR.Eventos del Cierre del colocacion");	}

if ($parser == true){
		header("Location: $next&forzar=true");
	}
	getEnCierre(false);

}
?>