DEFINE VARIABLE lv-FileSequence AS INTEGER NO-UNDO INITIAL 1.
DEFINE VARIABLE lv-FileDir AS CHARACTER NO-UNDO.
DEFINE VARIABLE lv-Extensions AS CHARACTER NO-UNDO INITIAL "xls,xlsx,csv".
DEFINE VARIABLE lv-FileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE lv-PathName AS CHARACTER NO-UNDO.
DEFINE VARIABLE lv-Type AS CHARACTER NO-UNDO.
lv-FileDir = DYNAMIC-FUNCTION('fn-EDI-InputDirectory',"Import Directory",fn-EDI-InitialDir(ICMAS.SupplierDataImport.SupplierDataImportKey)).
IF lv-FileDir EQ "CANCEL" THEN
RETURN "CANCEL".
INPUT STREAM s-import FROM OS-DIR(lv-FileDir).
REPEAT:
IMPORT STREAM s-import lv-FileName lv-PathName lv-Type NO-ERROR.
IF lv-Type NE "F" THEN
NEXT.
IF LOOKUP(ENTRY(NUM-ENTRIES(lv-FileName,"."),lv-FileName,"."),lv-Extensions) EQ 0 THEN
NEXT.
CREATE tt-SupplierFiles.
ASSIGN
tt-SupplierFiles.SFName = lv-PathName
tt-SupplierFiles.SFNumber = lv-FileSequence
lv-FileSequence = lv-FileSequence + 1.
END.
INPUT STREAM s-import CLOSE.