$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