function setDeposito($monto, $cheque = DEFAULT_CHEQUE, $tipo_de_pago = "cheque", $recibo_fiscal = "NA", $observaciones = "", $grupo = DEFAULT_GRUPO, $fecha = false, $recibo = false)
{
if ($monto > 0) {
if (setNoMenorQueCero($this->mPeriodoCuenta) == 0) {
$this->mPeriodoCuenta = 1;
}
if (setNoMenorQueCero($this->mSocioTitular) <= DEFAULT_SOCIO) {
$this->init();
}
if ($grupo == DEFAULT_GRUPO) {
$grupo = $this->mGrupoAsociado;
}
//Corregir la fecha si no existe
if ($fecha == false) {
if (isset($this->mFechaOperacion) and $this->mFechaOperacion != false) {
$fecha = $this->mFechaOperacion;
} else {
$fecha = fechasys();
}
}
$this->mFechaOperacion = $fecha;
$socio = $this->mSocioTitular;
$CRecibo = new cReciboDeOperacion(7, true);
//Agregar recibo si no hay
if (setNoMenorQueCero($recibo) == 0) {
$recibo = $CRecibo->setNuevoRecibo($socio, $this->mNumeroCuenta, $this->mFechaOperacion, $this->mPeriodoCuenta, 7, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if (setNoMenorQueCero($recibo) == 0) {
$this->mMessages .= "OK\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " de fecha {$fecha} \r\n";
$this->mReciboDeOperacion = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " de Fecha {$fecha}\r\n";
$this->mSucess = false;
}
}
$this->mReciboDeOperacion = $recibo;
if (setNoMenorQueCero($recibo) > 0) {
//Agregar el Movimiento
$CRecibo->setNuevoMvto($fecha, $monto, $this->mOperacionDeposito, $this->mPeriodoCuenta, $observaciones, 1, TM_ABONO, $socio, $this->mNumeroCuenta);
$CRecibo->addMvtoContableByTipoDePago();
$CRecibo->setFinalizarRecibo(true);
$CRecibo->setFinalizarTesoreria();
$this->mNuevoSaldo = $this->mSaldoAnterior + $monto;
$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
//Actualizar la Cuenta
$this->setUpdateSaldo();
} else {
$this->mMessages .= "ERROR\tNo Existe Recibo con el cual trabajar({$recibo}) \r\n";
}
$this->mMessages .= $CRecibo->getMessages();
}
return $recibo;
}
$msg .= MODO_DEBUG == true ? $xRecCapt->getMessages() : "";
}
}
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);
}
