Borrar todas las tablas de un QVW

El siguiente script borra todas las tablas previamente cargadas

LET Cantidad_Tablas = NoOfTables();

do while Cantidad_Tablas > 0
     LET Nombre_Tabla = TableName(0);
     DROP Table $(Nombre_Tabla);
     LET Cantidad_Tablas = NoOfTables();
LOOP; 


NOTA
Para guardar todas las tablas de un qvw en formato qvd o txt, ver nota publicada AQUI