Es gibt noch eine weitere Situation bei der es zu einer RBOD kommt.
- Datenbank öffnen
- in eine andere Ansicht wechseln
- Sprache ändern
PENG
Auch hier ist wieder wohl wieder die Kombination in der Formel des Gliederungseintrages der Gliederung OUT-LANGUAGE
@SetTargetFrame("_top");
@Command([OpenFrameset];"FS-MAIN")
für den Crash verantwortlich.
Setzt man hinter das @SetTargetFrame ein @Command([CloseWindow]); ist Ruhe
Der Code sieht dann so aus:
REM { find users language };
_defaultLang := _defaultLang := @UpperCase(@DbLookup( "" : "NoCache" ; "":"" ; "($LUConfig)" ; "LANGUAGE" ; 2 ));
_view:="($LULANG)";
_foundlanguages := @Unique(@DbColumn("Notes" : "NoCache"; "" : ""; _view; 1));
_userlanguage :=@If(@ClientType="Web";
@UpperCase(@LanguagePreference([Region]))[1];
@If(@Environment("HDLang")="";@UpperCase(@LanguagePreference([Content]));@Environment("HDLang")));
_language:=@If(@IsMember(_userlanguage;_foundlanguages);_userlanguage;_defaultlang);
REM { find label };
_key:="outDlgLang";
_label := @Implode(@DbLookup( "" : "NoCache" ; "":"" ; "($LULANGTYPE)" ;_language + "~outline";"typestring");";");
_val:=@Right(_LABEL; _key + "=");
REM { find all possible languages };
_LANGUAGE:="**": @Unique(@DbColumn("Notes" : "NoCache"; "" : ""; _view; 1));
REM {select a new language or delete the entry from notes.ini if "**" is selected};
_NEWLANG:=@Prompt([OkCancelCombo];
@Word(@Word(_val;";";1);"~";1);
@Word(@Word(_val;";";1);"~";2);
@Environment("HDLang"); _LANGUAGE);
REM { Set the environment variable };
@If(_NEWLANG = "**";@Environment("HDLang"; "");@Environment("HDLang"; @UpperCase(_NEWLANG)));
@SetTargetFrame("_top");
@Command([CloseWindow]);@Command([OpenFrameset];"FS-MAIN")
zum Thema habe ich auf LDD noch folgendes gefunden
http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/d3cab7b8e5507bd285256f4a0038e7c6?OpenDocument&Highlight=0,SetTargetFrame
