Code:
e:=@Command([EditDocument];"1");
@If(e=0;@Return(@Prompt([Ok];"!";"You do not have edit rights for this document"));"");
r:=@PickList([Custom];"":"names.nsf";"Contacts";"Contact";"Choose the contact(s) who the request should be emailed to.";2);
FIELD PlantContacts:=PlantContacts:r;
@Command([ViewRefreshFields]);
""
End of code.