Information générale
Catégorie:
Codage, syntaxe et commandes
THIS is the code, sorry for the mistake.
use mydet
SELE DIST tabla FROM base WHERE UPPER(LEFT(nombre,3))
=="COD" INTO CURSOR MyRelTables
SELE MyRelTables
SCAN
SELECT tabla, nombre, tipo, ancho, decimales FROM
base ;
WHERE MyRelTables.tabla = base.tabla ;
ORDER BY tabla, nombre INTO DBF allt(tabla)
+".dbf" CURSOR MyDetTemp
SELE MyDetTemp
REPORT FORM c:\report\cconfbase.FRX TO PRINTER
PREVIEW
ENDSCAN
.
Best regards,
Pablo
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement