*Tablas potencialmente relacionadas
SET DEFA TO c:\psv
use mydet
SELE DIST tabla FROM cconfbase WHERE UPPER(LEFT(nombre,3))=="COD" INTO CURSOR MyRelTables
SELE MyRelTables

SCAN
SELECT tabla, nombre, tipo, ancho, decimales FROM cconfbase ;
WHERE MyRelTables.tabla = cconfbase.tabla ;
ORDER BY tabla, nombre INTO DBF allt(tabla)+".dbf" CURSOR MyDetTemp

SELE MyDetTemp
* REPORT FORM c:\psv\cconfbase.FRX TO PRINTER PREVIEW
REPORT FORM c:\psv\cconfbase.FRX TO FILE allt(MyDetTemp.tabla)+".txt" ASCII

ENDSCAN