function Common_c8581154ac4e27cb0e122d71341dd7d8($strCmd) { $DPar = explode(STD_LITERAL_DIVISOR, $strCmd); $xTip = new cTipos(); // $socio = $xTip->cInt($DPar[0]); $cuenta = $xTip->cInt($DPar[1]); $deposito = $xTip->cFloat($DPar[2]); $retiro = $xTip->cFloat($DPar[3]); $nota = $xTip->cChar($DPar[4]); $numero = $xTip->cInt($DPar[5]); $limit = $xTip->cInt($DPar[6]); if (isset($_SESSION["recibo_en_proceso"])) { $recibo = $_SESSION["recibo_en_proceso"]; $fecha = fechasys(); $_SESSION["total_recibo_en_proceso"] += $deposito - $retiro; $xRec = new cReciboDeOperacion(200, false, $recibo); $xRec->setNumeroDeRecibo($recibo, true); $DRec = $xRec->getDatosInArray(); $cheque = $DRec["cheque_afectador"]; $tipopago = $DRec["tipo_pago"]; $recibofiscal = $DRec["recibo_fiscal"]; if ($deposito > 0 or $retiro > 0) { $xC = new cCuentaALaVista($cuenta); $grupo = DEFAULT_GRUPO; $xC->setSocioTitular($socio); $xC->setReciboDeOperacion($recibo); if ($deposito > 0) { $xC->setDeposito($deposito, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo); } if ($retiro > 0) { $xC->setRetiro($retiro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo); } } if ($numero == $limit) { $xRec->setForceUpdateSaldos(); $xRec->setFinalizarRecibo(true); //$MsgEnd .= "**** proceso terminado ****"; } } //retorna el id del control de origen para neutralizar return "-{$numero}"; }
/** * Funcion que obtiene el Nombre del socio * * @param integer $params * @return string */ function Common_695bad33e1f2af343f99c6a4ceb9d045($params) { $nombre = MSG_NO_PARAM_VALID; $xT = new cTipos(); $socio = $xT->cInt($params); $xSoc = new cSocio($socio); if ($xSoc->existe($socio) == true) { $xSoc->init(); $nombre = $xSoc->getNombreCompleto(OUT_TXT); } return $nombre; }
function getTelMovil($telefono) { $xT = new cTipos(); $tel = $xT->cInt($telefono); $tm = strlen($tel); if (MODO_DEBUG == true) { $this->mMessages .= "WARN\tTelefono {$telefono} longitud {$tm}\r\n"; } switch (EACP_CLAVE_DE_PAIS) { case "MX": switch ($tm) { case 13: $tel = substr($tel, -10); break; case 12: $tel = null; $this->mValido = false; break; case 10: break; case 7: $tel = null; $this->mValido = false; break; default: $tel = null; $this->mValido = false; break; } //10 98164 == 7 //981 10 98164 == 10 //044 981 10 98164 == 13 //01 981 10 98164 == 12 if ($tel != null) { $tel = "52{$tel}"; } break; } return $tel; }
//$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n"; } $socio = DEFAULT_SOCIO; $credito = DEFAULT_CREDITO; $letras = 0; $capital = 0; $interes = 0; $ahorro = 0; $iva = 0; $cls = ''; $observaciones = ""; $cadena = explode(",", trim($bufer), 8); //Depurar $socio = $xT->cInt($cadena[0]); $credito = $xT->cInt($cadena[1]); $letra = $xT->cInt($cadena[2]); $capital = round($xT->cFloat($cadena[3]), 2); $interes = round($xT->cFloat($cadena[4]), 2); $iva = round($xT->cFloat($cadena[5]), 2); $ahorro = round($xT->cFloat($cadena[6]), 2); $observaciones = $xT->cChar($cadena[7]); $total = $capital + $ahorro + $interes + $iva; if (isset($socio) and isset($credito) and !empty($socio) and !empty($credito)) { $DSoc = new cSocio($socio); $SocioExiste = $DSoc->existe($socio); $CreditoExiste = $DSoc->existeCredito($credito); if ($SocioExiste == true and $CreditoExiste == true) { $DSoc->init(); $nombre = $DSoc->getNombreCompleto();
$gestor = @fopen($completePath, "r"); $iReg = 0; $cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga -batch-de-socios-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 6); $socio = $cT->cInt($datos[0]); } $iReg++; } } fclose($gestor); $xLog->setWrite($msg); echo $xLog->getLinkDownload("Archivo del proceso"); } else { echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO SE ACEPTA</p>"; } } } } if (!isset($iReg)) { $iReg = 0;
function setCambiarPeriocidad($NuevaPeriocidad, $nuevosPagos = false, $formaPago = false, $fecha = false) { $pagos = $this->getPagosAutorizados(); $periocidad = $this->getPeriocidadDePago(); $dias = $this->getDiasAutorizados(); $formaPago = $formaPago == false ? $this->getFormaDePago() : $formaPago; $pagoActual = $this->getPeriodoActual(); $cT = new cTipos(); $xF = new cFecha(); $msg = ""; $success = true; $nuevosDias = $nuevosPagos == false ? $dias : $NuevaPeriocidad * $nuevosPagos; $nuevosPagos = $nuevosPagos == false ? $cT->cInt($dias / $NuevaPeriocidad) : $nuevosPagos; //cuadrar periodo actual if ($NuevaPeriocidad > $periocidad) { //15 > 7 ? 15/7 :: 7 24/1 $factoria = $NuevaPeriocidad / $periocidad; $pagoActual = $cT->cInt($pagoActual / $factoria); } if ($NuevaPeriocidad < $periocidad) { //30 > 15 :: 30/5 = 2 $factoria = $periocidad / $NuevaPeriocidad; $pagoActual = $cT->cInt($pagoActual * $factoria); } $xConv = new cProductoDeCredito($this->getClaveDeProducto()); $DConv = $xConv->obj(); if ($NuevaPeriocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $nuevosPagos = SYS_UNO; $formaPago = CREDITO_TIPO_PAGO_UNICO; if ($fecha != false) { $nuevosDias = $xF->setRestarFechas($fecha, $this->getFechaDeMinistracion()); } else { $nuevosDias = $this->getDiasAutorizados(); } } if ($nuevosDias > $DConv->dias_maximo()->v()) { //sucees false $success = false; $msg .= "ERROR\\Periocidad Limitada a Maximo de dias\r\n"; } $fechaVencmiento = $xF->setSumarDias($nuevosDias, $this->getFechaDeMinistracion()); if ($success == true) { if ($this->isAFinalDePlazo() == false) { //eliminar plan de pagos $idPlan = $this->getNumeroDePlanDePagos(); if ($idPlan > 0) { $xPlan = new cReciboDeOperacion(false, true, $idPlan); $xPlan->init(); $xPlan->setRevertir(true); $msg .= $xPlan->getMessages(); } } //actualizar credito $this->setUpdate(array($this->obj()->dias_autorizados()->get() => $nuevosDias, $this->obj()->plazo_en_dias()->get() => $nuevosDias, $this->obj()->periocidad_de_pago()->get() => $NuevaPeriocidad, $this->obj()->pagos_autorizados()->get() => $nuevosPagos, $this->obj()->fecha_vencimiento()->get() => $fechaVencmiento, $this->obj()->fecha_vencimiento_dinamico()->get() => $fechaVencmiento, $this->obj()->tipo_de_pago()->get() => $formaPago, $this->obj()->ultimo_periodo_afectado()->get() => $pagoActual)); $this->init(); $msg .= $this->setReestructurarIntereses(); } $this->mMessages .= $msg; return $msg; }
if ($xCaja->getEstatus() == TESORERIA_CAJA_CERRADA) { $xHP->goToPageError(200); } $xHP->init(); $xFRM = new cHForm("frmmultas", "frmcobrodemultas.php?action=" . MQL_ADD); if ($action == SYS_NINGUNO) { $xFRM->addPersonaBasico(); $xFRM->ODate("idfechaactual", false, "TR.Fecha de cobro"); $xFRM->addCobroBasico(); $xFRM->OText("idconceptomulta", "", "TR.Concepto de Multa"); $xFRM->OMoneda("idmontomulta", 0, "TR.Monto de Multa", true); $xFRM->addGuardar(); } else { $xT = new cTipos(); //=========================================================================== $idsocio = isset($_POST["idsocio"]) ? $xT->cInt($_POST["idsocio"]) : 0; $observaciones = isset($_POST["idconceptomulta"]) ? $xT->cChar($_POST["idconceptomulta"]) : ""; $monto = isset($_POST["idmontomulta"]) ? $xT->cFloat($_POST["idmontomulta"]) : 0; $cheque = isset($_POST["cheque"]) ? $xT->cChar($_POST["cheque"]) : DEFAULT_CHEQUE; $comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO; $foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL; if (setNoMenorQueCero($idsocio) <= 0) { //header("location: frmcobrodemultas.php?msg=FALTAN_DATOS"); $xFRM->addAvisoRegistroError(); } else { if (setNoMenorQueCero($monto) <= 0) { $xFRM->addAvisoRegistroError(); } else { $iddocto = DEFAULT_CREDITO; $xRec = new cReciboDeOperacion(RECIBOS_TIPO_TERCEROS, false, false); $xRec->setGenerarBancos();
$gestor = @fopen($completePath, "r"); $iReg = 0; $cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga-batch-de-inversiones-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 6); $socio = $cT->cInt($datos[0]); $importe = $cT->cFloat($datos[1]); $fechaApertura = $cT->cFecha($datos[2]); $plazo = $cT->cInt($datos[3]); $tasa = $cT->cFloat($datos[4]); $observaciones = $cT->cChar($datos[5]); $ClaveCuenta = false; //Iniciar el Socio //$msg .= "$iReg\t$socio\tERROR_SOCIO\t$socio -- $importe -- $fechaApertura -- $plazo -- $tasa -- $observaciones\r\n"; $xCL = new cCajaLocal(99); if ($xCL->getExistenciaSocio($socio) <= 0) { $msg .= "{$iReg}\t{$socio}\tERROR_SOCIO\tLa Linea({$iReg}) no se leyo por que no existe el socio({$bufer})\r\n"; } else { $xInv = new cCuentaInversionPlazoFijo(false, $socio, $plazo, $tasa, $fechaApertura); //Agrega la Cuenta $ClaveCuenta = $xInv->setNuevaCuenta(99, 2, $socio, $observaciones, DEFAULT_CREDITO, "", "", DEFAULT_GRUPO, $fechaApertura, CAPTACION_TIPO_PLAZO, 99, $plazo, $tasa);
$observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : ""; $xFil = new cFileImporter(); $xFil->setCharDelimiter("|"); //var_dump($_FILES["f1"]); if ($xFil->processFile($doc1) == true) { $data = $xFil->getData(); $linea = 0; foreach ($data as $valores => $cont) { // if ($linea == 0) { } else { $idlocalidad = $cont[0]; $nombrelocal = $xT->setNoAcentos($cont[1]); $estadolocal = $cont[2]; $paislocal = $cont[3]; $idestadoloc = $xT->cInt($cont[4]); //cosulta de pais $municipio = EACP_CLAVE_DE_MUNICIPIO; $estado = EACP_CLAVE_DE_ENTIDADFED; if (setNoMenorQueCero($idestadoloc) == 0) { $D = obten_filas("SELECT * FROM general_estados WHERE nombre LIKE '%{$estadolocal}%' LIMIT 0,1"); if (isset($D["clave_numerica"])) { $idestadoloc = $D["clave_numerica"]; } } //calcular pais $D = obten_filas("SELECT * FROM `personas_domicilios_paises` WHERE `nombre_oficial` LIKE '%{$paislocal}%' LIMIT 0,1"); if (isset($D["clave_de_control"])) { $paislocal = $D["clave_de_control"]; } else { $paislocal = EACP_CLAVE_DE_PAIS;
//analizar el Archivo $gestor = @fopen($completePath, "r"); $iReg = 0; if ($gestor) { //eliminar los datos diferentes a la actual sucursal while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $datos = explode(",", trim($bufer), 3); $cuenta = trim($datos[0]); $DCuenta = explode("-", $cuenta); $saldoCW = $cT->cFloat(trim($datos[2]), 2); $socioCW = $cT->cInt(trim($DCuenta[5]), true); //$msg .= "COMPACW\tSaldo $saldoCW SOCIO $socioCW\r\n"; $aCompacW[$socioCW] += $saldoCW; $aCompacWC[$socioCW] .= "{$cuenta}\t{$saldoCW}\t"; } $iReg++; } } fclose($gestor); foreach ($aCompacW as $key => $value) { $socio = $cT->cInt($key, true); $sdoCW = $cT->cFloat($value); //Filtrar por sucursal $xSoc = new cSocio($socio); if ($xSoc->existe($socio) == true) { switch ($TipoDeImportacion) {
//var_dump($_FILES["f1"]); if ($xFil->processFile($doc1) == true) { $data = $xFil->getData(); $linea = 0; foreach ($data as $valores => $cont) { // if ($linea == 0) { } else { //0clave_interna 1clave_de_actividad 2nombre_de_la_actividad //3descripcion_detallada 4productos 5clasificacion 6clave_de_superior //7nivel_de_riesgo 8califica_para_pep $idactividad = $cont[0]; $nombre = $xT->setNoAcentos($cont[2]); $claveuif = $xT->cSerial(7, $cont[1]); $esPep = setNoMenorQueCero($cont[8]); $riesgo = $xT->cInt($cont[7]); $xAct = new cPersonas_actividad_economica_tipos(); //eliminar primero $xAct->query()->setRawQuery("DELETE FROM personas_actividad_economica_tipos WHERE clave_interna={$idactividad}"); //asignar valores $xAct->califica_para_pep($esPep); $xAct->clasificacion("CLASE"); $xAct->clave_de_actividad($claveuif); $xAct->clave_de_superior(0); $xAct->clave_interna($idactividad); $xAct->descripcion_detallada($nombre); $xAct->nivel_de_riesgo($riesgo); $xAct->nombre_de_la_actividad($nombre); $xAct->productos(""); /*$xLoc->altitud(0); $xLoc->clave_de_estado($idestadoloc);
} while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $datos = explode(",", trim($bufer), 3); $cuenta = trim($datos[0]); $nombre = strtoupper(trim($datos[1])); $estatus = $arrEstatus[substr($cuenta, 0, 6)]; $TCuenta = isset($arrTCuenta[substr($cuenta, 0, 12)]) ? $arrTCuenta[substr($cuenta, 0, 12)] : 0; $monto = $cT->cFloat(trim($datos[2])); $modalidad = 1; $aDCuenta = explode("-", $cuenta); $socio = $cT->cInt($aDCuenta[5]); $sucursal = mifila("SELECT sucursal FROM socios_general WHERE codigo = {$socio} LIMIT 0,1 ", "sucursal"); if ($sucursal != getSucursal()) { $sucursal = "otra"; } //1-3-01-02 if (substr($cuenta, 7, 2) == "02") { $modalidad = 3; } if ($monto > 0 and $socio != 0) { if ($TipoDeImportacion == "credito") { $sqlD = "DELETE FROM sisbancs_temp_creditos WHERE cuenta_contable = '{$cuenta}' "; my_query($sqlD); // if ($socio != 0) { $sqlI = "INSERT INTO sisbancs_temp_creditos(numero_de_socio, cuenta_contable, nombre,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testatus, modalidad, saldo, sucursal)\n\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$socio}, '{$cuenta}', '{$nombre}', {$estatus}, {$modalidad} , {$monto}, '{$sucursal}') ";
function __construct($codigo_de_socio, $init = false) { $xT = new cTipos(); $this->mCodigo = $xT->cInt($codigo_de_socio); if ($init == true) { $this->init(); } $this->mUsuarioActual = getUsuarioActual(); }
$cT = new cTipos(); if ($gestor) { while (!feof($gestor)) { $bufer = $cT->setNoAcentos(fgets($gestor, 4096)); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n"; $msg .= "DEL\tSe Eiminan todas las Colonias\r\n"; } else { $datos = explode("|", $bufer, 16); $cpostal = $datos[0]; $ncolonia = $cT->cChar($datos[1]); $tcolonia = $cT->cChar($datos[2]); $estado = $cT->cChar($datos[4]); $municipio = $cT->cChar($datos[3]); $numEstado = $cT->cInt($datos[7]); $ciudad = $cT->cChar($datos[5]); if (trim($ciudad) == "") { $ciudad = $ncolonia; } $numMunicipio = $cargaGlobal == 1 ? $cT->cInt($datos[11]) : $cT->cInt($datos[10]); $fecha = fechasys(); $sucursal = getSucursal(); $sql = "INSERT INTO general_colonias(codigo_postal, nombre_colonia, tipo_colonia,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testado_colonia, ciudad_colonia, municipio_colonia,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tfecha_de_revision,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tcodigo_de_estado, codigo_de_municipio, sucursal)\n\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$cpostal}, '{$ncolonia}', '{$tcolonia}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t'{$estado}', '{$ciudad}', '{$municipio}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t'{$fecha}', {$numEstado}, {$numMunicipio}, '{$sucursal}')"; $sqDC = "DELETE FROM general_colonias WHERE codigo_postal = {$cpostal} AND fecha_de_revision != '{$fecha}' "; if ($cpostal != 0 and trim($ncolonia) != "") { if ($EliminarDatos == 0) { // si es falso, eliminar individualmente, modo actualizar $xd = my_query($sqDC); $msg .= $xd["info"] . "\r\n"; }
function getPurgueTel($valor) { $xT = new cTipos(); $valor = strtoupper($valor); $valor = str_replace(".", "", $valor); if (strpos($valor, "EXT") !== false) { $d = explode("EXT", $valor); $this->mTelefono = $xT->cInt($d[0]); $this->mTelefonoExt = $xT->cInt($d[1]); } else { $this->mTelefono = $xT->cInt($valor); } if (strlen($this->mTelefono) <= 5) { $this->mTelefono = ""; $this->mTelefonoExt = ""; } }
$iReg = 0; $cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga-batch-de-vista-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 6); //numero de socio //[numero de cuenta] //[FechaDeApertura] //[clave de producto] //saldo //[observaciones] $socio = $cT->cInt($datos[0]); $NumCuenta = $cT->cInt($datos[1]); $fechaApertura = $cT->cFecha($datos[2]); $Producto = $cT->cInt($datos[3]); $importe = $cT->cFloat($datos[4]); $observaciones = $cT->cChar($datos[5]); if ($NumCuenta == 0 or $NumCuenta == "") { $NumCuenta = false; } //$ClaveCuenta = false; //Iniciar el Socio //$msg .= "$iReg\t$socio\tERROR_SOCIO\t$socio -- $importe -- $fechaApertura -- $plazo -- $tasa -- $observaciones\r\n"; $xCL = new cCajaLocal(99); if ($xCL->getExistenciaSocio($socio) <= 0) { $msg .= "{$iReg}\t{$socio}\tERROR_SOCIO\tLa Linea({$iReg}) no se leyo por que no existe el socio. (" . substr($bufer, 0, 20) . ")\r\n"; } else {
//echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>"; } //analizar el Archivo $gestor = @fopen($completePath, "r"); $iReg = 0; $cT = new cTipos(); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { //layout : socio , nombre, monto, cuenta $datos = explode(",", trim($bufer), 4); $socio = $cT->cInt($datos[0]); $nombre = isset($datos[1]) ? $cT->cChar(trim($datos[1])) : ""; $monto = isset($datos[2]) ? $datos[2] : 0; $cuenta = isset($datos[3]) ? $datos[3] : 0; if ($socio != 0 and $socio != 0) { // $xSoc = new cSocio($socio); if ($xSoc->existe($socio) == false) { // $msg .= "{$iReg}\tERROR\t{$socio}\tEl Socio NO EXISTE\r\n"; $txt .= "{$socio},{$nombre},{$monto},{$cuenta},NO_EXISTE\r\n"; } else { $xSoc->init(); $D = $xSoc->getDatosInArray(); $estatus = $cT->cInt($D["estatusactual"]); //
$iReg = 0; $cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga -batch-de-creditos-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode("|", $bufer, 18); $xF = new cFecha(); $socio = $cT->cInt($datos[1]); $credito = false; //$cT->cInt($datos[1]); $monto = $cT->cFloat($datos[8]); $periocidad = $cT->cInt($arrPeriodos[trim($datos[7])]); $pagos = $cT->cInt($datos[6]); $ministracion = $xF->getFechaISO($datos[10]); $fechaSolicitado = $xF->getFechaISO($datos[5]); $descDestino = $cT->cChar($datos[9]); $tasa = $cT->cFloat($datos[15]); $tasa = $tasa / 100; $dias = $periocidad * $pagos; $aplicacion = $cT->cChar($datos[17]) == "S" ? 501 : 100; $vencimiento = $xF->setSumarDias($dias, $ministracion); //$cT->cFecha($datos[5]); $saldo = $cT->cFloat($datos[11]);
function __construct($numero_de_cuenta, $socio = 0, $dias_invertidos = 0, $tasa = false, $fecha = false) { $xT = new cTipos(); $this->mNumeroCuenta = $xT->cInt($numero_de_cuenta); $xF = new cFecha(); $socio = $xT->cInt($socio); if ($socio != 0) { $this->mSocioTitular = $socio; } $this->mFechaOperacion = $fecha == false ? fechasys() : $fecha; $tasa = $tasa == false ? 0 : $tasa; if (isset($numero_de_cuenta)) { $this->init(); //Datos para Operar //Inicia los dias Invertidos y la Tasa de Interes $this->mDiasInvertidos = $dias_invertidos > 0 ? $dias_invertidos : $this->mDiasInvertidos; $this->mTasaInteres = $tasa > 0 ? $tasa : $this->mTasaInteres; //Asigna la fecha de Vencimiento $this->mFechaVencimiento = $dias_invertidos > 0 ? sumardias($this->mFechaOperacion, $this->mDiasInvertidos) : $this->mFechaVencimiento; //Array de estatus no permitidos para operar $this->mEstatusNoOperativos = array(20, 30, 31); } //vuelve a verificar los datos, despues de iniciar las cuentas $this->mDiasInvertidos = (!isset($this->mDiasInvertidos) or $this->mDiasInvertidos == false) ? 0 : $this->mDiasInvertidos; $this->mTasaInteres = (!isset($this->mTasaInteres) or $this->mTasaInteres == false) ? 0 : $this->mTasaInteres; //Asigna la fecha de Vencimiento $this->mFechaVencimiento = (!isset($this->mFechaVencimiento) or $this->mFechaVencimiento == false) ? fechasys() : $this->mFechaVencimiento; }
function setRestore($Fecha = false) { $gestor = @fopen(PATH_BACKUPS . "safeosms-permissions-" . getSucursal() . "-{$Fecha}.sbk", "r"); $msg = ""; $iReg = 0; $cT = new cTipos(); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); if (!isset($bufer)) { $msg .= "{$iReg}\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode("|", $bufer, 2); $indice = $cT->cInt($datos[0]); if ($indice != 0) { $perms = html_entity_decode($datos[1]); $sql = "UPDATE general_menul SET menu_rules = \"{$perms}\" WHERE idgeneral_menu = {$indice} "; $msg .= "Cargando el Indice {$indice} con Permisos ({$perms})\r\n"; my_query($sql); } } $iReg++; } } @fclose($gestor); $this->mMessages .= $msg; return $msg; }
$xCred->init(); $fecha_operacion = $xCred->getFechaDeMinistracion(); if ($xCred->getNumeroDePlanDePagos() != false) { $xPlan->init($xCred->getNumeroDePlanDePagos()); $xPlan->setEliminar(); } $xPlan->initByCredito($credito); $xPlan->setClaveDeCredito($credito); $xPlan->setClaveDePersona($xCred->getClaveDePersona()); $idrecibo = $xPlan->add($observaciones, $fecha_operacion); $xPlan->init($idrecibo); foreach ($data as $valores => $cont) { //periodo fecha saldo_inicial intereses impuesto capital pago_total saldo_final //0 1 2 3 4 5 6 7 //Periodo,Fecha de Pago,Saldo inicial,Intereses,Impuesto,Pago a Capital,Pago Total,Saldo final if ($xT->cInt($cont[0]) > 0) { $interes = $xT->cFloat($cont[3], 2); $fecha = $xF->getFechaISO($cont[1]); $periodo = $xT->cInt($cont[0]); $capital = $xT->cFloat($cont[5], 2); $total_parcial = $xT->cFloat($cont[6], 2); $saldo_inicial = $xT->cFloat($cont[2], 2); $saldo_final = $xT->cFloat($cont[7], 2); $xPlan->setMontoOperado($total_parcial); $xPlan->setSaldoInicial($saldo_inicial); $xPlan->setSaldoFinal($saldo_final); $xPlan->addMvtoDeInteres($interes, $fecha, $periodo); $xPlan->addMvtoDeIVA($fecha, $periodo); $xPlan->addMvtoDeCapital($capital, $fecha, $periodo); } else { $msg .= "WARN\tLINEA OMITIDA\r\n";
function JScheckSaldoCuenta($cuenta) { $xT = new cTipos(); $cuenta = $xT->cInt($cuenta); $cuenta = getCuentaCompleta($cuenta); $stpeval = "\n\t\tsetEliminarCuenta();\n\t\t"; $cuenta = cuenta_completa($cuenta); $sql_CMvto = "SELECT SUM(importe) AS 'neto' FROM contable_movimientos WHERE numerocuenta = {$cuenta}"; $sql_CSup = "SELECT COUNT(subcuenta) AS 'ctas' FROM contable_catalogorelacion WHERE cuentasuperior={$cuenta}"; $subcuentas = mifila($sql_CSup, "ctas"); $saldo = mifila($sql_CMvto, "neto"); if ($saldo > 0) { $stpeval = "alert(\" La Cuenta Tiene Movimientos \\n \" +\n\t\t\t \" por un Monto de {$saldo} \\n \" +\n\t\t\t \" Las Cuentas con saldo No se eliminan\");\t"; } if ($subcuentas > 0) { $stpeval = "alert(\" La Cuenta Tiene {$subcuentas} Subcuentas \\n \" +\n\t\t\t \" Las Cuentas con Subcuentas No se eliminan\");"; } return $stpeval; }
function setUltimoCheque($cheque = 0, $CuentaBancaria = false) { $this->set($CuentaBancaria); $CuentaBancaria = $this->mCuenta; $documento = 1; $xT = new cTipos(); $cheque = setNoMenorQueCero($cheque); if ($cheque <= 0) { //Obtiene el Cheque de un Conteo SQL $sql = "SELECT numero_de_documento\r\n\t\t\tFROM bancos_operaciones\r\n\t\t\tWHERE cuenta_bancaria = {$CuentaBancaria}\r\n\t\t\tORDER BY idcontrol ASC, fecha_expedicion ASC\r\n\t\t\tLIMIT 0,1"; $documento = getFila($sql, "numero_de_documento"); $documento = $xT->cInt($documento); $documento = $documento + 1; } else { $documento = $xT->cInt($cheque); } $sqlD = "UPDATE bancos_cuentas SET consecutivo_actual = {$documento}\r\n\t\tWHERE idbancos_cuentas = {$CuentaBancaria}"; my_query($sqlD); }
function setAfectarSuperior($cuenta, $monto, $tipo = 1, $periodo = false, $ejercicio = false) { $xTip = new cTipos(); $myper = $xTip->cInt($periodo); if (!isset($ejercicio) or $ejercicio == false) { $ejercicio = EJERCICIO_CONTABLE; } if (!isset($periodo) or $periodo == false) { $periodo = EACP_PER_CONTABLE; } //$cuenta = str_replace(CDIVISOR, "", $cuenta); $cuenta = getCuentaCompleta($cuenta); //$cuenta = trim($cuenta); $ejer = $ejercicio; $myper = (int) $myper; for ($i = $myper; $i <= 14; $i++) { $sql_us = "UPDATE contable_saldos SET imp{$i}= (imp{$i} + ({$monto}))\tWHERE ejercicio={$ejer} AND cuenta={$cuenta} AND tipo={$tipo}"; if ($i != 0) { my_query($sql_us); } } //afectar los periodos //5 = niveles del catalogo for ($i = 0; $i <= 5; $i++) { //Encuentra Superior $sql_as = "SELECT cuentasuperior\n\t\t\t\t\t\t\tFROM contable_catalogorelacion\n\t\t\t\t\t\t\tWHERE subcuenta={$cuenta} "; $dsup = getFilas($sql_as); $cta_superior = $dsup["cuentasuperior"]; //14 = Numero de Periodos en la tabla de Contable Saldos if (isset($cta_superior)) { for ($i_ = $myper; $i_ <= 14; $i_++) { // $sql_us = "UPDATE contable_saldos SET imp{$i_} = (imp{$i_} + ({$monto}))\n\t\t\t\tWHERE ejercicio={$ejer}\n\t\t\t\tAND cuenta={$cta_superior}\n\t\t\t\tAND tipo={$tipo}"; if (isset($cta_superior)) { my_query($sql_us); } //saveError(2, 99, "$sql_us - $cta_superior - $i "); } if ($i != 5) { $cuenta = $cta_superior; } } //saveError(2, 99, "$sql_us - $sql_as -$cuenta - $cta_superior - $i "); } //return 0; }
if ($vl == "LATITUD") { $IDLatitud = $id; } if ($vl == "LONGITUD") { $IDLongitud = $id; } if ($vl == "ALTITUD") { $IDAltitud = $id; } } } else { //CVE_ENT,NOM_ENT,NOM_ABR, //CVE_MUN,NOM_MUN, //CVE_LOC,NOM_LOC, //LATITUD,LONGITUD,ALTITUD,CVE_CARTA,AMBITO,PTOT,PMAS,PFEM,VTOT $ClaveUnica = $xT->cInt($datos[$IDEntidad] . $datos[$IDMunicipio] . $datos[$IDLocalidad], true); $ClaveEntidad = $xT->cInt($datos[$IDEntidad], true); $claveMunicipio = $xT->cInt($datos[$IDMunicipio], true); $ClaveLocalidad = $xT->cInt($datos[$IDLocalidad], true); $NombreLocalidad = $xT->cChar($datos[$IDNombre]); //iconv("UTF-8", "ISO-8859-1", $datos[$IDNombre]); $latitud = $datos[$IDLatitud]; $altitud = $datos[$IDAltitud]; $longitud = $datos[$IDLongitud]; $sql = "INSERT INTO catalogos_localidades(clave_unica, nombre_de_la_localidad, clave_de_estado, clave_de_municipio, clave_de_localidad, longitud, altitud, latitud) \n\t \t\t\t\t\t\t\t\t\t\t\t\t\tVALUES({$ClaveUnica}, '{$NombreLocalidad}', {$ClaveEntidad}, {$claveMunicipio}, {$ClaveLocalidad}, '{$longitud}', '{$altitud}', '{$latitud}') "; if ($ClaveUnica != 0) { my_query($sql); } $msg .= "{$ClaveEntidad}\t{$claveMunicipio}\t{$ClaveLocalidad}\tAgregando la Localidad {$NombreLocalidad} con codigo {$ClaveUnica}\r\n"; } $iReg++;
$xFRM->addFootElement('<input type="hidden" name="MAX_FILE_SIZE" value="1024000">'); echo $xFRM->get(); } else { $doc1 = isset($_FILES["f1"]) ? $_FILES["f1"] : false; $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : ""; $tipoimportacion = isset($DDATA["idtipoimportacion"]) ? $DDATA["idtipoimportacion"] : "SDN"; $xFil = new cFileImporter(); $limit = $tipoimportacion == "SDN" ? 12 : 6; $xFil->setLimitCampos($limit); $xFil->setCharDelimiter("|"); $xFil->setType("PIP"); //var_dump($_FILES["f1"]); if ($xFil->processFile($doc1) == true) { $data = $xFil->getData(); foreach ($data as $valores => $cont) { $id = $xT->cInt($cont[0]); switch ($tipoimportacion) { case "SDN": $xFil->setDataRow($cont); /* 4149|"CAVIEDES CRUZ, Leonardo"|"individual"|"SDNT"| -5 - 6 - 7 - 8 - 9 - 10 - 11 -0- |-0- |-0- |-0- |-0- |-0- |-0- -12 |"DOB 23 Nov 1952; Cedula No. 16593470 (Colombia); Passport AB151486 (Colombia); alt. Passport AC444270 (Colombia); alt. Passport OC444290 (Colombia)." * */ $tipo = $xT->cChar(str_replace('"', "", $cont[2])); if ($id > 0) { if ($tipo == "individual" or $tipo == "-0-") { $xSoc = new cSocio($id); $programa = strtoupper(str_replace('"', "", $cont[3]));
$gestor = @fopen($completePath, "r"); $iReg = 0; $cT = new cTipos(); //inicializa el LOG del proceso $aliasFil = getSucursal() . "-carga -batch-de-creditos-" . fechasys(); $xLog = new cFileLog($aliasFil, true); if ($gestor) { while (!feof($gestor)) { $bufer = fgets($gestor, 4096); //$bufer = stream_get_line($gestor, "\r\n"); if (!isset($bufer)) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $bufer = trim($bufer); $datos = explode(",", $bufer, 12); $socio = $cT->cInt($datos[0]); $credito = $cT->cInt($datos[1]); $producto = $cT->cInt($datos[2]); $monto = $cT->cFloat($datos[3]); $ministracion = $cT->cFecha($datos[4]); $vencimiento = $cT->cFecha($datos[5]); $pagos = $cT->cInt($datos[6]); $periocidad = $cT->cInt($datos[7]); $saldo = $cT->cFloat($datos[8]); $UltimaOperacion = $cT->cFecha($datos[9]); $ContratoCorriente = $cT->cInt($datos[10]); if ($socio == 0) { $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n"; } else { $xCred = new cCredito(); //Crear Contrato corriente si el producto tiene ahorro
/** * Funcion que Guarda el Monto de la Parcialidad * @param string $params Indica los parametros a cruzar **/ function Common_1fff3ce8ffd3d2dfdee69fd04ba831ac($params) { $stdDiv = STD_LITERAL_DIVISOR; $DPar = explode($stdDiv, $params, 2); $mFecha = new cFecha(); //grupo $xTip = new cTipos(); // $credito = $xTip->cInt($DPar[0]); // $pagos = $xTip->cInt($DPar[1]); $fecha_de_vencimiento = $xTip->cFecha($DPar[2]); $dias_autorizados = 0; $pagos_autorizados = 0; $convenio = 0; $saldo_actual = 0; $parcialidad = 0; $fecha_de_revision = $mFecha->get(); $grupo = 0; $fecha_de_ministracion = 0; $contrato_corriente = 0; $sql = "UPDATE creditos_solicitud\n SET\n numero_pagos\t\t\t= {$pagos_autorizados},\n fecha_vencimiento\t\t= '{$fecha_de_vencimiento}',\n pagos_autorizados\t\t= {$pagos_autorizados},\n saldo_actual\t\t\t= {$saldo_actual},\n tipo_convenio\t\t\t= {$convenio},\n ultimo_periodo_afectado\t\t= {$parcialidad},\n grupo_asociado\t\t\t= {$grupo},\n fecha_ministracion\t\t= '{$fecha_de_ministracion}',\n contrato_corriente_relacionado={$contrato_corriente},\n monto_parcialidad={$parcialidad},\n fecha_revision='{$fecha_de_revision}',\n /* tipo_de_pago= ,\n tipo_de_calculo_de_interes=0,\n causa_de_mora=0 */\n WHERE\n numero_solicitud={$credito}\n"; }
function init($formato = false) { $xT = new cTipos(); $fecha = $this->mFecha; $this->mCurrentAnno = $xT->cInt(date("Y", strtotime($fecha)), true); $this->mCurrentMonth = $xT->cInt(date("n", strtotime($fecha)), true); $this->mCurrentDay = $xT->cInt(date("j", strtotime($fecha)), true); $this->mDiasDelMes = $xT->cInt(date("t", strtotime($fecha)), true); $this->mCurrentWeekday = $xT->cInt(date("N", strtotime($fecha)), true); $this->mCurrentNumberWeek = $xT->cInt(date("W", strtotime($fecha)), true); $this->mFormat = $formato == false ? $this->mFormat : $formato; }
function setReestructurarSDPM($SoloConSaldos = false, $credito = false, $forzarTodos = false, $fechaCorte = false, $fechaInicial = false, $EliminarTodo = true) { //FIXME: probar con saldo anterior $fechaCorte = $fechaCorte == false ? fechasys() : $fechaCorte; $msg = ""; $wCredito1 = $credito != false ? " `creditos_mvtos_asdpm`.`documento` = {$credito}" : " `documento` > 0 "; $wCredito2 = $credito != false ? " numero_de_credito = {$credito} " : " numero_de_credito > 0"; $ByRTM = $credito != false ? " " : " SQL_CACHE "; $wFecha1 = " AND (fecha >='{$fechaInicial}' AND fecha <='{$fechaCorte}' ) "; $wFecha2 = " AND (`fecha_actual` >= '{$fechaInicial}' AND `fecha_actual`<='{$fechaCorte}' ) "; $ql = new MQL(); $arrEstatusD = array(OPERACION_CLAVE_MINISTRACION, 111, 114, 115); $arrEstatus = array(OPERACION_CLAVE_MINISTRACION => CREDITO_ESTADO_VIGENTE, 111 => CREDITO_ESTADO_VENCIDO, 114 => CREDITO_ESTADO_VIGENTE, 115 => CREDITO_ESTADO_MOROSO); //Eliminar el SDPM if ($EliminarTodo == true) { $DAction = $ql->setRawQuery("DELETE FROM creditos_sdpm_historico WHERE {$wCredito2} {$wFecha2} "); if (MODO_DEBUG == true) { $msg .= "WARN\tEliminando SDPM\r\n"; } } if ($credito != false) { $ql->setRawQuery("DELETE FROM operaciones_mvtos WHERE docto_afectado={$credito} AND tipo_operacion = 420"); if (MODO_DEBUG == true) { $msg .= "WARN\tEliminando Operaciones 420 del credito {$credito}\r\n"; } } $msg .= "Socio\tCredito\tFecha\tMonto\tSaldo\tDias\tOperacion\tEstatus\tInteres\tMoratorios\r\n"; //Generar saldos de credito por mes $sql = "SELECT {$ByRTM}\n\t\t`creditos_mvtos_asdpm`.`socio`,\n\t\t`creditos_mvtos_asdpm`.`documento`,\n\t\t`creditos_mvtos_asdpm`.`recibo`,\n\t\t`creditos_mvtos_asdpm`.`fecha`,\n\t\t`creditos_mvtos_asdpm`.`operacion`,\n\t\t`creditos_mvtos_asdpm`.`monto`,\n\t\t`creditos_mvtos_asdpm`.`afectacion`\n\t\tFROM `creditos_mvtos_asdpm`\tWHERE {$wCredito1} {$wFecha1} "; //setLog($sql); $rsM = $ql->getDataRecord($sql); $saldo = 0; $creditoA = 0; $xT = new cTipos(); $xF = new cFecha(); $FECHA_DE_ULTIMO_PAGO = "1998-01-01"; $CREDITO_SALDO_ANTERIOR = 0; $MvtoAnterior = OPERACION_CLAVE_MINISTRACION; $ESTADO_ACTUAL = CREDITO_ESTADO_VIGENTE; $DIVISOR_DE_INTERESES = EACP_DIAS_INTERES; $DCred = array(); $IsCredNew = true; $xCred = null; foreach ($rsM as $rw) { $socio = $xT->cInt($rw["socio"]); $credito = $xT->cInt($rw["documento"]); $fecha = $rw["fecha"]; $nota = ""; // $IsCredNew = true; if ($creditoA != $credito) { $saldo = 0; $FECHA_DE_ULTIMO_PAGO = $fecha; $ESTADO_ACTUAL = CREDITO_ESTADO_VIGENTE; $xCred = new cCredito($credito, $socio); $xCred->init(); $DCred = $xCred->getDatosDeCredito(); $CREDITO_SALDO_ANTERIOR = 0; //si es Ministracion if ($MvtoAnterior == OPERACION_CLAVE_MINISTRACION) { $FECHA_DE_ULTIMO_PAGO = $xCred->getFechaDeMinistracion(); } $msg .= "------------------------\tNUEVO_CREDITO : {$credito}------------------------------\r\n"; if ($EliminarTodo == false) { my_query("DELETE FROM creditos_sdpm_historico WHERE numero_de_credito = {$credito} {$wFecha2}"); } } else { $IsCredNew = false; } $OProd = $xCred->getOProductoDeCredito(); $recibo = $rw["recibo"]; $operacion = $rw["operacion"]; $afectacion = $rw["afectacion"]; $monto = $xT->cFloat($rw["monto"], 2); $periocidad = $xCred->getPeriocidadDePago(); $FechaVencimiento = $xCred->getFechaDeVencimiento(); //(!isset( $DCred["fecha_vencimiento_dinamico"])) ? $xCred->getFechaDeVencimiento() : $DCred["fecha_vencimiento_dinamico"]; $DiaInteresMax = $xF->setSumarDias(INTERES_DIAS_MAXIMO_A_DEVENGAR, $FechaVencimiento); $dias_transcurridos = $xF->setRestarFechas($fecha, $FECHA_DE_ULTIMO_PAGO); $saldo_calculado = $dias_transcurridos * $saldo; //No poner la afectacion $saldo += $xT->cFloat($monto * $afectacion, 2); // si es normal, calcular normal, si es mora: Calcular mora y normal, si es vencido: calcular normal y mora $interes = 0; $moratorio = 0; $TASA_NORMAL = $xCred->getTasaDeInteres(); $TASA_MORA = $xCred->getTasaDeMora(); $TIPO_DE_PAGO = $xCred->getTipoDePago(); $PAGOS_SIN_CAPITAL = $xCred->getPagosSinCapital(); $MONTO_ORIGINAL_DE_CREDITO = $xCred->getMontoAutorizado(); $saldoBase = $xT->cFloat($saldo, 2); if ($operacion == OPERACION_CLAVE_PAGO_CAPITAL and $saldo == 0) { $saldoBase = $CREDITO_SALDO_ANTERIOR; } if ($MvtoAnterior == OPERACION_CLAVE_MINISTRACION) { $saldoBase = $CREDITO_SALDO_ANTERIOR; $saldo_calculado = $dias_transcurridos * $CREDITO_SALDO_ANTERIOR; } $SALDO_ACTUAL = $xCred->getSaldoActual(); $BASE_NORMAL = $saldo_calculado; $BASE_MORA = $saldo_calculado; eval($OProd->getPreModInteres()); //considerar si es un maximo de x dias devengar en vencidos switch ($ESTADO_ACTUAL) { case CREDITO_ESTADO_VIGENTE: $interes = $BASE_NORMAL * $TASA_NORMAL / $DIVISOR_DE_INTERESES; break; case CREDITO_ESTADO_VENCIDO: //validar si tiene un maximo de dias transcurridos de devengado if ($xF->getInt($fecha) <= $xF->getInt($DiaInteresMax)) { $interes = $BASE_NORMAL * $TASA_NORMAL / $DIVISOR_DE_INTERESES; $moratorio = $BASE_MORA * $TASA_MORA / $DIVISOR_DE_INTERESES; } else { $interes = 0; $moratorio = 0; $nota = "Despues del {$DiaInteresMax} no se acumula Interes, Vencimiento : {$FechaVencimiento}"; } break; case CREDITO_ESTADO_MOROSO: $interes = $BASE_NORMAL * $TASA_NORMAL / $DIVISOR_DE_INTERESES; $moratorio = $BASE_MORA * $TASA_MORA / $DIVISOR_DE_INTERESES; break; } //END_SWITCH $interes = $xT->cFloat($interes, 2); if ($periocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $moratorio = $xT->cFloat($moratorio, 2); //0; //2012-04-10 } else { //$moratorio = 0; } eval($OProd->getPosModInteres()); $msg .= "{$socio}\t{$credito}\t{$fecha}\t{$monto}\t{$saldo}\t{$dias_transcurridos}\t{$operacion}\t{$ESTADO_ACTUAL}\t{$interes}\t{$moratorio}\t{$nota}\r\n"; if ($xF->getInt($fecha) <= $xF->getInt(SYS_FECHA_DE_MIGRACION)) { $interes = 0; $moratorio = 0; if (MODO_DEBUG == true) { $msg .= "WARN\tOMITIR Interes {$interes} y MORA por {$moratorio} por estar antes de la migracion {$fecha}\r\n"; } } if ($xF->getInt($fecha) <= $xF->getInt($fechaCorte)) { $msgSDPM = $xCred->addSDPM($interes, $moratorio, $FECHA_DE_ULTIMO_PAGO, $saldo, $ESTADO_ACTUAL, $fecha, $operacion, $saldo_calculado); //if(MODO_DEBUG == true){ $msg .= $msgSDPM; } } if ($saldo <= TOLERANCIA_SALDOS) { $msg .= "------------------------------------------------------\r\n"; } $creditoA = $credito; $FECHA_DE_ULTIMO_PAGO = $fecha; $CREDITO_SALDO_ANTERIOR = $saldo; $MvtoAnterior = $operacion; /* * si existe la operacion de cambio de estatus, validar en el array, y actualizar el valor * Este estatus se aplicara en el siguiente */ if (in_array($operacion, $arrEstatusD)) { $ESTADO_ACTUAL = $arrEstatus[$operacion]; } } return $msg; }