function jsaSetTotal($recibo) { $xRec = new cReciboDeOperacion(false, true, $recibo); $xRec->init(); $xRec->setGenerarBancos(false); $xRec->setGenerarPoliza(false); $xRec->setGenerarTesoreria(false); $xRec->setForceUpdateSaldos(true); $xRec->setFinalizarRecibo(true); $msg = ""; if ($xRec->getOrigen() == TESORERIA_RECIBOS_ORIGEN_MIXTO or $xRec->getOrigen() == TESORERIA_RECIBOS_ORIGEN_CRED) { $credito = $xRec->getCodigoDeDocumento(); $xUtil = new cUtileriasParaCreditos(); $msg .= $xUtil->setCuadrarCreditosByMvtos($credito); } $msg .= $xRec->getMessages(OUT_TXT); return $msg; }
/** * Revierte las Afectaciones del Recibo */ function setRevertir($ForzarEliminar = false) { $sucess = true; $arrValuesRev = array("-1" => "1", "1" => "-1", "0" => "0"); $xQL = new MQL(); $xLog = new cCoreLog(); $sqlM = "SELECT\n\t\t\t\t\t\t`operaciones_mvtos`.*,\n\t\t\t\t\t\t`operaciones_tipos`.*,\n\t\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado`\n\t\t\t\t\tFROM\n\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos`\n\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t\t\t\t\t`idoperaciones_tipos`\n\t\t\t\t\tWHERE\n\t\t\t\t\t\t(`operaciones_mvtos`.`recibo_afectado` =" . $this->mCodigoDeRecibo . ")"; $xLog->add("======================== REVERSION DE RECIBO[" . $this->mCodigoDeRecibo . "] \r\n"); $original = ""; $rs = $xQL->getDataRecord($sqlM); //getRecordset($sqlM); if ($this->init() == true) { $original = "====[" . base64_encode(json_encode($this->getDatosInArray())) . "]===="; if ($rs) { foreach ($rs as $rw) { //$rw = mysql_fetch_array($rs)){ $codigo = $rw["idoperaciones_mvtos"]; $docto = $rw["docto_afectado"]; $socio = $rw["socio_afectado"]; $preservar_mvto = $rw["preservar_movimiento"]; $CodeRevertir = $rw["formula_de_cancelacion"]; $monto = $rw["afectacion_real"]; $afectacion = $rw["valor_afectacion"]; $recibo = $rw["recibo_afectado"]; $colocacion = array(); $captacion = array(); //selecciona un comportamiento segun el Origen del Recibo switch ($this->mAplicadoA) { case "colocacion": //cargar datos del credito $Credito = new cCredito($docto, $socio); $Credito->init(); $colocacion = $Credito->getDatosDeCredito(); break; case "captacion": //cargar datos de la cuenta $Cuenta = new cCuentaALaVista($docto); $Cuenta->init(); $captacion = $Cuenta->getDatosInArray(); break; case "mixto": //cargar datos de la cuenta y del credito $Credito = new cCredito($docto, $socio); $Credito->init(); $colocacion = $Credito->getDatosDeCredito(); $Cuenta = new cCuentaALaVista($docto); $Cuenta->init(); $captacion = $Cuenta->getDatosInArray(); $this->mMessages .= "WARN\tEL Recibo es Mixto, se carga tanto Captacion como Colocacion\r\n"; break; default: $this->mMessages .= "WARN\tEL Recibo es " . $this->mAplicadoA . ", NO SE CARGA CODIGO\r\n"; break; } eval($CodeRevertir); if ($preservar_mvto == '1' and $ForzarEliminar == false) { $SQL_DM = "UPDATE operaciones_mvtos\n\t\t\t\t\t\t\t\t\t\t\tSET afectacion_estadistica=afectacion_real,\n\t\t\t\t\t\t\t\t\t\t\tafectacion_real = 0, afectacion_contable=0,\n\t\t\t\t\t\t\t\t\t\t\tafectacion_cobranza=0, valor_afectacion=0,\n\t\t\t\t\t\t\t\t\t\t\testatus_mvto = 99,\n\t\t\t\t\t\t\t\t\t\t\tdocto_neutralizador = " . $this->mCodigoDeRecibo . ",\n\t\t\t\t\t\t\t\t\t\t\trecibo_afectado\t= " . DEFAULT_RECIBO . "\n\t\t\t\t\t\t\t\t\t\t\tWHERE idoperaciones_mvtos = {$codigo}\n\t\t\t\t\t\t\t\t\t\t\t"; $xLog->add("Actualizando el Movimiento {$codigo}\r\n", $xLog->DEVELOPER); } else { $SQL_DM = "DELETE FROM operaciones_mvtos\n\t\t\t\t\t\t\t\t\t\t\tWHERE idoperaciones_mvtos = {$codigo}"; $xLog->add("Eliminado el Movimiento {$codigo}\r\n", $xLog->DEVELOPER); } my_query($SQL_DM); //Actualizar Saldos if (isset($Cuenta)) { $Cuenta->setUpdateSaldoByMvtos(); } if (isset($Credito)) { $xUtil = new cUtileriasParaCreditos(); $xUtil->setCuadrarCreditosByMvtos($docto); } } } //Elimnar Prepoliza $xLog->add("WARN\tEliminando Prepolizas\r\n", $xLog->DEVELOPER); $sqlDP = "DELETE FROM contable_polizas_proforma\tWHERE numero_de_recibo = " . $this->mCodigoDeRecibo . ""; my_query($sqlDP); //Eliminar Recibo $sqlDR = "DELETE FROM operaciones_recibos WHERE idoperaciones_recibos =" . $this->mCodigoDeRecibo . ""; my_query($sqlDR); //Agregar Tesoreria y Bancos $xLog->add("WARN\tEliminando Operaciones de Caja\r\n", $xLog->DEVELOPER); $DelTesoreria = "DELETE FROM `tesoreria_cajas_movimientos` WHERE `recibo`= " . $this->mCodigoDeRecibo . ""; my_query($DelTesoreria); $xLog->add("WARN\tEliminando Operaciones de Bancos\r\n", $xLog->DEVELOPER); $DelBancos = "DELETE FROM `bancos_operaciones` WHERE `recibo_relacionado` = " . $this->mCodigoDeRecibo . ""; my_query($DelBancos); } $xCE = new cErrorCodes(); //setLog($this->mMessages . json_encode($this->getDatosInArray()), $xCE->RECIBO_ELIMINADO); $xLog->guardar($xLog->OCat()->RECIBO_ELIMINADO); $this->mMessages .= $xLog->getMessages(); if ($this->isPagable() == true) { //agregar Aviso. $xRuls = new cReglaDeNegocio(); $xRuls->setVariables(array("mensaje" => $this->getMessages(), "original" => $original)); $xRuls->setExecuteActions($xRuls->reglas()->RN_DATOS_AL_ELIMINAR_RECIBO); } return $sucess; }
$nombre = $rw["nombrecompleto"] . " " . $rw["apellidopaterno"] . " " . $rw["apellidomaterno"]; $tcurp = $rw["mcurp"]; $sqlDEL = "DELETE FROM socios_general WHERE codigo={$socio} AND fecha_de_revision!='{$fecha}' "; $x = my_query($sqlDEL); $sqlDEL2 = "DELETE FROM socios_general WHERE codigo={$socio} AND CHAR_LENGTH(curp) < {$tcurp} "; $x2 = my_query($sqlDEL2); if ($x["stat"] == false and $x2["stat"] == false) { $msg .= date("H:i:s") . "\t{$socio}\tSe **FALLO** AL ELIMINAR (" . $x["error"] . ") \r\n"; } else { $msg .= date("H:i:s") . "\t{$socio}\tSe **ELIMINA** por estar {$reo} veces, se Omite el Registro con fecha {$fecha} y Grupo {$grupo} \r\n"; } } break; case 842: $xCred = new cUtileriasParaCreditos(); $msg .= $xCred->setCuadrarCreditosByMvtos(); break; case 844: /** * Elimina la cache de sessiones */ $sqlDel = "DELETE FROM usuarios_web_connected"; $cmd = my_query($sqlDel); if ($cmd["stat"] == false) { } else { $msg .= date("H:i:s") . "\t\t\t SE BORRO LA CACHE DE SESSIONES \r\n"; } break; case 845: //modifcando la numeracion de un socio a otro $numero_socio = $id;