@wickie: Wenn Du die Field Control-DB noch hast :
Code der Symbolleisten-Schaltfläche (früher bekannt als SmartIcon :) ) für die Einzeldokument-Bearbeitung :
REM {Replace values of fcSDB with server and DB name were SuperForm resides};
fcSDB:=@Environment("sfFCServer"):@Environment("sfFCDB");
ENVIRONMENT sfServer := @Subset(@DbName;1);
ENVIRONMENT sfDb := @Subset(@DbName;-1);
ENVIRONMENT sfUNID := @Text(@DocumentUniqueID);
@PostedCommand([Compose]; fcSDB; "superform")
Code der Symbolleisten-Schaltfläche für die Multidokument-Bearbeitung :
REM {Replace values of fcSDB with server and DB name were SuperForm resides};
fcSDB:=@Environment("sfFCServer"):@Environment("sfFCDB");
ENVIRONMENT sfServer := @Subset(@DbName;1);
ENVIRONMENT sfDb := @Subset(@DbName;-1);
ENVIRONMENT sfUNID := @Text(@DocumentUniqueID);
actions:=
"FieldControl" :
" Empty FieldControl" :
" Previous FieldControl" :
"MultiDoc" :
" Last collection of documents (prev. MultiDoc)" :
" Copy MultiDoc agent to this DB" :
"Show FieldControl Help":
"?";
sel:= @Prompt([OkCancelList]:[NoSort];
"FieldControl menu";
"Please select an action:";
""; actions);
REM {See what they chose, by position in the list.};
s:= @If(sel = ""; @Return(0); @Member(sel; actions));
REM {carry out the selected operation.};
doSF:=0;
@If(s=1;@Set("doSF";1);
s=2;
@Do(@Environment("sfUNID";"sfEmpty");@Set("doSF";1));
s=3;
@Do(@Environment("sfUNID";"sfPrev");@Set("doSF";1));
s=4;
@Do(@Command([ToolsRunMacro];"(sfMultiDoc)");@Set("doSF";1));
s=5;
@Do(@Environment("sfMulti";"sfPrev");@Set("doSF";1));
s=6;
@Do(@Command([FileOpenDatabase];fcSDB);
@Command([ToolsRunMacro];"(Copy MD agent)");
@Command([FileCloseWindow]) );
s=7;
@Do(@Command([FileOpenDatabase];fcSDB);@Command([HelpAboutDatabase]));
0);
@If(doSF=1;@PostedCommand([Compose]; fcSDB; "superform");"");
REM {END OF SMARTICON----};
REM {@Prompt([OK];"what";@Text(s)+"%"+@Text(doSF));};
REM {this code i was unable to force to work @Do(@Command([CreateAgent]); @Command( [EditInsertText]; "fcMultiDocDummy" ); @Command([FileSave]); @Command([FileOpenDatabase];fcSDB); @Command([ToolsRunMacro];"Untitled test"); @Command([FileCloseWindow]); @Command([FileCloseWindow]) )};