Exportar modelo de datos

[cbermejo]

Utilidad para exportar a disco todo el modelo de datos que tengamos en una aplicación.

1. Para conseguirlo, solo necesitamos colocar este pequeño bucle en la pestaña final del script de la aplicación original:

     // Guarda en disco todas las tablas de la memoria, borrándolas a continuación
     Directory $(DirectoryExportData);

     let numTablas = NoOfTables();
     for i =1 to $(numTablas)
            let Tabla= TableName(0);
            STORE [$(Tabla)] into [$(Tabla)].qvd(qvd);
            drop table [$(Tabla)];
     next i

2. Y con este otro en la aplicación final para cargar todos los datos necesarios:
     // Carga todos los ficheros "qvd" existentes en un directorio
     LET DirectoryExportData ='Data\Export\';

     Directory $(DirectoryExportData);

     for each Ext in 'qvd'
            for each File in filelist ('*.' & Ext)
                   load * From $(File)(QVD);
     next File;

Espero que sea de utilidad