My god this is NOT myday.
this is the code:

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 CURSOR MyDetTemp

SELE MyDetTemp
REPORT FORM c:\psv\cconfbase.FRX TO PRINTER PREVIEW

ENDSCAN