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;
}
