function jsaGetDatos($solicitud)
{
if ($solicitud != 0 and $solicitud != '') {
$xCred = new cCreditos_solicitud();
$xCred->setData($xCred->query()->getRow("numero_solicitud={$solicitud}"));
$pagos = $xCred->numero_pagos()->v();
$monto = $xCred->monto_solicitado()->v();
$periocidad = $xCred->periocidad_de_pago()->v();
$tasa = $xCred->tasa_interes()->v();
$xF = new cFecha();
$xT = new cTipos();
$tab = new TinyAjaxBehavior();
$tab->add(TabSetvalue::getBehavior('idpagos', $pagos));
$tab->add(TabSetvalue::getBehavior('idmonto', $monto));
$tab->add(TabSetvalue::getBehavior('idtasa', $tasa * 100));
$tab->add(TabSetvalue::getBehavior('idperiocidad', $periocidad));
$tab->add(TabSetvalue::getBehavior('idtipodepago', $xCred->tipo_de_pago()->v()));
//Fechas de ministracion
$tab->add(TabSetvalue::getBehavior('idfecha1', $xF->getFechaMX($xCred->fecha_autorizacion()->v(), "-")));
$tab->add(TabSetvalue::getBehavior('idfecha2', $xF->getFechaMX($xCred->fecha_ministracion()->v(), "-")));
$tab->add(TabSetvalue::getBehavior('idautorizacion', $xCred->docto_autorizacion()->v()));
$tab->add(TabSetvalue::getBehavior('idtipodeautorizacion', $xCred->tipo_autorizacion()->v()));
return $tab->getString();
}
}
function jsaGuardarPolizas($fecha, $tipo, $centrocosto, $concepto)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xPol = new cPoliza($tipo);
$xPol->add($concepto, $fecha, false, 0, 0, false, $centrocosto);
return $xPol->getMessages();
}
function jsaSetPago($Recibo, $cuentabancaria, $monto1, $diferencia, $fecha, $transaccion, $bancodeorigen)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xCaja = new cCaja();
$op = $xCaja->setCobroTransferencia($Recibo, $cuentabancaria, $monto1, $diferencia, $fecha, "", false, false, $transaccion, $bancodeorigen);
if (MODO_DEBUG == true) {
setLog($xCaja->getMessages());
}
}
function jsaGuardarVerificacion($fecha, $oficial, $tipo, $id, $notas, $socio)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$tipo = $tipo == "d" ? TPERSONAS_DIRECCIONES : TPERSONAS_ACTIVIDAD_ECONOMICA;
$xSoc = new cSocio($socio);
$xSoc->init();
$xSoc->setVerificacion($tipo, $id, $fecha, $notas, $oficial);
return $xSoc->getMessages(OUT_HTML);
}
function jsaSetPago($Recibo, $cuentabancaria, $monto, $fecha, $referencia)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xCta = new cCuentaBancaria($cuentabancaria);
$msg = "";
if ($xCta->init() == true) {
$xCta->setNuevoRetiro($referencia, $Recibo, "", $monto, $fecha);
$xRec = new cReciboDeOperacion(false, false, $Recibo);
$xRec->setDatosDePago(AML_CLAVE_MONEDA_LOCAL, $monto, $referencia, TESORERIA_PAGO_TRANSFERENCIA);
}
}
function jsaGetPolizas($fecha, $tipo)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xQL = new cSQLListas();
$xT = new cTabla($xQL->getListadoDePolizasContables($fecha, $tipo), 7);
$xBtn = new cHImg();
$xT->setKeyField("codigo");
$xT->OButton("TR.Modificar", "jsAgregarMovimientos('" . HP_REPLACE_ID . "')\"", $xT->ODicIcons()->AGREGAR);
$xT->OButton("TR.Imprimir", "jsImprimirPoliza('" . HP_REPLACE_ID . "')\"", $xT->ODicIcons()->IMPRIMIR);
$xT->OButton("TR.Eliminar", "jsEliminarPoliza('" . HP_REPLACE_ID . "')\"", $xT->ODicIcons()->ELIMINAR);
return $xT->Show();
}
function jsaSetPago($Recibo, $cuentabancaria, $monto, $fecha, $cheque)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xCta = new cCuentaBancaria($cuentabancaria);
$msg = "";
if ($xCta->init() == true) {
$xCta->setNuevoCheque($cheque, $cuentabancaria, $Recibo, "", $monto, $fecha);
$xRec = new cReciboDeOperacion(false, false, $Recibo);
$xRec->setDatosDePago(AML_CLAVE_MONEDA_LOCAL, $monto, $cheque, TESORERIA_PAGO_CHEQUE);
}
//if(MODO_DEBUG == true){ setLog($xCta->getMessages()); }
}
function jsaSetPagarCredito($credito, $fecha, $observaciones)
{
$msg = "";
$xLng = new cLang();
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
//$xCred->setResetPersonaAsociada($fecha, $observaciones);
//return $xLng->get(MSG_READY_SAVE);
$xCred->setAbonoCapital($xCred->getSaldoActual(), $xCred->getPeriodoActual(), DEFAULT_CHEQUE, TESORERIA_COBRO_NINGUNO, DEFAULT_RECIBO_FISCAL, $observaciones, DEFAULT_GRUPO, $fecha);
return $xCred->getMessages(OUT_HTML);
}
function jsaSetFecha($recibo, $fecha, $nuevoperiodo)
{
$xRec = new cReciboDeOperacion(false, true, $recibo);
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$xRec->init();
if ($xF->getInt($fecha) != $xF->getInt($xRec->getFechaDeRecibo())) {
$xRec->setFecha($fecha, true);
}
if ($xRec->getPeriodo() != $nuevoperiodo) {
$xRec->setPeriodo($nuevoperiodo, true);
}
return $xRec->getMessages(OUT_HTML);
}
function jsaGetLetras($idcredito, $idfecha)
{
$xCred = new cCredito($idcredito);
$xCred->init();
//$xPlas = $xCred->getPlanDePago();
$xF = new cFecha();
$idfecha = $xF->getFechaISO($idfecha);
$xQL = new MQL();
//$xQL->setRawQuery("SET @fecha_de_corte:='$idfecha';");
my_query("SET @fecha_de_corte:='{$idfecha}';");
$sql = "SELECT\r\n\t`letras`.`socio_afectado` AS `persona`,\r\n\t`letras`.`docto_afectado` AS `credito`,\r\n\t`letras`.`periodo_socio` AS `parcialidad`,\r\n\t`letras`.`fecha_de_pago`,\r\n\r\n\t`letras`.`capital`,\r\n\t`letras`.`interes`,\r\n\t`letras`.`iva`,\r\n\t`letras`.`ahorro`,\r\n\t`letras`.`otros`,\r\n\t`letras`.`letra`,\t\r\n\t\r\n\t(`creditos_solicitud`.`tasa_moratorio`*100) AS `tasa_de_mora`,\r\n\t(`creditos_solicitud`.`tasa_interes`*100) AS `tasa_de_interes` ,\r\n\tDATEDIFF(getFechaDeCorte(), fecha_de_pago) AS 'dias',\r\n\t ((letras.capital * DATEDIFF(getFechaDeCorte(), fecha_de_pago) * (`creditos_solicitud`.`tasa_moratorio` + `creditos_solicitud`.`tasa_interes`))/getDivisorDeInteres()) AS 'mora'\r\n\tFROM\r\n\t\t`creditos_solicitud` `creditos_solicitud` \r\n\t\t\tINNER JOIN `letras` `letras` \r\n\t\t\tON `creditos_solicitud`.`numero_solicitud` = `letras`.`docto_afectado`\r\n\t\r\n\t WHERE capital >0 AND docto_afectado={$idcredito} AND fecha_de_pago <= getFechaDeCorte()";
$xT = new cTabla($sql);
$xT->setFootSum(array(4 => "capital", 5 => "interes", 6 => "iva", 7 => "ahorro", 8 => "otros", 9 => "letra", 13 => "mora"));
return $xT->Show();
}
function jsaGetCallsToToday($fecha, $efectuadas, $vencidas, $canceladas, $mark)
{
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$cCalls = new cLlamada();
$cCalls->setLimitRecords();
if ($vencidas == "on") {
$cCalls->setIncludeVencidas();
}
if ($canceladas == "on") {
$cCalls->setIncludeCanceladas();
}
if ($efectuadas == "on") {
$cCalls->setIncludeEfectuadas();
}
return $cCalls->getLlamadas($fecha, $fecha, $mark);
}
function jsaGetListadoDeAvisos($tipo, $fecha_inicial, $fecha_final)
{
$tipo = $tipo == SYS_TODAS ? false : $tipo;
$xF = new cFecha();
$xAl = new cAml_alerts();
$xlistas = new cSQLListas();
$xBtn = new cHButton();
$xImg = new cHImg();
$fecha_inicial = $xF->getFechaISO($fecha_inicial);
$fecha_final = $xF->getFechaISO($fecha_final);
$sql = $xlistas->getListadoDeRiesgosConfirmados($fecha_inicial, $fecha_final, $tipo);
// getListadoDeAlertas($tipo, $fecha_inicial, $fecha_final, false, " AND `estado_en_sistema`= " . SYS_UNO);
$xT = new cTabla($sql);
$xT->addEspTool($xImg->get24("check", " onclick=\"jsConfirmRiesgo(_REPLACE_ID_)\" "));
$xT->addEspTool($xImg->get24("delete", " onclick=\"jsDescartarRiesgo(_REPLACE_ID_)\" "));
$xT->setKeyField($xAl->getKey());
$xT->setKeyTable($xAl->get());
return $xT->Show();
}
function b_week($ignium)
{
if (!$ignium) {
$mesa = date("m");
$annoa = date("Y");
//$fecha = date("Y-m-d", strtotime("$annoa-$mesa-01"));
} else {
$mesa = date("m", strtotime($ignium)) - 1;
$annoa = date("Y", strtotime($ignium));
if ($mesa < 1) {
$mesa = 12;
$annoa = $annoa - 1;
}
}
$xF = new cFecha(0, "{$annoa}-{$mesa}-01");
$fecha = $xF->get();
$dias_mes = $xF->getDiasDelMes();
$idm = $xF->mes();
$month = $xF->getMesNombre();
//Valores Iniciales
$tdweek = "";
$colorweek = "#FFDFC6";
$nsemana = 1;
$tcal = "";
for ($i = 1; $i <= $dias_mes; $i++) {
$nowdate = "{$annoa}-{$idm}-{$i}";
$nday = date("l", strtotime($nowdate));
if ($nday == "Monday") {
$dia = dia_semana($nowdate);
$cnowdate = fecha_corta($nowdate);
if ($tcal == "cal_2") {
$tcal = "cal_1";
$tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
} else {
$tcal = "cal_2";
$tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
}
$nsemana++;
}
}
return "<hr />\n\t<center>\n\t<table class='calendar_week'\n\tcellpadding='2' cellspacing='2' border='2'>\n\t\t<tr>\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_back_down.png' onclick='back_week(\"{$nowdate}\");' /></td>\n\t\t\t{$tdweek}\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_next_down.png' onclick='next_week(\"{$nowdate}\");' /></td>\n\t\t</tr>\n\t</table>\n\t</center>\n\t<hr />";
}
function jsaGetListadoDeAvisos($tipo, $fecha_inicial, $fecha_final)
{
$tipo = $tipo == SYS_TODAS ? false : $tipo;
$xF = new cFecha();
$xAl = new cAml_risk_register();
$xlistas = new cSQLListas();
$xBtn = new cHButton();
$xImg = new cHImg();
$fecha_inicial = $xF->getFechaISO($fecha_inicial);
$fecha_final = $xF->getFechaISO($fecha_final);
$sql = $xlistas->getListadoDeRiesgosConfirmados(false, false, false, $tipo, false, " AND (`aml_risk_register`.`estado_de_envio` =0) AND (`aml_risk_register`.`fecha_de_checking` =0) ");
$xT = new cTabla($sql);
//setLog($sql);
$xT->OButton("TR.Dictaminar", "jsModificarEstatus(_REPLACE_ID_)", $xT->ODicIcons()->REPORTE);
$xT->OButton("TR.Modificar", "jsEditarRiesgo(_REPLACE_ID_)", $xT->ODicIcons()->EDITAR);
//$xT->addTool(1);
$xT->setKeyField($xAl->getKey());
$xT->setKeyTable($xAl->get());
return $xT->Show();
}
function getIDEPagado($socio, $fecha = false)
{
if ($fecha == false) {
$fecha = fechasys();
}
$xF = new cFecha(0, $fecha);
$dia_inicial = $xF->getDiaInicial();
$dia_final = $xF->getDiaFinal();
$mvto_ide = 235;
$idePagado = 0;
if (!isset($this->mIDEPagado) or $this->mIDEPagado <= 0) {
$sqlIDE = "SELECT\r\n\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\r\n\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\r\n\t\t\t\t\t\tCOUNT(`operaciones_mvtos`.`idoperaciones_mvtos`) AS 'numero',\r\n\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS 'monto',\r\n\t\t\t\t\t\t`operaciones_mvtos`.`fecha_operacion`\r\n\t\t\t\t\tFROM\r\n\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\r\n\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` = {$mvto_ide})\r\n\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t(`operaciones_mvtos`.`socio_afectado` =" . $socio . ")\r\n\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_operacion` >='{$dia_inicial}')\r\n\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_operacion` <='{$dia_final}')\r\n\t\t\t\t\tGROUP BY\r\n\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\r\n\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`";
$MD = obten_filas($sqlIDE);
$idePagado = $MD["monto"];
if (!isset($idePagado)) {
$idePagado = 0;
}
$this->mIDEPagado = $idePagado;
unset($MD);
}
return $this->mIDEPagado;
}
function jsaGetListadoDeAvisos($tipo, $fecha_inicial, $fecha_final, $todas)
{
$tipo = $tipo == SYS_TODAS ? false : $tipo;
$xT = new cTipos();
$xF = new cFecha();
$xAl = new cAml_alerts();
$xlistas = new cSQLListas();
$xBtn = new cHButton();
$xImg = new cHImg();
//
$ByEstado = $xT->cBool($todas) == true ? "" : " AND `estado_en_sistema`= " . SYS_UNO;
$ByEstado .= setNoMenorQueCero($tipo) <= 0 ? "" : " AND (`aml_risk_catalog`.`tipo_de_riesgo` ={$tipo}) ";
$fecha_inicial = $xF->getFechaISO($fecha_inicial);
$fecha_final = $xF->getFechaISO($fecha_final);
$sql = $xlistas->getListadoDeAlertas(false, false, false, false, $ByEstado);
$xT = new cTabla($sql);
$xT->setWithMetaData();
$xT->OButton("TR.Dictaminar", "jsModificarEstatus(_REPLACE_ID_)", $xT->ODicIcons()->REPORTE);
$xT->OButton("TR.Panel", "jsToPanel(_REPLACE_ID_)", $xT->ODicIcons()->EJECUTAR);
$xT->setKeyField($xAl->getKey());
$xT->setKeyTable($xAl->get());
return $xT->Show();
}
function jsaGetEmpresa($empresa, $periocidad)
{
$xEmp = new cEmpresas($empresa);
$xEmp->init();
$periodo = 0;
$dias = 24 * 60;
$xEmp->init();
$ctrl = "<label for=\"idperiodo\">Periodo</label><input type=\"number\" id=\"idperiodo\" onchange=\"jsaGetMontoDelPeriodo()\" onblur=\"jsaGetMontoDelPeriodo()\" />";
$xF = new cFecha(0);
//$observaciones .= " -- $periodo";
$xEmp = new cEmpresas($empresa);
$xEmp->init();
$periodo = intval($xEmp->getPeriodo()) == 0 ? $periodo : intval($xEmp->getPeriodo());
//$observaciones .= "$fecha";
switch ($periocidad) {
case CREDITO_TIPO_PERIOCIDAD_SEMANAL:
//buscar lunes
$xSel = $xF->getSelectSemanas("idPeriodo", $periodo);
$xSel->addEvent("jsaGetMontoDelPeriodo()", "onchange");
$xSel->addEvent("jsaGetMontoDelPeriodo()", "onblur");
$xSel->setEnclose(false);
$ctrl = $xSel->get("idPeriodo", "Periodo", $periodo);
break;
case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
$xSel = $xF->getSelectQuincenas("idPeriodo", $periodo);
$xSel->addEvent("jsaGetMontoDelPeriodo()", "onchange");
$xSel->addEvent("jsaGetMontoDelPeriodo()", "onblur");
$xSel->setEnclose(false);
$ctrl = $xSel->get("idPeriodo", "Periodo", $periodo);
break;
case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
break;
case CREDITO_TIPO_PERIOCIDAD_DECENAL:
break;
}
return $ctrl;
}
function jsaGetListadoCierres($fecha)
{
$xLi = new cSQLListas();
$xF = new cFecha();
$fecha = $xF->getFechaISO($fecha);
$sqlList = $xLi->getListadoDeRecibos(12, "", "", $fecha);
$xTab = new cTabla($sqlList);
$xTab->OButton("TR.Reporte", "var xR = new RecGen(); xR.reporte(" . HP_REPLACE_ID . ")", $xTab->ODicIcons()->REPORTE);
$xTab->OButton("TR.Panel", "var xR = new RecGen(); xR.panel(" . HP_REPLACE_ID . ")", $xTab->ODicIcons()->CONTROL);
$xBtn = new cHButton();
$xSel = new cHSelect();
$xCA = $xSel->getListaDeCajasAbiertas();
$T2 = new cTabla($xCA->getSQL() . " AND `tesoreria_cajas`.`fecha_inicio` = '{$fecha}' ");
$T2->addEspTool($xBtn->getBasic("", "jsToCerrarCorte('{$fecha}')", "bloquear", "idcerrar", true));
$html = $xTab->Show("TR.LISTADO DE CIERRES");
if (MODULO_CAJA_ACTIVADO == true) {
$html .= $T2->Show("TR.Cajas Abiertas");
$itemsAbier = $T2->getRowCount();
$html .= "<input type='hidden' id='idabiertas' value='{$itemsAbier}' />";
} else {
$html .= "<input type='hidden' id='idabiertas' value='0' />";
}
return $html;
}
//$xT->setTipoSalida($out);
$body = $xRPT->getEncabezado($xHP->getTitle(), $FechaInicial, $FechaFinal);
$xRPT->setBodyMail($body);
$xRPT->addContent($body);
$xCats = new cCatalogoDeDatos("");
$DActividades = $xCats->get("clave_interna", "nombre_de_la_actividad", "personas_actividad_economica_tipos");
$DGenero = $xCats->get("idsocios_genero", "descripcion_genero", "socios_genero");
$DPaises = $xCats->initPorTabla(TCATALOGOS_PAISES);
$DRiesgo = $xCats->initPorTabla(TCATALOGOS_GRADO_RIESGO);
//$xT->setEventKey("jsGoPanel");
//$xT->setKeyField("creditos_solicitud");
$sql = $xL->getInicialDePersonas() . " WHERE (`personalidad_juridica` = 2 OR `personalidad_juridica` = 5)";
$rs = $query->getDataRecord($sql);
$xTa = new cHTabla();
$xDSoc = new cSocios_general();
$xF = new cFecha();
$xTa->initRow();
$xTa->addTH("Sucursal");
$xTa->addTH("Nombre");
$xTa->addTH("Fecha de Constitucion");
$xTa->addTH("Nacionalidad");
$xTa->addTH("RFC");
$xTa->addTH("Actividad economica");
//$xTa->addTH("Puesto o Ocupacion");
$xTa->addTH("Direccion");
$xTa->addTH("Telefono Principal");
$xTa->addTH("Apoderado");
$xTa->addTH("Es PEP");
$xTa->addTH("Lista Negra");
$xTa->addTH("Grado de Riesgo");
$xTa->addTH("Servicios");
//=====> 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
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP = new cHPage("TR.Depositos cuentas_de_inversion");
$xF = new cFecha();
$xT = new cTipos();
$iddocto = parametro("idcuenta", DEFAULT_CUENTA_CORRIENTE);
$recibo = parametro("idrecibo");
$reciboIDE = 0;
//
$actload = "";
$Fecha = parametro("idfecha-0", false);
$Fecha = $Fecha == false ? fechasys() : $xF->getFechaISO($Fecha);
$idsocio = parametro("idsocio", false, MQL_INT);
//$xT->cInt($_POST["idsocio"]);
$detalles = parametro("idobservaciones", "");
$monto = parametro("idmonto", 0, MQL_FLOAT);
$cheque = parametro("cheque", DEFAULT_CHEQUE);
$comopago = parametro("ctipo_pago", DEFAULT_TIPO_PAGO, MQL_RAW);
$folio_fiscal = parametro("foliofiscal", DEFAULT_RECIBO_FISCAL);
$theFile = __FILE__;
//$permiso = getSIPAKALPermissions($theFile);
//if($permiso === false){ header ("location:../404.php?i=999"); }
$_SESSION["current_file"] = addslashes($theFile);
//<===== FIN_H
//=====================================================================================================
$xP = new cHPage("Pruebas de Fechas", HP_FORM);
$xP->setIncludes();
echo $xP->getHeader();
echo $xP->setBodyinit();
//Crear formularios
$xHFrm = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
//$txt = $xHTxt->getDeMoneda("id", "Moneda de Prueba", 100);
$miFecha = parametro("fecha", fechasys());
$xF = new cFecha(0, $miFecha);
//$xHFrm->addHElem( $txt );
$xHFrm->addHElem($xF->show(true));
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se semana==" . $xF->getFechaDeInicioDeSemana() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se nombre semana==" . $xF->getDayName($xF->getFechaDeInicioDeSemana()) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias del Mes==" . $xF->getDiasDelMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Corta==" . $xF->getFechaCorta() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Larga==" . $xF->getFechaLarga() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Mediana==" . $xF->getFechaMediana() . "</p>");
//$xHFrm->addHElem( );
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Operativa Maxima==" . $xF->getFechaMaximaOperativa() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, El Mes Anterior==" . $xF->getFechaMesAnterior() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, dos meses atras==" . $xF->getFechaMesAnterior(false, 2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} - 30 Dias==" . $xF->setRestarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} + 30 Dias==" . $xF->setSumarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} + 2 meses==" . $xF->setSumarMeses(2) . "</p>");
$action = isset($_GET["a"]) ? $_GET["a"] : false;
$jsb = new jsBasicForm("frmRegistroDeIde");
$jsb->show();
if ($action == false) {
//$jxc ->drawJavaScript(false, true);
?>
<body>
<form name="frmRegistroDeIde" method="POST" action="./ide_registro_de_pago.frm.php?a=ok">
<fieldset>
<legend><script> document.write(document.title); </script></legend>
<table border='0' >
<tbody>
<tr>
<td>Fecha de Pago</td>
<td><?php
$xF1 = new cFecha(0);
echo $xF1->show();
?>
</td>
</tr>
<tr>
<td>Banco</td>
<td><?php
$gssql = "SELECT idbancos_cuentas, descripcion_cuenta FROM bancos_cuentas";
$cBc = new cSelect("cBanco", "id-banco", $gssql);
//$cFJ->addEvent("onchange", "getCambiosFigura");
$cBc->setEsSql();
$cBc->show(false);
?>
</td>
</tr>
function getNombre_FechaDeMinistracion($dia, $mes, $anno)
{
$d = date("Y-m-d", strtotime($anno . "-" . $mes . "-" . $dia));
$xFec = new cFecha(0, $d);
return $xFec->getDayName();
}
function setDescartaAlerta($notas = "", $fecha = false)
{
$fecha = $fecha == false ? fechasys() : $fecha;
$xF = new cFecha();
$fecha = $xF->getInt($fecha);
$clave = $this->mCodigo;
//Actualizar la alerta
$sql = "UPDATE aml_alerts SET fecha_de_checking={$fecha}, estado_en_sistema=" . SYS_CERO . ", notas_de_checking=\"{$notas}\" WHERE clave_de_control={$clave}";
my_query($sql);
$this->mMessages .= "WARN\tAlerta # {$clave} descartada\r\n";
}
function calcular($fecha_inicial = false, $PrimerPago = false, $SegundoPago = false, $TercerPago = false)
{
$xCred = new cCredito($this->mClaveDeCredito);
$xCred->init();
$xF = new cFecha();
$msg = "";
$FORMA_DE_PAGO = $xCred->getFormaDePago();
$PAGOS_AUTORIZADOS = $xCred->getPagosAutorizados();
$PERIOCIDAD_DE_PAGO = $xCred->getPeriocidadDePago();
$MONTO_AUTORIZADO = $xCred->getMontoAutorizado();
$SALDO_ACTUAL = $xCred->getSaldoActual();
$INTERES_PAGADO = $xCred->getInteresNormalPagado();
$MORA_PAGADO = $xCred->getInteresMoratorioPagado();
$xCred->initPagosEfectuados();
$CAPITAL_PAGADO = setNoMenorQueCero($MONTO_AUTORIZADO - $SALDO_ACTUAL);
$SALDO_DE_PLAN = $xCred->getMontoAutorizado();
$TASA_NORMAL = $xCred->getTasaDeInteres();
$TASA_MORA = $xCred->getTasaDeMora();
$TASA_IVA = $xCred->getTasaIVA();
$DIVISOR_DE_INTS = EACP_DIAS_INTERES;
$FECHA_DE_PAGO = $xCred->getFechaPrimeraParc();
$FECHA_INICIAL = $xCred->getFechaDeMinistracion();
$opciondia_1 = $PrimerPago;
$opciondia_2 = $SegundoPago;
$opciondia_3 = $TercerPago;
//sanitiza la fecha de pago
if ($FECHA_DE_PAGO == false) {
$FECHA_DE_PAGO = $xF->setSumarDias($PERIOCIDAD_DE_PAGO, $FECHA_INICIAL);
}
if (($PERIOCIDAD_DE_PAGO > CREDITO_TIPO_PERIOCIDAD_CATORCENAL or $PERIOCIDAD_DE_PAGO == CREDITO_TIPO_PERIOCIDAD_CATORCENAL) and ($opciondia_1 == false or $opciondia_2 == false or $opciondia_3 == false)) {
if ($PERIOCIDAD_DE_PAGO == CREDITO_TIPO_PERIOCIDAD_QUINCENAL) {
$opciondia_1 = $opciondia_1 == false ? PQ_DIA_PRIMERA_QUINCENA : $opciondia_1;
$opciondia_2 = $opciondia_2 == false ? PQ_DIA_SEGUNDA_QUINCENA : $opciondia_2;
} elseif ($PERIOCIDAD_DE_PAGO == CREDITO_TIPO_PERIOCIDAD_DECENAL) {
$opciondia_1 = $opciondia_1 == false ? 10 : $opciondia_1;
$opciondia_2 = $opciondia_2 == false ? 20 : $opciondia_2;
$opciondia_3 = $opciondia_3 == false ? 30 : $opciondia_3;
} else {
$opciondia_1 = $opciondia_1 == false ? PM_DIA_DE_PAGO : $opciondia_1;
}
}
//pagos decenales entre el mes
$arrPagos = array();
//obtener los dias de pago en el mes por tipo de pago
$dia_de_pago = $xCred->getFechaDeMinistracion();
for ($i = 1; $i <= $PAGOS_AUTORIZADOS; $i++) {
$letra = $i;
switch ($PERIOCIDAD_DE_PAGO) {
case CREDITO_TIPO_PERIOCIDAD_DIARIO:
$dia_de_pago = $xF->getDiaHabil($xF->setSumarDias(1, $dia_de_pago));
$arrPagos[$letra][SYS_FECHA] = $dia_de_pago;
$msg .= "OK\t{$letra}\tDIARIO\tFecha de pago a {$dia_de_pago}\r\n";
break;
case CREDITO_TIPO_PERIOCIDAD_SEMANAL:
break;
case CREDITO_TIPO_PERIOCIDAD_DECENAL:
break;
case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
//dias naturales, cada dos semanas?
break;
case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
$dia_de_pago = $xF->setSumarDias(CREDITO_TIPO_PERIOCIDAD_QUINCENAL, $dia_de_pago);
$dia_de_pago = $xF->getDiaAbonoQuincenal($opciondia_1, $opciondia_2, $dia_de_pago);
$arrPagos[$letra][SYS_FECHA] = $dia_de_pago;
$msg .= "OK\t{$letra}\tQUINCENAL\tFecha de pago a {$dia_de_pago}, opcion {$opciondia_1}, {$opciondia_2}\r\n";
break;
case CREDITO_TIPO_PERIOCIDAD_MENSUAL:
$dia_de_pago = date("Y-m-", $xF->getInt($dia_de_pago)) . $opciondia_1;
$dia_de_pago = $xF->setSumarMeses(1, $dia_de_pago);
$dia_de_pago = $xF->getDiaHabil($dia_de_pago);
$arrPagos[$letra][SYS_FECHA] = $dia_de_pago;
$msg .= "OK\t{$letra}\tMENSUAL\tFecha de pago a {$dia_de_pago}, opcion {$opciondia_1}\r\n";
break;
case CREDITO_TIPO_PERIOCIDAD_BIMESTRAL:
break;
case CREDITO_TIPO_PERIOCIDAD_TRIMESTRAL:
break;
}
}
//$FORMULA_INT = new cFormula("interes_normal");
//dias de pago
//si es empresa, tomar la fecha de la empresa semanal, quincenal, mensual, decenal
//Iniciar los Pagos Actuales
//$this->initParcsPendientes();
$DatosDePagados = $xCred->getListadoDePagos();
/* interes capital impuestos */
switch ($FORMA_DE_PAGO) {
case CREDITO_TIPO_PAGO_PERIODICO:
//parcialidad interes + capital
break;
case CREDITO_TIPO_PAGO_FLAT_PARCIAL:
for ($i = 1; $i <= $PAGOS_AUTORIZADOS; $i++) {
$letra = $i;
$letraAnterior = setNoMenorQueCero($letra - 1);
$PagoAnterior = isset($DatosDePagados[$letra]) ? $DatosDePagados[$letra] : array();
$capital_pagado = isset($DPago[SYS_CAPITAL]) ? $DPago[SYS_CAPITAL] : 0;
$SALDO_DE_PLAN = $SALDO_DE_PLAN - $capital_pagado;
$interes_normal = $MONTO_AUTORIZADO * $PERIOCIDAD_DE_PAGO * $TASA_NORMAL / $DIVISOR_DE_INTS;
$capital = $MONTO_AUTORIZADO / $PAGOS_AUTORIZADOS;
$capital = setNoMenorQueCero($capital - $capital_pagado);
$interes_pagado = isset($DPago[SYS_INTERES_NORMAL]) ? $DPago[SYS_INTERES_NORMAL] : 0;
$interes_normal = setNoMenorQueCero($interes_normal - $interes_pagado);
$arrPagos[$letra][SYS_INTERES_NORMAL] = $interes_normal;
if ($letra == $PAGOS_AUTORIZADOS) {
if ($SALDO_DE_PLAN > 0) {
$arrPagos[$letra][SYS_CAPITAL] = $SALDO_DE_PLAN;
$msg .= "WARN\t{$letra}\tCapital a ultimo pago {$SALDO_DE_PLAN} \r\n";
}
}
//determinar proxima fecha de pago
$msg .= "OK\t{$letra}\tInteres Normal en {$interes_normal}, Pagado {$interes_pagado} \r\n";
}
break;
case CREDITO_TIPO_PAGO_INTERES_PERIODICO:
for ($i = 1; $i <= $PAGOS_AUTORIZADOS; $i++) {
$letra = $i;
$letraAnterior = setNoMenorQueCero($letra - 1);
$DAnterior = isset($DatosDePagados[$letraAnterior]) ? $DatosDePagados[$letraAnterior] : array();
$capital_pagado = isset($DAnterior[SYS_CAPITAL]) ? $DAnterior[SYS_CAPITAL] : 0;
$SALDO_DE_PLAN = $SALDO_DE_PLAN - $capital_pagado;
$DPago = isset($DatosDePagados[$letra]) ? $DatosDePagados[$letra] : array();
$interes_pagado = isset($DPago[SYS_INTERES_NORMAL]) ? $DPago[SYS_INTERES_NORMAL] : 0;
//datos del pago anterior
$DLetraAnterior = isset($arrPagos[$letraAnterior]) ? $arrPagos[$letraAnterior] : array();
$DLetra = isset($arrPagos[$letra]) ? $arrPagos[$letra] : array();
$FechaAnterior = isset($DLetraAnterior[SYS_FECHA]) ? $DLetraAnterior[SYS_FECHA] : $xCred->getFechaDeMinistracion();
$FechaActual = isset($DLetra[SYS_FECHA]) ? $DLetra[SYS_FECHA] : false;
$DIAS_TRANSCURRIDOS = $xF->setRestarFechas($FechaActual, $FechaAnterior);
//INTERES NORMAL
$interes_normal = $SALDO_DE_PLAN * $DIAS_TRANSCURRIDOS * $TASA_NORMAL / $DIVISOR_DE_INTS;
$interes_normal = setNoMenorQueCero($interes_normal - $interes_pagado);
$arrPagos[$letra][SYS_INTERES_NORMAL] = $interes_normal;
if ($capital_pagado > 0) {
$msg .= "WARN\t{$letra}\tCapital en pago {$letraAnterior} de {$capital_pagado} \r\n";
}
if ($letra == $PAGOS_AUTORIZADOS) {
if ($SALDO_DE_PLAN > 0) {
$arrPagos[$letra][SYS_CAPITAL] = $SALDO_DE_PLAN;
$msg .= "WARN\t{$letra}\tCapital a ultimo pago {$SALDO_DE_PLAN} \r\n";
}
}
$msg .= "OK\t{$letra}\tInteres Normal en {$interes_normal}, Pagado {$interes_pagado}, Dias {$DIAS_TRANSCURRIDOS},Fecha : Actual {$FechaActual} Anterior {$FechaAnterior}\r\n";
}
break;
case CREDITO_TIPO_PAGO_INTERES_COMERCIAL:
for ($i = 1; $i <= $PAGOS_AUTORIZADOS; $i++) {
$letra = $i;
$letraAnterior = setNoMenorQueCero($letra - 1);
$DAnterior = isset($DatosDePagados[$letraAnterior]) ? $DatosDePagados[$letraAnterior] : array();
$capital_pagado = isset($DAnterior[SYS_CAPITAL]) ? $DAnterior[SYS_CAPITAL] : 0;
$SALDO_DE_PLAN = $SALDO_DE_PLAN - $capital_pagado;
$DPago = isset($DatosDePagados[$letra]) ? $DatosDePagados[$letra] : array();
$interes_pagado = isset($DPago[SYS_INTERES_NORMAL]) ? $DPago[SYS_INTERES_NORMAL] : 0;
//INTERES NORMAL
$interes_normal = $SALDO_DE_PLAN * $PERIOCIDAD_DE_PAGO * $TASA_NORMAL / $DIVISOR_DE_INTS;
$interes_normal = setNoMenorQueCero($interes_normal - $interes_pagado);
$arrPagos[$letra][SYS_INTERES_NORMAL] = $interes_normal;
if ($capital_pagado > 0) {
$msg .= "WARN\t{$letra}\tCapital en pago {$letraAnterior} de {$capital_pagado} \r\n";
}
if ($letra == $PAGOS_AUTORIZADOS) {
if ($SALDO_DE_PLAN > 0) {
$arrPagos[$letra][SYS_CAPITAL] = $SALDO_DE_PLAN;
$msg .= "WARN\t{$letra}\tCapital a ultimo pago {$SALDO_DE_PLAN} \r\n";
}
}
$msg .= "OK\t{$letra}\tInteres Normal en {$interes_normal}, Pagado {$interes_pagado} \r\n";
}
break;
}
$NumeroPlan = $this->mNumeroDePlan;
//$this->setEliminar();
//eliminar plan de pagos
foreach ($arrPagos as $periodo) {
}
$this->mMessages .= $msg;
return $msg;
}
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("REPORTE DE OPERACIONES DETALLADAS POR PERSONA ", HP_REPORT);
$oficial = elusuario($iduser);
/**
*/
$xF = new cFecha();
$estatus = isset($_GET["estado"]) ? $_GET["estado"] : SYS_TODAS;
$frecuencia = isset($_GET["periocidad"]) ? $_GET["periocidad"] : SYS_TODAS;
$convenio = isset($_GET["convenio"]) ? $_GET["convenio"] : SYS_TODAS;
$empresa = isset($_GET["empresa"]) ? $_GET["empresa"] : SYS_TODAS;
$out = isset($_GET["out"]) ? $_GET["out"] : SYS_DEFAULT;
$mx = isset($_GET["mx"]) ? true : false;
if ($mx == true) {
$fechaInicial = isset($_GET["on"]) ? $xF->getFechaISO($_GET["on"]) : FECHA_INICIO_OPERACIONES_SISTEMA;
$fechaFinal = isset($_GET["off"]) ? $xF->getFechaISO($_GET["off"]) : fechasys();
} else {
$fechaInicial = isset($_GET["on"]) ? $_GET["on"] : FECHA_INICIO_OPERACIONES_SISTEMA;
$fechaFinal = isset($_GET["off"]) ? $_GET["off"] : fechasys();
}
$ByConvenio = $convenio == SYS_TODAS ? "" : " AND\t(`listado_de_ingresos`.`producto` ={$convenio}) ";
$ByEmpresa = $empresa == SYS_TODAS ? "" : " AND (`listado_de_ingresos`.`clave_empresa` = {$empresa}) ";
function getDescripcion()
{
$xF = new cFecha(0);
if ($this->mReciboIniciado == false) {
$this->init();
}
$xSoc = new cSocio($this->mSocio);
$xSoc->init();
$desc = $this->mCodigoDeRecibo . "|" . $xF->getFechaCorta($this->mFechaDeOperacion) . "|" . $xSoc->getNombreCompleto();
return $desc;
}
//=====================================================================================================
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 PERSONAS CLASIFICADAS COMO PEPS", HP_REPORT);
$xL = new cSQLListas();
$xF = new cFecha();
$query = new MQL();
$estatus = parametro("estado", SYS_TODAS);
$frecuencia = parametro("periocidad", SYS_TODAS);
$producto = parametro("convenio", SYS_TODAS);
$producto = parametro("producto", $producto);
$empresa = parametro("empresa", SYS_TODAS);
$sucursal = parametro("sucursal", SYS_TODAS, MQL_RAW);
$out = parametro("out", SYS_DEFAULT);
$FechaInicial = parametro("on", false);
$FechaInicial = parametro("fecha-0", $FechaInicial);
$FechaInicial = $FechaInicial == false ? FECHA_INICIO_OPERACIONES_SISTEMA : $xF->getFechaISO($FechaInicial);
$FechaFinal = parametro("off", false);
$FechaFinal = parametro("fecha-1", $FechaFinal);
$FechaFinal = $FechaFinal == false ? fechasys() : $xF->getFechaISO($FechaFinal);
$jsEvent = $out != OUT_EXCEL ? "initComponents()" : "";
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);
$key = isset($_GET["k"]) ? true : false;
$parser = !isset($_GET["s"]) ? false : $_GET["s"];
//Obtiene la llave del
//if ($key == MY_KEY) {
$messages = "";
$fechaop = parametro("f", fechasys());
$xF = new cFecha(0, $fechaop);
/**
* Generar el Archivo HTMl del LOG
* eventos-del-cierre + fecha_de_cierre + .html
*
*/
$aliasFil = getSucursal() . "-eventos-al-cierre-de-colocacion-del-dia-{$fechaop}";
$xLog = new cFileLog($aliasFil);
$ql = new MQL();
$xRec = new cReciboDeOperacion(12);
$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$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";
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
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP = new cHPage("TR.Estado de Cuenta de Depositos a la Vista", HP_RPTXML);
$xQL = new MQL();
$xF = new cFecha();
$oficial = elusuario($iduser);
//=====================================================================================================
$idcuenta = parametro("f100", false, MQL_INT);
$idcuenta = parametro("cuenta", $idcuenta, MQL_INT);
$AppByFechas = parametro("f73");
//Boolean por fechas
$fecha_inicial = parametro("on", EACP_FECHA_DE_CONSTITUCION, MQL_DATE);
$fecha_final = parametro("off", $xF->getFechaMaximaOperativa(), MQL_DATE);
$output = parametro("out", SYS_DEFAULT);
$setSql = "SELECT\n\t`socios`.`codigo`,\n\t`socios`.`nombre`,\n\t`captacion_cuentas`.`numero_cuenta` AS `numero_de_cuenta`,\n\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `tipo`,\n\t`captacion_subproductos`.`descripcion_subproductos` AS `producto`,\n\t`captacion_cuentas`.`tasa_otorgada`,\n\t`captacion_cuentas`.`dias_invertidos`,\n\t`captacion_cuentas`.`saldo_cuenta`,\n\t`captacion_cuentas`.`sucursal`,\n\t`captacion_sdpm_historico`.`ejercicio`,\n\t`captacion_sdpm_historico`.`periodo`,\n\t`captacion_sdpm_historico`.`fecha`,\n\t`captacion_sdpm_historico`.`recibo`,\n\t`captacion_sdpm_historico`.`dias`,\n\t`captacion_sdpm_historico`.`tasa`,\n\t`captacion_sdpm_historico`.`monto`\nFROM\n\t`captacion_cuentas` `captacion_cuentas`\n\t\tINNER JOIN `captacion_sdpm_historico` `captacion_sdpm_historico`\n\t\tON `captacion_cuentas`.`numero_cuenta` = `captacion_sdpm_historico`.\n\t\t`cuenta`\n\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\n\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\n\t\t\t`idcaptacion_cuentastipos`\n\t\t\t\tINNER JOIN `socios` `socios`\n\t\t\t\tON `socios`.`codigo` = `captacion_cuentas`.`numero_socio`\n\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\n\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` =\n\t\t\t\t\t`captacion_subproductos`.`idcaptacion_subproductos`\nWHERE\n\t(`captacion_cuentas`.`numero_cuenta` ={$idcuenta})\n\tAND\n\t(`captacion_sdpm_historico`.`fecha`>='{$fecha_inicial}')\n\tAND\n\t(`captacion_sdpm_historico`.`fecha`<='{$fecha_final}')\nORDER BY\n\t`socios`.`codigo`,\n\t`captacion_cuentas`.`numero_cuenta`,\n\t`captacion_sdpm_historico`.`ejercicio` ASC,\n\t`captacion_sdpm_historico`.`periodo` ASC,\t\n\t`captacion_sdpm_historico`.`fecha` ASC";
//exit($setSql);
if ($output != OUT_EXCEL) {
$oRpt = new PHPReportMaker();
$oRpt->setDatabase(MY_DB_IN);
$oRpt->setUser(RPT_USR_DB);
