Editor an Verkaufszeile sperrt andere Benutzer

5. Juni 2014 14:12

Hallo Zusammen,

mal ne kurze Frage. Ich habe mithilfe von mibuso den Windows Editor an die VK-Zeile angebunden.
Klappt soweit auch ganz gut ... nur das es jetzt immer häufiger vorkommt, dass andere Benutzer - solange das Notepad geöffnet ist - nicht arbeiten können, da die Tabelle gesperrt ist :?: :!:

Nachfolgend der Code zum Start des Editors:

Code:
OpenNotePad(partxtCommentText : Text[250];parvarCR : Variant)
IF intReturnNo = 0 THEN BEGIN
  loctxtComment := ASCII2ANSI(partxtCommentText);
  IF loctxtComment <> '' THEN
    TempOutStream.WRITETEXT(loctxtComment,STRLEN(loctxtComment))
  ELSE
    TempOutStream.WRITETEXT(loctxtComment);
  TempOutStream.WRITETEXT();
END ELSE BEGIN
  EVALUATE(locbooCR,FORMAT(parvarCR));
  IF locbooCR THEN
    loctxtComment := ASCII2ANSI(partxtCommentText)
  ELSE
    loctxtComment := ASCII2ANSI(partxtCommentText) + ' ';
  IF loctxtComment <> '' THEN
    TempOutStream.WRITETEXT(loctxtComment,STRLEN(loctxtComment))
  ELSE
    TempOutStream.WRITETEXT(loctxtComment);
  IF locbooCR THEN
    TempOutStream.WRITETEXT();
END;

InitializeNotePad()
TempFile.CREATE(FORMAT(TEMPORARYPATH) + STRSUBSTNO('Notepad-%1.txt',USERID));
TempFile.CREATEOUTSTREAM(TempOutStream);

StartEditor()
TempFile.CLOSE;
IF ISCLEAR(WSHShell) THEN
  CREATE(WSHShell,TRUE,TRUE);
TempFileName := 'C:\Windows' + '\notepad.exe' + ' ' + TEMPORARYPATH + STRSUBSTNO('Notepad-%1.txt',USERID);
WindowsStyle := 1;
WaitForReturn := TRUE;
locintShellNo := WSHShell.Run(TempFileName,WindowsStyle,WaitForReturn);


Hat jmd. ne Idee wie ich die Sperre verhindern kann!?

Vielen Dank im Voraus.

MfG
Mr.Nav