@If((Form = "f2")|(Form="f2_1"); ""; @Do(@Prompt([Ok]; "Внимание !"; "Необходимо выбрать досье!"); 
@Return("")));m := "Изменение информации";
ENVIRONMENT extcont_a :=@Prompt([OkCancelEdit]; m; "Новая фамилия:";name);
ENVIRONMENT extcont_n := @Environment("extcont_a") ;@If(extcont_a = name ; ""; 
@PostedCommand([ToolsRunMacro]; "(nameupdate)"));
@PostedCommand([ToolsRunMacro]; "(message1)");@All; @All

SELECT @All;@If(@IsAvailable("Name"); 
@Do(@SetField("name"; @Environment("extcont_a"))); "");
@If(@IsAvailable("ContName"); @SetField("ContName"; @Environment("extcont_n")); "");
@If(Form = "f2"; @Do(@SetField("ff"; name));"")

@Command([EditGotoField];"attach");
@Command( [FileImport] )