$msg .= $xDS[SYS_MSG];
//obtiene la cuenta con mas antiguedad
$sqlCA = "SELECT MIN(fecha_apertura) AS 'fecha' FROM captacion_cuentas WHERE numero_cuenta={$cuenta}";
$DCA = obten_filas($sqlCA);
$fecha = $DCA["fecha"];
$sqlCA = "DELETE FROM captacion_cuentas WHERE fecha_apertura!='{$fecha}' AND numero_cuenta={$cuenta}";
$xDA = my_query($sqlCA);
$msg .= $xDA[SYS_MSG];
$sqlUC = "UPDATE captacion_cuentas SET saldo_cuenta=0, saldo_conciliado=0, ultimo_sdpm=0 WHERE numero_cuenta={$cuenta}";
my_query($sqlUC);
break;
//Limpiar la Base de Datos
//Limpiar la Base de Datos
case 666:
$x = new cSAFEData();
$msg .= $x->setPurgueDB();
echo "<p class='kill'>AS BORRADO TODO REGISTRO EXISTENTE</p>";
break;
case 667:
$x = new cSAFEData();
$msg .= $x->setCrearEjemplos();
echo "<p class='kill'>GENERAR EJEMPLOS</p>";
break;
case 668:
//$x = new cLang(); $msg .= $x->toDatabase();
break;
case 669:
$Forzar = strtoupper($id) == "SI" ? true : false;
$xPatch = new cSystemPatch();
$msg .= $xPatch->patch($Forzar);
break;
