function jsaSetCreditosADespedidos($credito, $fecha, $observaciones)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_DESTINO_DESCARTADOS);
$xCred->setResetPersonaAsociada($fecha, $observaciones);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_DESVINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xRN = new cReglaDeNegocio();
$xEmp = new cEmpresas($xCred->getClaveDeEmpresa());
$xEmp->init();
$oP = $xCred->getOPersona();
$xRN->setVariables(array("nombre_de_persona" => $oP->getNombreCompleto(), "mensaje" => $observaciones, "saldo_del_credito" => $xCred->getSaldoActual(), "nombre_de_la_empresa" => $xEmp->getNombreCorto()));
$xRN->setExecuteActions($xRN->reglas()->RN_NOMINA_AL_DESPEDIR);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
/**
* Agrega una operacion a tesoreria
* @param integer $recibo Numero de recibo
*
*/
function addOperacion($recibo, $tipoDeExposicion, $MontoRecibido, $MontoOperacion = 0, $MontoCambio = 0, $banco = FALLBACK_CLAVE_DE_BANCO, $cheque = "", $CuentaBancaria = 0, $DocumentoDescontado = 0, $Observaciones = "", $fecha = false, $hora = false, $moneda = false, $monto_original = 0, $persona = false, $documento = false, $transaccion = SYS_NINGUNO)
{
$sucess = false;
$fecha = $fecha == false ? fechasys() : $fecha;
$arrQ = array("aumento" => 1, "disminucion" => -1, "ninguna" => 0);
$xF = new cFecha(0, $fecha);
$xT = new cTipos();
$fecha = $xF->get();
$hora = $hora == false ? date("H:i:s") : $hora;
$CodigoDeCaja = $this->getKey();
$cajero = $this->mCajero;
$banco = setNoMenorQueCero($banco) <= 0 ? FALLBACK_CLAVE_DE_BANCO : $banco;
$this->mMoneda = $this->mMoneda == "" ? AML_CLAVE_MONEDA_LOCAL : $this->mMoneda;
if ($moneda == false or $moneda == AML_CLAVE_MONEDA_LOCAL) {
$moneda = $this->mMoneda != AML_CLAVE_MONEDA_LOCAL ? $this->mMoneda : AML_CLAVE_MONEDA_LOCAL;
}
//$monto_original = setNoMenorQueCero($monto_original);
$monto_original = $monto_original == 0 ? $this->mMontoOrigen : $monto_original;
$xRec = new cReciboDeOperacion(false, false, $recibo);
$xRec->init();
$DRec = $xRec->getDatosInArray();
$persona = ($persona == false or $persona == "") ? DEFAULT_SOCIO : $persona;
$documento = $documento == false ? $xRec->getCodigoDeDocumento() : $documento;
$afectaCaja = $arrQ[$DRec["afectacion_en_flujo_efvo"]];
$MontoOperacion = $MontoOperacion == 0 ? $DRec["total_operacion"] : $MontoOperacion;
$MontoCambio = $MontoCambio == 0 ? $MontoRecibido - $MontoOperacion : $MontoCambio;
//Obtener Banco
$pais = EACP_CLAVE_DE_PAIS;
$eacp = EACP_CLAVE;
$sucursal = getSucursal();
if ($banco == FALLBACK_CLAVE_DE_BANCO and $CuentaBancaria > 0) {
$xCta = new cCuentaBancaria($CuentaBancaria);
$xCta->init();
$banco = $xCta->getClaveDeBanco();
$pais = $xCta->getPaisDeOrigen();
}
$xBanco = new cBancos_entidades();
$xBanco->setData($xBanco->query()->initByID($banco));
$pais = $xBanco->pais_de_origen()->v();
//Actualizar Moneda por pais
if ($banco != FALLBACK_CLAVE_DE_BANCO) {
$moneda2 = mifila("SELECT clave_de_moneda FROM `tesoreria_monedas` WHERE `pais_de_origen` ='{$pais}' LIMIT 0,1 ", "clave_de_moneda");
if ($moneda2 === 0) {
} else {
$moneda = $moneda2;
}
}
$xTes = new cTesoreria_cajas_movimientos();
$xTes->banco($banco);
$xTes->codigo_de_caja($CodigoDeCaja);
$xTes->cuenta_bancaria($CuentaBancaria);
$xTes->documento($documento);
$xTes->documento_descontado($DocumentoDescontado);
$xTes->eacp(EACP_CLAVE);
$xTes->fecha($fecha);
$xTes->hora($hora);
$xTes->idtesoreria_cajas_movimientos($xTes->query()->getLastID());
$xTes->idusuario($cajero);
$xTes->moneda_de_operacion($moneda);
if ($moneda != AML_CLAVE_MONEDA_LOCAL) {
}
//EVALUAR MONEDA
$xTes->monto_del_movimiento($MontoOperacion);
$xTes->monto_en_cambio($MontoCambio);
$xTes->monto_recibido($MontoRecibido);
$xTes->numero_de_cheque($cheque);
$xTes->observaciones($Observaciones);
$xTes->recibo($recibo);
$xTes->sucursal($sucursal);
$xTes->tipo_de_exposicion($tipoDeExposicion);
$xTes->tipo_de_movimiento($afectaCaja);
$xTes->unidades_de_moneda(setNoMenorQueCero($monto_original));
$xTes->persona($persona);
$sucess = $xT->getEvalNotNull(array($cajero, $CodigoDeCaja));
if ($sucess == true) {
$q = $xTes->query()->insert();
$id = $q->save();
$sucess = $id == false ? false : true;
if ($sucess == true) {
$this->mMessages .= "OK\tRegistro Agregado exitosamente, relacionado con el Recibo {$recibo}, Operacion {$id} ({$moneda}|{$monto_original}|{$cheque}|{$tipoDeExposicion}|{$transaccion})\r\n";
//Agregar recibo
$xRec->setDatosDePago($moneda, $monto_original, $cheque, $tipoDeExposicion, $transaccion);
$this->mMessages .= $xRec->getMessages(OUT_TXT);
} else {
if (MODO_DEBUG == true) {
$this->mMessages .= $q->getMessages(OUT_TXT);
}
}
} else {
$this->mMessages .= "ERROR\tSe produjo un error al Agregar la Operacion de Tesoreria({$cajero}, {$CodigoDeCaja})\r\n";
}
return $sucess;
}
function jsaVincularEmpresa($credito, $observaciones, $empresa)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->get();
// FechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_NOMINA);
$xCred->setResetPersonaAsociada($fecha, $observaciones, $empresa);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_VINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
function setTraspaso($CuentaDestino, $TipoDestino, $observaciones = "", $monto = false)
{
if ($this->mCuentaIniciada == false) {
$this->init();
}
$cuentaOrigen = $this->mNumeroCuenta;
$socio = $this->mSocioTitular;
$saldoOrigen = $this->mSaldoActual;
$fechaOperacion = fechasys();
$tipoPago = TESORERIA_COBRO_NINGUNO;
$cheque = "NA";
$reciboFiscal = "";
$tipoDocumento = 9;
$msg = "";
if ($TipoDestino == CAPTACION_TIPO_PLAZO) {
$xCDestino = new cCuentaInversionPlazoFijo($CuentaDestino, $socio);
} else {
$xCDestino = new cCuentaALaVista($CuentaDestino, $socio);
}
$xCDestino->init();
if ($monto > $saldoOrigen) {
$msg .= "ERROR\tEl Monto a Retirar {$monto} es mayor al saldo de Origen {$saldoOrigen} \r\n";
} else {
//Crear el Recibo
$xRec = new cReciboDeOperacion($tipoDocumento);
$ReciboTrasp = $xRec->setNuevoRecibo($socio, $cuentaOrigen, $fechaOperacion, 1, $tipoDocumento, $observaciones, $cheque, $tipoPago);
$xRec->setNumeroDeRecibo($ReciboTrasp);
$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$xRec->initRecibo();
$this->setCuentaBancaria(DEFAULT_CUENTA_BANCARIA);
$this->setReciboDeOperacion($ReciboTrasp);
$this->setForceOperations(true);
$xCDestino->setReciboDeOperacion($ReciboTrasp);
$this->setRetiro($monto, $cheque, $tipoPago, $reciboFiscal, $observaciones, DEFAULT_GRUPO, $fechaOperacion, $ReciboTrasp);
$xCDestino->setDeposito($monto, $cheque, $tipoPago, $reciboFiscal, $observaciones, DEFAULT_GRUPO, $fechaOperacion, $ReciboTrasp);
$xRec->setFinalizarRecibo(true);
$msg .= $xRec->getMessages("txt");
}
return $msg;
}
}
if ($montocomision > 0) {
$xRec = new cReciboDeOperacion();
$idrecibo = $xRec->setNuevoRecibo($idsocio, $idsolicitud, $fecha, 1, RECIBOS_TIPO_OINGRESOS, $observaciones, $cheque, TESORERIA_COBRO_DESCTO, $recibo_fiscal);
if (setNoMenorQueCero($idrecibo) > 0) {
$montocomision = round($montocomision * (1 / (1 + TASA_IVA)), 2);
$montoivacomi = round($montocomision * TASA_IVA, 2);
$xRec->setNuevoMvto($fecha, $montocomision, OPERACION_CLAVE_COMISION_APERTURA, 1, $observaciones, 1, TM_CARGO, $idsocio);
$xRec->setNuevoMvto($fecha, $montoivacomi, OPERACION_CLAVE_PAGO_IVA_OTROS, 1, $observaciones, 1, TM_CARGO, $idsocio);
//$xRec->addMvtoContableByTipoDePago($montocomision, TM_CARGO);
if ($xRec->setFinalizarRecibo(true) == true) {
$xFRM->OButton("TR.Recibo de Comisiones", "jsImprimirRecibo()", "imprimir");
$xFRM->addHTML($xRec->getJsPrint(true));
$xRec->setFinalizarTesoreria(array("cuenta" => $cuenta_cheques, "cheque" => $cheque));
}
$msg .= MODO_DEBUG == true ? $xRec->getMessages() : "";
}
}
//Buttons
$xFRM->OButton("TR.VER/IMPRIMIR PAGARE DE CREDITO", "printpagare();", "imprimir", 'id1');
$xFRM->OButton("TR.VER/IMPRIMIR CONTRATO DE CREDITO", "contratocredito();", "imprimir", 'id2');
$xFRM->OButton("TR.IMPRIMIR MANDATO", "printmandato()", "imprimir", "id3");
} else {
$xFRM->addAvisoRegistroError();
}
if (MODO_DEBUG == true) {
$msg .= $xCred->getMessages();
$xFRM->addAviso($msg);
}
} else {
//ESTADO NO APPLICABLE
function Common_c5fe0408555dbf392918c6f77a4d01b2($params)
{
$stdDiv = STD_LITERAL_DIVISOR;
$DPar = explode($stdDiv, $params, 10);
//mensajes
//grupo
$xTip = new cTipos();
//
$socio = $xTip->cInt($DPar[0]);
$credito = $xTip->cInt($DPar[1]);
$letra = $xTip->cInt($DPar[2]);
$capital = $xTip->cFloat($DPar[3]);
$interes = $xTip->cFloat($DPar[4]);
$iva = $xTip->cFloat($DPar[5]);
$ahorro = $xTip->cFloat($DPar[6]);
$nota = $xTip->cChar($DPar[7]);
$numero = $xTip->cInt($DPar[8]);
$limit = $xTip->cInt($DPar[9]);
$msg = "====================== MOVIMIENTO {$numero} DE {$limit} ====================\r\n";
//Datos del Credito
$Cred = new cCredito($credito, $socio);
$Cred->initCredito();
$DCred = $Cred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"] - $capital;
$contrato_captacion = $DCred["contrato_corriente_relacionado"];
$grupo = $DCred["grupo_asociado"];
$msg .= $Cred->getMessages();
if (isset($_SESSION["recibo_en_proceso"])) {
$recibo = $_SESSION["recibo_en_proceso"];
$fecha = fechasys();
$_SESSION["total_recibo_en_proceso"] += $capital + $interes + $ahorro;
$xRec = new cReciboDeOperacion(200, false, $recibo);
$xRec->setNumeroDeRecibo($recibo, true);
$xRec->setNumeroDeRecibo($recibo, true);
$DRec = $xRec->getDatosInArray();
$cheque = $DRec["cheque_afectador"];
$tipopago = $DRec["tipo_pago"];
$recibofiscal = $DRec["recibo_fiscal"];
$xRec->setGenerarPoliza();
$msg .= "{$socio}\t{$credito}\tCREDITO\tMovimiento {$i} del Credito {$credito} del Socio {$socio} con Saldo {$saldo}\r\n ";
$msg .= "{$socio}\t{$credito}\tMONTOS\tCapital: {$capital} || Interes: {$interes} || Ahorro: {$ahorro} \r\n";
//Agregando Capital
if ($capital > 0) {
$xRec->setNuevoMvto($fecha, $capital, 120, $letra, $nota . ";SDO:" . $saldo, 1, TM_ABONO, $socio, $credito);
$arrCred = array("saldo_actual" => $saldo);
$Cred->setUpdate($arrCred);
}
//Agregando Interes
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $interes, 140, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//agregando el IVA
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $iva, 151, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//Agregando Ahorro
if ($ahorro > 0) {
$xC = new cCuentaALaVista($contrato_captacion);
if (!isset($contrato_captacion) or $contrato_captacion == CTA_GLOBAL_CORRIENTE or $contrato_captacion == 0) {
$contrato_captacion = $xC->setNuevaCuenta(2, 1, $socio, "CUENTA_AUTOMATICA", $credito);
$msg .= "{$socio}\t{$credito}\tNuevaCta\tse dio de alta a la cuenta {$contrato_captacion}\r\n";
//2011-nov-30 se agrego la actualizacion del contrato relacionado
$arrCred = array("contrato_corriente_relacionado" => $contrato_captacion);
$Cred->setUpdate($arrCred);
}
$xC = new cCuentaALaVista($contrato_captacion);
$xC->setSocioTitular($socio);
$xC->setReciboDeOperacion($recibo);
$xC->setDeposito($ahorro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
$msg .= $xC->getMessages("txt");
$msg .= "{$socio}\t{$credito}\tAhorro\t El Saldo Quedo en " . $xC->getNuevoSaldo() . "\r\n";
}
$msg .= "{$socio}\t{$credito}\tObservacion\t {$nota}\r\n";
$msg .= $xRec->getMessages("txt");
} else {
$msg .= "NO_SE_HA_DEFINIDO_UN_RECIBO";
}
$xLog = new cFileLog("log_de_recibo_" . $recibo);
$xLog->setWrite($msg);
$xLog->setClose();
$MsgEnd = "";
if ($numero == $limit) {
$xRec->setForceUpdateSaldos();
$xRec->setFinalizarRecibo(true);
//$MsgEnd .= "**** proceso terminado ****";
}
//retorna el id del control de origen para neutralizar
return "-{$numero}";
}
//obtener recibo de la garantia
if ($solo_simular == 0) {
$messages .= "Efectuar Retiro de la Socia {$codigo_rep} <br /> ";
$sqlSumGtiaLiquida = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tSUM( (`eacp_config_bases_de_integracion_miembros`.`afectacion` *\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real`) ) AS 'monto'\n\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =2500)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`docto_afectado` = {$credito})\n\t\t\t\t\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado` ";
$DG = obten_filas($sqlSumGtiaLiquida);
$GDocto = $DG["docto_afectado"];
$monto = $DG["monto"];
$GDate = date("Y-m-d");
//=============================retirar de garantia Liquida
if ($monto > 0) {
$xr = new cReciboDeOperacion(17);
$xr->setNuevorecibo($codigo_rep, $GDocto, $GDate, 1, 17, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", "NA", "ninguno", "NA", $grupo);
$xr->setNuevoMvto($GDate, $monto, 353, 1, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", 1, TM_CARGO);
$xr->setFinalizarRecibo();
//Mensages
$messages .= $xr->getMessages() . "<br />";
}
//===============================Retirar el Ahorro
//Buscar Ahorro
$xCR = new cCuentaALaVista("50" . $codigo_rep . "01");
$exist = $xCR->setContarCuentaBySocio($codigo_rep, 50);
//Si el Ahorro exisre proseguir en el retiro
if ($exist >= 1) {
$messages .= "Efectuar Retiro de Ahorro de la Socia {$codigo_rep} <br /> ";
$sqlSCta = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.*\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`numero_socio` = {$codigo_rep})\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_subproducto` = 50)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tLIMIT 0,1";
$RDG = obten_filas($sqlSCta);
$RCta = $RDG["numero_cuenta"];
$RMonto = $RDG["saldo_cuenta"];
$xNC = new cCuentaALaVista($RCta);
$xNC->setSocioTitular($codigo_rep);
$xNC->setRetiro($RMonto, "NA", "ninguno", "NA", "MVTO_AUTOMATICO_POR_{$iduser}", $grupo);
function setCambiarRelacionados($NuevoCredito = false, $NuevaPersona = false)
{
$xRec = new cReciboDeOperacion(RECIBOS_TIPO_PLAN_DE_PAGO, true, $this->mNumeroDePlan);
$xRec->setCambiarRelacionados($NuevoCredito, $NuevaPersona, true);
$this->mMessages .= $xRec->getMessages(OUT_TXT);
}
$io++;
//fin del Agregado
}
$i++;
}
//Ejecuta la Consulta de Actualizacion
if ($strWH != "") {
$sqlUS = "UPDATE operaciones_mvtos\n\t\t\t\t\t\t\tSET recibo_afectado = {$RecHuerf}\n\t\t\t\t\t\t\tWHERE FIND_IN_SET(recibo_afectado, \"{$strWH}\" ) ";
if ($afectar == "si") {
$a = my_query($sqlUS);
}
$msg .= $a["info"];
}
if ($afectar == "si") {
$cRec->setFinalizarRecibo(true);
$msg .= $cRec->getMessages();
}
break;
case 857:
$ForzarCorreccion = strtoupper($id);
$Forzar = $ForzarCorreccion == "SI" ? true : false;
$msg .= "================== REESTRUCTURANDO SALDOS DE INTERESES EN CREDITOS\r\n ";
$msg .= "================== USUARIO: {$oficial} \r\n ";
//Actualiza los Intereses Devengados y Pagados, asi como los no pagados en base a los movimientos que tengan.
//lleva a cero los registros
$xCUtils = new cUtileriasParaCreditos();
$msg .= $xCUtils->setAcumularIntereses($Forzar);
break;
case 858:
$validar = strtolower($id);
$sqlSocs = "SELECT\n\t\t\t\t\t\t\t\t`socios_general`.*\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`socios_general` `socios_general`\n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`socios_general`.`estatusactual` !=20) ";
function setGenerarPlanDePagos()
{
$msg = "";
$cRec = new cReciboDeOperacion(10);
$xRec = $cRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, fechasys(), 1, 10, "RECIBO_DE_AJUSTES_DE_PLAN_DE_PAGOS");
$msg .= "\t\tRECIBO\tEl Recibo de Operacion es {$xRec}\r\n";
$cRec->setNumeroDeRecibo($xRec, true);
//Concilia Creditos sin Planes de Pago a SISBANCS
$sql = "SELECT * FROM creditos_solicitud WHERE (SELECT\n\t\t\t\t\t\t\t\tCOUNT(credito) FROM sisbancs_suma_amorizaciones\n\t\t\t\t\t\t\t\tWHERE credito = creditos_solicitud.numero_solicitud) = 0\n\t\t\t\t\t\t\t\tAND saldo_actual > 0\n\t\t\t\t\t\t\t\tAND estatus_actual != 50 ";
$rs = getRecordset($sql);
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$credito = $rw["numero_solicitud"];
$saldo_actual = $rw["saldo_actual"];
$letra = $rw["ultimo_periodo_afectado"] + 1;
$fecha = sumardias($rw["fecha_ultimo_mvto"], $rw["periocidad_de_pago"]);
$monto = $saldo_actual;
$msg .= "{$socio}\t{$credito}\tAGREGAR\tUnica Letra por el SALDO de {$saldo_actual} \r\n";
$sqlIS = "INSERT INTO sisbancs_amortizaciones(socio, credito, parcialidad, fecha_de_vencimiento,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_vigente, saldo_vencido, interes_vigente, interes_vencido, saldo_interes_vencido, interes_moratorio,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testatus, iva_interes_normal, iva_interes_moratorio)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES ({$socio}, {$credito}, {$letra}, '{$fecha}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t{$saldo_actual}, 0, 0, 0, 0, 0,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t1, 0, 0)";
$cRec->setNuevoMvto($fecha, $monto, 410, $letra, "", 1, false, $socio, $credito);
$x = my_query($sqlIS);
if ($x["stat"] == false) {
$msg .= "{$socio}\t{$credito}\tERROR\t \r\n";
}
}
$msg .= $cRec->getMessages("txt");
return $msg;
}
$xCred->setAbonoCapital(2200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-20");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(4200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-25");
$idrec = $xCred->setAbonoCapital(4200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-28");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xRec->init();
$xRec->setFinalizarRecibo(true);
$xRec->setMoneda("USD");
$xRec->setUnidadesOriginales(100);
$x2Rec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_APORTACIONES, true);
$x2Rec->setNuevoRecibo($xCred->getClaveDePersona(), DEFAULT_CREDITO, "2013-01-01", 1);
$x2Rec->setNuevoMvto("2013-01-01", 15000, OPERACION_CLAVE_APORT_CORRIENTE, 1, "Prueba de AML");
$x2Rec->setNuevoMvto("2013-01-02", 1500, OPERACION_CLAVE_APORT_FONDO, 1, "Prueba de AML 2");
$x2Rec->setNuevoMvto("2013-01-03", 45000, OPERACION_CLAVE_APORT_VOLUNTARIA, 1, "Prueba de AML 3");
$x2Rec->setFinalizarRecibo(true);
$xHFrm->addHElem("<p class='aviso'>" . $x2Rec->getMessages(OUT_HTML) . "</p>");
$xAML->setGuardarPerfilTransaccional(101, "MX", 10000, 10, "");
$xAML->setGuardarPerfilTransaccional(201, "MX", 20000, 2, "");
$xAML->setGuardarPerfilTransaccional(301, "MX", 30000, 3, "");
$xAML->setGuardarPerfilTransaccional(401, "MX", 40000, 4, "");
}
$xHFrm->addHElem("<p class='aviso'>" . $xCred->getMessages(OUT_HTML) . "</p>");
}
//$xHFrm->addHElem( $txt );
//$xHFrm->addHElem( $xF->show(true) );
//$xHFrm->addHElem( "<p class='aviso'>La $miFecha, Dias del Mes==". $xF->getDiasDelMes() ."</p>");
//$xAML->getSimilaresPorNombre("jose leonides", "cocom");
//$xAML->getSimilaresPorNombre("alberto", "chi");
$miFecha = "2014-03-01";
//$xAML->getSimilaresPorNombre();
//$acum = $xAML->getOAcumuladoDeOperaciones("2013-12-30", $miFecha, SYS_TODAS);
$empresa = parametro("empresa", SYS_TODAS);
$out = parametro("out", SYS_DEFAULT);
$idrecibo = parametro("cNumeroRecibo", 0, MQL_INT);
$idrecibo = parametro("recibo", $idrecibo, MQL_INT);
$idrecibo = parametro("idrecibo", $idrecibo, MQL_INT);
$idrecibo = parametro("clave", $idrecibo, MQL_INT);
$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()" : "";
$senders = getEmails($_REQUEST);
$sql = "SELECT * FROM `operaciones_archivo_de_facturas` WHERE `clave_de_recibo` = ";
$titulo = "";
$archivo = "";
$xRec = new cReciboDeOperacion(false, false, $idrecibo);
$xRec->init();
$archivo = $xRec->getFactura(true);
if ($archivo == null) {
header("Content-type: text/plain");
echo $xRec->getMessages(OUT_TXT);
} else {
$nombrearchivo = "Factura_recibo_num_" . $xRec->getCodigoDeRecibo();
header("Content-type: application/pdf");
//ISO-8859-1
header("Content-Disposition: attachment; filename=\"{$nombrearchivo}.pdf\"; ");
//readfile($xRec->OFactura()->getComprobante() . ".pdf");
echo $archivo;
}
function setEliminarInteresesDeCreditosPagados()
{
$msg = "";
//==============================================================================
$fecha = fechasys();
$cheque = DEFAULT_CHEQUE;
$recibo_fiscal = "NA";
$observaciones = "GENERADO_EN_LA_UTILERIA_883";
//==============================================================================
$CRecibo = new cReciboDeOperacion(1, false);
//Set a Mvto Contable
//$CRecibo->setGenerarPoliza();
//$CRecibo->setGenerarTesoreria();
$recibo = $CRecibo->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fecha, 1, 1, $observaciones, $cheque, "ninguno", $recibo_fiscal, DEFAULT_GRUPO);
$CRecibo->setNumeroDeRecibo($recibo);
//
$sql = "SELECT\n\t\t\t\t*\n\t\t\tFROM\n\t\t\t\t`creditos_solicitud` `creditos_solicitud`\n\t\t\tWHERE\n\t\t\t\t(`creditos_solicitud`.`saldo_actual` <= 0) AND\n\t\t\t\t(\n\t\t\t\t\t(`creditos_solicitud`.`interes_moratorio_devengado` != 0)\n\t\t\tOR\n\t\t\t\t\t(`creditos_solicitud`.`interes_normal_devengado` != 0)\n\t\t\t\t)";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$solicitud = $rw["numero_solicitud"];
$OpNormal = 420;
//420;
$OpMora = 421;
//431;
$MontoM = 0;
$MontoN = 0;
//terminado: oct/2011
$interesDN = $rw["interes_normal_devengado"];
$interesDM = $rw["interes_moratorio_devengado"];
$interesPN = $rw["interes_normal_pagado"];
$interesPM = $rw["interes_moratorio_pagado"];
if ($interesDN > $interesPN) {
$OpNormal = 140;
$MontoN = $interesDN - $interesPN;
} else {
$MontoN = $interesPN - $interesDN;
}
if ($interesDM > $interesPM) {
$OpNormal = 141;
$MontoM = $interesDM - $interesPM;
} else {
$MontoM = $interesPM - $interesDM;
}
if ($MontoN > 0) {
$CRecibo->setNuevoMvto($fecha, $MontoN, $OpNormal, 1, " Ajuste por {$MontoN} de {$interesDN} | {$interesPN} ", 1, TM_CARGO, $socio, $solicitud);
$msg .= "{$socio}\t{$solicitud}\tINTERES_NORMAL_DEV\tAjuste por {$MontoN} de {$interesDN} | {$interesPN} \r\n";
} else {
}
if ($MontoM > 0) {
$CRecibo->setNuevoMvto($fecha, $MontoN, $OpMora, 1, "Ajuste por {$MontoM} de {$interesDM} | {$interesPM}", 1, TM_CARGO, $socio, $solicitud);
$msg .= "{$socio}\t{$solicitud}\tINTERES_MOR_DEV\tAjuste por {$MontoM} {$interesDM} | {$interesPM} \r\n";
} else {
}
}
$msg .= $CRecibo->getMessages("txt");
$xCUtils = new cUtileriasParaCreditos();
$msg .= $xCUtils->setAcumularIntereses(true);
return $msg;
}
function getGenerarBaseGravadaMensualIDE($fecha = false)
{
if ($fecha == false) {
$fecha = fechasys();
}
$msg = "";
$msg .= "============== GENERANDO EL MOVIMIENTO DE BASE GRAVABLE DEL IDE\t==========\r\n";
$msg .= "============== FECHA: {$fecha} ==========\r\n";
$xF = new cFecha(0, $fecha);
$dia_inicial = $xF->getDiaInicial();
$dia_final = $xF->getDiaFinal();
$sqlGravados = "SELECT\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS 'monto'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\t\tINNER JOIN `operaciones_recibos` `operaciones_recibos`\n\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`recibo_afectado` = `operaciones_recibos`.\n\t\t\t\t\t\t\t\t\t`idoperaciones_recibos`\n\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` >='{$dia_inicial}')\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` <='{$dia_final}')\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 2600)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_recibos`.`tipo_pago` = 'efectivo' )\n\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_recibos`.`tipo_pago` ";
//$msg .= "$sqlGravados\r\n";
//Agregar Recibo
$xRec = new cReciboDeOperacion(10);
//$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$idrecibo = $xRec->setNuevoRecibo(1, 1, $fecha, 1, 10, "BASE_REMANENTE_GRAVABLE_AL_IDE", "NA", "ninguno", "NA", DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$rs = getRecordset($sqlGravados);
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["socio_afectado"];
$excencion = EXCENCION_IDE;
$base_gravada = setNoMenorQueCero($rw["monto"] - $excencion);
if ($base_gravada > 0) {
$xRec->setNuevoMvto($dia_final, $base_gravada, 9302, 1, "", 1, false, $socio, 1);
}
}
$xRec->setFinalizarRecibo();
$msg .= $xRec->getMessages("txt");
return $msg;
}
$xRec = new cReciboDeOperacion(false, true, $cargar);
$xRec->init();
$monto = $xRec->getTotal();
//$documento = $xRec->getCodigoDeDocumento();
$recibo = $cargar;
$fecha = $xRec->getFechaDeRecibo();
//$operacion = BANCOS_OPERACION_DEPOSITO;
$cheque = $xRec->getNumeroDeCheque();
$observaciones = $xRec->getObservaciones();
//$xBanc = new cCuentaBancaria("");
$xBanc = $xRec->getBancoPorOperacion();
if ($xBanc != null) {
$banco = $xBanc->getClaveDeBanco();
$CuentaBancaria = $xBanc->getNumeroDeCuenta();
}
$msg .= $xRec->getMessages(OUT_TXT);
}
//$jxc = new TinyAjax();
//$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago");
//$jxc ->process();
echo $xHP->getHeader();
$jsb = new jsBasicForm("tesoreria_operaciones", iDE_OPERACION);
$jsb->setIncludeOnlyCommons();
//$jxc ->drawJavaScript(false, true);
echo $xHP->setBodyinit();
$xFRM = new cHForm("tesoreria_operaciones", "./tesoreria_operaciones.frm.php");
$xBtn = new cHButton();
$xTxt = new cHText();
$xTest = new cCaja();
//$xTest->addOperacion($recibo, )
$xHCob = new cHCobros();
$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();
$xRec->setGenerarPoliza();
$xRec->setGenerarTesoreria();
$idrecibo = $xRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, RECIBOS_TIPO_TERCEROS, $observaciones, $cheque, $comopago, $foliofiscal);
$xRec->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MULTAS, 1, $observaciones, 1, TM_ABONO, $idsocio);
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$xRec->setFinalizarRecibo(true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha());
$xFRM->addPrintRecibo();
$xFRM->addHTML($xRec->getJsPrint(true));
$xFRM->addAvisoRegistroOK();
if (MODO_DEBUG == true) {
$xFRM->addAviso($xRec->getMessages());
}
}
}
}
echo $xFRM->get();
$xHP->fin();
} else {
$msg .= "\tEl Estatus Es Aceptable\r\n";
$sucess = true;
}
} else {
$msg .= "\tLa Planeacion de un Credito con menos de " . DIAS_ESPERA_CREDITO . " Dias no Existe\r\n";
$sucess = true;
}
if ($sucess == true) {
$PlanAnterior = $xP["idoperaciones_recibos"];
//Eliminar la Planeacion Anterior
if (isset($PlanAnterior)) {
$DRec = new cReciboDeOperacion(14, false, $PlanAnterior);
$DRec->setNuevoRecibo($PlanAnterior);
$DRec->setRevertir();
$msg .= $DRec->getMessages();
}
//--------------------------------------- DATOS DEL RECIBO -----------------------------------------------
// DATOS GENERALES
$fechaop = fechasys();
// fecha de la Operacion y el recibo.
/* *******************************************************************************************************
Agrega el Recibo..- VALIDO SOLO PARA PLANEACION DE CREDITO
**************************************************************************************************** */
$msqlf = "idoperaciones_recibos, fecha_operacion, numero_socio, docto_afectado, tipo_docto, total_operacion, observacion_recibo, tipo_pago, grupo_asociado, idusuario";
$msqlv = "{$idrecibo}, '{$fechaop}', {$presidenta}, 1, 14, 0, 'PLANEACION DE CREDITO HECHA POR {$oficial}', 'ninguno', {$idgrupo}, {$iduser}";
$sqlrec = "INSERT INTO operaciones_recibos({$msqlf}) VALUES ({$msqlv})";
// --------------------------------------- VALOR SQL DEL MVTO.-------------------------------------------------------
// VALORES FIJOS
$smf = "idoperaciones_mvtos, fecha_operacion, fecha_afectacion, recibo_afectado, socio_afectado, docto_afectado, ";
$smf .= "tipo_operacion, afectacion_real, afectacion_cobranza, afectacion_contable, ";
}
}
//Imprime la Ficha del socio
$xRec = new cReciboDeOperacion();
$xRec->setNumeroDeRecibo($recibo, true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha(true));
$xFRM->addHTML($xRec->getJsPrint(true));
if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
if ($ReciboIDE != 0) {
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de impuestos", "jsPrintIDE()", "imprimir", "idrec-ide", false));
}
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
$msg .= $xRec->getMessages();
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
}
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de deposito", "jsImprimirRecibo()", "imprimir", "idrec-dep", false));
} else {
$msg .= "ERROR\tLA CUENTA NO ES OPERATIVA EN LA FECHA {$Fecha}\r\n";
}
$xFRM->addToolbar($xBtn->getIrAlInicio(true));
}
$xFRM->addAviso($msg, "idmsg", true);
}
echo $xFRM->get();
?>
function jsaAjustarTotal($recibo, $nuevoTotal, $nuevaletra)
{
$xRec = new cReciboDeOperacion(false, true, $recibo);
$xRec->init();
$xRec->setGenerarBancos(false);
$xRec->setGenerarPoliza(false);
$xRec->setGenerarTesoreria(false);
$xRec->setForceUpdateSaldos(true);
$total = $xRec->getTotal();
$QL = new MQL();
$DMov = new cOperaciones_mvtos();
$msg = "";
if ($nuevoTotal < $total) {
$NRec = new cReciboDeOperacion($xRec->getTipoDeRecibo(), false, $recibo);
$idNRec = $NRec->setNuevoRecibo($xRec->getCodigoDeSocio(), $xRec->getCodigoDeDocumento(), $xRec->getFechaDeRecibo(), 0, $xRec->getTipoDeRecibo(), "AJUSTE DEL RECIBO {$recibo}");
$NRec->setForceUpdateSaldos(true);
$NRec->setGenerarBancos(false);
$NRec->setGenerarPoliza(false);
$NRec->setGenerarTesoreria(false);
/*`idoperaciones_mvtos`,
`operaciones_mvtos`.`fecha_operacion`,
`operaciones_mvtos`.`fecha_afectacion`,
`operaciones_mvtos`.`recibo_afectado`,
`operaciones_mvtos`.`socio_afectado`,
`operaciones_mvtos`.`docto_afectado`,
`operaciones_mvtos`.`tipo_operacion`,
`operaciones_mvtos`.`afectacion_real` */
$sql = "SELECT\n\t\t\t`operaciones_mvtos`.*\n\n\t\tFROM\n\t\t\t`operaciones_mvtos` `operaciones_mvtos` \n\t\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos` \n\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t\t`idoperaciones_tipos` \n\t\tWHERE\n\t\t\t(`operaciones_mvtos`.`recibo_afectado` ={$recibo}) \n\t\tORDER BY\n\t\t\t`operaciones_mvtos`.`tipo_operacion` DESC ";
$rs = $QL->getDataRecord($sql);
$arrops = array();
foreach ($rs as $rw) {
$DMov->setData($rw);
$NMonto = $DMov->afectacion_real()->v();
$IDOpe = $DMov->idoperaciones_mvtos()->v();
if ($nuevoTotal > 0) {
$nuevoTotal -= $NMonto;
$msg .= $IDOpe . " \t {$nuevoTotal} DE {$NMonto}\r\n";
if ($nuevoTotal < 0) {
$msg .= "CUADRAR {$NMonto} DE {$nuevoTotal} \r\n";
$nuevoTotal = $nuevoTotal * -1;
$dif = $NMonto - $nuevoTotal;
$sql = "UPDATE operaciones_mvtos \n\t\t\t\t\t\t\tSET afectacion_real={$dif}, afectacion_cobranza={$dif}, afectacion_contable={$dif},\n\t\t\t\t\t\t\tafectacion_estadistica={$dif} WHERE idoperaciones_mvtos={$IDOpe} ";
$x = my_query($sql);
$msg .= $x[SYS_INFO];
//agregar el movimiento al nuevo recibo con cargos
$NRec->setNuevoMvto($DMov->fecha_operacion()->v(), $nuevoTotal, $DMov->tipo_operacion()->v(), $DMov->periodo_socio()->v(), "SEPARACION DEL MVTO {$IDOpe} {$nuevoTotal}", $DMov->valor_afectacion()->v(), false, $DMov->socio_afectado()->v(), $DMov->docto_afectado()->v(), $DMov->fecha_afectacion()->v(), $DMov->fecha_vcto()->v(), $DMov->saldo_anterior()->v(), $DMov->saldo_actual()->v());
//listo
$nuevoTotal = 0;
}
} else {
$arrops[$DMov->idoperaciones_mvtos()->v()] = $DMov->afectacion_real()->v();
}
}
//$total = $total * -1;
foreach ($arrops as $operacion => $monto) {
$x = my_query("UPDATE operaciones_mvtos SET recibo_afectado={$idNRec} WHERE idoperaciones_mvtos={$operacion}");
//100 - 50
//$dif = $monto - $total;
$msg .= $x[SYS_INFO];
}
$NRec->setFinalizarRecibo(true);
$msg .= $NRec->getMessages(OUT_TXT);
$xRec->setFinalizarRecibo(true);
} else {
$msg .= "WARN\tNO SE MODIFICA NADA({$nuevoTotal}|{$total})\r\n";
}
$msg .= $xRec->getMessages(OUT_TXT);
return $msg;
}
