$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