$msg .= "ERROR\tNo puede Retirar mas de {$maximo_retirable}, usted quizo retirar {$monto}\r\n";
                $sucess = false;
            } else {
                $recibo = $xCta->setRetiro($monto, $cheque, $comopago, $foliofiscal, $detalles, DEFAULT_GRUPO, $Fecha);
            }
        } else {
            $sucess = false;
        }
        if (MODO_DEBUG == true) {
            $msg .= $xCta->getMessages();
        }
        $xFRM->addAviso($msg);
        if ($sucess == true) {
            //Imprime la Ficha del socio
            $xCta->init();
            $xSoc = new cSocio($xCta->getClaveDePersona());
            $xSoc->init();
            $xFRM->addHTML($xSoc->getFicha());
            $xFRM->addHTML($xCta->getFicha(true));
            $xFRM->addHTML($xCta->getORec()->getFicha(true));
            $xFRM->addHTML($xCta->getORec()->getJsPrint(true));
            // *****************************************************************************
            $xFRM->addPrintRecibo();
            $xFRM->addAvisoRegistroOK();
        }
    }
}
echo $xFRM->get();
?>
</body>
<?php