TopSoft: опыт успешных решений

Код: Выделить всё

if (getfirst groupmc where ((MyNewName==groupmc.name)) =tsOK) 
  {
  } 
else
     {
      clearbuffer(#groupmc);
      groupmc.kod  := MyNewCode
      groupmc.name := MyNewName;
      insert current groupmc;
     }