lcFileToImport = GETFILE([001]) IF NOT EMPTY(lcFileToImport) AND; JUSTEXT(lcFileToImport) == [001] lcCreate = [CREATE CURSOR crsImport (Fld1 C(20)] FOR lnFor = 2 TO 19 lcCreate = lcCreate + [, Fld]+TRANSFORM(lnFor)+[ C(20)] NEXT lcCreate = lcCreate + [)] &lcCreate SELECT crsImport APPEND FROM (lcFileToImport) DELIMITED BROWSE NORMAL GO TOP SCAN IF ALLTRIM(Fld1) == [01] *** Manage header record *** with proper transformation of the types *** between C(20) and the real Header table type ELSE *** Manage detail records *** with proper transformation of the types *** between C(20) and the real Detail table type ENDIF ENDSCAN RENAME (lcFileToImport) TO FORCEEXT(lcFileToImport,[TRN]) ENDIF