R
Roger Blanchard
Guest
11.7.3 Should this not open the system dialog in the EDI folder? I have verified using DirectoryInfo that the directory does exist. However, the system dialog does not open in the folder that I think it should. In 11.4 the same code works just fine. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cBasefile AS CHARACTER NO-UNDO. DEFINE VARIABLE cEdifolder AS CHARACTER NO-UNDO. DEFINE VARIABLE lOkay AS LOGICAL NO-UNDO. DEFINE VARIABLE oDirectoryInfo AS CLASS System.IO.DirectoryInfo NO-UNDO. FILE-INFO:FILE-NAME = ".". ASSIGN cEDIFolder = FILE-INFO:FULL-PATHNAME + "\EDI" cBaseFile = "*.xml". oDirectoryInfo = NEW System.IO.DirectoryInfo (cEdifolder). MESSAGE "oDirectoryInfo:EXISTS=" oDirectoryInfo:EXISTS VIEW-AS ALERT-BOX. SYSTEM-DIALOG GET-FILE cFileName INITIAL-DIR cEDIFolder FILTERS "Invoices (*.xml)" cBaseFile MUST-EXIST TITLE "Select XML Invoice" RETURN-TO-START-DIR USE-FILENAME UPDATE lOkay.
Continue reading...
Continue reading...