< Back
Document Subject: Smarticon to create links to database
Hint Short Cut: Add this to your code & documentation to help you find this page.
http://#SmartIconDbLink or http://A555F9/nn.nsf/ByAlias/SmartIconDbLink

Smarticon code to create a memo with links to a database including web link and replica id.




I use this to create links to a db:

@Command([EditMakeDocLink]);
r:=@DbName;
s:=@DbTitle;
repid:=@ReplicaID;
w:="http://"+@Name([CN];@Subset(r;1))+"/"+@ReplaceSubstring(@Subset(r;-1);"\\";"/");
@Command([Compose];@MailDbName;"Memo");
@Command([EditGotoField];"Subject");
@Command([EditInsertText];s);
@Command([EditGotoField];"Body");
@Command([EditInsertText];"Server:  "+@Implode(@Name([Abbreviate];r);"     Path:  "));
@Command([EditInsertText]; @Char(13) + @Char(10)  );
@Command([EditInsertText];"Web:  "+w);
@Command([EditInsertText]; @Char(13) + @Char(10)  );
@Command([EditInsertText];"Replica ID:  "+repid);
@Command([EditInsertText]; @Char(13) + @Char(10) );
@Command([EditInsertText];"Link:  ");
@Command([EditPaste]);
@Command([EditInsertText]; @Char(13) + @Char(10)  );
@Command([EditInsertText]; @Char(13) + @Char(10)  );
@Command([EditInsertText];@Name([Abbreviate];@UserName));
@Command([EditInsertText];"   ");
@Command([EditInsertText];@UserName);
@Command([EditInsertText]; @Char(13) + @Char(10)  )