$sucess = true;
$xCta = new cCuentaInversionPlazoFijo($iddocto, $idsocio);
$xCta->init();
//$xCta->setCuentaBancaria($cuenta_cheques);
$maximo_retirable = $xCta->getMaximoRetirable();
if ($monto > $maximo_retirable) {
$msg .= "ERROR\tNo puede Retirar mas de {$maximo_retirable}, usted quizo retirar {$monto} \r\n";
$sucess = false;
}
if ($xCta->getEsOperable() == false) {
$msg .= "ERROR\tLa cuenta No es Operable\r\n";
$sucess = false;
}
$xFRM->addAviso($msg);
if ($sucess == true) {
$recibo = $xCta->setRetiro($monto, $cheque, $comopago, $foliofiscal, $detalles, DEFAULT_GRUPO, $Fecha);
//Imprime la Ficha del socio
$xCta->init();
$xSoc = new cSocio($xCta->getClaveDePersona());
$xSoc->init();
$xFRM->addHTML($xSoc->getFicha());
$xFRM->addHTML($xCta->getFicha(true));
if ($xCta->getORec() == null) {
} else {
$xFRM->addHTML($xCta->getORec()->getFicha(true));
$xFRM->addHTML($xCta->getORec()->getJsPrint(true));
$xFRM->addPrintRecibo();
$xFRM->addAvisoRegistroOK();
}
}
if (MODO_DEBUG == true) {
