handling the path that Navision is running

Hi All. How could I handle the path that Navision is running . I will copy a application that prints barcode in this path. And I want to use this path to run application. Regards.

If you meen the TempFilePath then it is: sPath := ENVIRON(‘TEMP’);

quote:


Originally posted by ErictP
If you meen the TempFilePath then it is: sPath := ENVIRON(‘TEMP’);


No, I want to get path where Navision Client Installed. for my machine this is C:\Program Files\Microsoft Business Solutions-Navision\Client Regards

Try this code VAR i@1000000000 : Integer; TempFileName@1000000003 : Text[250]; FileWithNavDir@1000000001 : File; MsgText@1000000002 : Text[250]; BEGIN i := STRPOS(UPPERCASE(COMMANDLINE), 'FIN.EXE'); IF i = 0 THEN i := STRPOS(UPPERCASE(COMMANDLINE), 'FINSQL.EXE'); IF i = 0 THEN BEGIN TempFileName := 'C:\NAVDIR_TEST.TXT'; SHELL('CMD', '/c', 'ECHO %CD%>' + TempFileName); FileWithNavDir.TEXTMODE(TRUE); IF FileWithNavDir.OPEN(TempFileName) THEN BEGIN FileWithNavDir.READ(MsgText); FileWithNavDir.CLOSE; FILE.ERASE(TempFileName); END; END ELSE MsgText := COPYSTR(COMMANDLINE, 1, i - 1); MESSAGE('Navision Path in: %1', MsgText); END;

Thanks a lot Jesus.

quote:


Originally posted by JSoage
Try this code VAR i@1000000000 : Integer; TempFileName@1000000003 : Text[250]; FileWithNavDir@1000000001 : File; MsgText@1000000002 : Text[250]; BEGIN i := STRPOS(UPPERCASE(COMMANDLINE), 'FIN.EXE'); IF i = 0 THEN i := STRPOS(UPPERCASE(COMMANDLINE), 'FINSQL.EXE'); IF i = 0 THEN BEGIN TempFileName := 'C:\NAVDIR_TEST.TXT'; SHELL('CMD', '/c', 'ECHO %CD%>' + TempFileName); FileWithNavDir.TEXTMODE(TRUE); IF FileWithNavDir.OPEN(TempFileName) THEN BEGIN FileWithNavDir.READ(MsgText); FileWithNavDir.CLOSE; FILE.ERASE(TempFileName); END; END ELSE MsgText := COPYSTR(COMMANDLINE, 1, i - 1); MESSAGE('Navision Path in: %1', MsgText); END;


You could also call your Navision via a command-file like this: @echo off d: cd \Navision set CurrentNavisionDir=%CD% start fin.exe id=D:\Navision\myUserId,database=D:\Navision\database.fdb (…change drive-letter and/or directory according to your installation [:)]) Now you have created an environtment variable called “CurrentNavisionDir” - and in a Navision-object you can give a statement like “txMyCurrentDir := ENVIRON(‘CurrentNavisionDir’);” Voila!