$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fechaop, 1, 12, "CIERRE_DE_COLOCACION_{$fechaop}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, DEFAULT_GRUPO); $xRec->setNumeroDeRecibo($idrecibo); $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE COLOCACION ====================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; //reconstruir db de pagos $ql->setRawQuery("CALL `proc_historial_de_pagos` "); $xCUtils = new cUtileriasParaCreditos(); $messages .= $xCUtils->setEstatusDeCreditos($idrecibo, $fechaop, false, true); if (date("Y-m-t", strtotime($fechaop)) == date("Y-m-d", strtotime($fechaop))) { $messages .= $xCUtils->setGenerarMvtoFinDeMes($xF->getDiaInicial(), $xF->getDiaFinal()); } if (CREDITO_CIERRE_FORZAR_DEVENGADOS == true) { $messages .= $xCUtils->setReestructurarSDPM_Planes(true, false, false, false, $xF->getDiaInicial(), false); $messages .= $xCUtils->setReestructurarSDPM(true, false, false, false, false, $xF->getDiaInicial(), false); $messages .= $xCUtils->setRegenerarInteresDevengado(false, $xF->get(), $xF->get()); } $messages .= $xCUtils->setAcumularIntereses(); $xRec->setFinalizarRecibo(true); $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre del colocacion"); } if ($parser != false) { header("Location: ./cierre_de_captacion.frm.php?s=true&k=" . $key . "&f={$fechaop}"); } //}
$xLog = new cFileLog($aliasFil); $idrecibo = DEFAULT_RECIBO; //$xRec = new cReciboDeOperacion(12); //$xRec->setGenerarPoliza(); //$xRec->setForceUpdateSaldos(); //$idrecibo = $xRec->setNuevoRecibo(1,1,$fechaop, 1, 12, "CIERRE_DE_SEGUIMIENTO", "NA", "ninguno", "NA", DEFAULT_GRUPO); //$xRec->setNumeroDeRecibo($idrecibo); $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE CONTABILIDAD ===================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; if (MODULO_CONTABILIDAD_ACTIVADO == true) { $xCUtils = new cUtileriasParaContabilidad(); $xCUtils->setGenerarPolizasAlCierre($fechaop); $messages .= $xCUtils->getMessages(); } else { $messages .= "=========================\tNO ACTIVADO\t====================\r\n"; } //TODO: Si es Anual generar Saldos al Cierre $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre de Contabilidad"); } if ($parser != false) { //TODO: Agregar cierre de riesgos header("Location: ./cierre_de_riesgos.frm.php?s=true&k=" . $key . "&f={$fechaop}"); } //}
$NombreOtorgante = $xCR->getNombreOtorgante(); $DomicilioDevolucion = ""; //str_replace(",", ";", EACP_DOMICILIO_CORTO); //============================== ELEMENTOS DE CONTROL $linea .= "{$TotalSaldosActuales}|{$TotalSaldosVencidos}|{$TotalElementosNombres}|{$TotalElementosDireccion}|{$TotalElementosEmpleo}|{$TotalElementosCuenta}|{$NombreOtorgante}|{$DomicilioDevolucion}"; // if ($xSoc->getEsPersonaFisica() == true) { if ($toJson == true) { $arrLinea = explode("|", $linea); $jsonNew = array(); foreach ($itemJson as $ix => $item) { $jsonNew[$item] = isset($arrLinea[$ix]) ? $arrLinea[$ix] : "ERORR"; } $lineaJson[] = $jsonNew; } else { echo $linea . "\r\n"; } } else { //OMITIDO $xLog->add("WARN\t{$idpersona}-{$idcredito}\t{$sucres}\tOmitir por ser Persona Moral " . $xSoc->getNombre() . "\r\n", $xLog->DEVELOPER); } $icnt++; } if (MODO_DEBUG) { $xFil = new cFileLog(); $xFil->setWrite($xLog->getMessages()); $xFil->setSendToMail($xHP->getTitle(), ADMIN_MAIL); } if ($toJson == true) { echo _json_encode($lineaJson, JSON_PRETTY_PRINT); }
$messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE CAPTACION ====================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; $messages .= "=======================================================================================\r\n"; $xUCapt = new cUtileriasParaCaptacion(); $messages .= "=========================\t\tPurgando Dias Minimo de Inversion \t====================\r\n"; $messages .= $xUCapt->vencer_intereses_de_inversion($idrecibo, $fechaop); $messages .= $xUCapt->inversiones_automaticas($idrecibo, $fechaop); if ($xF->getDiaFinal() == $xF->get()) { $messages .= $xUCapt->setGenerarInteresSobreSDPM($idrecibo, $fechaop); if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) { $messages .= $xUCapt->getGenerarBaseGravadaMensualIDE($fechaop); $messages .= $xUCapt->setGenerarIDE_mensual($idrecibo, $fechaop); } } $xRec->setFinalizarRecibo(true); $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre del Captacion"); } } if ($parser == true) { header("Location: ./cierre_de_seguimiento.frm.php?s=true&k=" . $key . "&f={$fechaop}"); } /*} else{ setLog("La llave Original $key no correponde a la variable" . MY_KEY); }*/
} else { if ($production == true and $errors == false and $operaciones > 0) { $archivo = $xLayout->getClave() . $xT->cSerial(6, $casfin) . $FechaTitulo . "." . $xT->cSerial(3, $supervisor); //header("Content-type: text/x-csv"); header("Content-type: text/plain"); //header("Content-type: application/csv"); header("Content-Disposition: attachment; filename={$archivo}"); echo $rpt; if ($definitivo == true) { //Guardar $sqlUpdate = " UPDATE `aml_risk_register` SET `estado_de_envio` = 1, `fecha_de_envio`= " . $xF->getInt() . "\n\t\t\tWHERE (SELECT `tipo_de_riesgo` FROM `aml_risk_catalog` WHERE `clave_de_control`= `aml_risk_register`.`tipo_de_riesgo`= " . AML_CLAVE_OPERACIONES_INUSUALES . "\n\t\t\tAND (getFechaByInt(`aml_risk_register`.`fecha_de_reporte`) <='{$FechaFinal}')\n\t\t\tAND (`aml_risk_register`.`estado_de_envio` =0)"; $query->setRawQuery($sqlUpdate); //enviar por mail al administrador $xLog = new cFileLog($archivo, true); $xLog->setWrite($rpt); $xLog->setSendToMail($xHP->getTitle(), ARCHIVO_MAIL); } } else { $xRPT = new cReportes(); $xRPT->setOut(OUT_HTML); $xRPT->addContent($xRPT->getHInicial($xHP->getTitle(), $FechaInicial, $FechaFinal)); $arrTitulos = array(); foreach ($Estructura as $indice => $propiedades) { $xCampo = new cReportes_LayoutTipos($propiedades); $arrTitulos[] = $xCampo->getNombre(); } $xHTable->addTitles($arrTitulos); if ($msg != "") { $xRPT->addFooterBar("<h3>El reporte contiene los siguientes errores</h3>" . $msg); } $xRPT->addContent($xHTable->get());
/*$xAml = new cAML(); $xAml->setForceAlerts(true); $xAml->sendAlerts(getUsuarioActual(), $PersonaDeDestino, $TipoDeAlerta);*/ //envio de informes //TODO: Agregar envio de informes //checar perfil transaccional mensual } //verificar operaciones de 6 meses excedidas de maximo permitido $sql2 = "SELECT\n\t`operaciones_recibos`.`fecha_operacion` AS `fecha`,\n\t`operaciones_recibos`.`numero_socio` AS `persona`,\n\tCOUNT(`operaciones_recibos`.`idoperaciones_recibos`) AS `operaciones`,\n\tSUM(`operaciones_recibos`.`total_operacion`) AS `monto`\n\tFROM\n\t`operaciones_recibos` `operaciones_recibos`\n\tWHERE\n\t(`operaciones_recibos`.`fecha_operacion` = '{$fechaop}')\n\tGROUP BY\n\t`operaciones_recibos`.`numero_socio`"; $rs1 = $mql->getDataRecord($sql2); foreach ($rs1 as $rw1) { $xAml = new cAMLPersonas($rw1["persona"]); $xF = new cFecha(); $fecha_inicial = $xF->setRestarMeses(6, $fechaop); $obj = $xAml->getOAcumuladoDeOperaciones($fecha_inicial, $fechaop); } //Relaciones Recursivas //$xUtils = new cAMLUtils(); $xCML = new cAML(); } else { $messages .= "=========================\tNO ACTIVADO\t====================\r\n"; } $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre de Riesgos"); } if ($parser != false) { header("Location: ./cierre_de_sistema.frm.php?s=true&k=" . $key . "&f={$fechaop}"); } //}
$sqlPeriodosCorrectos = "UPDATE operaciones_mvtos\r\n\t\t\t\t\t\t\t\tSET periodo_mensual = DATE_FORMAT(fecha_afectacion, '%c'),\r\n\t\t\t\t\t\t\t\tperiodo_anual = DATE_FORMAT(fecha_afectacion, '%Y'),\r\n\t\t\t\t\t\t\t\tperiodo_semanal = DATE_FORMAT(fecha_afectacion, '%w')\r\n\t\t\t\t\t\t\t\t"; $x1 = my_query($sqlPeriodosCorrectos); $messages .= $x1[SYS_INFO]; $xSys = new cSystemTask(); $xDB = new cSAFEData(); //crear backup // if ($xF->getDiaFinal() == $xF->get() or date("N", $xF->getInt()) == 5) { $messages .= "BACKUP\tRespaldo a la fecha " . $xF->getFechaDDMM() . "\r\n"; $xDB->setCheckDatabase(); $messages .= $xSys->setBackupDB_WithMail(); } //cerrar el log $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre del Sistema"); } //Stored procedures $ql->setRawQuery("CALL `proc_listado_de_ingresos` "); //$ql->setRawQuery("CALL `proc_historial_de_pagos` "); $ql->setRawQuery("CALL `sp_clonar_actividades` "); $ql->setRawQuery("CALL `proc_perfil_egresos_por_persona` "); $ql->setRawQuery("CALL `proc_creditos_letras_pendientes` "); // //Limpiar el Cache //$xSys->setPowerOff(); //apagar el sistema $xCache = new cCache(); $xCache->clean(); if ($parser != false) { $log = $aliasFil;
$xLog = new cFileLog($aliasFil); $idrecibo = DEFAULT_RECIBO; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE SEGUIMIENTO ====================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; $messages .= "=========================\t\tFECHA: {$fechaop}\t\t\t\t\t ====================\r\n"; $messages .= "=======================================================================================\r\n"; //Avisos $dia_siguiente = sumardias($fechaop, 1); $xAv = new cAlertasDelSistema($dia_siguiente); $messages .= $xAv->setGenerarAlCierre($dia_siguiente); $messages .= vencer_notificaciones(); $messages .= vencer_llamadas(); $messages .= vencer_compromisos(); $xLlam = new cLlamada(); $xLlam->setCancelarLlamadasAnteriores($fechaop); $messages .= setLlamadasDiariasCreditosNo360($fechaop, $idrecibo); $messages .= setLlamadasDiariasPorMora($fechaop, $idrecibo); $xLog->setWrite($messages); $xLog->setClose(); if (ENVIAR_MAIL_LOGS == true) { $xLog->setSendToMail("TR.Eventos del Cierre del Seguimiento"); } } if ($parser != false) { header("Location: ./cierre_de_contabilidad.frm.php?s=true&k=" . $key . "&f={$fechaop}"); } //}