Set field value on new document

I’m using a button to prompt the user with a drop down list of servers. When they choose one and click Ok creates a new doc, setting the Server field with the name of the server they chose. What I’m using works but is there a better way to do it without having to use EditGotoField?

list := @Name([Abbreviate]; @DbColumn(“”; “server name”:“names.nsf”; “$Servers”; 1));

server := @Prompt([OkCancelCombo]; “Select a server”; “Which server needs view rebuilt?”; @Subset(List; 1); list);

@Command([Compose];“”:“ViewRebuilds.nsf”;“NewDocument”);

@Command([EditGotoField];“Server”);

@Command([EditInsertText];server);

@Command([FileSave]);

@Command([FileCloseWindow])

Subject: Set field value on new document

try this:

list := @Name([Abbreviate]; @DbColumn(“”; “server name”:“names.nsf”; “$Servers”; 1));

server1 := @Prompt([OkCancelCombo]; “Select a server”; “Which server needs view rebuilt?”; @Subset(List; 1); list);

@Command([Compose];“”:“ViewRebuilds.nsf”;“NewDocument”);

FIELD Server := server1;

Regards

Litty Joseph

Subject: RE: Set field value on new document

Hey…where’s the error handling?

list := @Name([Abbreviate]; @DbColumn(“”; “server name”:“names.nsf”; “$Servers”; 1));

@If(

@IsError(list) | @Trim(list) = “”;

  @Return(@Prompt([OK]; "Select Server"; "The list of servers could not be found."));

""

);

server1 := @Prompt([OkCancelCombo]; “Select a server”; “Which server needs view rebuilt?”; @Subset(List; 1); list);

@Command([Compose];“”:“ViewRebuilds.nsf”;“NewDocument”);

FIELD Server := server1;