ChadSmiley Blog :: More Toolbar Tools

Bookmark :

Updated version of Toolbar Functions is now available.

Here is another toolbar icon next to Edit Document Fields and One Teamstudio Icon. I liked Johan Känngård's Collection of SmartIcon formulas so much I added all of his options also.

Here are the current options:

Undo Replication Conflict
Unlock Document
Refresh Selected Documents
Link Message
Workflow Formula Test
Agent Run
Agent Run Current
Get Notes ID
Get UNID

Option := @Prompt( [OkCancelCombo] ; "Select Option" ; "What would you like to do:" ; "Undo Replication Conflict" ; "Undo Replication Conflict" : "Unlock Document" : "Refresh Selected Documents" : "Link Message" : "Workflow Formula Test" : "Agent Run" : "Agent Run Current" : "Get Notes ID" : "Get UNID" : "Get Parent UNID" ) ;

@If( Option = "Refresh Selected Documents" ; @Command([ToolsRefreshSelectedDocs]) ; "") ;

@If( Option = "Undo Replication Conflict" ; @Do( @SetField("$REF" ; @DeleteField ) : @SetField( "$Conflict" ; @DeleteField ) ) ;

Option = "Unlock Document" ; @Do( @SetField("$Writers" ; @DeleteField ) : @SetField( "$WritersDate" ; @DeleteField ) ) ;

Option = "Agent Run" ; @Do ( @Command([RunAgent] ; @Prompt( [OkCancelEdit];"Run Agent" ; "Enter agent to run"; "" ) ) ) ;

Option = "Agent Run Current" ; @Do ( @Command([ToolsRunMacro]; $Title) ) ;

Option = "Link Message" ; @Do ( @Command([Compose]; @MailDbName; "Bookmark") ) ;

Option = "Get Parent UNID" ; @Do ( @Prompt([OKCANCELEDIT]; "Parent UNID"; "Parent Unique ID"; @Text($REF)) ) ;

Option = "Get UNID" ; @Do ( @Prompt([OKCANCELEDIT]; "UNID"; "Unique ID"; @Text(@DocumentUniqueID)) ) ;

Option = "Get Notes ID" ; @Do ( @Prompt([OKCANCELEDIT]; "NoteID"; "NoteID"; @Text(@NoteID)) ) ;

Option = "Workflow Formula Test" ; @Do ( @Command([Compose]; @DbName; "(OS FormulaTest)") ) ;

"" )

Update: Added Get Parent UNID